Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit7.pas

Diff of /Unit7.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by yamat0jp, Sat Dec 19 14:35:42 2015 UTC revision 10 by yamat0jp, Sat Jan 16 23:06:35 2016 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, Unit1, ServerController;
29    
30  procedure TCartForm.IWAppFormCreate(Sender: TObject);  procedure TPayForm.IWButton1Click(Sender: TObject);
31  var  var
32      s: TFDQuery;
33    i: integer;    i: integer;
   s: TStream;  
   png: TPngImage;  
   img: TIWImageFile;  
   j: integer;  
34  begin  begin
35    with DM.FDQuery1 do    with DM.FDQuery1 do
36    begin    begin
37      SQL.Clear;      Open('select * from cart_data where number = :num;',
38      SQL.Add('select name,maker,thumbnail,volume,price');        [DM.FDTable1.FieldByName('NUMBER').AsInteger]);
39      SQL.Add(' from item_data join cart_data');      s := TFDQuery.Create(nil);
     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;  
40      try      try
41        for j := 0 to IWGrid1.ColumnCount - 1 do        s.Connection := DM.FDConnection1;
42          s.Open('select * from order_data;');
43          while Eof = false do
44        begin        begin
45          case j of          s.Append;
46            2:          s.FieldByName('LASTORDER').AsDateTime := Date;
47              begin          s.FieldByName('VOLUME').AsInteger := DM.FDQuery1.FieldByName('VOLUME')
48                s := DM.FDQuery1.CreateBlobStream            .AsInteger;
49                  (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);          s.FieldByName('USER').AsString :=
50                try            DM.FDTable1.FieldByName('NAME').AsString;
51                  png.LoadFromStream(s);          s.FieldByName('ADDRESS').AsString :=
52                  img:=TIWImageFile.Create(IWGrid1);            DM.FDTable1.FieldByName('ADDRESS').AsString;
53                  img.Picture.Assign(png);          s.FieldByName('EMAIL').AsString :=
54                  IWGrid1.Cell[i, j].Control :=img;            DM.FDTable1.FieldByName('EMAIL').AsString;
55                finally          if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL').AsInteger, []) = true
56                  s.Free;          then
57                end;          begin
58              end;            s.FieldByName('NAME').AsString :=
59            4:              DM.FDTable2.FieldByName('NAME').AsString;
60              IWGrid1.Cell[i, j].Text :=            s.FieldByName('MAKER').AsString :=
61                (DM.FDQuery1.Fields[3].AsInteger * DM.FDQuery1.Fields[4]              DM.FDTable2.FieldByName('MAKER').AsString;
62                .AsInteger).ToString;            s.FieldByName('PRICE').AsInteger := DM.FDTable2.FieldByName('PRICE')
63          else              .AsInteger * s.FieldByName('VOLUME').AsInteger;
           IWGrid1.Cell[i, j].Text := DM.FDQuery1.Fields[j].AsString;  
64          end;          end;
65            Next;
66          end;
67          s.Post;
68          First;
69          s.Open('select * from recent_data;');
70          while s.Eof = false do
71            if Date + 30 < s.FieldByName('DATE').AsDateTime then
72              s.Delete
73            else
74              s.Next;
75          while Eof = false do
76          begin
77            if s.Locate('SERIAL', FieldByName('SERIAL').AsInteger, []) = false then
78              s.AppendRecord([FieldByName('NUMBER').AsInteger,
79                FieldByName('SERIAL').AsInteger, Date]);
80            Delete;
81        end;        end;
82      finally      finally
83        png.Free;        s.Free;
84      end;      end;
     DM.FDQuery1.Next;  
85    end;    end;
86      WebApplication.ShowMessage('お買い上げありがとうございました');
87      Release;
88      IWForm1.Thumbnail := true;
89  end;  end;
90    
91  procedure TCartForm.IWAppFormDestroy(Sender: TObject);  procedure TPayForm.IWButton2Click(Sender: TObject);
 begin  
   DM.FDQuery1.Close;  
 end;  
   
 procedure TCartForm.IWButton1Click(Sender: TObject);  
92  begin  begin
93    Release;    Release;
   if Sender = IWButton1 then  
     TPayForm.Create(WebApplication).Show  
   else  
     TIWForm1.Create(WebApplication).Show;  
94  end;  end;
95    
96  end.  end.
Legend:
Removed from v.2  
changed lines
  Added in v.10
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help