unit3.pas

来自「学生信息管理系统」· PAS 代码 · 共 67 行

unit Unit3;

interface

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

type
  TForm5 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit4, Unit6, Unit7;

{$R *.dfm}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    application.Terminate;
end;

procedure TForm5.N2Click(Sender: TObject);
begin
    form4:=tform4.create(application);
    form4.show;
end;

procedure TForm5.N5Click(Sender: TObject);
begin
    form3:=tform3.create(application);
    form3.show;
end;

procedure TForm5.N6Click(Sender: TObject);
begin
    form1:=tform1.create(application);
    form1.show;
end;

procedure TForm5.N3Click(Sender: TObject);
begin
    application.Terminate;
end;

end.