人事档案管理信息系统-电大毕业设计.doc

电大毕业设计
摘 要

人事档案管理信息系统主要目的是人事档案管理信息数据处理。一个现代化的企业不可能用手工完成数据处理，因此计算机在企业的信息管理中得到了广泛的应用。从而信息管理系统在现代化的企业管理中有着举足轻重的作用。
为此，我们用美国Sybase公司PowerSoft的新一代数据库应用开发工具PowerBuild 8.0 开发了此人事档案管理信息系统软件，目的就是创建一个适用于企业的人事档案管理信息系统。

关键词：人事档案 管理 系统

Summary
Group customer management system is the main purpose of the Information Management Group and a large number of customers data processing. A modern enterprise can not be completed by manual data processing, computers in the enterprise customer information management has been widely used. And customer information management system in the modern enterprise management has a pivotal role.
To this end, we use Microsoft's Visusl Basic programming language developed by the Group of customer management system software, aim is to create a telecommunications enterprise customers management system.

Key words: customers Management System

目录
第1章 引言 4
第2章 研究现状及设计目标 5
第3章 要解决的几个关键问题 6
第4章 系统分析 6
4.1 编程语言 6
4.2 系统功能分析 8
4.3 系统模块分析 8
4.4 系统实现过程分析 9
第5章 系统设计 10
5.1 数据库设计 10
5.2 绘制系统数据流图与总结数据字典 10
5.3 定义数据库结构 11
5.4 E-R模型 13
5.4.1人事档案管理信息系统E-R图 14
5.4.1.1实体关系E-R图 14
5.4.1.2实体属性图 14
5.4.1.2.1集团信息属性图 14
5.4.1.2.2员工信息属性图 15
5.4.1.2.3集团业务属性图 15
第6章 系统实现 16
6.1 登录程序详述 16
6.1.1 登录程序 16
6.2 软件功能程序详述 17
6.2.1 人事档案管理信息系统界面详述 17
6.2.2 信息录入管理 22
6.2.3 查询管理 35
6.2.4 信息修改与删除 47
第7章 结束语 56
参考文献、资料 57

第1章 引言
当今世界，科学技术突飞猛进，知识经济初现端倪，进入数字化、信息化时代的二十一世纪，企业对员工管理的需求日益增加。现代企业管理特别是员工信息管理，已越来越依赖于计算机，由于随着企业的发展，其员工数量也在累计增长，尤其是电信行业的员工数量非常庞大，且对员工信息保密性要求非常严格，顺应了这一趋势，员工管理系统给企业管理员工信息提供了便利和强有力的支持，它是提高企业管理效益，促进企业发展，针对员工群体精确营销的有利支持，推动着现代化企业向前进步，满足企业管理需求和节约管理成本，提高管理效益。
因此，开发、利用好软件系统对于企业已变的非常重要了。本系统采用PowerBuild作为编程语言，并采用了ACCESS数据库与PowerBuild程序连接实现员工管理目的。本文目的是介绍作者所开发系统的实现过程及在企业中实现员工管理的应用，重点分析和介绍人事档案管理信息系统的开发过程中系统功能的分析、设计和实现。此系统针对员工管理起到一定的辅助管理作用，在实际工作中可以发挥提过工作效率，节省管理时间的作用。

第2章 研究现状及设计目标
开发软件的另一个目的是使其具有强大的实用价值，即它可以满足中小型企业管理的需要。
这种管理软件对硬件的要求很低，一般有一个比较简单的服务器与PC机组成的网络即可，再加上使用比较廉价、性能不错的软件，这样就可以以较低的成本来实现一个足够使用的功能，而这种模式也正满足了那种中小型企业人事管理的要求。但是目前对这种管理软件的开发还处于一种比较原始的阶段。开发者往往都是出于资金和时间的顾虑使用比较陈旧的技术，并且各为己见，并且很少涉及网络。可是当今是一个网络化的社会，像资料室，图书馆这样的信息机构不能与网络联系起来岂不可惜，再加上如今单机版管理软件多如牛毛，去开发一个类似的软件无疑是一种在时间上、精神上和资源上的极大浪费。所以出于多方面的考虑觉得有必要为这种有需要的中小型企业开发一种基于网络的人事信息管理软件。

