企业人事管理信息系统

1、企业人事管理信息系统 ? 开发背景： 随着社会经济的快速发展 , 企业正想着大型化，规模化发展，而对于大中小 企业，员工，职称等跟人事管理有关的信息也随之加剧增加。在这样的情况下 再靠人工来处理这些信息就显得有些困难，而且非常容易出错。 因此我们根据这些需要将设计一个应用于企业的人事管理系统， 由计算机来 代替人工完成一系列的工作， 诸如职工基本信息， 信息修改，查询，打印等操作。 这样就使办公人员可以轻松快捷地完成人事管理任务。 ? 系统设计意义、目的 通过使用企业人事管理系统，使企业的人事管理系统化、规范化、自动化、 从而达到提高企业管理效率的目的。 系统开发的总体任务是使办公人员可以轻松

2、快捷地完成人事管理的任务。 ? 需求分析： 任何一个组织或是集体，实现它内部人员的管理或是各个部门的协同工作 都是必要的。通过运用Access和VB6.0实现一个人事管理信息系统。要求在计 算机处理时，依条件的不同，既能够处理职工信息按需查询，也能够接受管理 人员对职工信息的录入和编辑。计算机处理的最终结果是产生各类表，包括员 工个人基本信息表，职工家庭情况表。还有是对服务器端的管理，这点也很关 键。最后是打印各种查询和各类表等。 ? 开发设计思想 （1）尽量利用现有软硬件环境，采用先进的管理开发系统方案，从而达到充分利 用企业现有资源，提高系统开发水平和应用效果的目的； （2）系统应符合企业

3、人事管理的规定，满足企业相关人员日常使用的需要，并达 到操作过程中的直观、方便、使用、安全等要求； （3）系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于 未参与开发的技术维护人进行补充、维护； （4）系统应具备数据库维护功能，即使根据用户需求进行数据的添加、删除、修 改、备份。 ?系统功能模块设计: 1登录界面：数据录入员凭个人帐号密码进入系统进行录入工作 2职工各信息表的输入：包括职工基本情况表、职工家庭情况表、考核情况表等。 3按条件查询：包括按工号查询、按姓名查询等。 4打印输出：各类情况表的打印输出。 5系统维护：数据备份、整理。 6退出：退出系统 ?数据项和数据结

4、构如下： 职工基本状况：包括数据库项有职工工号、职工姓名、性别、所在部 门、身份证号、民族、婚姻状况、参加工作时间、联系电话等。 职工家庭情况：包括数据库项有职工姓名、家庭成员情况、家庭地址 考核情况：包括数据库项有部门名称、每周出勤情况等。 ?数据库表设计： 1）表名：职工基本信息表 字段名称 字段类型 字段大小 备注 职工号 文本 8 职工号 姓名 文本 10 姓名 性别 文本 2 性别 婚姻状况 是/否 婚姻状况 出生年月 日期/时间 日期 出生年月 学历 文本 学历 户口所在地 文本 50 户口所在地 身份证号码 数字 长整型 身份证号码 联系地址 文本 50 联系地址 政治面貌 文本

5、 20 政治面貌 部门 文本 50 部门 籍贯 文本 8 籍贯 2）表名：职工家庭情况表 职工号 文本 20 备注 姓名 文本 20 姓名 家庭人数 文本 50 家庭人数 家庭年收入 数字 长整型 家庭年收入 家庭地址 文本 50 家庭地址 家庭电话 文本 20 家庭电话 3)表名：职工考勤表 MT w iWWK. ?以下是我做的模块介绍 (1) 查询： 在菜单中有“查询”按扭，点击这个按扭，可以对职工信息进行更加详细的查找， 如图，当复选职工号或者职工姓名前的小白框，并填写相应的所想查询职工的员 工号或姓名，按“查询”，则可激活界面中的查询结果，便可找到要查询的职工的 基本信息以及职工家庭情

6、况查询。 韋 IDIForal - Idd 具体编码如下： “查询”按钮控件源代码 Private Sub Comma nd1_Click() Dim rs As New ADODB.Recordset If Optio n1.Value = True The n txtsql= select * from 职工家庭情况 where 职工号=& Chr(39)& Trim(Text8.Text) & Chr(39) rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1 Text1.Text = rs.Fields(1) Text2.Tex

7、t = rs.Fields(O) Text3.Text = rs.Fields(2) Text4.Text = rs.Fields(3) Text5.Text = rs.Fields(4) Text6.Text = rs.Fields(5) Else If Optio n2.Value = True The n txtsql = select * from 职工家庭情况 where 姓名=” & Chr(39) & Trim(Text7.Text) & Chr(39) rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1 Text1.Te

8、xt = rs.Fields(1) Text2.Text = rs.Fields(0) Text3.Text = rs.Fields(2) Text4.Text = rs.Fields(3) Text5.Text = rs.Fields(4) Text6.Text = rs.Fields(5) End If End If rs.Close End Sub Private Sub Form_Load() End Sub (2) 打印输出： 进入此面板后，管理员可以打印预览职工的相关信息，为了便于打印输出， 利用报表形式输出，分别提供了“职工信息表”、“职工考勤表”和“职工家庭情 况表”3个报表输

9、出，管理员选择相应的报表进行预览 ，单击“退出”按钮回到 主控制面板 (3) 系统维护： 这个模块是给管理员使用的专用模块，管理员可以对各个表的数据、各个员 工的资料、工资的设定等数据进行数据备份和数据整理操作，这样方便了管理员 在每一次数据更新后，方便的检查每个模块当前的数据和结构情况。 ? 个人小结： 在本项目的软件开发的过程中，我全面实践一个面向数据库的应用系统的开 发过程，学习了很多有关的知识。这样的项目对我学过的数据结构，程序设计， 数据库，等课程是一个综合性很高的实践。一些以前没有学得很扎实的课程的内 容，由于需要在实践中运用，刚开始我也感到很头痛。但回过头再去看有关的教 科书，经

10、过一段时间的钻研，对与这些知识点的相关的背景，概念和解决方案理 解得更透彻了，学习起来也越来越有兴趣，越来越轻松。 在做这个系统的过程中，程序调试给我留下最深的印象，在调试上花的时间 最多。当调试了半天还是不行的时候，我都有把机器砸了的冲动。最后翻书查资 料，叫同学帮忙。这说明了我在平时学习的时候学的不够扎实，对错误研究不够， 编写代码的时候不够仔细，还有就是缺乏足够的耐心。 做这样一个系统对我们来说一个人比较困难，要若干个人一起完成。所以还 要非常好的团队协作精神。这对我们以后的工作很有帮助。 当我们完成这个项目的时候，我没有一点兴奋。我清醒地认识到自己还有很 大的距离，还有很多要学，照我现在所掌握的知识去工作根本是不够的。等以后 实习的时候要比别人学得更多更扎实，知识是自己的，别人怎么抢都抢不掉。人 和系统一样，要随着时代的变化不断地充实，不断地完善。 经过这次实训，我学到很多，也成熟许多，考虑事情也没以前那么简单了， 先前总觉得做这样的实训有什么用啊，现在终于大彻大悟了。在这次实训过程中 指导老师和同