unit3.~pas

学籍管理系统（MSS）是集计算机技术、网络通信技术为一体的信息系统工程

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, jpeg, ExtCtrls, Menus, ImgList, ToolWin;

type
  TFrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    xi1: TMenuItem;
    N11: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    d21: TMenuItem;
    N13: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure d21Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmmain: TFrmmain;

implementation

uses Unit4, Unit5, Unit6, Unit7, Unit2, Unit8, Unit9, Unit11;

{$R *.dfm}



procedure TFrmmain.FormShow(Sender: TObject);
begin
  statusbar1.SimpleText:='欢迎进入学生管理系统';
end;

procedure TFrmmain.FormCreate(Sender: TObject);
var
currenttime:variant;

begin
    currenttime:=gettickcount div 1000 ;
    while ((gettickcount div 1000)<(currenttime + 3)) do
    {};
end;

procedure TFrmmain.N2Click(Sender: TObject);
begin
 bjform.showmodal;
end;



procedure TFrmmain.d21Click(Sender: TObject);
begin
frmmain.Close;
end;

procedure TFrmmain.N4Click(Sender: TObject);
begin
   chform.showmodal;
end;

procedure TFrmmain.N6Click(Sender: TObject);
begin
tjform.showmodal;
end;

procedure TFrmmain.N10Click(Sender: TObject);
begin
 aboutbox.showmodal;

end;

procedure TFrmmain.N13Click(Sender: TObject);
begin
loginform.showmodal;
end;

procedure TFrmmain.N7Click(Sender: TObject);
begin
deleform.showmodal;
end;

procedure TFrmmain.N11Click(Sender: TObject);
begin
qxform.showmodal;
end;



procedure TFrmmain.N8Click(Sender: TObject);
begin
baobieform.showmodal;
end;

end.