人事管理系统说明书

　摘要 因为多种原因，现在我们大齿集团企业人事档案管理水平还停留在计算机加纸介质办公尴尬境界，这么机制已经不能适应时代飞速发展，因为这种管理水平不能充足发挥优异高性能计算机作用，同时又浪费了很多人力和办公用具，在信息时代若想替换这种不合理管理方法就必需由我们熟悉企业内部特点新一代青年人为企业分忧解难，开发出符合企业管理特点软件，利用毕业设计实践活动开发出一个符合企业管理特点实用程序，既检验我们所学知识，完成毕业设计，又能帮助企业进行更有效人事管理。

　系统设计指导思想是，针对大齿集团企业实际境况开发，实用性强。企业内部实现信息化、可视化管理，充足考虑到企业集成化管剪发展需要。努力争取使这个系统含有良好人机交流界面，符合企业人事管理实际需要，可操作性强，运行速度快，数据安全可靠。

　·具体系统功效需求描述 (1) 档案信息管理

　 提供对”人员档案信息”数据输入、查询功效。

　(2) 工资管理

　 提供对”职职员资表”数据输入、查询、统计功效，并能快速为企业财务部门快速提供工资变更信息。

　(3) 工资统计

　 提供对“职职员资表”数据月统计，由系统自行生成“职职员资组成情况表”实现该表查询、打印功效。

　(4) 部门查询

　 提供以某一部门为索引”人员档案信息”查询功效。

　(5) 特殊查询

　 提供对日期型字段和协议期限”人员档案信息”查询功效。

　(6) 报表查询

　提供对工资、职员履历信息以报表形式供用户查询、打印，另外用户还能够对这些基础信息进行保留目录选择，使信息愈加安全，依据一定权限使作废能方便地更新信息和删除无用数据。

　因为毕业设计时间较短，我们对 VB 程序认识还不够深刻这次结果还有很多不足需要我们在以后去提升。

　关键词：管理系统，信息检索，人力资源，主键，窗口。

　前 前

　言 伴随科学技术不停提升，计算机科学日渐成熟，其强大功效已为大家深刻认识，它已进入人类社会各个领域并发挥着越来越关键作用。

　尤其是信息系统伴随计算机技术和网络技术等信息技术发展而不停发展，管理信息系统 MIS，决议支持系统 DSS，总裁信息系统 EIS，办公自动化系统 OA，国际电子商贸系统 EDI 等等层出不穷，在国际交往，企业管理中发挥着越来越关键作用，比如大家熟知办公自动化系统 OA，极大地提升了我们办公效率，但仍然和我们传统中华文化有着不小差异，其它国际企业界较为流行决议支持系统 DSS，总裁信息系统 EIS 等，因为

　大多由国外软件商开发而成和中国国情相比有很大差异，不能发挥全部作用，甚至被多数企业束之高阁。因为中国社会制度特殊性，人事管理系统就愈加没有现成可直接使用管理系统。

　作为计算机应用一部分，使用计算机对人事劳资信息进行管理，含有着用手工管理所无法比拟优点。比如:检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升人事劳资管理效率，也是企业科学化、正规化管理，和世界接轨关键条件。

　人事管理系统是一个企业单位不可缺乏部分，它内容对于企业决议者和管理者来说全部至关关键，所以人事劳资管理系统应该能够为用户提供充足信息和快捷查询手段。但一直以来大家使用传统人工方法管理文件档案，这种管理方法存在着很多缺点，如：效率低、保密性差，另外时间一长，将产生大量文件和数据，这对于查找、更新和维护全部带来了不少困难。

　所以，开发这么一套管理软件成为很有必需事情，在下面各章中我们将以开发这套符合企业管理需要人事管理系统为题目，谈谈这次毕业设计选题思绪和设计实践过程和所包含到问题及处理方法。

　第一章

　 绪

