unit2.pas

优秀的delphi学籍管理,大家可以看一下。一个很好的系统。

unit Unit2;

interface

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

type
  Tf_main = class(TForm)
    MainMenu2: TMainMenu;
    MenuItem1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N6: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    StatusBar1: TStatusBar;
    procedure N15Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_main: Tf_main;

implementation

uses Unit1, Unit3, Unit4, Unit7;

{$R *.dfm}

procedure Tf_main.N15Click(Sender: TObject);
begin
f_sjbf:=tf_sjbf.create(self);
f_sjbf.show;
end;

procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if MessageDlg('真的退出程序吗?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
    begin
    Action := caFree;
    application.Terminate;
    end
  else
    Action := caNone;
end;
procedure Tf_main.N10Click(Sender: TObject);
begin
 form3:=tform3.create(self);
form3.Show;
end;

procedure Tf_main.N7Click(Sender: TObject);
begin
form4:=tform4.create(self);
form4.show;
end;

procedure Tf_main.N16Click(Sender: TObject);
begin
f_sjbf:=tf_sjbf.create(self);
f_sjbf.show;
end;

procedure Tf_main.N11Click(Sender: TObject);
begin
form7:=tform7.create(self);
form7.show;
end;
end.