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 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC




revision 13 by yamat0jp,
Tue Jul 26 09:17:38 2016 UTC






#

Line 3 
 unit Unit4;


Line 3 
 unit Unit4;












3
 interface
 interface

















4
 
 

















5
 uses
 uses















6


   System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,


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













7


   FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,


   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,













8


   FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,


   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,













9


   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,


   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,













10


   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet;


   IWCompLabel,













11


 


   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;















12
 
 

















13
 type
 type















14


   TDataModule1 = class(TDataModule)


   TCartForm = class(TIWAppForm)













15


     FDTable1: TFDTable;


     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;













16


     FDTable1NAME: TWideStringField;


     IWGrid1: TIWGrid;













17


     FDTable2: TFDTable;


     IWButton1: TIWButton;













18


     FDTable2NAME: TWideStringField;


     IWButton2: TIWButton;













19


     FDTable2MAKER: TWideStringField;


     IWLabel1: TIWLabel;













20


     FDTable2STOCK: TIntegerField;


     procedure IWAppFormRender(Sender: TObject);













21


     FDTable2WEIGHT: TIntegerField;


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













22


     FDTable2DATE: TDateField;


     procedure IWAppFormCreate(Sender: TObject);













23


     FDTable2COMMENT: TMemoField;


     procedure IWButton2Click(Sender: TObject);













24


     FDTable2CATEGORY: TWideStringField;


     procedure IWButton1Click(Sender: TObject);
















     FDTable2IMAGE: TBlobField;


 
















     FDTable2PRICE: TIntegerField;


 
















     item: TDataSource;


 
















     user: TDataSource;


 
















     FDConnection1: TFDConnection;


 
















     FDTable3: TFDTable;


 
















     form: TDataSource;


 
















     FDQuery1: TFDQuery;


 
















     cart: TDataSource;


 
















     FDTable2THUMBNAIL: TBlobField;


 
















     FDTable1EMAIL: TWideStringField;


 
















     FDTable1ADDRESS: TWideStringField;


 
















     FDTable1NUMBER: TIntegerField;


 
















     FDTable1PASSWORD: TWideStringField;


 
















     FDTable2SERIAL: TIntegerField;


 
















     FDTable1BIRTH: TDateField;


 
















     FDTable3NAME: TWideStringField;


 
















     FDTable3BGCOLOR: TIntegerField;


 
















   private


 
















     { Private 宣言 }


 















25
   public
   public














     { Public 宣言 }
 













26
   end;
   end;

















27
 
 














 function DM: TDataModule1;
 










 
 













28
 implementation
 implementation

















29
 
 















30


 {%CLASSGROUP 'Vcl.Controls.TControl'}


 {$R *.dfm}















31
 
 















32


 uses ServerController;


 uses Unit3, Unit7, Unit6, ServerController;















33
 
 















34


 {$R *.dfm}


 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


 function DM: TDataModule1;


 procedure TCartForm.IWAppFormRender(Sender: TObject);













47


 


 var













48


 


   i, j, k: Integer;













49


 


   s: TStream;













50


 


   pic: TIWImage;













51


 


   png: TPngImage;















52
 begin
 begin















53


   result:=UserSession.DM;


   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


 


 var













101


 


   s: TUserForm;













102


 


 begin













103


 


   if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then













104


 


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













105


 


     begin













106


 


       s := TUserForm.Create(WebApplication);













107


 


       s.pay := IWGrid1.RowCount>0;













108


 


       s.Show;













109


 


     end













110


 


     else













111


 


       TPayForm.Create(WebApplication).Show;













112


 


   Release;













113


 


 end;













114


 


 













115


 


 procedure TCartForm.IWButton2Click(Sender: TObject);













116


 


 begin













117


 


   Release;













118


 


 end;













119


 


 













120


 


 procedure TCartForm.IWGrid1CellClick(ASender: TObject;













121


 


   const ARow, AColumn: Integer);













122


 


 var













123


 


   i, j: Integer;













124


 


 begin













125


 


   with DM.FDQuery1 do













126


 


   begin













127


 


     RecNo := ARow + 1;













128


 


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













129


 


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













130


 


     Open('select * from cart_data');













131


 


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













132


 


       Delete;













