delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九)

    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;
  name:string;
implementation

uses Undm, Unstudent, Unmanerge, Unexam, Unfenpei, Unview,
  Unchengji, Unabout, Uncount, Unlogin, Unchengjiprint, Unpass;

{$R *.dfm}
function TMainfrm.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 TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;

procedure TMainFrm.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[1].Text:='当前用户：'+name;
StatusBar1.Panels[2].Text:=application.hint;
statusbar1.Panels[3].Text:='现在日期：'+datetostr(date);
statusbar1.Panels[4].Text:='时间：'+timetostr(time);
end;

procedure TMainFrm.N8Click(Sender: TObject);
begin

 if ExistsForm('考员管理') then
 begin
  Application.CreateForm(Tstudentfrm, studentfrm);
  studentfrm.show;
 end
 else
  studentfrm.Show;
studentfrm.pagecontrol1.Align:

首页 上一页 6 7 8 9 10 11 下一页 尾页 9/11/11