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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

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.huoyuandh.com）会员上传。