unit22.pas

来自「本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4」· PAS 代码 · 共 56 行

unit Unit22;

interface

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

type
  TForm22 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form22: TForm22;

implementation

uses GJGZGL, Unit3, cadanb, GZXX, rep1, Unit4, rep6, Unit6, Unit7, Unit1,
  Unit8, Unit9, Unit14, Unit15, Unit16, Unit17, Unit19, Unit18, Unit20,
  Unit21, caidan, Unit10, Unit11, Unit13;


{$R *.dfm}

procedure TForm22.Button1Click(Sender: TObject);
begin

form2.Table1.Active:=false;
form2.Table1.DatabaseName:='';
form2.Table1.TableName:='';
//form3.Close;
//form4.Close;
//form5.Close;
//form6.Close;
//form7.Close;
//form8.Close;
//form10.Close;
//form13.Close;
//form14.Close;
//form15.Close;
//form16.Close;
//form17.Close;
//form18.Close;
//form20.close;
//form21.Close;

end;

end.