Diff of /Unit7.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit7.pas




Diff of /Unit7.pas



 Parent Directory

|  Revision Log



|  Patch














revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC




revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC






#

Line 7 
 uses


Line 7 
 uses












7
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,

















8
   IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
   IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,

















9
   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,















10


   IWTemplateProcessorHTML, PngImage, Data.DB;


   IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,













11


 


   FireDAC.Comp.Client;















12
 
 

















13
 type
 type















14


   TCartForm = class(TIWAppForm)


   TPayForm = class(TIWAppForm)















15
     IWButton1: TIWButton;
     IWButton1: TIWButton;

















16
     IWButton2: TIWButton;
     IWButton2: TIWButton;

















17
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;















18


     IWGrid1: TIWGrid;


     IWDBLabel1: TIWDBLabel;













19


     procedure IWAppFormCreate(Sender: TObject);


     procedure IWButton2Click(Sender: TObject);
















     procedure IWAppFormDestroy(Sender: TObject);


 















20
     procedure IWButton1Click(Sender: TObject);
     procedure IWButton1Click(Sender: TObject);

















21
   public
   public

















22
   end;
   end;











#

Line 25 
 implementation


Line 25 
 implementation












25
 
 

















26
 {$R *.dfm}
 {$R *.dfm}

















27
 
 















28


 uses Unit3, Unit1, ServerController, Unit4;


 uses Unit3;















29
 
 















30


 procedure TCartForm.IWAppFormCreate(Sender: TObject);


 procedure TPayForm.IWButton1Click(Sender: TObject);















31
 var
 var















32


   i: integer;


   s: TFDQuery;
















   s: TStream;


 
















   png: TPngImage;


 
















   img: TIWImageFile;


 
















   j: integer;


 















33
 begin
 begin

















34
   with DM.FDQuery1 do
   with DM.FDQuery1 do

















35
   begin
   begin















36


     SQL.Clear;


     Open('select number,serial from cart_data;');













37


     SQL.Add('select name,maker,thumbnail,volume,price');


     s := TFDQuery.Create(nil);
















     SQL.Add(' from item_data join cart_data');


 
















     SQL.Add(' on (item_data.serial = cart_data.serial) where number = :num;');


 
















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


 
















     Open;


 
















   end;


 
















   IWGrid1.ColumnCount := DM.FDQuery1.Fields.Count;


 
















   IWGrid1.RowCount := DM.FDQuery1.RecordCount;


 
















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


 
















   begin


 
















     png := TPngImage.Create;


 















38
     try
     try















39


       for j := 0 to IWGrid1.ColumnCount - 1 do


       s.Connection := DM.FDConnection1;













40


 


       s.Open('select * from recent_data;');













41


 


       while Eof = false do















42
       begin
       begin















43


         case j of


         s.AppendRecord([Fields.Fields[0].AsInteger,













44


           2:


           Fields.Fields[1].AsInteger]);













45


             begin


         Delete;
















               s := DM.FDQuery1.CreateBlobStream


 
















                 (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);


 
















               try


 
















                 png.LoadFromStream(s);


 
















                 img:=TIWImageFile.Create(IWGrid1);


 
















                 img.Picture.Assign(png);


 
















                 IWGrid1.Cell[i, j].Control :=img;


 
















               finally


 
















                 s.Free;


 
















               end;


 
















             end;


 
















           4:


 
















             IWGrid1.Cell[i, j].Text :=


 
















               (DM.FDQuery1.Fields[3].AsInteger * DM.FDQuery1.Fields[4]


 
















               .AsInteger).ToString;


 
















         else


 
















           IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields[j].AsString;


 
















         end;


 















46
       end;
       end;

















47
     finally
     finally















48


       png.Free;


       s.Free;















49
     end;
     end;














     DM.FDQuery1.Next;
 













50
   end;
   end;












51
 
   WebApplication.ShowMessage('お買い上げありがとうございました');







52
 
   Release;












53
 end;
 end;

















54
 
 















55


 procedure TCartForm.IWAppFormDestroy(Sender: TObject);


 procedure TPayForm.IWButton2Click(Sender: TObject);
















 begin


 
















   DM.FDQuery1.Close;


 
















 end;


 
















 


 
















 procedure TCartForm.IWButton1Click(Sender: TObject);


 















