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;

procedure TPayForm.IWButton1Click(Sender: TObject);
var
  s: TFDQuery;
begin
  with DM.FDQuery1 do
  begin
    Open('select number,serial from cart_data;');
    s := TFDQuery.Create(nil);
    try
      s.Connection := DM.FDConnection1;
      s.Open('select * from recent_data;');
      while Eof = false do
      begin
        s.AppendRecord([Fields.Fields[0].AsInteger,
          Fields.Fields[1].AsInteger]);
        Delete;
      end;
    finally
      s.Free;
    end;
  end;
  WebApplication.ShowMessage('��������������������������������');
  Release;
end;

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

end.