《人事管理系统》说明书.doc

《人事管理系统》说明书

56
2020年5月29日
文档仅供参考
摘要
由于各种原因,现在我们大齿集团公司的人事档案的管理水平还停留在计算机加纸介质办公的尴尬境界,这样的机制已经不能适应时代的飞速发展,因为这种管理水平不能充分发挥先进的高性能计算机的作用,同时又浪费了许多人力和办公用品,在信息时代若想取代这种不合理的管理方法就必须由我们熟悉企业内部特点的新一代青年人为企业分忧解难,开发出符合企业管理特点的软件,利用毕业设计的实践活动开发出一个符合企业管理特点的实用程序,既检验我们所学的知识,完成毕业设计,又能帮助公司进行更有效的人事管理。
系统设计的指导思想是,针对大齿集团公司的实际境况开发,实用性强。公司内部实现信息化、可视化管理,充分考虑到公司的集成化管理发展的需要。力求使这个系统具有良好的人机交流界面,符合公司人事管理的实际需要,可操作性强,运行速度快,数据安全可靠。
·具体系统功能需求描述
(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部门查询模块的实现

该模块是对部门为索引的”职工档案信息”进行查询,凡符合查找要求的职工将基本信息显