main.pas

学生选修课管理,学籍管理,修改信息管理,登陆退出系统管理等

unit MAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ExtCtrls, jpeg, Menus, Spin;

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;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Image1: TImage;
    Timer1: TTimer;
    Database1: TDatabase;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation
    uses department,student,studclass,studentquery,change,reward,punish,usermanage,
    userlogin;
{$R *.dfm}

procedure Tfrmmain.N2Click(Sender: TObject);
begin
     frmadmain.show;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
      close;
end;

procedure Tfrmmain.N5Click(Sender: TObject);
begin
    frmdepartment.show;
end;

procedure Tfrmmain.N6Click(Sender: TObject);
begin
    frmclass.show;
end;

procedure Tfrmmain.N8Click(Sender: TObject);
begin
    frmstudent.show;
end;

procedure Tfrmmain.N9Click(Sender: TObject);
begin
     frmstudentquery.show;
end;

procedure Tfrmmain.N11Click(Sender: TObject);
begin
    frmdepartment.show;
end;

procedure Tfrmmain.N12Click(Sender: TObject);
begin
    frmreward.show;
end;

procedure Tfrmmain.N13Click(Sender: TObject);
begin
     frmpunish.show;
end;

procedure Tfrmmain.N15Click(Sender: TObject);
var str:string;
begin
  str:='学生管理系统';
  str:=str+' 对于本系统，我们需要实现以下一些功能：';
  str:=str+'系统管理功能 用户管理，退出系统管理。';
  str:=str+'·院系管理功能 包括院系设置，班级管理';
  str:=str+'·学生管理功能 包括学生管理，学生查询';
  str:=str+'·学生管理功能 包括学生管理，学生查询 ';
  str:=str+'学生查询要求先输入学号，学生基本信息有姓名，性别，出生日期，所在班级，班主任';
  str:=str+'1.2开发与运行环境本例的固定资产管理系统开发与运行环境如下：·开发环境：WindowsXP·开发工具：Delphi7.0·数据库管理系统：SQLSever2000·运行环：Windows 98/ME/2000/XP';



  showmessage(str);


end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
spinedit1.Value:=spinedit1.Value+1;
timer1.Enabled:=false;
frmlogin.Show;
end;

end;

end.