svn/view/Unit7.pas

unit Unit7;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
  IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,
  FireDAC.Comp.Client;

type
  TPayForm = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWDBLabel1: TIWDBLabel;
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, Unit1;

procedure TPayForm.IWButton1Click(Sender: TObject);
var
  s: TFDQuery;
begin
  with DM.FDQuery1 do
  begin
    Open('select number,serial from cart_data where number = :num;',
      [DM.FDTable1.FieldByName('NUMBER').AsInteger]);
    s := TFDQuery.Create(nil);
    try
      s.Connection := DM.FDConnection1;
      s.Open('select * from recent_data;');
      while s.Eof = false do
        if Date + 30 < s.FieldByName('DATE').AsDateTime then
          s.Delete
        else
          s.Next;
      while Eof = false do
      begin
        if s.Locate('SERIAL', s.FieldByName('SERIAL').AsInteger, []) = false
        then
          s.AppendRecord([Fields.Fields[0].AsInteger,
            Fields.Fields[1].AsInteger, Date]);
        Delete;
      end;
    finally
      s.Free;
    end;
  end;
  WebApplication.ShowMessage('��������������������������������');
  Release;
  IWForm1.Page := true;
end;

procedure TPayForm.IWButton2Click(Sender: TObject);
begin
  Release;
end;

end.