VB课程设计---企业工资管理系统.doc

  1. 1、本文档共28页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB课程设计---企业工资管理系统.doc

《VB课程设计》 设计题目: 企业工资管理系统 专 业: 计算机科学与技术 班 级: 学 号: 学生姓名: 目 录 摘 要 I 第一章 系统分析 1 第二章 系统实现 5 第三章 系统调试 8 第四章 使用说明 11 总 结 13 附 录 1、源代码 14 2、参考资料 25 摘 要 传统事业单位的工资管理方法以及传统工资管理存在很多的缺陷与弊端。在事业单位以往的工资录入中,计算、合计等需要通过大量的手工完成,数据量多,处理速度慢,而且极易出错,导致工作效率低。为了解决这一矛盾,利用计算机来进行工资的管理,是十分必要的。 程序设计重点论述了工资管理信息系统的组成与每个模块的功能。设计工资管理信息系统主要从模块组成、数据连接、功能实现等方面着手。 设计过程主要以上面的分析的重点作为依据。首先进行基础数据的采集,然后进行工资的核算等。在朝这个思想靠近的过程中,在许多小的细节上还存在着很多不足。 关键词:管理信息系统,模块组成 第一章 系统分析 1.1、系统概述 纵观各企业工资管理软件、一个好的企业工资管理软件,应具有简单友好的操作界面、安全性好的数据库、分级用户权限管理、强大数据导出及备份功能、联机帮肋文档。本系统着重围绕这几点进行开发设计。 基于以上众多问题的分析,和企业管理制度的参考。将系统具体分为系统管理、员工信息设定、工资信息管理、工资结算管理、数据库管理、工具箱、帮助七大模块: 系统管理分为操作员登录管理,用户管理,锁定操作画面及退出。操作员登录管理记录用户登录的时间,方便管理员查看。 在用户暂时离开时可锁定操作画面,防止非法操作。 用户管理分为新建普通用户,新建管理员用户,修改密码三部分。 1.2系统功能 用户和组管理功能 数据的添加、删除、修改功能 数据统计功能 信息保存功能 数据导出功能 方便的数据库备份功能 提供实用的工具箱 1.3 数据流程图 具有相应权限的用户在正确登陆后,可以打开并添加新员工的个人档案,添加完成后可以使用数据导出功能,导出数据。数据流图如下图1-1所示: 1.4模块图 如图: 图1-2 系统功能模块图 第二章 系统的实现 2.1 系统安全及权限的实现 为了确保系统的安全,对数据库进行加密处理,采用了用户和组管理,并记录用户登录信息。拥有高级权限的用户,可以创建不同的组,并可将全部或部分权限分配给创建用户。 为了实现该功能,系统采用了递归方式,使高一级别的用户可以管理低级用户,最高权限属于管理员。 具体描述如下: 2.2 登录窗口的实现 系统登陆时,要求正确输入用户名和密码。成功登陆后显示如图4-2所示工资管理系统主界面。用户名分为管理员用户和普通用户。如图2-1所示: 图2-1 登录窗口 2.3 员工基本档案信息的实现 员工基本档案信息管理,在窗体中完成员工基本信息的录入工作。根据提示在该窗体中输入相应的信息,最后单击“保存”按钮,进行信息的保存。如图2-2所示 图2-2 员工基本档案信息录入窗口 2.4工资的结算 在该窗体中输入相应的信息,完成月工资结算、产量汇总、综合处理具体如图2-3所示: 图2-3月工资结算、产量汇总、综合处理 第三章 系统调试 性能测试与分析 这个阶段的关键任务是通过各种类型的测试及相应的调试,软件达到预定的的要求。Private Sub Comok_Click() On Error GoTo Dealerror Dim strSql As String Dim strMsg As String On Error GoTo Dealerror Dim objCn As New Connection strcn = CS() objCn.ConnectionString = strcn objCn.Open Set objRs = New Recordset Set objRs.ActiveConnection = objCn objRs.CursorLocation = adUseClient strSql = SELECT * FROM 系统用户 objRs.Open strSql objRs.ActiveConnection = Nothing objCn.Close Set objCn = Nothing If Logontimes = 3 Then MsgBox 你已经超过最大登陆次数!退出系统, vbOKOnly + vbCritical, 系统登录 End Else objRs.MoveFirst objRs.Find 用户名= txtUserName If objR

文档评论(0)

czy2014 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档