第3章 要解决的几个关键问题
对整个系统开发项目进行科学的系统分析，以保证开发工作的有效性。为此要对系统进行如下的分析：需求分析、内容分析、资源分析。分析发现在系统整体实现过程中会遇到很多困难，比如：数据库设计、数据库连接、数据查询、数据显示和业务逻辑实现等。
在数据库设计方面查阅了许多资料，并根据需求分析得出了以下4个数据表：用员工信息表、单位信息表、数据字典和操作员信息表。
通过引用PB的ADO Data Control提供的ODBC控件实现与数据库的连接以及条件查询。
业务逻辑实现通过对数据分析，将业务类型进行数据模型分析得到业务类型与数学模型2的n次方形成对应关系，因此将业务类型用数字1、2、4和8表示，通过以上数学模型的分析，在程序开发过程中业务逻辑关系就很好掌握和处理了。

第4章 系统分析
4.1 编程语言
后台数据库支持：采用PowerBuild 8.0,主要是由于PowerBuild 8.0是美国Sybase公司PowerSoft的新一代数据库应用开发工具，它能够设计传统的高性能、基于客户/服务器体系结构的应用系统，也能够用于开发基于Internet的应用系统。它具有容易使用，便于维护的优点，使使用部门可以节省培训费用，加快磨合周期，同时有利于操作人员的培训，是对数据的安全性要求不是特别高，同时又有比较大的数据量的单位的较好选择。作为PowerBuild 7.0的后续版本，PowerBuild 8.0 扩展了 PowerBuild 7.0 版的性能、可靠性、质量和易用性。PowerBuild 8.0增加了几种新的功能，
由此成为数据仓库和电子商务应用程序的优秀数据库平台。这些功能如：
l 新的开发调试界面，使程序员对于工作环境有了直观的了解，最大的方便了程序员的工作，新增的剪贴板能够让你保存最常用的代码段，避免了重复输入。
l 新的Web特性，这是PB8.0相对于7.0最大的改进，它提供了因特网浏览器中使用数据窗口控件的瘦客户端的解决方式。普通数据窗口和数据存储中可以使用的方法和属性现在大部分可以使用于Web数据窗口了。
l 新的数据库连接，在改进已有接口的前提下，使用新的数据库连接接口jdbc/jbd数据接口。它封装了jdbc函数功能于一个PB数据库接口，不仅支持使用SUN公司的jdk/jre1.1,还支持使用微软的java vm。因此它具有对现在windows操作平台更加好的兼容性。
power builder具有的独特的报表系统使制作表格变的极其方便，同时根据用户的需要可以随意调节表格的形式，而不象其他的语言，当用户的需要改变时，需要很大的工作量来更改程序适应用户的需要，同时，由于该语言具有良好的数据库接口，可以比较方便的进行数据库操作。虽然power builder的语法较为简单，对于算法和其他的一些复杂的表示方式缺乏有效的方法，但对于数据库
运用，这些缺点并不是经常出现。 因此，同时也用power builder作为前台客户端界面的实现语言。即整个系统均使用power builder，以提高可靠性和安全性。
4.2 系统功能分析
员工挡案信息管理涉及员工挡案管理、科室管理、操作人员管理等。经过实际考察与分析，典型的人事档案管理信息系统主要应具有以下功能：
1. 操作员管理包括员工经理信息的录入、添加、修改、查询、密码变更、密码初始化、权限变更、删除等功能。
2. 科室管理包括集团信息录入、添加、修改、查询、等功能。
3. 员工挡案信息管理包括员工挡案信息的录入、添加、修改、查询、删除等功能。系统功能分析
4.3 系统模块分析

根据系统功能分析和员工挡案管理的特点，经过模块化的分析，得到如图1-1所示的人事档案管理信息系统功能模块结构图。

查询系统
业务管理系统
数据库
部局域网
外部网/internet

图1-1 人事档案管理信息系统功能模块图

4.4 系统实现过程分析
在实现过程中，首先需要根据系统功能分析设计出需要的数据库，包括各个数据表的详细结构的永久关系定义等。可事先在数据库中定义在实现各个功能模块时需要使用的视图和查询，也可在实现功能模块时再创建视图和查询。
在开发过程中，首先单独实现各个功能模块，最后建立应用程序菜单系统来集成各个功能模块，这样便于各个系统功能模块独立设计和调试。
在实现管理者与员工挡案管理时，结合企业与员工挡案对应关系来实现。这样用户可以通过查询模块来查询员工的信息。
系统的功能模块图提出后，我们大体上已明白了要干什么，对于数据如何处理，怎么样编制数据库以及数据逻辑模型呢？
首先是选择什么数据库，我对查询了大量的数据资料后了解到ACCESS数据库便于学习和应用，便选择了使用ACCESS作为本系统连接的数据库。
第5章 系统设计
5.1 数据库设计
数据库设计可概括为两个步骤：绘制系统数据流图与总结数据字典、设计数据库结构。

