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 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 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;







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 := DM.FDTable1.FieldByName('NUMBER')







43
 
       .AsInteger;







44
 
   end;







45
 
 end;







46
 
 







47
 
 procedure TCartForm.IWAppFormRender(Sender: TObject);







48
 
 var







49
 
   i, j, k: Integer;







50
 
   s: TStream;







51
 
   pic: TIWImage;







52
 
   png: TPngImage;







53
 
 begin







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







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







56
 
   IWGrid1.RowCount := 0;







57
 
   with DM.FDQuery1 do







58
 
   begin







59
 
     Open;







60
 
     IWGrid1.RowCount := RecordCount;







61
 
     if IWGrid1.RowCount = 0 then







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







63
 
     First;







64
 
     i := 0;







65
 
     k := 0;







66
 
     png := TPngImage.Create;







67
 
     try







68
 
       while Eof = false do







69
 
       begin







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







71
 
         begin







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







73
 
           try







74
 
             png.LoadFromStream(s);







75
 
           finally







76
 
             s.Free;







77
 
           end;







78
 
           pic := TIWImage.Create(IWGrid1);







79
 
           pic.Picture.Assign(png);







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







81
 
         end;







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







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







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







85
 
         inc(k, j);







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







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







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







89
 
         Next;







90
 
         inc(i);







91
 
       end;







92
 
     finally







93
 
       png.Free;







94
 
     end;







95
 
   end;







96
 
   IWLabel1.Text := IntToStr(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
 
   Release;







104
 
 end;







105
 
 







106
 
 procedure TCartForm.IWButton2Click(Sender: TObject);







107
 
 begin







108
 
   Release;







109
 
 end;







110
 
 







111
 
 procedure TCartForm.IWGrid1CellClick(ASender: TObject;







112
 
   const ARow, AColumn: Integer);







113
 
 var







114
 
   i, j: Integer;







115
 
 begin







116
 
   with DM.FDQuery1 do







117
 
   begin







118
 
     RecNo := ARow + 1;







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







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







121
 
     SQL.Clear;







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







123
 
     Open;







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







125
 
     Delete;







126
 
   end;







127
 
   IWAppFormCreate(ASender);







128
 
 end;












129
 
 

















130
 end.
 end.





























Legend:



Removed from v.2
 


changed lines


 
Added in v.6













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 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 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;
+ 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 := DM.FDTable1.FieldByName('NUMBER')
+       .AsInteger;
+   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 := IntToStr(Trunc(k * 1.08));
+ end;
+ procedure TCartForm.IWButton1Click(Sender: TObject);
+ begin
+   if IWGrid1.RowCount > 0 then
+     TPayForm.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;
+     SQL.Clear;
+     SQL.Add('select * from cart_data');
+     Open;
+     Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []);
+     Delete;
+   end;
+   IWAppFormCreate(ASender);
+ end;
  end.
 Legend:



Removed from v.2
 


changed lines


 
Added in v.6
 Legend:



Removed from v.2
 


changed lines


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