uemptytable.~pas

物流行业

unit Uemptytable;

interface

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

type
  TFmemptytable = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    CheckBox5: TCheckBox;
    Table5: TTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmemptytable: TFmemptytable;

implementation

{$R *.dfm}

procedure TFmemptytable.BitBtn1Click(Sender: TObject);
begin
if checkbox1.Checked or checkbox2.Checked or checkbox3.Checked or checkbox4.Checked  then
begin
if messagebox(0,'是否确认清空选定数据库?','提示',MB_YESNO)= 6 then
begin
if checkbox1.Checked=true then begin table1.Active:=false;table1.EmptyTable;end;
if checkbox2.Checked=true then begin table2.Active:=false;table2.EmptyTable;end;
if checkbox3.Checked=true then begin table3.Active:=false;table3.EmptyTable;end;
if checkbox4.Checked=true then begin table4.Active:=false;table4.EmptyTable;end;
if checkbox5.Checked=true then begin table5.Active:=false;table5.EmptyTable;end;

showmessage('清空完成!');
end;
end;
end;

procedure TFmemptytable.BitBtn2Click(Sender: TObject);
begin
fmemptytable.Close;
end;

end.