unit1.pas

来自「主要实现试卷的录入」· PAS 代码 · 共 58 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btnSTWH: TButton;
    btnSJWH: TButton;
    BitBtn1: TBitBtn;
    Button3: TButton;
    procedure btnSTWHClick(Sender: TObject);
    procedure btnSJWHClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.btnSTWHClick(Sender: TObject);
begin
  form1.Visible:=false;
  frmSTWH:=TfrmSTWH.Create(nil);
  frmSTWh.ShowModal;
  frmSTWH.Free;
end;

procedure TForm1.btnSJWHClick(Sender: TObject);
begin
  form1.Visible:=false;
  frmSJWH:=TfrmSJWH.Create(nil);
 frmSJWH.showmodal;
  frmSJWH.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  form1.Visible:=false;
  frmSJSC:=TfrmSJSC.Create(nil);
  FrmSJSC.ShowModal;
  frmSJSC.Free;
end;

end.