Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit6.pas

Diff of /Unit6.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC revision 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC
# Line 19  type Line 19  type
19      IWEdit5: TIWEdit;      IWEdit5: TIWEdit;
20      IWButton1: TIWButton;      IWButton1: TIWButton;
21      IWEdit6: TIWEdit;      IWEdit6: TIWEdit;
     IWFrame1: TIWFrame1;  
22      IWButton2: TIWButton;      IWButton2: TIWButton;
23        IWFrame1: TIWFrame1;
24      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
25      procedure IWButton2Click(Sender: TObject);      procedure IWButton2Click(Sender: TObject);
26    public    public
     Form: TIWAppForm;  
27    private    private
28      function Check: Boolean;      function Check: Boolean;
29    end;    end;
# Line 33  implementation Line 32  implementation
32    
33  {$R *.dfm}  {$R *.dfm}
34    
35  uses Unit3, Unit1, UserSessionUnit, ServerController;  uses Unit3, Unit1, ServerController;
36    
37  function TUserForm.Check: Boolean;  function TUserForm.Check: Boolean;
38  begin  begin
# Line 49  begin Line 48  begin
48    begin    begin
49      result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and      result := (IWEdit1.Text <> '') and (IWEdit2.Text <> '') and
50        (IWEdit3.Text <> '') and (IWEdit4.Text <> '');        (IWEdit3.Text <> '') and (IWEdit4.Text <> '');
51      if result = true then      if result = false then
       Exit  
     else  
52        WebApplication.ShowMessage('入力が正しくありません');        WebApplication.ShowMessage('入力が正しくありません');
53    end    end
54    else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then    else if DM.FDTable1.FieldByName('EMAIL').AsString <> '' then
# Line 69  begin Line 66  begin
66      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
67        IWEdit4.Text, IWEdit5.Text, UserSession.user_number]);        IWEdit4.Text, IWEdit5.Text, UserSession.user_number]);
68      Release;      Release;
69      (Form as TIWForm1).Page := false;      IWForm1.Page := false;
70    end;    end;
71  end;  end;
72    
Legend:
Removed from v.7  
changed lines
  Added in v.8
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help