　 论 1.1 信息化发展 伴随人类迈入二十一世纪， 计算机技术、通信技术、网络技术为代表现代信息技术飞跃发展，人类正在从工业时代向信息时代前进，大家越来越重视信息资源开发和利用，”信息化”已成为一个国家经济和社会发展关键步骤，信息化水平高低已成为衡量一个国家现代化水平和综合国力关键标志，信息化实质是使信息 ━━ 这一社会主导资源充足发挥作用，能够说推广信息技术是手段，真正利用信息是目标，信息化则是实现目标过程。1993 年，美国提出建立“信息高速公路”，有称国家信息基础设施（NII）计划，其关键是建立全国高速网络，把全部计算机网络连接起来。这个计划实现将对经济和社会生活产生重大影响，由此引发信息化建设浪潮已波及世界各国。

　中国自 1983 年大力推广微型计算机应用以来，在管理信息领域，不管在理论方面，还是在实践方面全部有了很大发展。1986 年 2 月国务院同意建设了国家经济信息系统，全国从中央到省、市地方全部陆续成立了信息中心，各行各业应用电子计算机热情普遍高涨。现在，已从单项业务信息管理快速向综合管理层和决议层信息管剪发展，应用水平日趋提升；以金桥工程、金关工程和金卡工程为代表国民经济信息工程也正在加速建设。

　1.2 系统开发背景 因为序言中所叙述原因，现在我们大齿集团企业人事档案管理水平还停留在计算机加纸介质办公尴尬境界，这么机制已经不能适应时代飞速发展，因为这种管理水平不能充足发挥优异高性能计算机作用，同时又浪费了很多人力和办公用具，在信息时代若想替换这种不合理管理方法就必需由我们熟悉企业内部特点新一代青年人为企业分忧解难，开发出符合企业管理特点软件。

　我们作为学习计算机信息管理大学生，期望能够在这方面有所贡献。我们期望能用两年来所学知识，利用毕业设计实践活动开发出一个符合企业管理特点实用程序，既检验我们所学知识，完成毕业设计，又能帮助企业进行更有效人事管理。

　归纳起来，好处大约有以下几点：

　1． 能够存放全部职员人事档案和工资档案，安全、高效地管理企业人力资源，并期望以后成为企业决议管理系统一部分，联机并网，发挥更大作用； 2． 只需一到二名目入员即可操作系统，节省大量人力，经过企业内部局域网省去打印步骤即可直接获取人力资源信息，即高效，又节省； 3． 各部门责任人依据权限等级，能够快速查到所需人力资源信息。

　1.3 课题研究目标 人事管理系统是一个企业单位不可缺乏部分,它内容对于企业决议者和管理者来说全部至关关键,所以人事管理系统应该能够为用户提供充足信息和快捷查询手段。但一直以来大家无法脱离传统人工方法管理档案文件，克服落后管理方法存在着很多缺点,如:效率低、保密性差，另外时间一长,将产生大量文件和数据,这对于查找、更新和维护全部带来了不少困难。就是因为没有一套完整适应企业管理特点系统。

　作为计算机应用一部分,使用计算机对人事劳资信息进行管理,含有着手工管理所无法比拟优点.比如:检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升人事劳资管理效率,也是企业科学化、正规化管理,和世界接轨关键条件。

　1.4 系统设计指导思想 针对大齿集团企业实际境况开发，实用性强。企业内部实现信息化、可视化管理，充足考虑到企业集成化管剪发展需要。使这个系统含有良好人机交流界面，可操作性强，运行速度快，数据安全可靠，

　第二章

　 开发人事管理系统问题 2.1 人事管理系统介绍 人事管理系统是针对人事部大量业务处理工作而开发管理软件。依据用户要求，在大量调查研究基础上充足考虑多种企业特色需求来实现人员基础情况管理、和工资管理高效查询，资源共享等多个方面功效。

　设计出符合企业需要管理模块，使用户经过输入工资、职员履历等基础信息，由系统自行生成对应统计数据及各类统计报表以供用户查询、打印，另外用户还能够对这些基础信息进行定时更新和删除，人事管理系统努力争取给用户方便快捷路径去管理这些繁琐数据。

　·总体功效需求 人事管理系统是针对人事处大量业务处理工作用计算机进行全方面现代化管理。关键包含人员基础情况管理、和工资管理高效查询，资源共享等多个方面功效，以实现用户方便输入、查询、统计、打印相关报表业务需求。

　·具体系统功效需求描述 (1) 档案信息管理

　 提供对”人员档案信息”数据输入、查询功效。

　(2) 工资管理

　 提供对”职职员资表”数据输入、查询、统计功效，并能快速为企业财务部门快速提供工资变更信息。

　(3) 工资统计

　 提供对“职职员资表”数据月统计，由系统自行生成“职职员资组成情况表”实现该表查询、打印功效。

　(4) 部门查询

　 提供以某一部门为索引”人员档案信息”查询功效。

　(5) 特殊查询

　 提供对日期型字段和协议期限”人员档案信息”查询功效。

　(6) 报表查询

　提供对工资、职员履历信息以报表形式供用户查询、打印，另外用户还能够对这些基础信息进行保留目录选择，使信息愈加安全，依据一定权限使作废能方便地更新信息和删除无用数据。

　第三章

　 人事管理系统分析和设计 3.1 人事管理系统分析和概要设计

　依据实际情况，我们使用原型法（Rapid Prototyping）即以少许代价快速地结构一个可实施软件系统模型。使用户和开发人员能够较快地确定需求，然后采取循环进化开发方法，对系统模型作连续精化，将系统需含有性质逐步增加上去，直到全部性质全部满足。此时模块也发展成为最终产品了。

　经过对用户需求分析，我们能够分析出该人事管理系统大致能够分为六个模块：人事档案管理模块、职职员资管理模块、工资统计模块实现、部门查询模块、特殊查询模块、报表查询模块。

　现在对这六个模块做具体说明：

　人事基础情况管理模块：

　输入：职员信息

　输出：“人员档案表”

　功效：对人事基础信息查询

　职职员资管理模块

　输入：人员月工资

　输出：“职职员资表”

　 功效：完成职员工资查询

　 工资统计模块

　 输出：“职职员资统计表”

　 功效：完成职员工资统计和打印

　 部门查询模块

　 输出：以部门为索引“职员档案信息”

　 功效：完成以部门为索引“职员档案信息”统计和查询

　 特殊查询模块实现

　 输出：满足查询条件“职员档案信息”和职员协议期限

　 功效：完成满足查询条件“职员档案信息”和职员协议期限查询

　 报表查询模块实现

　输出：职员履历信息和工资信息基础情况 查询及打印功效

　功效：完成对职员履历信息和工资信息基础情况查询及打印 3.2 人事管理系统数据库设计 因为考虑到本系统初始阶段是应用在单机系统上，和完成毕业设计时间短关系，我们先只建立起一个数据库，在此数据库基础上建立起以下表：

　 ·职员基础信息表

　employee_information_table

　·职职员资表

　employee_salary_table

　·系统信息表

　system_table

　下面我们具体说明：

　·职员基础信息表

　employee_information_table 主键 ：职员编号 Workercode

　 列名（汉字）

　列名（英文）

　 数据类型

　 宽度

　 小数点位数

　是否为空 职员编号 Workercode String

　No 部门 Departmen String

　No

　 职务 Principalship String

　No 职员姓名 Name String

　No

　身份证号 ID String

　No

　 性别 Sex String

　No 出生日期 BirthDay

　Date

　8

　No 婚否 Marry String

　 No 文化程度 Wen_Hua String

　No 政治面目 Zheng_Mian String

　No 毕业时间 Time_Gruduation Date

　8

　 No 毕业学校 School_Gruduation String

　No 所学专业 Speciality String

　No 联络电话 Contact_telephone String

　Yes 籍贯 Native _place String

　Yes 民族 Folk String

　Yes 家庭地址 Address String

　No 邮政编码 Post_NO。

　String

　Yes 如单位时间 Time_input Date

　8

　Yes 协议期限 Qi_Xian Integer

　2

　Yes 职称 Zhi_Cheng String

　No 评定时间 Assess_Time Date

　照片 Photo Binary

　Yes 备注 Memo Memo

　No

　·职职员资表

　employee_salary_table

　 主键：职员编号 Workercode，日期 Date

　列名（汉字）

　列名（英文）

　 数据类型

　 宽度

　 小数点位数

　是否为空

　职员编号 Workercode String

　 No 职员姓名 Name String

　No 年/月 Year/month String

　 No 技能工资 Salary_jn Double

　 8

　2

　 No 工龄工资 Salary_gl Double

　 8

　2

　 Yes 岗位工资 Salary_gw Double

　 8

　2

　 Yes 职务工资 Salary_zhw Double

　 8

　2

　 Yes 洗理费 Charge_xl Double

　 8

　2

　 Yes 房屋补助 Subsidy_fw Double

　 8

　2

　 Yes 交通补助 Subsidy_jt Double

　 8

　2

　 Yes 价格补助 Subsidy_price Douele

　 8

　2

　 Yes 工会会费 Charge_gh Double

　 8

　2

　 Yes 房屋租金 Charge_fw Double

　 8

　2

　 Yes 养老保险 Insurance_yl Double

　 8

　2

　 Yes 建房扣款 KK_jf Double

　 8

　2

　 Yes 扣款 KK Double

　 8

　2

　 Yes 实发工资 Salary_sf Double

　 8

　2

　 No

　·系统信息表

　system_table

　主键：用户名 Useid

　列名（汉字）

　列名（英文）

　 数据类型

　 宽度

　 小数点位数

　是否为空 用户名 Usename String

　 Yes 密码 Password String

　 Yes

　 第四章

　 人事管理系统具体实现

　4.1 模块化开发环境介绍_Visual Basic Visual Basic 是在 Windows 环境中广泛使用应用程序设计语言，它以 Basic 语言基础，含有可视化、 面向对象程序设计、 事件驱动机制等特点。

　可视化程序设计是指开发图形用户界面一个方法，使用这种方法，编程人员无须编写大量代码去描述用户界面上元素位置和外观，比如命令按钮、文本框、组合框等元素，编程人员只需在“可视”编程环境下，用鼠标将 VB 中预先建立界面元素拖放到用户图形界面适应位置上，而且用鼠标还可直接修改用户界面上元素外观等特征。采取可视化程序设计方法，大大降低了编程人员编码工作量，并能轻松快捷地设计出友好用户界面，从而提升应用程序开发效率。Visual Basic 是一个面向图形用户界面、交互性讲可视编程工具。

　4.1.1 事件驱动应用程序

　Visual Basic 使用是一个“事件驱动”机制。所谓“事件驱动”机制是指 Windows应用程序是经过事件来驱动运行，当用户或系统触发对象某个事件时，系统自动地实施和该事件相关一段代码来响应，完成特定功效。比如，用户界面上有一个命令按钮，当用户单击该按钮时，命令按钮将触发事件，而当该事件发生时，由系统自动实施一段和该事件对应代码，完成指定操作，当该操作完成后，应用程序将暂停，等候狭义事件发生。

　在“事件驱动”机制下，应用程序实施过程完全由对象事件驱动实现，和传统面向过程应用程序实施过程完全不一样。

　4.1.2 面向对象编程 Visual Basic 采取面向对象技术，利用对象属性、事件和方法进行程序设计，从而 实现应用程序特定需要。在 Visual Basic 中，对象无处不在，窗体、命令按钮、文本框、组合框等用于设计用户图形界面元素全部是对象。利用 Visual Basic 对象编程技术，就仿佛在一块空白画布上，经过设置对象属性，使用对象方法，编程对象事件过程，将系统预先建立对象，根据设计要求将它们有机地组合起来，勾画出一幅完美图画，从而完成用户需求。

　4.2 系统模块具体实现 在本系统中有六个模块组成。它们分别是职员基础信息模块、职员工资管理模块、工资统计模块实现、部门查询模块实现、特殊查询模块实现、报表查询模块实现，下面就开发这多个模块过程及所碰到问题分别加以介绍。

　4.2.1 人事档案信息模块 该模块关键完成职员基础信息录入、查询、统计及打印功效。

　(其步骤图图 3.2.1.1所表示)

　源文件

　主文件更新模块

　更新文件

　履历表

