delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九) sp; ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowArrange1: TWindowArrange;
    WindowClose1: TWindowClose;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
  function existsform(MDIFormCaption:String):boolean;

    { 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

delphi+access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九)由免费论文网（www.jaoyuw.com）会员上传。