企业人事管理系统【人事管理系统软件工程课程设计】

企业人事管理系统【人事管理系统软件工程课程设计】

软件工程课程设计―――人事管理系统指导老师：

班级：

姓名:

学号：

前言随着当今社会计算机的不断的发展，人们开发优质软件的能力大大落后于计算机硬件日新月异的进展和社会对计算机软件的不断增长的需求，这种状况已经严重的妨碍了计算机技术的进步，软件工程学就此产生，现在它已经成为计算机科学技术的一个重要分支，一个异常活跃的研究领域，严格遵循软件工程方法论可以大大增高软件开发的成功率，能够显著减少软件开发和维护中的问题。

软件工程学研究的范围非常广泛，包括技术方法，工具和管理等许多方面，软件工程又是一门迅速发展的新兴学科新的技术方法和工具不断涌现。，系统分析 1.1 系统开发的背景随着计算机的普及，人们对计算机的人实际需求有了明显的增加。计算机对

于大量信息的管理的优势更是显而易见。有了这个员工管理系统，管理员的工作任务就事半功倍了。

1.2 系统开发的目的本需求的编写目的在于研究管理系统软件的开发途径和应用方法，为以后的开发工作提供可靠的依据。该员工管理系统是一套操作简便实用的员工管理软件，包括“员工工资查询” ，“员工调度查询” ，“员工基本信息”三大功能，实现了日常员工的全面自动管理，提高工作质量等方面，成为员工管理人员不可获缺的工具。 1. 3任务概述该员工管理系统目前已有比较完善的管理与使用功能。员工管理系统软件是为满足管理员方便对员工的具体信息工资的管理。

1.3.1开发意图为了员工管理的更完善；

为了员工管理更方便；

减轻员工管理工作人员的工作负担；

为了加强员工各方面的正规化管理。

1.3.2应用目标通过本系统软件，能帮员工管理人员利用计算机，快速方便的对员工进行管理，例如员工基本信息，福利，工资

查询所需操作。

1.3.3作用及范围本软件使用与各个工厂的员工管理，是一个

很方便的员工管理软件以对员工的工资随时进行删除，添加，查询

和处理。大大节省了员工管理人员的人力和财力。

人事管理系统需求分析数据库在一个信息管理系统中占有非常

重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及

实现的效果产生影响。合理的数据库结构设计可以提高数据存存储

的效率，保证数据的完整和一致。同时，合理的数据库结构也将有

利于程序的实现。

人事管理系统是一套功能强大而又操作简单实用的人事管理

软件，包括人事管理、考勤管理、工资管理和系统维护管理功能，

实现了某单位日常营运的全面自动管理，是各种事业性单位进行电

脑信息管理的理想选择。根据计算机数据处理严密可靠的特有机制，在改善单位人、财、物管理，降低管理人员和事务人员工作强度，

提高工作质量等方面，该工资管理软件将成为不可或缺的助手和工具。

用户特点：

该系统的工作人员主要为项目管理人员、各操作人员等。

背景：

软件系统名称：

某单位人事/工资管理系统；

项目任务提出者：

太原科技大学；

项目开发者：

计算机0257；

系统用户：

某单位管理人员。

系统配置：

（1）软件配置：

操作系统：Windows 98中文版或Windows2000中文版或更高；数据库选择：SQL Server 2000；

开发平台：Visual Basic 6.0。

（2）硬件配置：

CPU：Pentiun Ⅱ 266或者更高；

内存：64M或以上；

硬盘：2G以上；

显示器：VGA或更高；

系统总体功能需求该人事管理系统包括人事管理、考勤管理、工资管理和系统维护管理五部分（如图1）。

人事管理系统人事管理考勤管理工资管理系统维护

图1 系统总体功能需求框图人事管理系统人事管理考勤管理

工资管理系统维护员工信息人员调动福利信息正常出勤异常出勤加班处理工资查询系统登录操作员授权

图2 系统详细功能需求框图＜1＞人事管理系统此管理系统包括员工信息、人员调动和福利信息三个功能模块。员工信息功能模块

主要是对该单位的员工的基本信息进行管理，并能够对员工的基本

信息进行查询便于修改和删除。人员调动模块主要是实现本单位人

事调动的管理，该模块设置了员工的基本信息表，操作人员能够从

该表中直接获得员工的基本信息，再进行人员调动操作，同时也保

