企业人事管理信息系统[001].doc

《企业人事管理信息系统[001].doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

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

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

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

6、及职工家庭情况查询。具体编码如下：“查询”按钮控件源代码PrivateSubCommand1_Click()DimrsAsNewADODB.RecordsetIfOption1.Value=TrueThentxtsql="select*from职工家庭情况where职工号="&Chr(39)&Trim(Text8.Text)&Chr(39)rs.Opentxtsql,Cnn,adOpenStatic,adLockOptimistic,1Text1.Text=rs.Fields(1)Text2.Text=rs.Fields(0)Text3.Text=rs.Fiel

7、ds(2)Text4.Text=rs.Fields(3)Text5.Text=rs.Fields(4)Text6.Text=rs.Fields(5)ElseIfOption2.Value=TrueThentxtsql="select*from职工家庭情况where="&Chr(39)&Trim(Text7.Text)&Chr(39)rs.Opentxtsql,Cnn,adOpenStatic,adLockOptimistic,1Text1.Text=rs.Fields(1)Text2.Text=rs.Fields(0)Text3.Text=rs.Fields(2

8、)Text4.Text=