　图 图 4.2.1.1

　人事系统档案信息系统步骤图 该模块部分功效源代码以下：

　Option Explicit Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Const myflag = &H800& Dim add, alert As Integer Private Sub aa() … Private Sub Combo6_Click() Select Case Combo6.Text Case "生产部" Combo7.Clear Combo7.AddItem "经理" Combo7.AddItem "主管" Combo7.AddItem "职员" Combo7.Text = Combo7.List(0) … Case "总经理室" Combo7.Clear 人事变动资料

　计算机打印模块

　Combo7.AddItem "总经理" Combo7.AddItem "秘书" Combo7.Text = Combo7.List(0) End Select End Sub Private Sub Combo7_Change() End Sub … Private Sub Data1_Reposition() If Data1.Recordset.RecordCount = 0 Then Else If Combo6.Text = "生产部" Then Combo7.Clear Combo7.AddItem "经理" Combo7.AddItem "主管" Combo7.AddItem "职员" Combo7.Text = Data1.Recordset("职务") Else … Combo7.Clear Combo7.AddItem "经理" Combo7.AddItem "主管" Combo7.AddItem "职员" Combo7.Text = Data1.Recordset("职务") End If … End If … End Sub

　Private Sub Timer1_Timer() Label29.Caption = time End Sub 4.2.2 工资管理模块 该模块是完成对职员工资信息输入、查询、并以此进行统计取得“职员实发工资”。

　此模块关键包含工资录入、职员实发工资统计和职职员资总额信息，后二者是经过点击汇总和统计工资按钮取得。(其步骤图图 4.2.2.1 所表示)

　图 图 4.2.1.1

　人事系统工资信息系统步骤图

　 此窗口“职职员资统计表”数据源均是从数据库 EMPOYEE_SAL 表。

　该模块部分功效源代码以下：

　Private Sub Command1_Click() Dim a(1 To 15) As Double On Error GoTo a0 工资单 上月主文件

　 主文件更新模块 本月主文件

　计算机打印模块 工资表 扣款单

　If Text6.Text = “” Then Text6.Text = “0.00” End If If Text7.Text = “” Then Text7.Text = “0.00” End If If Text8.Text = “” Then Text8.Text = “0.00” End If If Text9.Text = “” Then Text9.Text = “0.00” End If If Text10.Text = “” Then Text10.Text = “0.00” End If If Text11.Text = “” Then Text11.Text = “0.00” End If If Text12.Text = “” Then Text12.Text = “0.00” End If If Text13.Text = “” Then Text13.Text = “0.00” End If If Text14.Text = “” Then Text14.Text = “0.00” End If If Text15.Text = “” Then Text15.Text = “0.00”

　End If If Text16.Text = “” Then Text16.Text = “0.00” End If If Text18.Text = “” Then Text18.Text = “0.00” End If If Text19.Text = “” Then Text19.Text = “0.00” End If a(1) = CDbl(Text6.Text) a(2) = CDbl(Text7.Text) a(3) = CDbl(Text8.Text) a(4) = CDbl(Text9.Text) a(5) = CDbl(Text10.Text) a(6) = CDbl(Text11.Text) a(7) = CDbl(Text12.Text) a(8) = CDbl(Text13.Text) a(9) = CDbl(Text14.Text) a(10) = CDbl(Text15.Text) a(11) = CDbl(Text16.Text) a(12) = CDbl(Text18.Text) a(13) = CDbl(Text19.Text) a(14) = a(1) + a(2) + a(3) + a(4) + a(5) + a(6) – a(7) – a(8) – a(9) – a(10) + a(11) + a(12) + a(13) Text17.Text = a(14) Exit Sub a0: MsgBox “工资各项数值不能为字符串”, vbOKOnly, “提醒信息” End Sub

　Private Sub Command10_Click() On Error GoTo a0 Dim a As String, b As String, c As String, ww As String

　If Text21.Text = “” Then MsgBox “请输入查找条件” Text21.SetFocus Exit Sub End If

　a = Combo5.Text

