企业人事管理信息系统

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

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

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

4、查询：包括按工号查询、按姓名查询等。4 打印输出：各类情况表的打印输出。5 系统维护：数据备份、整理。6 退出：退出系统? 数据项和数据结构如下： 职工基本状况：包括数据库项有职工工号、职工姓名、性别、所在部门、身份证号、民族、婚姻状况、参加工作时间、联系电话等。 职工家庭情况：包括数据库项有职工姓名、家庭成员情况、家庭地址等。 考核情况：包括数据库项有部门名称、每周出勤情况等。? 数据库表设计：1) 表名：职工基本信息表字段名称字段类型字段大小备注职工号文本8职工号姓名文本10姓名性别文本2性别婚姻状况是/ 否婚姻状况出生年月日期/ 时间日期出生年月学历文本学历户口所在地文本50户口所在地身

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

6、源代码Private Sub Command1_Click()Dim rs As New ADODB.RecordsetIf Option1.Value = True Thentxtsql = "select * from 职 工 家 庭 情 况 where 职 工 号 = " & Chr(39) & Trim(Text8.Text) & Chr(39)rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1Text1.Text = rs.Fields(1)Text2.Text = rs.Field

7、s(0)Text3.Text = rs.Fields(2)Text4.Text = rs.Fields(3)Text5.Text = rs.Fields(4)Text6.Text = rs.Fields(5)ElseIf Option2.Value = True Thentxtsql= "select* from职工家庭情况where姓名 = " & Chr(39) & Trim(Text7.Text)& Chr(39)rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1Text1.Text =

8、 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 IfEnd Ifrs.CloseEnd SubPrivate Sub Form_Load()End Sub（2） 打印输出：进入此面板后，管理员可以打印预览职工的相关信息，为了便于打印输出，利用报表形式输出，分别提供了“职工信息表” 、“职工考勤表”和“职工家庭情况表”个报表输出，管理员选择相应的报表进行预览 ，单

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

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