存了人员调动的历史信息。福利信息主要是对本单位的员工的福利

信息进行管理。

＜2＞考勤管理系统此管理系统包括正常出勤、异常出勤和加

班处理三个功能模块。正常出勤是对员工的迟到和早退进行管理，

同时能够查询人员信息，并对查询的人员信息进行添加。异常出勤

是对员工的病假和事假进行管理。加班处理包括加班管理、人员信

息和加班费率设置三部分组成。该模块主要对员工的加班进行管理，对员工的加班费用进行统计，为后续的功能模块提供数据。

＜3＞工资管理系统此管理系统是对员工的工资进行管理。主

要功能是对员工的基本工资、福利信息、迟到扣款、请假扣款和加

班费用进行查询。

＜4＞系统维护此管理系统包括系统登录、操作人员授权

两个功能模块。

人事管理系统（1）员工信息员工信息功能模块包括新增员工、删除员工、修改员工和查询员工基本信息。该功能模块主要是对系统的初始化，对员工的基本信息进行管理和维护。对员工基本信息的查询，操作人员可以按员工编号、姓名进行查询，对查询结果进行维护。

“员工信息”包括（员工编号、员工姓名、姓别、所在部门、身份证号、地址、邮编、电话）；

“员工信息”的ER图如图：

员工信息姓名编号性别所在部门身份证号电话邮编地址（2）人员调动功能人员调动功能模块包括员工基本信息查询、人员调动两部分组成。员工基本信息查询是为了方便进行人员调动，操作人员在进行人员调动时可以单击查询到人员信息直接进行部门的调动。历史调动信息用于保存每一次人员调动的操作以便以后查询人员调动信息。

“人员调动”包括（员工编号、员工姓名、原属部门、现属部门）；

“人员调动”的ER图如图：

人员调动员工编号原属部门现属部门员工姓名（3）福利信息

功能该功能模块主要是对本单位的员工的福利信息进行维护，增加、删除、员工的福利情况。

“福利信息”包括（员工编号、员工姓名、福利信息）；

“福利信息”的ER图如图：

福利信息员工编号员工姓名福利信息“人事管理系统”的总ER

图如图：

福利调动支；

动查询询查询询正常出勤查询询查询询异常出勤加班处

理工资查询福利信息员工信息操作员信息人员调动维护护操

作员年龄操作员姓名操作员编码员工姓名员工编号员工姓名

员工编号原部门身份证号现部门地址员工编号员工姓名员工

年龄身份证号员工姓名员工姓名员工编号员工编号福利类型

员工编号员工姓名基本工资请假类型迟到时间请假扣款请假

时间迟到扣款加班时间迟到与否加班费用员工姓名员工编号

业务流程图如图：

“人事管理系统”的顶层数据流图如图：

经细化后的“人事管理系统”数据流图如图：

数据字典：

主要数据流定义：

数据流名称：登陆验证位置：操作员“登陆处理定义：登陆验证＝操作员姓名＋密码说明：操作员对系统进行

维护，必先登陆界面，必须有合法的操作员姓名及密码。

数据流名称：验证结果位置：登陆处理“操作员

定义：验证结果＝［登陆成功｜用户未注册｜密码错误］说明：告知操作员登陆结果，如成功登陆，即可直接操作系统。

数据流名称：登记信息位置：登记处理“人事管理基本

信息定义：登记信息＝人事管理基本信息说明：登

记新到员工的基本信息、人员调动信息、福利信息、正常出勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授权信息等

数据流名称：登记结果位置：人事管理基本信息“登陆处理

定义：登陆结果＝［成功｜失败］说明：告知系统操作员登

记成功与否。

数据流名称：员工注册位置：员工“登陆处理

定义：员工注册＝员工基本信息＋密码说明：员工登陆页面

必须先注册，以得到合法的用户名和密码。

数据流名称：注册结果位置：登陆处理“员工

定义：注册结果＝［注册成功｜注册失败］说明：告知员工注册成功与否。

数据流名称：员工登陆位置：员工“登陆处理

定义：登陆验证＝员工姓名＋密码说明：员工对员工的信息进行查询，必先登陆界面，必须有合法的员工姓名及密码。

数据流名称：登记结果位置：登记处理“员工处理

定义：登陆结果＝［成功｜失败］说明：告知员登记成功与否。