　b = Text21.Text c = a & “ Like „” & b & “‟” Data1.Recordset.FindNext c If Data1.Recordset.NoMatch Then MsgBox “找不到和条件相符统计”, vbOKOnly, “提醒信息” Else ww = Data1.Recordset(“职员编号”) ww = “职员编号 like „” & ww & “‟” Data3.Recordset.FindFirst ww End If If Data1.Recordset.BOF Or Data1.Recordset.EOF Then

　Data1.Recordset.MoveLast Data3.Recordset.MoveLast End If Exit Sub a0: „MsgBox “找不到和条件相符统计”, vbOKOnly, “提醒信息” End Sub 4.2.3 工资统计模块实现

　 该模块是对职职员资信息以部门为索引进行汇总，然后进行统计得到“全体职职员资总额”，并提供打印功效。

　该模块部分功效源代码以下：

　Private Sub Form_Activate() On Error GoTo a0 Dim a, b, c a = 0 If Data1.Recordset.RecordCount = 0 Then Exit Sub End If Data1.Recordset.MoveFirst Do Until Data1.Recordset.EOF b = Data1.Recordset("实发工资") a = a + b Data1.Recordset.MoveNext Loop Label35.Caption = a Label25.Caption = Data1.Recordset.RecordCount a = 0 b = 0 c = 0

　Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDCW*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDCW*" " Loop Label16.Caption = a Label26.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDYY*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDYY*" " Loop Label17.Caption = a Label27.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDGC*" " Do Until Data1.Recordset.NoMatch

　a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDGC*" " Loop Label18.Caption = a Label28.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDSC*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDSC*" " Loop Label19.Caption = a Label29.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDRS*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c

　Data1.Recordset.FindNext "职员编号 like "GDRS*" " Loop Label20.Caption = a Label30.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDBA*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDBA*" " Loop Label21.Caption = a Label31.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDZW*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDZW*" " Loop Label22.Caption = a

　Label32.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDGH*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDGH*" " Loop Label23.Caption = a Label33.Caption = c a = 0 b = 0 c = 0 Data1.Recordset.MoveFirst Data1.Recordset.FindFirst "职员编号 like "GDJL*" " Do Until Data1.Recordset.NoMatch a = a + 1 b = Data1.Recordset("实发工资") c = b + c Data1.Recordset.FindNext "职员编号 like "GDJL*" " Loop Label24.Caption = a Label34.Caption = c a0: End Sub

　Private Sub Form_Load() Dim a As Integer, b As Integer a = Year(Date) b = Month(Date) Label36.Caption = "

　" & a & " 年 " & b & " 月" End Sub Private Sub Label10_Click() On Error GoTo a0 Data2.Recordset.Edit Data2.Recordset("bm") = "生产部" Data2.Recordset.Update a0: Form12.Show End Sub „ Private Sub Label9_Click() On Error GoTo a0 Data2.Recordset.Edit Data2.Recordset("bm") = "人事部" Data2.Recordset.Update a0: Form12.Show End Sub Private Sub mnuprint_Click() On Error GoTo a0 Me.PrintForm a0: End Sub Private Sub mnuquit_Click()

　Unload Me End Sub

　4.2.4 部门查询模块实现

　该模块是对部门为索引“职员档案信息”进行查询，凡符合查找要求职员将基础信息显示出来，如要了解更多信息可单击该人员职员编号可进行深入查询。

　该模块部分功效源代码以下：

　Option Explicit Dim reco As Integer, X As Integer, Y As Integer, z As Integer Private Sub Command1_Click() On Error GoTo a0

　Dim a As String, b As String, c As String

　a = Combo1.Text

　 Command2.Enabled = False

　 Command3.Enabled = False If Combo1.Text = "" Then MsgBox "请输入查找条件" Combo1.SetFocus Exit Sub End If Label9.Caption = ""

　Label10.Caption = "" „ Label68.Caption = "" Label69.Caption = ""

　 a = Combo1.Text

　c = "部门 Like "" & a & """

　Data1.Recordset.FindFirst c If Data1.Recordset.NoMatch Then

