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 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC




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






#

Line 3 
 unit Unit4;


Line 3 
 unit Unit4;












3
 interface
 interface

















4
 
 

















5
 uses
 uses















6


   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes;


   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,













7


 


   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,













8


 


   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,













9


 


   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,













10


 


   IWCompLabel,













11


 


   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;















12
 
 

















13
 type
 type















14


   TPayForm = class(TIWAppForm)


   TCartForm = class(TIWAppForm)













15


 


     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;













16


 


     IWGrid1: TIWGrid;













17


 


     IWButton1: TIWButton;













18


 


     IWButton2: TIWButton;













19


 


     IWLabel1: TIWLabel;













20


 


     procedure IWAppFormRender(Sender: TObject);













21


 


     procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);













22


 


     procedure IWAppFormCreate(Sender: TObject);













23


 


     procedure IWButton2Click(Sender: TObject);













24


 


     procedure IWButton1Click(Sender: TObject);















25
   public
   public

















26
   end;
   end;

















27
 
 











#

Line 14 
 implementation


Line 29 
 implementation












29
 
 

















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

















31
 
 












32
 
 uses Unit3, Unit7, Unit6, ServerController;







33
 
 







34
 
 procedure TCartForm.IWAppFormCreate(Sender: TObject);







35
 
 begin







36
 
   with DM.FDQuery1 do







37
 
   begin







38
 
     SQL.Clear;







39
 
     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)');







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







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







43
 
   end;







44
 
 end;







45
 
 







46
 
 procedure TCartForm.IWAppFormRender(Sender: TObject);







47
 
 var







48
 
   i, j, k: Integer;







49
 
   s: TStream;







50
 
   pic: TIWImage;







51
 
   png: TPngImage;







52
 
 begin







53
 
   for i := 0 to IWGrid1.RowCount - 1 do







54
 
     IWGrid1.Cell[i, 0].Control.Free;







55
 
   IWGrid1.RowCount := 0;







56
 
   with DM.FDQuery1 do







57
 
   begin







58
 
     Open;







59
 
     IWGrid1.RowCount := RecordCount;







60
 
     if IWGrid1.RowCount = 0 then







61
 
       IWGrid1.Caption := 'カートの中身がありません';







62
 
     First;







63
 
     i := 0;







64
 
     k := 0;







65
 
     png := TPngImage.Create;







66
 
     try







67
 
       while Eof = false do







68
 
       begin







69
 
         if Fields.Fields[0].AsBytes <> nil then







70
 
         begin







71
 
           s := CreateBlobStream(Fields.Fields[0], bmRead);







72
 
           try







73
 
             png.LoadFromStream(s);







74
 
           finally







75
 
             s.Free;







76
 
           end;







77
 
           pic := TIWImage.Create(IWGrid1);







78
 
           pic.Picture.Assign(png);







79
 
           IWGrid1.Cell[i, 0].Control := pic;







80
 
         end;







81
 
         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;







82
 
         IWGrid1.Cell[i, 2].Text := Fields.Fields[2].AsString;







83
 
         j := Fields.Fields[2].AsInteger * Fields.Fields[3].AsInteger;







84
 
         inc(k, j);







85
 
         IWGrid1.Cell[i, 3].Text := IntToStr(j);







86
 
         IWGrid1.Cell[i, 4].Text := '削除';







87
 
         IWGrid1.Cell[i, 4].Clickable := true;







88
 
         Next;







89
 
         inc(i);







90
 
       end;







91
 
     finally







92
 
       png.Free;







93
 
     end;







94
 
   end;







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







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







97
 
 end;







98
 
 







99
 
 procedure TCartForm.IWButton1Click(Sender: TObject);







100
 
 begin







101
 
   if IWGrid1.RowCount > 0 then







102
 
     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;







107
 
 end;







108
 
 







109
 
 procedure TCartForm.IWButton2Click(Sender: TObject);







110
 
 begin







111
 
   Release;







112
 
 end;







113
 
 







114
 
 procedure TCartForm.IWGrid1CellClick(ASender: TObject;







115
 
   const ARow, AColumn: Integer);







116
 
 var







117
 
   i, j: Integer;







118
 
 begin







119
 
   with DM.FDQuery1 do