数据流名称：查询要求位置：员工处理“人事管理基本信息定义：查询要求＝员工姓名说明：用户要查询的员工姓名数据流名称：查询结果位置：人事管理基本信息“员工处理定义：查询结果＝［人事管理基本信息｜失败］说明：员工要查询的人事管理基本信息和失败提示。

数据流名称：系统维护位置：登记处理“人事管理基本信息定义：登记新到员工的基本信息、人员调动信息、福利信息、正常出勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授权信息等说明：登记新到员工的基本信息、人

员调动信息、福利信息、正常出勤信息、请假处理信息、加班处理

信息、基本工资信息、操作员授权信息等数据流名称：维护结果

位置：人事管理基本信息“登记处理定义：把登记的员工的

基本信息、人员调动信息、福利信息、正常出勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授权信息等反馈给操作员。

说明：把登记的员工的基本信息、人员调动信息、福利

信息、正常出勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授权信息等反馈给操作员。

数据存储定义：

数据存储名称：操作员授权输出：P1 数据结构：操作员

姓名＋密码说明：系统操作员姓名和密码是系统操作员登

陆系统的钥匙。

数据存储名称：人事管理基本信息输入：P1 输出:

P3 数据结构：员工的基本信息、人员调动信息、福利信息、正常出

勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授

权信息等说明：员工的基本信息、人员调动信息、福利信息、正常出勤信息、请假处理信息、加班处理信息、基本工资信息、操作员授权信息等数据存储名称：员工信息输出：P2

数据结构：员工姓名＋密码说明：员工姓名和密码是员工登陆系统的钥匙。

数据项：

员工信息数据项如表：

数据项名数据代码类型长度是否为空员工编号员工编号整型100 否员工姓名员工姓名字符型100 否性别性别字符型100 否所在部门

所在部门字符型100 否身份证号身份证号长整型100 否地址地址字符型100

是邮编邮编长整型100 是电话

电话长整型100 是人员调动数据项如表：

数据项名数据代码类型长度是否为空员工编号员工编号整型 100 否员工姓名员工姓名字符型 100 否原属部门原属部门字符型 100 否现属部门现属部门字符型100 否福利信息数据项如表：

数据项名数据代码类型长度是否为空员工编号员工编号整型100 否员工姓名员工姓名字符型 100 否福利信息福利信息字符型 100 否基本工资数据项如表：

数据项名数据代码类型长度是否为空员工编号员工编号整型

100 否员工姓名员工姓名字符型 100 否基本工资基本工资字符型 100 否操作员数据项如表：

数据项名数据代码类型长度是否为空操作员编号操作员编号整型 100 否操作员姓名操作员姓名字符型 100 否性别性别字符型 100 否年龄年龄整型 100 否身份证号身份证号长整型 100 否地址地址字符型 100 是邮编邮编长整型 100 是电话电话长整型 100 是系统界面：

主界面如图：

用户登陆界面如图：

用户注册界面如图：

注册成功界面如图：

用户选择界面如图：

员工信息查询界面如图：

人员调动查询界面如图：

福利信息查询界面如图：

基本工资查询界面如图：

操作员登陆界面如图：

操作员选择界面如图：

员工信息维护界面如图：

人员调动维护界面如图：

福利信息维护界面如图：

基本工资维护界面如图：

操作员授权界面如图：

原代码：

主界面代码：

Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Me.Hide 用户选择界面.Show End Sub Private Sub Command3_Click() Me.Hide frmLogin.Show End Sub Private Sub 操作员_Click(Index As Integer) Me.Hide frmLogin.Show End Sub Private Sub 用户_Click(Index As Integer) Me.Hide 用户选择界面.Show End Sub 用户选择界面代码：

Private Sub Command1_Click() Me.Hide 员工信息.Show End Sub Private Sub Command2_Click() Me.Hide 人员调动.Show End Sub Private Sub Command3_Click() Me.Hide 人员福利.Show End Sub Private Sub Command4_Click() Me.Hide 正常出勤.Show End Sub Private Sub Command5_Click() Me.Hide 请假处理.Show End Sub Private Sub Command6_Click() Me.Hide 加班处理.Show End Sub Private Sub Command7_Click() Me.Hide 基本工资.Show End Sub

