unmain.pas

自己写的学生成绩管理系统

unit unmain;

interface

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

type
  Tfmmain = 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;
    Image1: TImage;
    ADOConnection1: TADOConnection;
    N15: TMenuItem;
    StatusBar1: TStatusBar;
    procedure N10Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmmain: Tfmmain;
  cringt:integer;
  username:string;
  password:string;

implementation
   uses uabout,unlogin,unaddstu,unstudent,uneditstu,uneditteacher,unaddteacher,
        unaddscore,unserchscore,unpass;
{$R *.dfm}

procedure Tfmmain.N10Click(Sender: TObject);
begin
close;
//fmlogin.Close;
end;

procedure Tfmmain.N4Click(Sender: TObject);
var
fmabout:tabout;
begin
  fmabout:=tabout.Create(Application);
  fmabout.ShowModal;
  //if about.ModalResult then


end;

procedure Tfmmain.FormShow(Sender: TObject);
begin
   if cringt=1 then
     begin
        N5.Enabled:=false;
        N6.Enabled:=false;
        N11.Enabled:=false;
        N14.Enabled:=true;
        statusbar1.Panels[1].Text:='学生用户';
     end
     else
       if cringt=2 then
         begin
           N2.Enabled:=true;
           N5.Enabled:=false;
           N6.Enabled:=false;
           N11.Enabled:=true;
           N14.Enabled:=true;
           statusbar1.Panels[1].Text:='教师用户';
         end
        else
          if cringt=3 then
            begin
              N1.Enabled:=true;
              N2.Enabled:=false;
              N3.Enabled:=true;
              n4.Enabled:=true;
              n5.Enabled:=true;
              n6.Enabled:=true;
              n7.Enabled:=true;
              n8.Enabled:=true;
              n9.Enabled:=true;
              n10.Enabled:=true;
              N14.Enabled:=false;
              n15.Enabled:=true;
              statusbar1.Panels[1].Text:='管理员';
            end;
   statusbar1.Panels[0].Text:='当前用户：'+username;
   statusbar1.Panels[2].Text:='登陆时间：'+datetimetostr(now);         
end;

procedure Tfmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fmlogin.Close;
end;

procedure Tfmmain.N5Click(Sender: TObject);
var
fmaddstudent:Tfmaddstu;
begin
fmaddstudent:=Tfmaddstu.Create(application);
fmaddstudent.Show;

end;

procedure Tfmmain.N15Click(Sender: TObject);
begin
  fmlogin.Show;
  fmmain.hide;
end;

procedure Tfmmain.N13Click(Sender: TObject);
var
fmstudent:Tfmstudent;
begin
fmstudent:=Tfmstudent.Create(application);
fmstudent.Show;

end;

procedure Tfmmain.N14Click(Sender: TObject);
var
fmeditstu:Tfmeditstu;
fmeditteacher:Tfmeditteacher;
begin
if cringt=1 then
begin
   fmeditstu:=Tfmeditstu.Create(application);
   fmeditstu.Show;
end;
  if cringt=2 then
    begin
      fmeditteacher:=Tfmeditteacher.Create(application);
      fmeditteacher.Show;
    end;

end;

procedure Tfmmain.N6Click(Sender: TObject);
var
fmaddteacher:Tfmaddteacher;
begin
   fmaddteacher:=Tfmaddteacher.Create(application);
   fmaddteacher.Show;
end;

procedure Tfmmain.N11Click(Sender: TObject);
var
fmaddscore:Tfmaddscore;
begin
  fmaddscore:=Tfmaddscore.Create(application);
  fmaddscore.Show;

end;

procedure Tfmmain.N12Click(Sender: TObject);
var
fmserscore:Tfmserchscore;
begin
   fmserscore:=Tfmserchscore.Create(application);
   fmserscore.Show;
end;

procedure Tfmmain.N8Click(Sender: TObject);
var
fmpass:Tfmpass;
begin
fmpass:=Tfmpass.Create(application);
fmpass.Show;

end;

end.