120
 
   begin







121
 
     RecNo := ARow + 1;







122
 
     i := FieldByName('NUMBER').AsInteger;







123
 
     j := FieldByName('SERIAL').AsInteger;







124
 
     Open('select * from cart_data');







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







126
 
       Delete;







127
 
   end;







128
 
   IWAppFormCreate(ASender);







129
 
 end;












130
 
 

















131
 end.
 end.





























Legend:



Removed from v.2
 


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 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC
+revision 12 by yamat0jp,
Sun Jul 24 06:09:44 2016 UTC
 Line 3 
 unit Unit4;
  interface
  uses
-   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes;
+   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
+   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
+   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
+   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
+   IWCompLabel,
+   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;
  type
-   TPayForm = class(TIWAppForm)
+   TCartForm = class(TIWAppForm)
+     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
+     IWGrid1: TIWGrid;
+     IWButton1: TIWButton;
+     IWButton2: TIWButton;
+     IWLabel1: TIWLabel;
+     procedure IWAppFormRender(Sender: TObject);
+     procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
+     procedure IWAppFormCreate(Sender: TObject);
+     procedure IWButton2Click(Sender: TObject);
+     procedure IWButton1Click(Sender: TObject);
    public
    end;
-Line 14 
 implementation
+Line 29 
 implementation
  {$R *.dfm}
+ uses Unit3, Unit7, Unit6, ServerController;
+ procedure TCartForm.IWAppFormCreate(Sender: TObject);
+ begin
+   with DM.FDQuery1 do
+   begin
+     SQL.Clear;
+     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 := UserSession.user_number;
+   end;
+ end;
+ procedure TCartForm.IWAppFormRender(Sender: TObject);
+ var
+   i, j, k: Integer;
+   s: TStream;
+   pic: TIWImage;
+   png: TPngImage;
+ begin
+   for i := 0 to IWGrid1.RowCount - 1 do
+     IWGrid1.Cell[i, 0].Control.Free;
+   IWGrid1.RowCount := 0;
+   with DM.FDQuery1 do
+   begin
+     Open;
+     IWGrid1.RowCount := RecordCount;
+     if IWGrid1.RowCount = 0 then
+       IWGrid1.Caption := 'カートの中身がありません';
+     First;
+     i := 0;
+     k := 0;
+     png := TPngImage.Create;
+     try
+       while Eof = false do
+       begin
+         if Fields.Fields[0].AsBytes <> nil then
+         begin
+           s := CreateBlobStream(Fields.Fields[0], bmRead);
+           try
+             png.LoadFromStream(s);
+           finally
+             s.Free;
+           end;
+           pic := TIWImage.Create(IWGrid1);
+           pic.Picture.Assign(png);
+           IWGrid1.Cell[i, 0].Control := pic;
+         end;
+         IWGrid1.Cell[i, 1].Text := Fields.Fields[1].AsString;
+         IWGrid1.Cell[i, 2].Text := Fields.Fields[2].AsString;
+         j := Fields.Fields[2].AsInteger * Fields.Fields[3].AsInteger;
+         inc(k, j);
+         IWGrid1.Cell[i, 3].Text := IntToStr(j);
+         IWGrid1.Cell[i, 4].Text := '削除';
+         IWGrid1.Cell[i, 4].Clickable := true;
+         Next;
+         inc(i);
+       end;
+     finally
+       png.Free;
+     end;
+   end;
+   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;
+ procedure TCartForm.IWButton2Click(Sender: TObject);
+ begin
+   Release;
+ end;
+ procedure TCartForm.IWGrid1CellClick(ASender: TObject;
+   const ARow, AColumn: Integer);
+ var
+   i, j: Integer;
+ begin
+   with DM.FDQuery1 do
+   begin
+     RecNo := ARow + 1;
+     i := FieldByName('NUMBER').AsInteger;
+     j := FieldByName('SERIAL').AsInteger;
+     Open('select * from cart_data');
+     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
+       Delete;
+   end;
+   IWAppFormCreate(ASender);
+ end;
  end.
 Legend:



Removed from v.2
 


changed lines


 
Added in v.12
 Legend:



Removed from v.2
 


changed lines


 
Added in v.12
-Removed from v.2
+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