Private Sub Command8_Click() Me.Hide 主界面.Show End Sub Private Sub 福利信息_Click(Index As Integer) Me.Hide 人员福利.Show End Sub Private Sub 基本工资_Click(Index As Integer) Me.Hide 基本工资.Show End Sub Private Sub 加班处理

_Click(Index As Integer) Me.Hide 加班处理.Show End Sub Private Sub 请假处理_Click(Index As Integer) Me.Hide 请假处理.Show End Sub Private Sub 人员调动_Click(Index As Integer) Me.Hide 人员调动.Show End Sub Private Sub 员工基本信息

_Click(Index As Integer) Me.Hide 员工信息.Show End Sub Private Sub 正常出勤_Click(Index As Integer) Me.Hide 正常出勤.Show End Sub 员工信息查询界面代码：

Private Sub Command1_Click() Me.Hide 用户选择界面.Show End Sub Private Sub Command2_Click() Dim n n = Text1.Text

Adodc1.RecordSource = “select * from 员工信息 where 员工姓

名=＇“ & n & “＇“ Adodc1.Refresh MSHFlexGrid1.Refresh

End Sub 人员调动查询界面代码：

Private Sub Command1_Click() Dim n n = Text1.Text

Adodc1.RecordSource = “select * from 人员调动 where 员工姓

名=＇“ & n & “＇“ Adodc1.Refresh MSHFlexGrid1.Refresh

End Sub Private Sub Command2_Click() Me.Hide 用户选择界面.Show End Sub 福利信息查询界面代码：

Private Sub Command1_Click() Dim n n = Text1.Text

Adodc1.RecordSource = “select * from 福利信息 where 员工姓名=＇“ & n & “＇“ Adodc1.Refresh MSHFlexGrid1.Refresh End Sub Private Sub Command2_Click() Me.Hide 用户选择界面.Show End Sub 基本工资查询界面代码：

Private Sub Command1_Click() Dim n n = Text1.Text

Adodc1.RecordSource = “select * from 基本工资 where 员工姓名=＇“ & n & “＇“ Adodc1.Refresh MSHFlexGrid1.Refresh End Sub Private Sub Command2_Click() Me.Hide 用户选择界面.Show End Sub 员工信息维护界面代码：

Private Sub Command1_Click() 员工信息.Show End Sub Private Sub Form_Load() Set grdDataGrid.DataSource = datPrimaryRS.Recordset(“ChildCMD“).UnderlyingValue End Sub Private Sub Form_Resize() On Error Resume Next ＇当窗体调整时会调整网格 grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height End Sub

Private Sub Form_Unload(Cancel As Integer)

Screen.MousePointer = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) ＇错误处理程序代码置于此处＇想要忽略错误，注释掉下一行＇想要捕获它们，在此添加代码以处理它们MsgBox “Data error event hit err:“ & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) ＇为这个 recordset 显示当前记录位置datPrimaryRS.Caption = “Record: “ &

CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As

ADODB.Recordset) ＇验证代码置于此处＇下列动作发生时该事件被调用 Dim bCancel As Boolean Select Case adReason Case

adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF

Then .MoveLast End With Exit Sub DeleteErr: MsgBox

Err.Description End Sub Private Sub cmdRefresh_Click() ＇只

有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Set grdDataGrid.DataSource = datPrimaryRS.Recordset(“ChildCMD“).UnderlyingValue Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr

datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload Me 操作员选择界面.Show End Sub 人员

调动维护界面代码：

Private Sub Command1_Click() 人员调动.Show End Sub Private Sub Form_Load() Set grdDataGrid.DataSource = datPrimaryRS.Recordset(“ChildCMD“).UnderlyingValue End Sub Private Sub Form_Resize() On Error Resume Next ＇当窗体调整时会调整网格 grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer)

Screen.MousePointer = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) ＇错误处理程序代码置于此处＇想要忽略错误，注释掉下一行＇想要捕获它们，在此添加代码以处理它们MsgBox “Data error event hit err:“ & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As

ADODB.Recordset) ＇为这个 recordset 显示当前记录位置datPrimaryRS.Caption = “Record: “ &

CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub

Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As

ADODB.Recordset) ＇验证代码置于此处＇下列动作发生时该事件

被调用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF

Then .MoveLast End With Exit Sub DeleteErr: MsgBox

Err.Description End Sub Private Sub cmdRefresh_Click() ＇只