mainframe.~pas

Delphi的在线考试系统

unit mainframe;

interface

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

type
  TMainForm = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
    function existsform(MDIFormCaption:String):boolean;
    procedure closeallchild();
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses logindlg, admin, paper,OnExam, chech, search;

{$R *.dfm}

function TMainForm.ExistsForm(MDIFormCaption:String):boolean;
var
  i:byte;
begin
  result:=true;
  for i:=0 to MDIChildCount-1 do
  begin
    if MDIChildren[i].Caption=MDIFormCaption
    then
    result:=false;
  end;
end;

procedure TMainForm.closeallchild;
var i:integer;
begin
   for i:=MDIchildcount-1 downto 0 do
           MDIchildren[i].close; 
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
   if login.ShowModal=mrOk then begin
        if login.usertype='管理员' then begin
            if login.quanxiang='系统管理员' then
               N1.Enabled:=true
            else if login.quanxiang='试卷录入员' then
               N6.Enabled:=true
            else if login.quanxiang='改卷员' then
                N9.Enabled:=true;
        end else if login.usertype='学生' then begin
             N7.Enabled:=true;
        end;

   end else   begin
   close;
   end ;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
if ExistsForm('系统管理员') then
 begin
  Application.CreateForm(Tsysadmin, sysadmin);
  sysadmin.show;
  sysadmin.pagecontrol1.ActivePageIndex:=1;
 end  else
   sysadmin.Show;
   sysadmin.pagecontrol1.ActivePageIndex:=1;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
  if ExistsForm('系统管理员') then
 begin
  Application.CreateForm(Tsysadmin, sysadmin);
  sysadmin.show;
  sysadmin.pagecontrol1.ActivePageIndex:=0;
 end  else
   sysadmin.Show;
   sysadmin.pagecontrol1.ActivePageIndex:=0;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
   if ExistsForm('试卷录入员') then
 begin
  Application.CreateForm(TAddPaper, AddPaper);
  AddPaper.show;
 end  else
   AddPaper.Show;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
 if ExistsForm('考生') then
 begin
  Application.CreateForm(TExamForm, ExamForm);
    ExamForm.show;
 end  else
   ExamForm.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
   if ExistsForm('批改试卷') then
 begin
  Application.CreateForm(TCheckForm, CheckForm);
    CheckForm.show;
 end  else
   CheckForm.Show;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
     if ExistsForm('我的成绩') then
 begin
  Application.CreateForm(TForm1,Form1);
    Form1.show;
 end  else
   Form1.Show;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
     closeallchild;
     N7.Enabled:=false;
   if login.ShowModal=mrOk then begin
        if login.usertype='管理员' then begin
            if login.quanxiang='系统管理员' then
               N1.Enabled:=true
            else if login.quanxiang='试卷录入员' then
               N6.Enabled:=true
            else if login.quanxiang='改卷员' then
                N9.Enabled:=true;
        end else if login.usertype='学生' then begin
             N7.Enabled:=true;
        end;

   end else   begin
   close;
   end ;
   
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
     closeallchild;
     N1.Enabled:=false;
   if login.ShowModal=mrOk then begin
        if login.usertype='管理员' then begin
            if login.quanxiang='系统管理员' then
               N1.Enabled:=true
            else if login.quanxiang='试卷录入员' then
               N6.Enabled:=true
            else if login.quanxiang='改卷员' then
                N9.Enabled:=true;
        end else if login.usertype='学生' then begin
             N7.Enabled:=true;
        end;

   end else   begin
   close;
   end ;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
    closeallchild;
     N6.Enabled:=false;
   if login.ShowModal=mrOk then begin
        if login.usertype='管理员' then begin
            if login.quanxiang='系统管理员' then
               N1.Enabled:=true
            else if login.quanxiang='试卷录入员' then
               N6.Enabled:=true
            else if login.quanxiang='改卷员' then
                N9.Enabled:=true;
        end else if login.usertype='学生' then begin
             N7.Enabled:=true;
        end;

   end else   begin
   close;
   end ;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
    closeallchild;
     N9.Enabled:=false;
   if login.ShowModal=mrOk then begin
        if login.usertype='管理员' then begin
            if login.quanxiang='系统管理员' then
               N1.Enabled:=true
            else if login.quanxiang='试卷录入员' then
               N6.Enabled:=true
            else if login.quanxiang='改卷员' then
                N9.Enabled:=true;
        end else if login.usertype='学生' then begin
             N7.Enabled:=true;
        end;

   end else   begin
   close;
   end ;
end;

end.