网站导航网学 原创论文 网站设计 最新系统 最新研究 原创论文 获取论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 设计下载 > DELPHI类作品 > 正文

基于DELPHI的员工工资信息管理系统的设计

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/05/10

网学网为广大网友收集整理了,基于DELPHI的员工工资信息管理系统的设计,希望对大家有所帮助!

QQ交谈客服咨询,网学网竭诚为您服务,本站永久域名:myeducs.cn

第四章 详细设计

 

 

4.1系统管理模块

   

该模块主要实现了系统管理员的添加、删除和数据备份、还原及系统退出等功能。

考虑到系统初次安装时能顺利登录系统,在事务处理信息库中加入管理员信息。超级管理员:admin,密码:11。故而对此模块维护的设计思想是:初次登录系统时,系统用户必须用超级管理员和口令进入,管理员登录不区分大小写,此时的管理权限为最大(操作员管理,查询权,系统设置权)。 

模块中各功能的详细设计如下:

1)密码修改功能

管理员都有修改自己密码的权利,不论其权限的大小

2)操作员管理

 

 

添加、删除、修改管理员的信息是系统用户中权限为系统设置权的管理员所专有的权利,可为系统添加管理员的登录号和口令及使用权限。操作员必须是在员工表中存在的记录,也就是说系统管理员也是员工的一部份,它除了有员工的上下班的考勤密码外,还是管理员登陆密码。两个密码的概念不同。普通员工只能登录考勤栏。而管理员能根据权限的不同登录不同的窗体。在系统管理系统进行删除过程中系统会先判断用户要删除的用户是否存在,若存在则在确认一下是否真的要删除该用户,得到确认后才能删除该系统用户,否则则返回。

第五章 编 

 

 

本系统的所有代码都是在Delphi7.0下完成的,利用Delphi在数据库方面的特性和其强大的功能,运用它强大的界面设计功能,让我能将我的想法在界面中得到实现。在整个编码构成中由于Delphi7.0组件的强大支持,节省了很多时间和精力。

如下是关于系统管理模块的代码:

1 操作员管理

procedure Tmainform.mnuChangePasswordClick(Sender: TObject);

begin

    if not assigned(operateform) then

   begin

     Application.CreateForm(Toperateform, operateform);

     operateform.Show;

   end

  else

   begin

    operateform.Show;

    operateform.WindowState:=wsNormal;

   end;

end;

2修改密码

procedure Tmainform.N17Click(Sender: TObject);

begin

    if not assigned(changepasswordform) then

   begin

     Application.CreateForm(Tchangepasswordform, changepasswordform);

     changepasswordform.Show;

   end

  else

   begin

    changepasswordform.Show;

    changepasswordform.WindowState:=wsNormal;

   end;

end;

 

3数据备份

procedure Tmainform.mnuOperatorClick(Sender: TObject);

begin

 if not assigned(databackform) then

   begin

     Application.CreateForm(Tdatabackform, databackform);

     beifen:=true;

     databackform.Show;

   end

  else

   begin

    beifen:=true;

    databackform.Show;

    databackform.WindowState:=wsNormal;

   end;

end;

 

4数据还原

procedure Tmainform.N3Click(Sender: TObject);

begin

if not assigned(databackform) then

   begin

     Application.CreateForm(Tdatabackform, databackform);

     huiyuan:=true;

     databackform.Show;

   end

  else

   begin

    huiyuan:=true;

    databackform.Show;

    databackform.WindowState:=wsNormal;

   end;

end;

 

 

本站发布的计算机毕业设计均是完整无错的全套作品,包含开题报告+程序+论文+源代码+翻译+答辩稿PPT

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介,如需了解更多详情请咨询本站客服!QQ交谈QQ3710167

  • 下一篇资讯: 列车时刻查询决策系统
  • 原创论文

    设为首页 | 加入收藏 | 论文首页 |原创论文 |
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师