企业人事管理信息系统
开发背景：
随着社会经济的快速发展,企业正想着大型化，规模化发展，而对于大中小企业，员工，职称等跟人事管理有关的信息也随之加剧增加。在这样的情况下再靠人工来处理这些信息就显得有些困难，而且非常容易出错。
因此我们根据这些需要将设计一个应用于企业的人事管理系统，由计算机来代替人工完成一系列的工作，诸如职工基本信息，信息修改，查询，打印等操作。这样就使办公人员可以轻松快捷地完成人事管理任务。
系统设计意义、目的
通过使用企业人事管理系统，使企业的人事管理系统化、规范化、自动化、从而达到提高企业管理效率的目的。
系统开发的总体任务是使办公人员可以轻松快捷地完成人事管理的任务。
需求分析：
任何一个组织或是集体，实现它内部人员的管理或是各个部门的协同工作都是必要的。通过运用Access和VB6.0实现一个人事管理信息系统。要求在计算机处理时，依条件的不同，既能够处理职工信息按需查询，也能够接受管理人员对职工信息的录入和编辑。计算机处理的最终结果是产生各类表，包括员工个人基本信息表，职工家庭情况表。还有是对服务器端的管理，这点也很关键。最后是打印各种查询和各类表等。
开发设计思想
（1）尽量利用现有软硬件环境，采用先进的管理开发系统方案，从而达到充分利用企业现有资源，提高系统开发水平和应用效果的目的；
（2）系统应符合企业人事管理的规定，满足企业相关人员日常使用的需要，并达到操作过程中的直观、方便、使用、安全等要求；
（3）系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人进行补充、维护；
（4）系统应具备数据库维护功能，即使根据用户需求进行数据的添加、删除、修改、备份。
系统功能模块设计：
1登录界面：数据录入员凭个人帐号密码进入系统进行录入工作2职工各信息表的输入：包括职工基本情况表、职工家庭情况表、考核情况表等。3按条件查询：包括按工号查询、按姓名查询等。4打印输出：各类情况表的打印输出。5系统维护：数据备份、整理。6退出：退出系统
数据项和数据结构如下：
职工基本状况：包括数据库项有职工工号、职工姓名、性别、所在部门、身份证号、民族、婚姻状况、参加工作时间、联系电话等。
职工家庭情况：包括数据库项有职工姓名、家庭成员情况、家庭地址等。
考核情况：包括数据库项有部门名称、每周出勤情况等。
数据库表设计：
表名：职工基本信息表
字段名称 字段类型 字段大小 备注
职工号 文本 8 职工号
姓名 文本 10 姓名
性别 文本 2 性别
婚姻状况 是/否 婚姻状况
出生年月 日期/时间 日期 出生年月
学历 文本 学历
户口所在地 文本 50 户口所在地
身份证号码 数字 长整型 身份证号码
联系地址 文本 50 联系地址
政治面貌 文本 20 政治面貌
部门 文本 50 部门
籍贯 文本 8 籍贯
表名：职工家庭情况表
职工号 文本 20 备注
姓名 文本 20 姓名
家庭人数 文本 50 家庭人数
家庭年收入 数字 长整型 家庭年收入
家庭地址 文本 50 家庭地址
家庭电话 文本 20 家庭电话
3）表名：职工考勤表
以下是我做的模块介绍
查询：
在菜单中有“查询”按扭，点击这个按扭，可以对职工信息进行更加详细的查找，如图，当复选职工号或者职工姓名前的小白框，并填写相应的所想查询职工的员工号或姓名，按“查询”，则可激活界面中的查询结果，便可找到要查询的职工的基本信息以及职工家庭情况查询。
具体编码如下：
“查询”按钮控件源代码
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
If Option1.Value = True Then
txtsql = "select * from 职工家庭情况 where 职工号= " & Chr(39) & Trim(Text8.Text) & Chr(39)
rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1
Text1.Text = 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)
Else
If Option2.Value = True Then
txtsql = "select * from 职工家庭情况 where 姓名= " & Chr(39) & Trim(Text7.Text) & Chr(39)
rs.Open txtsql, Cnn, adOpenStatic, adLockOptimistic, 1
Text1.Text = rs.Fields(1)
Text2.Text = rs.Fields(0)
&nb