5.2 绘制系统数据流图与总结数据字典
根据系统功能模块结构图和员工挡案管理流程，绘制如图2-1、图2-2所示的系统数据流图。
操作人员
系统时钟
职工

挡案管理系统

图2-1 顶层数据流图

职工挡案文件
显示
目录文件
职工文件
显示
职工
查 询类别处 理
职工查 询
操作人员查 询
挡案统 计
员工情 况

挡案情况
统计表

图2-2 0层数据流图

5.3 定义数据库结构
根据前面定义的数据字典，员工挡案管理数据库应为数据字典中的每种数据定义一个数据表，包括用户管理表、科室表、员工挡案表和数所字典类型表。各表的结构分别如下：
表一：用户管理表

列名
数据类型
长度
员工编码
数值型(bigint)
8
员工姓名
字符型(varchar)
50
用户名
字符型(varchar)
50
密码
字符型(varchar)
50
权限
字符型(varchar)
50

表二：科室表
列名
数据类型
长度
科室编码
字符型(varchar)
50
类型
数值型(bigint)
8
名称
字符型(varchar)
50
备注
字符型(varchar)
50

表三：员工挡案表
列名
数据类型
长度
员工编码
数值型(bigint)
8
科室编码
字符型(varchar)
50
科室名称
字符型(varchar)
50
员工姓名
字符型(varchar)
50
员工手机号码
字符型(varchar)
50
员工地址
字符型(varchar)
50

表四：数据字典
列名
数据类型
长度
类型编码
字符型(varchar)
50
类型
字符型(varchar)
50

5.4 E-R模型
ER模型中包含“实体”、“联系”和“属性”等三个基本成分。
1) 实体
实体是客观世界存在的且可相互区分的事物。它可以是人也可以是动物；可以是具体事物也可以是抽象概念。
2) 联系
联系是指客观世界中各事物彼此间的联系。联系分为三类：一对一的关系，一对多的关系，多对多的关系。
3) 属性
属性是实体或联系所具有的性质，通常一个实体用若干属性来刻画。
人们通常就是用实体、联系和属性这三个概念来理解现实问题，因此，ER模型比较接近人的思维方式。此外，ER模型使用简单的图形符号表示系统分析员对问题的理解，不熟悉计算机的人也能理解它，因此，ER模型可以作为用户与系统分析员之间的交流工具。

5.4.1人事档案管理信息系统E-R图
5.4.1.1实体关系E-R图
科室信息
员工信息
属于
属于
业务信息

5.4.1.2实体属性图

5.4.1.2.1信息属性图

名称
职工信信息
科定编码
操作人信息
信息
权限表

5.4.1.2.2员工信息属性图

姓名
电话
编码
地址
信息

5.4.1.2.3集团业务属性图

员工
操作员
科室
挡案
挡案处理

第6章 系统实现
6.1 登录程序详述
6.1.1 登录程序

其代码如下:
COMMIT ;
IF KeyDown(Keyalt!) and KeyDown(Keyf4!) then
halt;
end if
COMMIT表示连结数据库程序中运用了一段小代码防止使ALT加F4键

登录按扭代码如下:
SQLCA.LogId = ""
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=bookdb;UID=;PWD='"

//连接数据库
connect;
//检索用户名和密码记录
select czyda.use_name,
czyda.mm
into :usename,
:pass_word
from czyda
where czyda.use_name = :sle_1.text ;
//此句一定要完整,否则出错 判断用户输入用户名是否正确
if sle_1.text="" or sle_2.text="" then
messagebox("错误!","用户名或密码不能为空!",exclamation!,ok!,2)
disconnect; //断开数据库的连接
else
if usename=sle_1.text and pass_word=sle_2.text then
open(w_splash)
close(parent)
else
messagebox("错误!","用户名或密码错误,请重新输入!",exclamation!,ok!,2)
disconnect;
end if
end if
退出按扭代码如下
close (parent)
其中括号中动用了代词，使程序清晰，易读。
用户登录后打开如下图所示的图书管理系统主界面，它由4个菜单组成，用户可以使用这些莠单中的功能菜单项完成各种操用。

6.2 软件功能程序详述
6.2.1 人事档案管理信息系统界面详述

