Diff of /Unit4.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit4.pas




Diff of /Unit4.pas



 Parent Directory

|  Revision Log



|  Patch














revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC




revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC






#

Line 29 
 implementation


Line 29 
 implementation












29
 
 

















30
 {$R *.dfm}
 {$R *.dfm}

















31
 
 















32


 uses Unit3, Unit7;


 uses Unit3, Unit7, Unit6, ServerController;















33
 
 

















34
 procedure TCartForm.IWAppFormCreate(Sender: TObject);
 procedure TCartForm.IWAppFormCreate(Sender: TObject);

















35
 begin
 begin











#

Line 39 
 begin


Line 39 
 begin












39
     SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data join item_data');
     SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data join item_data');

















40
     SQL.Add(' on (cart_data.serial = item_data.serial)');
     SQL.Add(' on (cart_data.serial = item_data.serial)');

















41
     SQL.Add(' where number = :num');
     SQL.Add(' where number = :num');















42


     Params.ParamByName('num').AsInteger := DM.FDTable1.FieldByName('NUMBER')


     Params.ParamByName('num').AsInteger := UserSession.user_number;
















       .AsInteger;


 















43
   end;
   end;

















44
 end;
 end;

















45
 
 











#

Line 93 
 begin


Line 92 
 begin












92
       png.Free;
       png.Free;

















93
     end;
     end;

















94
   end;
   end;















95


   IWLabel1.Text := IntToStr(Trunc(k * 1.08));


   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',













96


 


     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);















97
 end;
 end;

















98
 
 

















99
 procedure TCartForm.IWButton1Click(Sender: TObject);
 procedure TCartForm.IWButton1Click(Sender: TObject);

















100
 begin
 begin

















101
   if IWGrid1.RowCount > 0 then
   if IWGrid1.RowCount > 0 then

















102
     TPayForm.Create(WebApplication).Show;
     TPayForm.Create(WebApplication).Show;












103
 
   if (UserSession.user_number <> 0) and







104
 
     (DM.FDTable1.FieldByName('EMAIL').AsString = '') then







105
 
     TUserForm.Create(WebApplication).Show;












106
   Release;
   Release;

















107
 end;
 end;

















108
 
 











#

Line 118 
 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');













125


     SQL.Add('select * from cart_data');


     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then













126


     Open;


       Delete;
















     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);


 
















     Delete;


 















127
   end;
   end;

















128
   IWAppFormCreate(ASender);
   IWAppFormCreate(ASender);

















129
 end;
 end;





























Legend:



Removed from v.6
 


changed lines


 
Added in v.12













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit4.pas
-revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC
+revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC
 Line 29 
 implementation
  {$R *.dfm}
- uses Unit3, Unit7;
+ uses Unit3, Unit7, Unit6, ServerController;
  procedure TCartForm.IWAppFormCreate(Sender: TObject);
  begin
 Line 39 
 begin
      SQL.Add('select thumbnail,name,volume,price,number,serial from cart_data join item_data');
      SQL.Add(' on (cart_data.serial = item_data.serial)');
      SQL.Add(' where number = :num');
-     Params.ParamByName('num').AsInteger := DM.FDTable1.FieldByName('NUMBER')
+     Params.ParamByName('num').AsInteger := UserSession.user_number;
-       .AsInteger;
    end;
  end;
-Line 93 
 begin
+Line 92 
 begin
        png.Free;
      end;
    end;
-   IWLabel1.Text := IntToStr(Trunc(k * 1.08));
+   IWLabel1.Text := Format('(合計)　%d + (消費税) %d = %d円',
+     [k, Trunc(k * 0.08), Trunc(k * 1.08)]);
  end;
  procedure TCartForm.IWButton1Click(Sender: TObject);
  begin
    if IWGrid1.RowCount > 0 then
      TPayForm.Create(WebApplication).Show;
+   if (UserSession.user_number <> 0) and
+     (DM.FDTable1.FieldByName('EMAIL').AsString = '') then
+     TUserForm.Create(WebApplication).Show;
    Release;
  end;
-Line 118 
 begin
+Line 121 
 begin
      RecNo := ARow + 1;
      i := FieldByName('NUMBER').AsInteger;
      j := FieldByName('SERIAL').AsInteger;
-     SQL.Clear;
+     Open('select * from cart_data');
-     SQL.Add('select * from cart_data');
+     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
-     Open;
+       Delete;
-     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);
-     Delete;
    end;
    IWAppFormCreate(ASender);
  end;
 Legend:



Removed from v.6
 


changed lines


 
Added in v.12
 Legend:



Removed from v.6
 


changed lines


 
Added in v.12
-Removed from v.6
+Added in v.12
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository