人事信息管理系统设计-VB编程毕业设计

人事信息管理系统

1 绪论

1.1应用背景

在现代化企业中，信息管理工作将发挥越来越重要的作用。企业信息管理工作已经渗透到企业日常工作的许多方面，无论是其自身还是所发挥的作用，都为企业的创新、发展以及经济效益，做出了显著的贡献。

因此，企业必须加强自身的信息基础设施建设，通过企业基础数据的信息化、企业基本业务流程和事务处理的信息化、企业内部控制及实施控制过程的信息化、人的行为规范管理等企业基础管理信息化工程，确保企业在规模不断扩大和业务迅速发展的过程中保持坚实的管理基础和繁殖内核，促进企业的可持续发展。

我国中小企业信息化水平一直还处在比较初级的阶段，有关统计表明，真正实现了计算机较高应用的企业在全国1000多万中小企业中所占的比例还不足10%。然而，随着我国市场条件下企业竞争压力的不断加剧、企业组织管理观念的变革以及业务流程标准化的不断完善，中小企业信息化建设的热情近几年来有了显著的提高。与此同时随着现代科学技术的发展，人事管理越来越受到广大企业的重视。从而人事信息资源管理系统这一新生事物逐步地走进我们的企业，与企业的发展息息相关。

人事信息资源管理系统是企业员工管理的一个重要内容。当今社会人员流动越来越频繁，人事管理工作也变得越来越复杂。如果能够实现人事管理的自动化，无疑将给企业管理部门带来很大的方便。

人事信息管理就是把分散在企业单位的职工信息实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询等现代化、专业化的管理系统。

企业人事管理的对象是企业、企业化管理的事业单位及职工本人。

人事信息管理为企业单位和个人提供信息输入、信息修改、信息查询、工资调整、依据信息出具个人的基本档案等服务；为企业单位和个人提供信息的收集、整理、保管服务。

本系统基本上能够满足现代企业员工信息管理的需求。信息录入项目齐全、完整、系统。现代化的信息管理系统中灵活使用了表格对信息分类，组成企业信

息管理系统，可以方便地查询、阅读、修改、交流和重复使用。

2 系统概况

2.1 编写目的

本软件需求说明书是基于使用户和软件开发者双方对该软件的初始规定有一个共同理解的目的，是整个系统开发工作的基础，主要是让管理人员能够利用微机进行人事管理，要求能对人事资料实现录入，并且能够安全可靠的运行，高速准确的提供人事资料的检索、统计信息，提供形式要求灵活实用。

2.2 定义

人事管理系统是一套功能强大而又操作简便实用的人事管理软件，包括员工基本信息管理、系统设置和系统管理三大功能，实现了单位日常营运的全面自动管理，是各种事业单位进行电脑信息化管理的理想选择。根据计算机数据处理严密可靠的特有机制，在改善单位人、财、物管理，降低管理人员和事务人员工作强度，提高工作质量等方面，该人事管理系统软件将成为不可或缺的助手和工具。

2.3 任务概述

本人事管理软件主要是针对企业的具体业务流程开发设计的，系统提供较好的功能扩充借口。开发人事管理软件是为了满足企业对员工的基本资料、工资发放、考勤信息、评价工作管理的方便，以现代化的创新思维模式去工作。本管理软件不仅仅是一个软件，它是一个将企业的管理思想、各部门的业务经验以及当今最新计算机技术的完美统一起来的体现，实现人、财、物、信息各种资源的处理，实现人事管理系统可以完成人事管理中各个环节的数据处理，并使之规范化、严密化和智能化。

1、目前一些企业信息化程序不够完善，单位的人、财、物和信息管理使用不同的管理软件，有些部门还有手工操作，为了能够适应信息化发展的需要，提高单位各部门的工作效率，引入了该统一的管理信息系统。

（1）、开发意图

提高企业的人、财、物和信息的管理效率，适应信息化需要，提高部门的工

作效率。

（2）、应用目标

通过本管理系统软件，能帮助工作人员利用计算机，快速方便的对单位的人事管理数据进行管理、输入、输出、查找的所需操作，使杂乱的业务数据能够具体化、直观化、合理化等。

2、用户特点

本系统的最终用户是企业的管理与工作人员，要求具有一般的计算机基本操作基础。对本单位的各自相关工作流程比较清楚。

3 需求分析

接下来就针对工资管理系统的总体需求做一个分析，可能有些生产企业在某些管理方面有其特殊的需求。

3.1系统结构

开发本系统的总体任务是实现企业员工人事管理的系统化和自动化。本系统的主要功能如下：

●有关企业员工各种信息的输入，包括员工基本信息、所在部门、

工作经验和工作简历等。

●员工各种信息的查询。

●员工各种信息的修改。

●考勤信息的修改。

●考勤信息的输入。

●考勤信息的查询

●员工工作评价信息的输入。

●员工工作评价信息的修改。

●员工工作评价信息的查询。

●员工工资信息的统计。

●员工工资信息的查询。

●员工工资信息的修改等。

3.2功能模块设计

根据上面所介绍的主要功能，对系统进行分析得到如下图所示的系统功能模块

图3-1系统功能模块

针对一般人事信息管理系统的需求，通过对员工工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：

员工基本信息：包括的数据项由员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、政治面貌、家庭住址、电话号码、婚姻状况、原身份、原职务、原工作单位、备注等。

员工考勤信息：包括的数据项有员工所在部门、员工姓名、员工职务、全勤天数、起始时间、起始日期、请假类型、应出勤天数时间、迟到早退次数、休息

日加班时间、旷工次数等。

员工工作评价信息：包括的数据项由员工姓名、员工所在部门、工作业绩、工作态度、业务水平、业绩说明、态度说明、水平说明、备注等。

员工工资信息：包括的数据项由原工作所在部门、员工姓名、底薪、补贴、奖金、加班、住房补贴、房租、养老金、医疗保险、实发工资等。

4 概要设计

4.1 概念设计

概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。

概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。

概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。在下一章里会有实体间E-R图的描述。

4.2 数据字典

人事信息管理系统数据库中员工基本信息表格（数据字典）的设计结果如下所示：

表4-1 员工基本信息表（manrecord）

其它表格的设计与员工基本信息表格的设计基本一致，但是一定要注意其数据类型的设置。

5 详细设计

5.1 数据库

5.1.1需求分析

用户的需求具体体现在各种信息的提供、保存、更新、和查询，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一根相近的数据字典，

仔细分析调查有关企业人事信息需求的基础上，得到本系统所处理的数据流流程:

图5-1 人事信息系统数据流程图

5.1.2 概念结构设计

根据数据项和数据结构，可以设计出能够满足用户需求的各种实体，以及它

们之间的关系。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。

该系统包括的实体有：员工基本信息实体、员工工考勤信息实体、员工工资评价信息实体、员工工资信息实体。以员工基本信息实体为例，它的E-R图描述如下：

图5-2 员工基本信息E-R图

其它实体的E-R 图与员工基本信息的E-R 图类似，得到各个实体的E-R 图后，实体与实体之间的关系更加清晰，所以可以得出实体与实体之间总的E-R 图，如下：

图5-3 实体与实体之间的关系E-R图

本系统采用Access2000作为后台数据库。根据上面分析的系统的各种功能要求，可以很容易想到系统所需要的数据库应该按照如下思路设计：考勤信息、部门管理等被视为一个完整的表，表中的各个字段即为这一部分的各个信息点。这样整个数据库设计后的结果如下图所示：

图5-4 Access数据库

5.2 界面及代码

运行本系统程序，首先出现登录界面，输入正确的用户名和密码后进入主窗体。主窗体的菜单栏中有系统、员工信息、考勤管理、工作评价、工资管理5个菜单。进入窗体后可以选择自己所要进行的操作，界面如下：

图5-5主界面

这个主窗体的创建使用多文档界面，单击工具栏中的ADD MDI Form 按钮，产生这个窗体。然后再在菜单编辑器内编辑自己所需要的菜单。

下面是程序中几个主要窗体及其部分代码：

添加员工信息窗体如下所示：

图5-6员工信息

在窗体上放置多个文本框和下拉式列表框，用来输入员工个人基本信息。从窗体上可以看到在这一个窗体内可以对信息进行添加、编辑、删除、移动，一个窗体解决了四种不同的操作，当选择修改和删除员工信息操作时出现的也是这个界面。其中“移动”的作用是按照编号的顺序，可以在此窗体中逐个查看员工信息。

在这个界面上还可以添加工作经验，查看信息列表，这是通过一个控件SSTAB （属性页控件）实现的，将各种文本录入控件放在属性页控件的各个页面上，组成“基本信息”、“工作经验”、“信息列表”。

用户输入完毕后，单击“cmdSave ”按钮将触发Click 事件，代码如下：Private Sub CmdSave_Click()

Dim StrSQL As String

StrSQL = "select 员工编号from 员工档案where 员工编号='" & Trim(TxtCode.Text) & "'"

If Trim(TxtForID.Text) <> Empty Then

Call UpRsV alue '//调用更新记录集的过程

On Error GoTo ErrSave

' If RsCheckCode.State = adStateClosed Then

' RsCheckCode.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText

' End If

' If RsCheckCode.RecordCount > 0 Then

' MsgBox "员工编号已存在", vbInformation + vbOKOnly, "验证错误"

' RsCheckCode.Close

' SSTRecord.Tab = 0

' TxtCode.Text = ""

' TxtCode.SetFocus

' Else

RsRecord.Update '//更新记录

Call CmdMove_Click

MsgBox "数据已保存", , "保存成功"

SSTRecord.Tab = 0

Call CmdState2

Call TxtState1

' End If

Else

MsgBox "原身份不能为空", , "验证失败"

SSTRecord.Tab = 1

End If

Exit Sub

ErrSave:

Select Case Err.Number

Case -2147217887

MsgBox "员工编号已存在," & vbCrLf & "或性别、婚姻状况、部门、职称有空选项！", vbInformation + vbOKOnly, "输入错误"

RsRecord.CancelUpdate

Case Else

MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"

Unload Me

End Select

End Sub

程序首先对是否输入内容进行判断，然后进行格式判断，判断是否有重复记录是很重要的，否则数据库将发生错误，最后根据状态来显示相应的信息，如果添加成功，将提示添加成功。

信息的查询通过查询窗体来实现，考勤信息的查询窗体：

图5-7 查询

通过查询窗体可以查询自己所需要的考勤信息，查找到后将在考勤列表中显示查询到的一条内容，查询窗体可以通过一条信息查询也可以通过多条查询，例如可以单独通过编号查询也可以通过编号和姓名两项查询。信息查询、工作评价的查询和工资查询与考勤信息的查询类似，也具有三种不同的方法查询。

所有的列表不但可以显示全部信息，也可以显示单独的一条信息，如果执行的是查询功能那列表中就显示一条查询到的信息了。

员工的工资情况有如下窗体显示：

图5-8 员工工资

员工的工资信息不可以添加，只能够对现有的员工的工资情况进行修改和删除。并且带*的必须要输入内容，代码是：

Private Sub cmdOK_Click()

If RsAddPay.State = adStateClosed Then

RsAddPay.Open "员工工资", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable

End If

On Error GoTo ERRAdd '//错误捕捉

RsAddPay.AddNew

Call AddPay

RsAddPay.Update

CmbCode.Text = Empty

TxtName.Text = Empty

TxtBrach.Text = Empty

TxtPay.Text = Empty

TxtTimeOver.Text = Empty

TxtAllowance.Text = Empty

TxtRent.Text = Empty

TxtBonus.Text = Empty

TxtOther.Text = Empty

TxtAnnuities.Text = Empty

TxtSafety.Text = Empty

TxtVPay.Text = Empty

DTPicker1.Value = Date

MsgBox "数据已被保存", , "保存成功"

Exit Sub

ERRAdd:

Select Case Err.Number

Case -2147217887

MsgBox "编号不能为空", vbInformation + vbOKOnly, "输入错误"

RsRecord.CancelUpdate

Case -2147352571

MsgBox "没选择编号或带 * 内容没填,若没有请输入 0 ", vbInformation + vbOKOnly, "输入错误"

RsAddPay.CancelUpdate

Case Else

MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"

End Select

End Sub

输入内容时系统将会自动计算出当前的工资总额。

计算工资的程序代码是：

Private Sub Change()

TxtVPay.Text = Val(TxtPay.Text) + Val(TxtTimeOver.Text) + Val(TxtAllowance.Text) + Val(TxtRent.Text) + Val(TxtBonus.Text) + Val(TxtOther.Text) - Val(TxtAnnuities.Text) - Val(TxtSafety.Text) End Sub

以上是该程序的部分窗体和代码，

5.3系统的实现

