unit3.~pas

来自「是关于SQL的一些程序 很好很经典的~大家又兴趣的可以学习下」· ~PAS 代码 · 共 52 行

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls,Unit2, Grids, DBGrids, StdCtrls, Buttons;

type
  TMain = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

{$R *.dfm}
uses Unit4,Unit1;
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TMain.BitBtn6Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TMain.BitBtn7Click(Sender: TObject);
begin
  employee.Show();
  main.Hide;
end;

end.