　Exit Sub Else Label9.Caption = Data1.Recordset("职员编号") b = Data1.Recordset("职员编号") Label29.Caption = Data1.Recordset("职员姓名") Label39.Caption = Data1.Recordset("性别") Label49.Caption = Data1.Recordset("部门") Label59.Caption = Data1.Recordset("职务") b = "职员编号 Like "" & b & """ Data2.Recordset.FindFirst b Label69.Caption = Data2.Recordset("实发工资") reco = 1 End If If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If

　 Data1.Recordset.FindNext c If Data1.Recordset.NoMatch Then

　Exit Sub Else Label10.Caption = Data1.Recordset("职员编号") b = Data1.Recordset("职员编号") Label28.Caption = Data1.Recordset("职员姓名") Label38.Caption = Data1.Recordset("性别") Label48.Caption = Data1.Recordset("部门") Label58.Caption = Data1.Recordset("职务") b = "职员编号 Like "" & b & """ Data2.Recordset.FindFirst b Label68.Caption = Data2.Recordset("实发工资") reco = reco + 1 End If If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If „ If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

　End If

　Command3.Enabled = True Combo1.Locked = True z = 0 Exit Sub a0: MsgBox "找不到和条件相符统计", vbOKOnly, "提醒信息" End Sub „ Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Label9.Caption = "" Then Label9.MousePointer = 0 Exit Sub Else Label9.MouseIcon = Image1.Picture Label9.MousePointer = 99 End If End Sub

　Private Sub mnuquit_Click() Unload Me End Sub

　Private Sub Timer1_Timer() Label2.Caption = time End Sub

　4.2.5 特殊查询模块实现

　该模块是对日期型字段和协议期限”人员信息”进行查询。

　对日期型字段查询具体表现为：

　系统将按用户所需查找范围进行查询，并将查找信息显示出来。如要了解更多信息可双击该人员职员编号可进行深入查询。

　对协议期限查询具体表现为：

　系统将职员“入单位时间”字段、“协议期限”字段和目前日期进行计算得到协议期限剩下时间，并将查找信息显示出来。如该时间小于等于零，将“协议期限”反显伴有报警声出现。如要了解更多信息可双击该人员职员编号可进行深入查询。

　该模块部分功效源代码以下：

　Option Explicit Dim reco As Integer, X As Integer, Y As Integer, z As Integer Private Sub Combo1_Click() Dim a As String a = Combo1.Text Label3.Caption = a End Sub Private Sub Command7_Click() Text31.Locked = False Text32.Locked = False Combo1.Locked = False

　Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Form_Load() Timer1.Interval = 1000 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Enabled = False Text31.Locked = True Text32.Locked = True Combo1.Locked = True End Sub Private Sub Image3_Click() Image4.Picture = Image2.Picture Image3.Picture = Image1.Picture Label3.Caption = "协议期限(天)" Command4.Enabled = True "Command5.Enabled = True "Command6.Enabled = True Exit Sub End If b = Data1.Recordset("入单位时间") Text3.Text = Data1.Recordset("职员编号") Text4.Text = Data1.Recordset("职员姓名") Text22.Text = CInt(Data1.Recordset("协议期限")) * 365 - (a - b)

　If CInt(Data1.Recordset("协议期限")) * 365 - (a - b) < 1 Then Text22.BackColor = &HC0FFFF Beep End If Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Exit Sub End If

　4.2.6 报表查询模块实现

　 该模块功效是对职员履历信息和工资信息基础情况以报表形式查询及打印。实现方法 是 将 “ 职 员 基 础 信 息 表 ” (employee_information_table) 和 “ 职 职 员 资 表 ”(employee_salary_table)用 DataGrid 控件进行显示。打印功效是采取了 Crystal Reports 控件将数据库中内容先生成 (*.rpt) 文件然后在进行打印。

　该模块部分功效源代码以下：

　Option Explicit Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Const myflag = &H800&

