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 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC revision 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC
# Line 33  implementation Line 33  implementation
33    
34  {$R *.dfm}  {$R *.dfm}
35    
36  uses Unit3, Unit1, UserSessionUnit;  uses Unit3, Unit1, UserSessionUnit, ServerController;
37    
38  function TUserForm.Check: Boolean;  function TUserForm.Check: Boolean;
39  begin  begin
# Line 65  begin Line 65  begin
65    if Check = true then    if Check = true then
66    begin    begin
67      DM.FDTable1.Last;      DM.FDTable1.Last;
68        UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
69      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
70        IWEdit4.Text, IWEdit5.Text, DM.FDTable1.FieldByName('NUMBER').AsInteger + 1]);        IWEdit4.Text, IWEdit5.Text, UserSession.user_number]);
71      Release;      Release;
72      (Form as TIWForm1).Page := Info;      (Form as TIWForm1).Page := false;
73    end;    end;
74  end;  end;
75    
Legend:
Removed from v.5  
changed lines
  Added in v.7
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help