程序对数据库的访问需要通过ODBC（数据源）来实现。打开“控制面板”中的“ODBC”，创建文件DSN。本程序需要创建的文件名称为Personnel.dsn ,登陆方式选择使用输入登陆ID和密码的SQL server 验证，登陆ID为Sa ，密码为空，默认连接数据库Personnel。

由于程序利用ADO（ActiveX Data Objevt）完成对数据的访问和操作，需要添加ADO库。选择Visual Basic 的“projevt”菜单中的“References”选择“microsoftactiveX data object 2.6 liibrary”。AOO库添加成功。

完成了程序各个功能模块的创建，现在来看整个系统的运行。运行程序出现登录界面：

图5-9登录

输入用户名和密码后，进入系统。但是如果三次输入用户名或密码错误的话，

系统则提醒你“你已经三次输入错误，否则将视为非法用户”。进入系统后可以看到主窗体，可以选择将要进行的操作。如果以管理员的身份进入可以进行任何操作，例如信息的添加、修改、删除、查询及用户的添加、删除和密码的修改等，但是如果以一般用户的身份进入则只能进行查询工作和更改密码。

5.4系统管理菜单

“系统”菜单包含五个子菜单，分别是“添加用户”、“更改密码”、“重新登录”、“关闭窗口”、“退出系统”。单击“添加用户”子菜单，打开“添加用户”窗体，如下图：

图5-10 添加用户

需要注意的是添加用户这一项只有管理员才有权利操作，一般用户这一项是不允许操作的。管理员可以添加多个一般用户。

更改密码需要用户输入用户名称、原密码、新密码。在更改密码这个窗体中还有一个删除用户，它也是由SSTAB控件实现的，利用这一项可以删除一个或多个用户。

系统菜单中“关闭窗口”这一项是指关闭当前的活动窗口，例如图5-10中的

添加用户这个窗体就是一个活动窗体。

5.5 系统的编译

完成了人事信息管理系统的编程和调试工作，最后一步就是该系统的编译。

在编译前先设置工程项目的属性。选择“Project/人事管理系统Properties”菜单，进行属性设置。最后选择“File/Make 人事管理系统.exe”菜单，编译开始。编译完毕后，即生成了相应的可执行文件。

6 毕业设计小结

本系统通过自己的努力，经过试用证明，系统基本满足人事管理方面的需要。实现了员工基本信息管理、员工考勤管理、员工工资管理、系统管理、系统维护等功能，给公司人事管理带来很多方便，在界面上立求做到美观、在操作方面尽量做到满足用户使用习惯。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，经过实际使用证明，本文所设计的人事管理系统可以满足公司人事管理方面的需要。

致谢

承蒙高雅荣老师的耐心指导，我的设计大体完成。在此深为感谢我的指导老师。在我的毕业设计从开题到完成的时间里，高老师认真负责的工作态度、严谨的治学风格，使我深受启发；她尽管教学任务繁重，但仍以极大的耐心对我的毕业设计从各个方面给予与点拨和启示，谨此向指导我的高老师致以深深的谢意！

参考文献

[1] 《Visual Basic 6 数据库编程技术》董传银编著北京希望电子出版社2002.12

[2] 《Visual Basic 6.0程序设计教程》刘端新汪远征编著机械工业出版社2000.1

[3] 《Visual Basic 6.0企业办公系统开发实例导航》刘萌周学明编著2003.8

[4] 《Access 2000中文版开发指南》（美)Alison Balte著人民邮电出版社 2000.5

[5] 《软件开发技术与实践》陈震秋等著河南科学技术出版社

[6] 《Access the internet》 David Peal编 Sybex 1995.

[7] 《Access 2000 中文版自学教程》周予滨等编著齐侪创作室审校1999.5

[8] 《Principles of Database Design：Logical Organization》 Yao S B（ed）Vol.1 , Prentice-Hall 2003.8

[9]《Access 2000编程指南》电子教程

[10] 《新概念Access 2000》电子教程

[11] 《新编VISUAL BASIC 程序设计学习指导》陈丽芳编著机械工业出版社2005.1

[12]《数据库应用技术：Visual Basic及其应用系统开发》欧阳峥峥编著清华大学出版社2005.1

[13] 《新概念Visual Basic 6.0教程》王成强马轲编著科学出版社2003.12

[14] 《Access 2000应用高手》万维计算机图书编写组著机械工业出版社2000.1

[15] 《数据库系统及应用（第二版）》崔巍编著高等教育出版社2003.7.1