免费获取|
论文天下网
  • 论文天下网 |
  • 原创毕业论文 |
  • 论文范文 |
  • 论文下载 |
  • 计算机论文 |
  • 论文降重 |
  • 毕业论文 |
  • 外文翻译 |
  • 免费论文 |
  • 开题报告 |
  • 心得体会 |

当前位置:论文天下网 -> 免费论文 -> 计算机论文

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网吧管理系统[开题报告+论.. 下一篇:delphi+sql物资管理系统[开题报..
推荐论文 本专业最新论文
Tags:delphi access 网络 考试 系统 【返回顶部】

相关栏目

自动化相关
计算机论文
工程管理论文
法律论文
医学论文
人力资源
电子专业
电气工程
英语论文
行政管理
电子商务
社科文学
教育论文
物流专业
金融专业
财务管理
会计专业
化学化工材料科学
电子通信
环境科学
经济类
机械模具类
报告,总结,申请书
其他专业论文


关于我们 | 联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 原创毕业论文

 

论文天下网提供论文检测,论文降重,论文范文,论文排版,网站永久域名WWW.GEPUW.NET

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 893628136@qq.com

Copyright@ 2009-2022 GEPUW.NET 论文天下网 版权所有