　Private Sub Form_Load() Dim mhandle As Long, lret As Long, shandle As Long mhandle = GetMenu(hwnd) shandle = GetSubMenu(mhandle, 0) lret = SetMenuItemBitmaps(shandle, 2, myflag, Image1.Picture, Image1.Picture) lret = SetMenuItemBitmaps(shandle, 3, myflag, Image1.Picture, Image1.Picture) DBGrid2.Visible = False End Sub Private Sub mnuexit_Click() Unload Me End Sub Private Sub mnuin_Click() DBGrid1.Visible = True DBGrid2.Visible = False End Sub Private Sub mnul_Click() On Error GoTo a0 rpt1.Action = 1 a0: End Sub Private Sub mnus_Click() On Error GoTo a0 rpt2.Action = 1 a0: End Sub Private Sub mnut_Click() DBGrid2.Visible = True DBGrid1.Visible = False End Sub

　4.3 系统开发其它方面 在这一节中，我们关键讨论了两个问题，一个是系统联机文档，另一个是系统测试，下面我们分别加以说明。

　作为一个完整系统，联机文档是其中不可缺乏部分也是相当关键部分。好文档能够使用户快速了解并正确使用系统各项功效。降低误操作，降低错误产生可能，这对用户和开发人员全部有很多好处。所以在开发本系统中，也加入了不少文档，除了对于三大模块具体说明外，对于易犯错和不易操作地方又作了具体说明。

　因为本身能力不足，所以做编写代码，即使经过反复检验也难免犯错所以在本阶段努力争取使用有限时间找出尽可能多错误，努力争取系统尽可能正确。我们在本系统测试中使用了黑盒法（即不关心程序内部逻辑结构，而是依据程序功效来设计是检测）请一位不熟悉本系统人来进行随意性操作，打破习惯操作次序，从中发觉错误，在此阶段系统大量错误得到了更正。

　 第五章

　 人事管理系统运行环境

　·软件环境：

　Windows 95/98/ME

　或 Windows NT 4.0/20XX/XP 及以上版本。

　·硬件环境：

　Pentium 133 或更高级处理机；

　3.5 寸软盘 驱动器；

　VGA 或更高分辨率监视器；

　16MB 内存 或 32MB 内存 (Windows NT)。

　·硬盘空间：

　最少需要 10MB 空间。

　第六章：

　人事 管理系统程 序 开发

　程序开发：此次毕业设计是使用 VB 编程，完成人事管理一系列问题。因为对 VB了解并不十分深入，所以在毕业设计中出现了很多问题。

　首先，对人事管理需要做深入了解，了解用户需求。其次，是对于模块设计。利用VB 开发程序是为了降低计算机硬件需求，适应各个企业经济需要，降低开资。

　在程序开发过程中因为本身能力也出现了这么那样问题，不过在指导老师指导下全部已一一处理。比如怎样降低操作错误，降低数据冗余。

　在对程序开发过程中我了解到本身能力不足，还应加强对程序开发学习。

　第七章

　结束语

　经过两个多月设计和开发，人事管理系统基础开发完成。其功效基础符适用户需求，能够完成职员基础信息、工资输入和统计。和各类相关报表打印。同时也考虑到了单位编码以降低数据冗余问题，对于数据一致性问题也经过程序进行了有效处理。

　不过因为毕业设计时间较短，所以该系统还有很多不尽如人意地方，比如用户界面不够美观，犯错处理不够等多方面问题。这些全部有待深入改善。

　各位领导：在此次毕业设计中，我们使用了 VB 语言。但我对 VB 语言并不十分了解，在这方面我指导老师任老师为我提供了充足指导。她认真为我讲解不了解地方，指出我错误。人事管理系统开发成功是和任老师付出所分不开，所以我要再次感谢我指导老师为我们所付出一切。

　此致 感谢

　常

　静

　柴

　霞

　王利斌

　胡润花

　梁晓云

　20XX 年 11 月集体於太原科技大学成人教育学院

　 参考文件

　 [1]Visual Basic 编程基础和应用

　董宛

　清华大学出版社

　20XX 年

　[2]活用 Visual Basic 5.0 数据库编程

　陈俊源、王一华

　清华大学出版社

　1998 年 [3]数据库原理及应用

　毛 军 王清心 唐云锦 重庆：重庆大学出版社，1997 [4]基于数据仓库决议支持系统框架．系统工程理论和实践

　谢 榕