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 11 by yamat0jp, Fri Jul 22 23:40:03 2016 UTC revision 12 by yamat0jp, Sun Jul 24 06:09:44 2016 UTC
# Line 74  begin Line 74  begin
74      DM.FDTable1.Last;      DM.FDTable1.Last;
75      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;      UserSession.user_number := DM.FDTable1.FieldByName('NUMBER').AsInteger + 1;
76      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,      DM.FDTable1.AppendRecord([IWEdit1.Text, IWEdit3.Text, IWEdit2.Text,
77        IWEdit4.Text, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);        IWEdit4.Text, nil, UserSession.hash(IWEdit5.Text), UserSession.user_number, Date]);
78      end      end
79      else      else
80      begin      begin
# Line 85  begin Line 85  begin
85          Fields[1].AsString:=IWEdit3.Text;          Fields[1].AsString:=IWEdit3.Text;
86          Fields[2].AsString:=IWEdit2.Text;          Fields[2].AsString:=IWEdit2.Text;
87          Fields[3].AsString:=IWEdit4.Text;          Fields[3].AsString:=IWEdit4.Text;
88          Fields[4].AsString:=UserSession.hash(IWEdit5.Text);          Fields[5].AsString:=UserSession.hash(IWEdit5.Text);
89        end;        end;
90        DM.FDTable1.Post;        DM.FDTable1.Post;
91      end;      end;
Legend:
Removed from v.11  
changed lines
  Added in v.12
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help