主界面如下图所示：

主菜单内容：
系统工具->员工经理管理/更改密码/退出系统
集团管理->集团管理
员工挡案管理->员工挡案管理
如下图所示：

（1）单击“员工经理管理”：
Private Sub cx_Click()
khjlcx.Show
End Sub
如下图所示：

（2）单击“更改密码”：
Private Sub gg_Click()
gm = True
mmxg.Show
End Sub

（3）单击“集团管理”：
Private Sub khgl_Click()
jtgl.Show
End Sub

（4）单击“员工挡案管理”：员工挡案管理
Private Sub khgl_Click()
khxxgl.Show
End Sub

6.2.2 信息录入管理
该管理分析系统软件的数据录入分为员工经理信息录入、集团信息录入和员工信息录入。本系统能检查录入数据的有效性，并且确保“关键信息”的录入项不能为空，“相关信息”项采用自动添加方式。

（1） 单击“添加员工经理”按钮事件：

图1员工经理添加界面

（2）“确认”按钮单击事件（添加管理员/员工经理）：
Private Sub Command8_Click()
If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or Combo1.ListIndex < 0 Then
MsgBox "请将信息填写完整，权限必须正确！", vbInformation
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM 用户管理表 WHERE 用户名='" & Text2.Text & "'"
Adodc2.Refresh
With Adodc2.Recordset
If .BOF Then '检查是否有同名用户，若无，添加，若有，重新输入
.AddNew
.Fields(1) = Trim$(Text1.Text)
.Fields(2) = Trim$(Text2.Text)
.Fields(3) = "111111"
.Fields(4) = Trim$(Combo1.Text)
.Update
Else
MsgBox "此用户已存在！", vbExclamation
With Text2 '焦点返回用户框
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
End With
MsgBox "用户添加成功！", vbInformation

DataGrid1.AllowUpdate = True '开启DataGrid1刷新
sql = "SELECT 员工经理姓名,用户名,权限 FROM 用户管理表" '刷新DataGrid1
Adodc1.RecordSource = sql '生成记录集
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
Call Command7_Click
End Sub
添加结果：

（2） 单击“添加集团”按钮事件：

图2集团添加界面

（4）“确认”按钮单击事件（添加集团）：
Private Sub Command8_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "请将信息填写完整，权限必须正确！", vbInformation
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM 集团表 WHERE 集团编码='" & Text1.Text & "'"
Adodc2.Refresh
Adodc3.RecordSource = "SELECT * FROM 集团表 WHERE 集团名称='" & Text2.Text & "'"
Adodc3.Refresh
If Adodc2.Recordset.BOF Then
With Adodc3.Recordset
If .BOF Then '检查是否有同名用户，若无，添加，若有，重新输入
.AddNew
.Fields(0) = Trim$(Text1.Text)
If Combo1.ListIndex >= 1 Then
Dim pf As Integer
pf = 1
If Combo1.ListIndex > 1 Then
For i = 2 To Combo1.ListIndex Step 1
pf = pf * 2
Next
End If
.Fields(1) = pf
Else
If Combo1.ListIndex = 0 Then
.Fields(1) = 15
Else
.Fields(1) = 0
End If
End If
.Fields(2) = Trim$(Text2.Text)
.Fields(3) = Trim$(Text3.Text)
.Fields(4) = "0"
.Update
Else
MsgBox "此集团已存在！", vbExclamation
With Text2 '焦点返回用户框
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
End With
Else
MsgBox "此集团编码已存在！", vbExclamation
With Text1 '焦点返回用户框
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
MsgBox "集团添加成功！", vbInformation
DataGrid1.AllowUpdate = True '开启DataGrid1刷新
sql = "SELECT 集团编码,集团名称,贵宾号,集团容量 FROM 集团表" '刷新DataGrid1
Adodc1.RecordSource = sql '生成记录集
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
With DataGrid1
.Columns(0).Locked = True
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
End With
Call Command7_Click
End Sub
添加结果：

（5）单击“添加员工”按钮事件：
图3员工挡案添加界面

