uemptytable.pas

港口货物管理系统

unit uemptytable;

interface

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

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

var
  fmemptytable: Tfmemptytable;

implementation

uses ulogin;

{$R *.dfm}

procedure Tfmemptytable.BitBtn1Click(Sender: TObject);
begin
table1.Active:=false;
table2.Active:=false;
table3.Active:=false;
table4.active:=false;
table5.active:=false;
table6.Active:=false;
if messagebox(0,'是否确认真的删除选定的库数据清空？','系统提示',MB_YESNO)=idyes then
begin
if checkbox1.State=cbChecked then begin table1.EmptyTable;table6.EmptyTable;end;
if checkbox2.State=cbChecked then table2.EmptyTable;
if checkbox3.State=cbChecked then table3.EmptyTable;
if checkbox4.State=cbChecked then table4.EmptyTable;
if checkbox5.State=cbChecked then table5.EmptyTable;
end;
table1.Active:=true;
table2.Active:=true;
table3.Active:=true;
table4.active:=true;
table5.active:=true;
table6.Active:=true;
fmemptytable.FormActivate(sender);
end;

procedure Tfmemptytable.FormActivate(Sender: TObject);
begin
if table1.RecordCount=0 then checkbox1.State:=cbgrayed;
if table2.RecordCount=0 then checkbox2.State:=cbgrayed;
if table3.RecordCount=0 then checkbox3.State:=cbgrayed;
if table4.RecordCount=0 then checkbox4.State:=cbgrayed;
if table5.RecordCount=0 then checkbox5.State:=cbgrayed;
if
 (checkbox1.State=cbgrayed) and
 (checkbox2.State=cbgrayed) and
 (checkbox3.State=cbgrayed) and
 (checkbox4.State=cbgrayed) and
 (checkbox5.State=cbgrayed)

 then bitbtn1.Enabled:=false




end;

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

procedure Tfmemptytable.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

end.