133


 


   end;













134


 


   IWAppFormCreate(ASender);















135
 end;
 end;

















136
 
 

















137
 end.
 end.





























Legend:



Removed from v.1
 


changed lines


 
Added in v.13













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit4.pas
-revision 1 by yamat0jp,
Sun Nov 22 11:18:44 2015 UTC
+revision 13 by yamat0jp,
Tue Jul 26 09:17:38 2016 UTC
 Line 3 
 unit Unit4;
  interface
  uses
-   System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
+   Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWVCLComponent,
-   FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
+   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
-   FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
+   IWTemplateProcessorHTML, Vcl.Controls, IWVCLBaseControl, IWBaseControl,
-   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,
+   IWBaseHTMLControl, IWControl, IWCompGrids, IWCompButton, Variants,
-   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet;
+   IWCompLabel,
+   IWDBStdCtrls, PngImage, IWCompExtCtrls, Data.DB;
  type
-   TDataModule1 = class(TDataModule)
+   TCartForm = class(TIWAppForm)
-     FDTable1: TFDTable;
+     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
-     FDTable1NAME: TWideStringField;
+     IWGrid1: TIWGrid;
-     FDTable2: TFDTable;
+     IWButton1: TIWButton;
-     FDTable2NAME: TWideStringField;
+     IWButton2: TIWButton;
-     FDTable2MAKER: TWideStringField;
+     IWLabel1: TIWLabel;
-     FDTable2STOCK: TIntegerField;
+     procedure IWAppFormRender(Sender: TObject);
-     FDTable2WEIGHT: TIntegerField;
+     procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
-     FDTable2DATE: TDateField;
+     procedure IWAppFormCreate(Sender: TObject);
-     FDTable2COMMENT: TMemoField;
+     procedure IWButton2Click(Sender: TObject);
-     FDTable2CATEGORY: TWideStringField;
+     procedure IWButton1Click(Sender: TObject);
-     FDTable2IMAGE: TBlobField;
-     FDTable2PRICE: TIntegerField;
-     item: TDataSource;
-     user: TDataSource;
-     FDConnection1: TFDConnection;
-     FDTable3: TFDTable;
-     form: TDataSource;
-     FDQuery1: TFDQuery;
-     cart: TDataSource;
-     FDTable2THUMBNAIL: TBlobField;
-     FDTable1EMAIL: TWideStringField;
-     FDTable1ADDRESS: TWideStringField;
-     FDTable1NUMBER: TIntegerField;
-     FDTable1PASSWORD: TWideStringField;
-     FDTable2SERIAL: TIntegerField;
-     FDTable1BIRTH: TDateField;
-     FDTable3NAME: TWideStringField;
-     FDTable3BGCOLOR: TIntegerField;
-   private
-     { Private 宣言 }
    public
-     { Public 宣言 }
    end;
- function DM: TDataModule1;
  implementation
- {%CLASSGROUP 'Vcl.Controls.TControl'}
+ {$R *.dfm}
- uses ServerController;
+ uses Unit3, Unit7, Unit6, ServerController;
- {$R *.dfm}
+ 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;
- function DM: TDataModule1;
+ procedure TCartForm.IWAppFormRender(Sender: TObject);
+ var
+   i, j, k: Integer;
+   s: TStream;
+   pic: TIWImage;
+   png: TPngImage;
  begin
-   result:=UserSession.DM;
+   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);
+ var
+   s: TUserForm;
+ begin
+   if (UserSession.user_number <> 0) and (IWGrid1.RowCount > 0) then
+     if DM.FDTable1.FieldByName('EMAIL').AsString = '' then
+     begin
+       s := TUserForm.Create(WebApplication);
+       s.pay := IWGrid1.RowCount>0;
+       s.Show;
+     end
+     else
+       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;
+     Open('select * from cart_data');
+     if Locate('NUMBER;SERIAL', VarArrayOf([i, j]), []) = true then
+       Delete;
+   end;
+   IWAppFormCreate(ASender);
  end;
  end.
 Legend:



Removed from v.1
 


changed lines


 
Added in v.13
 Legend:



Removed from v.1
 


changed lines


 
Added in v.13
-Removed from v.1
+Added in v.13
-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