main.pas

Delphi+SQL的学生信息管理系统

unit MAIN;

interface

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

type
  TfrmMain = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    mntsystem: TMenuItem;
    mntuser: TMenuItem;
    SP1: TMenuItem;
    mntquit: TMenuItem;
    mntdepart: TMenuItem;
    mntdepartmanage: TMenuItem;
    SP2: TMenuItem;
    mntclass: TMenuItem;
    mntstudent: TMenuItem;
    mntstudentmanage: TMenuItem;
    SP3: TMenuItem;
    mntstudentquery: TMenuItem;
    mntadmin: TMenuItem;
    mntchange: TMenuItem;
    mntreward: TMenuItem;
    mntpunish: TMenuItem;
    mntabout: TMenuItem;
    mntaboutsys: TMenuItem;
    Timer1: TTimer;
    dbstudent: TDatabase;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure formclose(Sender: TObject; var Action: TCloseAction);
    procedure mntquitClick(Sender: TObject);
    procedure mntdepartmanageClick(Sender: TObject);
    procedure mntclassClick(Sender: TObject);
    procedure mntstudentmanageClick(Sender: TObject);
    procedure mntstudentqueryClick(Sender: TObject);
    procedure mntchangeClick(Sender: TObject);
    procedure mntrewardClick(Sender: TObject);
    procedure mntpunishClick(Sender: TObject);
    procedure mntuserClick(Sender: TObject);
    procedure mntaboutsysClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses department,studclass, student, studentquery, change, reward, punish,
   usermanage, userlogin;

{$R *.dfm}

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[3].Text:='日期:'+datetostr(date);
  StatusBar1.Panels[4].Text:='时间:'+timetostr(time);
end;

procedure TfrmMain.formshow(Sender: TObject);
begin
dbstudent.Connected:=true;
end;

procedure TfrmMain.formclose(Sender: TObject; var Action: TCloseAction);
begin
   dbstudent.Connected:=false;
   action:=cafree;
end;

procedure TfrmMain.mntquitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.mntdepartmanageClick(Sender: TObject);
begin
   frmdepartment.Show;
end;

procedure TfrmMain.mntclassClick(Sender: TObject);
begin
    frmclass.Show;
end;

procedure TfrmMain.mntstudentmanageClick(Sender: TObject);
begin
     frmstudent.Show;
end;

procedure TfrmMain.mntstudentqueryClick(Sender: TObject);
begin
   frmstudentquery.Show;
end;

procedure TfrmMain.mntchangeClick(Sender: TObject);
begin
frmchange.Show;
end;

procedure TfrmMain.mntrewardClick(Sender: TObject);
begin
 frmreward.Show;
end;

procedure TfrmMain.mntpunishClick(Sender: TObject);
begin
 frmpunish.Show;
end;

procedure TfrmMain.mntuserClick(Sender: TObject);
begin
frmadmin.Show;
end;

procedure TfrmMain.mntaboutsysClick(Sender: TObject);
var str:string;
begin
 str:='学生管理系统1.0'+#13;
 str:=str+'作者：蒋长春'+#13;
 str:=str+'这是我的第一次编程,请大家多多指教';
showmessage(str);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[1].Text:='用户号:'+frmlogin.edtuserID.Text;
  statusbar1.Panels[2].Text:='用户名:'+frmlogin.queryuser.Fields[1].AsString;
end;

end.