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 7 by yamat0jp, Wed Dec 30 09:56:24 2015 UTC revision 8 by yamat0jp, Thu Dec 31 08:51:02 2015 UTC
# Line 25  implementation Line 25  implementation
25    
26  {$R *.dfm}  {$R *.dfm}
27    
28  uses Unit3;  uses Unit3, Unit1;
29    
30  procedure TPayForm.IWButton1Click(Sender: TObject);  procedure TPayForm.IWButton1Click(Sender: TObject);
31  var  var
# Line 33  var Line 33  var
33  begin  begin
34    with DM.FDQuery1 do    with DM.FDQuery1 do
35    begin    begin
36      Open('select number,serial from cart_data;');      Open('select number,serial from cart_data where number = :num;',
37          [DM.FDTable1.FieldByName('NUMBER').AsInteger]);
38      s := TFDQuery.Create(nil);      s := TFDQuery.Create(nil);
39      try      try
40        s.Connection := DM.FDConnection1;        s.Connection := DM.FDConnection1;
41        s.Open('select * from recent_data;');        s.Open('select * from recent_data;');
42          while s.Eof = false do
43            if Date + 30 < s.FieldByName('DATE').AsDateTime then
44              s.Delete
45            else
46              s.Next;
47        while Eof = false do        while Eof = false do
48        begin        begin
49          s.AppendRecord([Fields.Fields[0].AsInteger,          if s.Locate('SERIAL', s.FieldByName('SERIAL').AsInteger, []) = false
50            Fields.Fields[1].AsInteger]);          then
51              s.AppendRecord([Fields.Fields[0].AsInteger,
52                Fields.Fields[1].AsInteger, Date]);
53          Delete;          Delete;
54        end;        end;
55      finally      finally
# Line 50  begin Line 58  begin
58    end;    end;
59    WebApplication.ShowMessage('お買い上げありがとうございました');    WebApplication.ShowMessage('お買い上げありがとうございました');
60    Release;    Release;
61      IWForm1.Page := true;
62  end;  end;
63    
64  procedure TPayForm.IWButton2Click(Sender: TObject);  procedure TPayForm.IWButton2Click(Sender: TObject);
Legend:
Removed from v.7  
changed lines
  Added in v.8
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help