cshunit.pas

来自「工资管理系统」· PAS 代码 · 共 77 行

unit CsHUnit;

interface

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

type
  TCsHForm = class(TForm)
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn7: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CsHForm: TCsHForm;

implementation

uses gzdata, DataTUnit;
{$R *.DFM}

procedure TCsHForm.BitBtn1Click(Sender: TObject);
begin
  if datat.UnitTable1.Active then
         datat.UnitTable1.Close;
         datat.UnitTable1.EmptyTable;
         datat.UnitTable1.open;
end;

procedure TCsHForm.BitBtn2Click(Sender: TObject);
begin
     if datat.BmTable2.Active then
        datat.bmTable2.Close;
         datat.bmTable2.EmptyTable;
         datat.bmTable2.open;
end;

procedure TCsHForm.BitBtn3Click(Sender: TObject);
begin
     if datat.Table4.Active then
        datat.Table4.Close;
         datat.Table4.EmptyTable;
         datat.Table4.open;
end;

procedure TCsHForm.BitBtn7Click(Sender: TObject);
begin
    if datat.Table1.Active then
         datat.Table1.Close;
         datat.Table1.EmptyTable;
         datat.Table1.open;
end;



procedure TCsHForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    datat.Table1.Close;
    datat.Table4.Close;
    datat.UnitTable1.Close;
    datat.BmTable2.Close;
end;

end.