Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit4.pas

Diff of /Unit4.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 98  end; Line 98  end;
98    
99  procedure TCartForm.IWButton1Click(Sender: TObject);  procedure TCartForm.IWButton1Click(Sender: TObject);
100  begin  begin
101      if IWGrid1.RowCount > 0 then
102        TPayForm.Create(WebApplication).Show;
103    if (UserSession.user_number <> 0) and    if (UserSession.user_number <> 0) and
104      (DM.FDTable1.FieldByName('EMAIL').AsString = '') then      (DM.FDTable1.FieldByName('EMAIL').AsString = '') then
105      TUserForm.Create(WebApplication).Show;      TUserForm.Create(WebApplication).Show;
   if IWGrid1.RowCount > 0 then  
     TPayForm.Create(WebApplication).Show;  
106    Release;    Release;
107  end;  end;
108    
# Line 121  begin Line 121  begin
121      RecNo := ARow + 1;      RecNo := ARow + 1;
122      i := FieldByName('NUMBER').AsInteger;      i := FieldByName('NUMBER').AsInteger;
123      j := FieldByName('SERIAL').AsInteger;      j := FieldByName('SERIAL').AsInteger;
124      SQL.Clear;      Open('select * from cart_data');
     SQL.Add('select * from cart_data');  
     Open;  
125      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
126        Delete;        Delete;
127    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