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 13 by yamat0jp, Tue Jul 26 09:17:38 2016 UTC
# Line 97  begin Line 97  begin
97  end;  end;
98    
99  procedure TCartForm.IWButton1Click(Sender: TObject);  procedure TCartForm.IWButton1Click(Sender: TObject);
100    var
101      s: TUserForm;
102  begin  begin
103    if (UserSession.user_number <> 0) and    if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then
104      (DM.FDTable1.FieldByName('EMAIL').AsString = '') then      if DM.FDTable1.FieldByName('EMAIL').AsString = '' then
105      TUserForm.Create(WebApplication).Show;      begin
106    if IWGrid1.RowCount > 0 then        s := TUserForm.Create(WebApplication);
107      TPayForm.Create(WebApplication).Show;        s.pay := IWGrid1.RowCount>0;
108          s.Show;
109        end
110        else
111          TPayForm.Create(WebApplication).Show;
112    Release;    Release;
113  end;  end;
114    
# Line 121  begin Line 127  begin
127      RecNo := ARow + 1;      RecNo := ARow + 1;
128      i := FieldByName('NUMBER').AsInteger;      i := FieldByName('NUMBER').AsInteger;
129      j := FieldByName('SERIAL').AsInteger;      j := FieldByName('SERIAL').AsInteger;
130      SQL.Clear;      Open('select * from cart_data');
     SQL.Add('select * from cart_data');  
     Open;  
131      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then      if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
132        Delete;        Delete;
133    end;    end;
Legend:
Removed from v.11  
changed lines
  Added in v.13
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help