（6）“确认”按钮单击事件（添加员工挡案）：
Private Sub Command8_Click()
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Or Combo1.ListIndex <= 0 Then
MsgBox "请将信息填写完整，且选中要加入的集团名称！", vbInformation
Exit Sub
End If
Adodc2.RecordSource = "SELECT * FROM 员工挡案表 WHERE 员工姓名='" & Text2.Text & "' AND 集团名称= '" & Combo1.Text & "'"
Adodc2.Refresh
If Combo1.ListIndex >= 0 Then
Adodc4.RecordSource = "SELECT 集团编码 FROM 集团表 WHERE 集团名称='" & Combo1.Text & "'"
Adodc4.Refresh
With Adodc2.Recordset
If .BOF Then '检查是否有同名用户，若无，添加，若有，重新输入
.AddNew
.Fields(1) = Adodc4.Recordset("集团编码")
.Fields(2) = Trim$(Combo1.Text)
.Fields(3) = Trim$(Text2.Text)
.Fields(4) = Trim$(Text3.Text)
.Fields(5) = Trim$(Text4.Text)
.Update
Else
MsgBox "此员工挡案姓名已存在，请在同名员工姓名后用数字区分！", vbExclamation
With Text2 '焦点返回用户框
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
End With
Else
MsgBox "请选择集团！", vbExclamation
Exit Sub
End If
Adodc3.RecordSource = "SELECT * FROM 集团表 WHERE 集团名称='" & Combo1.Text & "'"
Adodc3.Refresh
Adodc3.Recordset("集团容量") = Adodc3.Recordset("集团容量") + 1
Adodc3.Recordset.Update
MsgBox "员工挡案添加成功！", vbInformation
DataGrid1.AllowUpdate = True '开启DataGrid1刷新
sql = "SELECT 集团编码,员工姓名,员工手机号码,员工住址 FROM 员工挡案表 WHERE 集团名称='" & Combo1.Text & "'" '刷新DataGrid1
Adodc1.RecordSource = sql '生成记录集
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
With DataGrid1
.Columns(0).Locked = True
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
End With
Call Command5_Click
End Sub

添加结果：

6.2.3 查询管理
查询分为集团查询和员工查询两项。集团查询又分为按业务类别查询和全部显示，员工查询又分为按集团名称查询和条件查询。
图4、集团查询方式选择界面

（1）单击“显示”按钮事件（按类型查询）：
Private Sub Command3_Click()
If Combo1.ListIndex < 0 Then
MsgBox "请确定要查询的集团类型。", vbInformation
Exit Sub
End If
Call cmdAll_Click
DataGrid1.AllowUpdate = False '禁止修改网格控件的内容
If Adodc1.Recordset.BOF Then
Exit Sub
End If
With DataGrid1
.Columns(0).Locked = True
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
End With
Call DataGrid1_Click
End Sub
（2）单击“显示全部”按钮事件（查询所有集团并显示）：
Private Sub Command10_Click()
sql = "SELECT 集团编码,集团名称,贵宾号,集团容量 FROM 集团表"
Adodc1.RecordSource = sql '生成记录集
Adodc1.Refresh '刷新
If Adodc1.Recordset.BOF Then '若记录集为空
MsgBox "对不起，没有您所要查找的记录。", vbInformation
Exit Sub
End If
Set DataGrid1.DataSource = Adodc1 '重新绑定数据网格控件
DataGrid1.AllowUpdate = False '禁止修改网格控件的内容
With DataGrid1
.Columns(0).Locked = True
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
End With
Call DataGrid1_Click
End Sub

图5、员工挡案查询方式选择界面

（3）单击“显示”按钮事件（按集团名称查询）：
If Combo1.Text = "" Or Combo1.ListIndex < 0 Then
MsgBox "对不起，请选择已有集团。", vbInformation
Exit Sub
End If
sql = "SELECT 集团编码,员工姓名,员工手机号码,员工住址 FROM 员工挡案表 WHERE 集团名称 = '" & Combo1.Text & "'"
If Combo1.ListIndex = 0 Then '当选择全部集团时变更SQL语句
sql = "SELECT 集团编码,员工姓名,员工手机号码,员工住址 FROM 员工挡案表"
End If
Adodc1.RecordSource = sql '生成记录集
Adodc1.Refresh '刷新
If Adodc1.Recordset.BOF Then '若记录集为空
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
MsgBox "对不起，该集团无员工信息。", vbInformation
Exit Sub
End If
Set DataGrid1.DataSource = Adodc1 '重新绑定数据网格控件
DataGrid1.AllowUpdate = False '禁止修改网格控件的内容
If Adodc1.Recordset.BOF Then
Exit Sub
End If
With DataGrid1
.Columns(0).Locked = True
.Columns(1).Locked = True
.Columns(2).Locked = True
.Columns(3).Locked = True
End With
Text1.Text = Adodc1.Recordset("集团编码")
T