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, ServerController;

procedure TPayForm.IWButton1Click(Sender: TObject);
var
  s: TFDQuery;
  i: integer;
begin
  with DM.FDQuery1 do
  begin
    Open('select * from cart_data where number = :num;',
      [DM.FDTable1.FieldByName('NUMBER').AsInteger]);
    s := TFDQuery.Create(nil);
    try
      s.Connection := DM.FDConnection1;
      s.Open('select * from order_data;');
      while Eof = false do
      begin
        s.Append;
        s.FieldByName('LASTORDER').AsDateTime := Date;
        s.FieldByName('VOLUME').AsInteger := DM.FDQuery1.FieldByName('VOLUME')
          .AsInteger;
        s.FieldByName('USER').AsString :=
          DM.FDTable1.FieldByName('NAME').AsString;
        s.FieldByName('ADDRESS').AsString :=
          DM.FDTable1.FieldByName('ADDRESS').AsString;
        s.FieldByName('EMAIL').AsString :=
          DM.FDTable1.FieldByName('EMAIL').AsString;
        if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL').AsInteger, []) = true
        then
        begin
          s.FieldByName('NAME').AsString :=
            DM.FDTable2.FieldByName('NAME').AsString;
          s.FieldByName('MAKER').AsString :=
            DM.FDTable2.FieldByName('MAKER').AsString;
          s.FieldByName('PRICE').AsInteger := DM.FDTable2.FieldByName('PRICE')
            .AsInteger * s.FieldByName('VOLUME').AsInteger;
        end;
        Next;
      end;
      s.Post;
      First;
      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', FieldByName('SERIAL').AsInteger, []) = false then
          s.AppendRecord([FieldByName('NUMBER').AsInteger,
            FieldByName('SERIAL').AsInteger, Date]);
        Delete;
      end;
    finally
      s.Free;
    end;
  end;
  WebApplication.ShowMessage('��������������������������������');
  Release;
  IWForm1.Thumbnail := true;
end;

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

end.