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 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC revision 10 by yamat0jp, Sat Jan 16 23:06:35 2016 UTC
# Line 25  implementation Line 25  implementation
25    
26  {$R *.dfm}  {$R *.dfm}
27    
28  uses Unit3, Unit1;  uses Unit3, Unit1, ServerController;
29    
30  procedure TPayForm.IWButton1Click(Sender: TObject);  procedure TPayForm.IWButton1Click(Sender: TObject);
31  var  var
32    s: TFDQuery;    s: TFDQuery;
33      i: integer;
34  begin  begin
35    with DM.FDQuery1 do    with DM.FDQuery1 do
36    begin    begin
37      Open('select number,serial from cart_data where number = :num;',      Open('select * from cart_data where number = :num;',
38        [DM.FDTable1.FieldByName('NUMBER').AsInteger]);        [DM.FDTable1.FieldByName('NUMBER').AsInteger]);
39      s := TFDQuery.Create(nil);      s := TFDQuery.Create(nil);
40      try      try
41        s.Connection := DM.FDConnection1;        s.Connection := DM.FDConnection1;
42          s.Open('select * from order_data;');
43          while Eof = false do
44          begin
45            s.Append;
46            s.FieldByName('LASTORDER').AsDateTime := Date;
47            s.FieldByName('VOLUME').AsInteger := DM.FDQuery1.FieldByName('VOLUME')
48              .AsInteger;
49            s.FieldByName('USER').AsString :=
50              DM.FDTable1.FieldByName('NAME').AsString;
51            s.FieldByName('ADDRESS').AsString :=
52              DM.FDTable1.FieldByName('ADDRESS').AsString;
53            s.FieldByName('EMAIL').AsString :=
54              DM.FDTable1.FieldByName('EMAIL').AsString;
55            if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL').AsInteger, []) = true
56            then
57            begin
58              s.FieldByName('NAME').AsString :=
59                DM.FDTable2.FieldByName('NAME').AsString;
60              s.FieldByName('MAKER').AsString :=
61                DM.FDTable2.FieldByName('MAKER').AsString;
62              s.FieldByName('PRICE').AsInteger := DM.FDTable2.FieldByName('PRICE')
63                .AsInteger * s.FieldByName('VOLUME').AsInteger;
64            end;
65            Next;
66          end;
67          s.Post;
68          First;
69        s.Open('select * from recent_data;');        s.Open('select * from recent_data;');
70        while s.Eof = false do        while s.Eof = false do
71          if Date + 30 < s.FieldByName('DATE').AsDateTime then          if Date + 30 < s.FieldByName('DATE').AsDateTime then
# Line 46  begin Line 74  begin
74            s.Next;            s.Next;
75        while Eof = false do        while Eof = false do
76        begin        begin
77          if s.Locate('SERIAL', s.FieldByName('SERIAL').AsInteger, []) = false          if s.Locate('SERIAL', FieldByName('SERIAL').AsInteger, []) = false then
78          then            s.AppendRecord([FieldByName('NUMBER').AsInteger,
79            s.AppendRecord([Fields.Fields[0].AsInteger,              FieldByName('SERIAL').AsInteger, Date]);
             Fields.Fields[1].AsInteger, Date]);  
80          Delete;          Delete;
81        end;        end;
82      finally      finally
# Line 58  begin Line 85  begin
85    end;    end;
86    WebApplication.ShowMessage('お買い上げありがとうございました');    WebApplication.ShowMessage('お買い上げありがとうございました');
87    Release;    Release;
88    IWForm1.Page := true;    IWForm1.Thumbnail := true;
89  end;  end;
90    
91  procedure TPayForm.IWButton2Click(Sender: TObject);  procedure TPayForm.IWButton2Click(Sender: TObject);
Legend:
Removed from v.8  
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