deleteunit.~pas

本软件专门用于管理餐饮行业的点菜单、加菜单酒水单等重要票据的领用及回收情况

unit deleteunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, SUIForm, DB, DBTables;

type
  Tdeleteform = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    datefrom: TDateTimePicker;
    Label3: TLabel;
    dateto: TDateTimePicker;
    Query1: TQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  deleteform: Tdeleteform;

implementation

{$R *.dfm}

procedure Tdeleteform.SpeedButton1Click(Sender: TObject);
begin
 if MessageDlg('确定要删除数据吗？',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
    if query1.Active=true then
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.Add('delete from lydj');
     query1.SQL.Add(' where lydate>=:param0');
     Query1.SQL.Add(' and lydate<=:param1');
     query1.Prepare;
     Query1.Params[0].AsDateTime:=datefrom.DateTime;
     Query1.Params[1].AsDateTime:=dateto.DateTime;
     Query1.ExecSQL;
     query1.SQL.Clear;
     query1.SQL.Add('delete from libnumber');
     query1.SQL.Add(' where djdate>=:param0');
     Query1.SQL.Add(' and djdate<=:param1');
     query1.Prepare;
     Query1.Params[0].AsDateTime:=datefrom.DateTime;
     Query1.Params[1].AsDateTime:=dateto.DateTime;
     Query1.ExecSQL;
     showmessage('数据删除成功，系统必须退出！');
     application.Terminate;
  end;
end;

procedure Tdeleteform.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.