56
 begin
 begin

















57
   Release;
   Release;














   if Sender = IWButton1 then
 










     TPayForm.Create(WebApplication).Show
 










   else
 










     TIWForm1.Create(WebApplication).Show;
 













58
 end;
 end;

















59
 
 

















60
 end.
 end.





























Legend:



Removed from v.2
 


changed lines


 
Added in v.7













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit7.pas
-revision 2 by yamat0jp,
Sat Dec 19 14:35:42 2015 UTC
+revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC
 Line 7 
 uses
    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
-   IWTemplateProcessorHTML, PngImage, Data.DB;
+   IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,
+   FireDAC.Comp.Client;
  type
-   TCartForm = class(TIWAppForm)
+   TPayForm = class(TIWAppForm)
      IWButton1: TIWButton;
      IWButton2: TIWButton;
      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
-     IWGrid1: TIWGrid;
+     IWDBLabel1: TIWDBLabel;
-     procedure IWAppFormCreate(Sender: TObject);
+     procedure IWButton2Click(Sender: TObject);
-     procedure IWAppFormDestroy(Sender: TObject);
      procedure IWButton1Click(Sender: TObject);
    public
    end;
 Line 25 
 implementation
  {$R *.dfm}
- uses Unit3, Unit1, ServerController, Unit4;
+ uses Unit3;
- procedure TCartForm.IWAppFormCreate(Sender: TObject);
+ procedure TPayForm.IWButton1Click(Sender: TObject);
  var
-   i: integer;
+   s: TFDQuery;
-   s: TStream;
-   png: TPngImage;
-   img: TIWImageFile;
-   j: integer;
  begin
    with DM.FDQuery1 do
    begin
-     SQL.Clear;
+     Open('select number,serial from cart_data;');
-     SQL.Add('select name,maker,thumbnail,volume,price');
+     s := TFDQuery.Create(nil);
-     SQL.Add(' from item_data join cart_data');
-     SQL.Add(' on (item_data.serial = cart_data.serial) where number = :num;');
-     Params.ParamByName('num').AsInteger := UserSession.user_number;
-     Open;
-   end;
-   IWGrid1.ColumnCount := DM.FDQuery1.Fields.Count;
-   IWGrid1.RowCount := DM.FDQuery1.RecordCount;
-   for i := 0 to IWGrid1.RowCount - 1 do
-   begin
-     png := TPngImage.Create;
      try
-       for j := 0 to IWGrid1.ColumnCount - 1 do
+       s.Connection := DM.FDConnection1;
+       s.Open('select * from recent_data;');
+       while Eof = false do
        begin
-         case j of
+         s.AppendRecord([Fields.Fields[0].AsInteger,
-:
+           Fields.Fields[1].AsInteger]);
-             begin
+         Delete;
-               s := DM.FDQuery1.CreateBlobStream
-                 (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);
-               try
-                 png.LoadFromStream(s);
-                 img:=TIWImageFile.Create(IWGrid1);
-                 img.Picture.Assign(png);
-                 IWGrid1.Cell[i, j].Control :=img;
-               finally
-                 s.Free;
-               end;
-             end;
-:
-             IWGrid1.Cell[i, j].Text :=
-               (DM.FDQuery1.Fields[3].AsInteger * DM.FDQuery1.Fields[4]
-               .AsInteger).ToString;
-         else
-           IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields[j].AsString;
-         end;
        end;
      finally
-       png.Free;
+       s.Free;
      end;
-     DM.FDQuery1.Next;
    end;
+   WebApplication.ShowMessage('お買い上げありがとうございました');
+   Release;
  end;
- procedure TCartForm.IWAppFormDestroy(Sender: TObject);
+ procedure TPayForm.IWButton2Click(Sender: TObject);
- begin
-   DM.FDQuery1.Close;
- end;
- procedure TCartForm.IWButton1Click(Sender: TObject);
  begin
    Release;
-   if Sender = IWButton1 then
-     TPayForm.Create(WebApplication).Show
-   else
-     TIWForm1.Create(WebApplication).Show;
  end;
  end.
 Legend:



Removed from v.2
 


changed lines


 
Added in v.7
 Legend:



Removed from v.2
 


changed lines


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