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 3 by yamat0jp, Sat Dec 26 07:30:17 2015 UTC revision 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC
# Line 24  type Line 24  type
24      procedure IWButton1Click(Sender: TObject);      procedure IWButton1Click(Sender: TObject);
25      procedure IWButton2Click(Sender: TObject);      procedure IWButton2Click(Sender: TObject);
26    public    public
27        Form: TIWAppForm;
28    private    private
29      function Check: Boolean;      function Check: Boolean;
30    end;    end;
# Line 32  implementation Line 33  implementation
33    
34  {$R *.dfm}  {$R *.dfm}
35    
36  uses Unit3;  uses Unit3, Unit1, UserSessionUnit;
37    
38  function TUserForm.Check: Boolean;  function TUserForm.Check: Boolean;
39  begin  begin
# Line 67  begin Line 68  begin
68      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
69        IWEdit4.Text, IWEdit5.Text, DM.FDTable1.FieldByName('NUMBER').AsInteger + 1]);        IWEdit4.Text, IWEdit5.Text, DM.FDTable1.FieldByName('NUMBER').AsInteger + 1]);
70      Release;      Release;
71        (Form as TIWForm1).Page := Info;
72    end;    end;
73  end;  end;
74    
Legend:
Removed from v.3  
changed lines
  Added in v.5
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help