svn/view/Unit9.pas

unit Unit9;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
  Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWHTMLControls, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML;

type
  TMyPage = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWLink1: TIWLink;
    IWLink2: TIWLink;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWLink2Click(Sender: TObject);
  public
    Form: TIWAppForm;
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController, Unit1;

procedure TMyPage.IWButton1Click(Sender: TObject);
begin
  DM.FDQuery1.Open('select * from recent_data where number = :num;',
    [UserSession.user_number]);
  DM.FDQuery1.Open;
  while DM.FDQuery1.Eof = false do
    DM.FDQuery1.Delete;
end;

procedure TMyPage.IWButton2Click(Sender: TObject);
begin
  IWButton1Click(Sender);
  while DM.FDTable1.Locate('NUMBER', UserSession.user_number, []) = true do
    DM.FDTable1.Delete;
  with DM.FDQuery1 do
  begin
    Open;
    while Eof = false do
      Delete;
    Open('select serial from cart_data where number = :num;',
      [UserSession.user_number]);
    Open;
    while Eof = false do
      Delete;
  end;
  (Form as TIWForm1).Page := true;
  UserSession.user_number := 0;
  WebApplication.ShowMessage('������������������');
end;

procedure TMyPage.IWLink2Click(Sender: TObject);
begin
  Release;
end;

end.