《人事管理系统》说明书

1、人事管理系统说明书由于各种缘故，现在我们大齿集团公司的人事档案的治理水平还停留在运算机加纸 介质办公的尴尬境域，如此的机制差不多不能适应时代的飞速进展，因为这种治理水平 不能充分发挥先进的高性能运算机的作用，同时乂白费了许多人力和办公用品，在信息 时代若想取代这种不合理的治理方法就必须由我们熟悉企业内部特点的新一代青年人 为企业分忧解难，开发出符合企业治理特点的软件，利用毕业设计的实践活动开发出一 个符合企业治理特点的有用程序，既检验我们所学的知识，完成毕业设计，乂能关心公 司进行更有效的人事治理。系统设计的指导思想是，针对大齿集团公司的实际境况开发，有用性强。公司内部 实现信息化、可视化治理

2、，充分考虑到公司的集成化治理进展的需要。力求使那个系统 具有良好的人机交流界面，符合公司人事治理的实际需要，可操作性强，运行速度快， 数据安全可靠。具体系统功能需求描述(1)档案信息治理提供对”人员档案信息”数据输入、查询功能。(2)工资治理提供对”职工工资表”数据的输入、查询、统计功能，并能迅速为企业财务部门 快速提供工资变更信息。(3)工资统计提供对“职工工资表”数据的月统计，山系统自行生成“职工工资构成情形表” 实现该表的查询、打印功能。(4)部门查询提供以某一部门为索引的”人员档案信息”查询功能。(5)专门查询提供对日期型字段和合同期限的”人员档案信息”查询功能。(6)报表查询提供对工

3、资、职工履历的信息以报表的形式供用户查询、打印，另外用户还能够对 这些差不多信息进行储存名目的选择，使信息更加安全，依照一定的权限使作废能方便 地更新信息和删除无用数据。由于毕业设计时刻较短，我们对VB程序的认识还不够深刻这次的成果还有许多的 不足需要我们在以后去提高。关键词：治理系统，信息检索，人力资源，主键，窗口。前言随着科学技术的不断提高，运算机科学日渐成熟，其强大的功能已为人们深刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。专门是信息系统随着运算机技术和网络技术等信息技术的进展而不断的进展，治理 信息系统MIS,决策支持系统DSS,总裁信息系统EIS,办公自动化系统OA

4、,国际电 子商贸系统EDI等等层出不穷，在国际交往，企业治理中发挥着越来越重要的作用，例 如人们熟知的办公自动化系统OA,极大地提高了我们的办公效率，但仍旧与我们传统 的中华文化有着不小的差异，其他国际企业界较为流行的决策支持系统DSS,总裁信息 系统EIS等，由于大多由国外软件商开发而成与我国的国情相比有专门大的差异，不能 发挥全部的作用，甚至被多数企业束之高阁。由于我国社会制度的专门性，人事治理系 统就更加没有现成的可直截了当使用的治理系统。作为运算机应用的一部分，使用运算机对人事劳资信息进行治理，具有着用手工治 理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、储备量大、保密性好、

5、寿 命长、成本低等。这些优点能够极大地提高人事劳资治理的效率，也是企业的科学化、 正规化治理，与世界接轨的重要条件。人事治理系统是一个企业单位不可缺少的部分，它的内容关于企业的决策者和治理 者来说都至关重要，因此人事劳资治理系统应该能够为用户提供充足的信息和快捷的查 询手段。但一直以来人们使用传统人工的方式治理文件档案，这种治理方式存在着许多 缺点，如：效率低、保密性差，另外时刻一长，将产生大量的文件和数据，这关于查找、 更新和爱护都带来了许多的困难。因此，开发如此一套治理软件成为专门有必要的情况，在下面的各章中我们将以开 发这套符合企业治理需要的人事治理系统为题目，谈谈这次毕业设计的选题思路

6、与设计 实践过程和所涉及到的问题及解决方法。第一章绪论1.1 信息化的进展随着人类迈入二十一世纪，运算机技术、通信技术、网络技术为代表的现代信息 技术的飞跃进展，人类正在从工业时代向信息时代迈进，人们越来越重视信息资源的开 发和利用，“信息化”已成为一个国家经济和社会进展的关键环节，信息化水平的高低已 成为衡量一个国家现代化水平和综合国力的重要标志，信息化的实质是使信息一这 一社会的主导资源充分发挥作用，能够说推广信息技术是手段，真正利用信息是目的， 信息化则是实现目的的过程。1993年，美国提出建立“信息高速公路”，有称国家信息 基础设施（Nil）的打算，其核心是建立全国的高速网络，把所有的

7、运算机网络连接起 来。那个打算的实现将对经济和社会生活产生重大的阻碍，由此引起的信息化建设浪潮 已波及世界各国。我国自1983年大力推广微型运算机应用以来，在治理信息领域，不管在理论方面, 依旧在实践方面都有了专门大的进展。1986年2月国务院批准建设了国家经济信息系 统，全国从中央到省、市地点都连续成立了信息中心，各行各业应用电子运算机的热情 普遍高涨。目前，已从单项业务的信息治理迅速向综合的治理层和决策层的信息治理进 展，应用水平日趋提高；以金桥工程、金关工程和金卡工程为代表的国民经济信息工程 也正在加速建设。1.2 系统开发背景由于前言中所阐述的缘故，现在我们大齿集团公司的人事档案的治理

8、水平还停留在 运算机加纸介质办公的尴尬境域，如此的机制差不多不能适应时代的飞速进展，因为这 种治理水平不能充分发挥先进的高性能运算机的作用，同时乂白费了许多人力和办公用 品，在信息时代若想取代这种不合理的治理方法就必须由我们熟悉企业内部特点的新一 代青年人为企业分忧解难，开发出符合企业治理特点的软件。我们作为学习运算机信息治理的大学生，期望能够在这方面有所奉献。我们期望能 用两年来所学的知识，利用毕业设计的实践活动开发出一个符合企业治理特点的有用程 序，既检验我们所学的知识，完成毕业设计，乂能关心公司进行更有效的人事治理。归纳起来，好处大约有以下几点:1 .能够储备所有职工的人事档案和工资档案

9、，安全、高效地治理企业的人力资源, 并期望今后成为企业决策治理系统的一部分，联机并网，发挥更大的作用；2 .只需一到二名录入员即可操作系统，节约大量人力，通过企业内部局域网省去 打印环节即可直截了当猎取人力资源信息，即高效，又节约；3 .各部门负责人依照权限级别，能够迅速查到所需人力资源信息。4 .3课题研究的目的人事治理系统是一个企业单位不可缺少的部分,它的内容关于企业的决策者和治理 者来说都至关重要，因此人事治理系统应该能够为用户提供充足的信息和快捷的查询手 段。但一直以来人们无法脱离传统人工的方式治理档案文件，克服落后的治理方式存在 着的许多缺点，如:效率低、保密性差，另外时刻一长，将产

10、生大量的文件和数据，这关于查 找、更新和爱护都带来了许多的困难。确实是因为没有一套完整的适应企业治理特点的 系统。作为运算机应用的一部分，使用运算机对人事劳资信息进行治理，具有着手工治理所 无法比拟的优点.例如:检索迅速、查找方便、可靠性高、储备量大、保密性好、寿命长、 成本低等。这些优点能够极大地提高人事劳资治理的效率,也是企业的科学化、正规化治 理，与世界接轨的重要条件。5 .4系统设计的指导思想针对大齿集团公司的实际境况开发，有用性强。公司内部实现信息化、可视化治理, 充分考虑到公司的集成化治理进展的需要。使那个系统具有良好的人机交流界面，可操 作性强，运行速度快，数据安全可靠，第二章开

11、发人事治理系统的问题2.1 人事治理系统的简介人事治理系统是针对人事部的大量业务处理工作而开发的治理软件。依照用户的要 求，在大量调查研究的基础上充分考虑各种企业特色需求来实现人员差不多情形治理、 和工资治理高效查询，资源共享等儿个方面的功能。设计出符合企业需要的治理模块，使用户通过输入工资、职工履历等差不多信息， 由系统自行生成相应的统计数据及各类统计报表以供用户查询、打印，另外用户还能够 对这些差不多信息进行定期的更新和删除，人事治理系统力求给用户方便快捷的途径去 治理这些繁琐的数据。总体功能需求人事治理系统是针对人事处的大量业务处理工作用运算机进行全面现代化治理。要 紧包括人员差不多情形

12、治理、和工资治理的高效查询，资源共享等几个方面的功能，以 实现用户方便的输入、查询、统计、打印相关报表的业务需求。具体系统功能需求描述(1)档案信息治理提供对”人员档案信息”数据输入、查询功能。(2)工资治理提供对”职工工资表”数据的输入、查询、统计功能，并能迅速为企业财务部门 快速提供工资变更信息。(3)工资统计提供对“职工工资表”数据的月统计，由系统自行生成“职工工资构成情形表” 实现该表的查询、打印功能。(4)部门查询提供以某一部门为索引的”人员档案信息”查询功能。(5)专门查询提供对日期型字段和合同期限的”人员档案信息”查询功能。(6)报表查询提供对工资、职工履历的信息以报表的形式供用

13、户查询、打印，另外用户还能够对 这些差不多信息进行储存名目的选择，使信息更加安全，依照一定的权限使作废能方便 地更新信息和删除无用数据。第三章人事治理系统的分析和设计1.1 人事治理系统的分析和概要设计依照实际情形，我们使用原型法(R叩id Prototyping)即以少量代价快速地构造一 个可执行的软件系统模型。使用户和开发人员能够较快地确定需求，然后采纳循环进化 的开发方式，对系统模型作连续的精化，将系统需具备的性质逐步增加上去，直到所有 的性质全部满足。现在模块也进展成为最终产品了。通过对用户需求的分析，我们能够分析出该人事治理系统大致能够分为六个模块： 人事档案治理模块、职工工资治理模

14、块、工资统计模块的实现、部门查询模块、专门查 询模块、报表查询模块。现在对这六个模块做具体说明：人事差不多情形治理模块：输入：职工信息输出：“人员档案表”功能：对人事差不多信息的查询职工工资治理模块输入：人员月工资输出：“职工工资表”功能：完成职职员资的查询工资统计模块输出：“职工工资统计表”功能：完成职职员资的统计和打印部门查询模块输出：以部门为索引的“职工档案信息”功能：完成以部门为索引的“职工档案信息”的统计和查询专门查询模块的实现输出：满足查询条件的“职工档案信息”和职工合同的期限功能：完成满足查询条件的“职工档案信息”和职工合同的期限的查询报表查询模块的实现输出：职员履历信息和工资信

15、息的差不多情形查询及打印功能功能：完成对职员履历信息和工资信息差不多情形的查询及打印3. 2人事治理系统数据库设计由于考虑到本系统初始时期是应用在单机系统上，与完成毕业设计时刻短的关系, 我们先只建立起一个数据库，在此数据库基础上建立起如下表：,职工差不多信息表employee_information_table职工工资表employee_salary_table系统信息表system_table下面我们详细说明:职工差不多信息表employee_information_table主键：职工编号Workercode职工编号WorkercodeStringNo部门DepartmenStringN

16、o职务PrincipalshipStringNo职工姓名NameStringNo身份证号IDStringNo性别SexStringNo出生日期BirthDayDate8No婚否MarryStringNo文化程度Wen_HuaStringNo政治面目Zheng_MianStringNo毕业时刻Time_GruduationDate8No毕业学校School_GruduationStringNo所学专业SpecialityStringNo联系ContactjelephoneStringYes籍贯Native _placeStringYes民族FolkStringYes家庭地址AddressStri

17、ngNo邮政编码Post_NOoStringYes如单位时刻TimejnputDate8Yes合同期限Qi.XianInteger2Yes职称Zhi.ChengStringNo评定时刻Assess-TimeDate照片PhotoBinaryYes备注MemoMemoNo列名（中文）列名（英文）数据类型宽度 小数点位数 是否为空职工工资表employee_salary_table主键：职工编号Workercode,日期Date列名（中文）列名（英文）数据类型宽度小数点位数是否为空职工编号WorkercodeStringNo职工姓名NameStringNo年/月Year/monlhStringNo

18、技能工资SalaryjnDouble82No工龄工资Salary_glDouble82Yes岗位工资Salary_gwDouble82Yes职务工资Salary_zhwDouble82Yes洗理费Charge.xlDouble82Yes房屋补贴Subsidy.fwDouble82Yes交通补贴SubsidyjtDouble82Yes价格补贴Subsidy_priceDouele82Yes工会会费Charge,ghDouble82Yes房屋租金Charge_fwDouble82Yes养老保险Insurance.ylDouble82Yes建房扣款KKJfDouble82Yes扣款KKDouble8

19、2Yes实发工资Salary_sfDouble82No系统信息表system_table主键：用户名Useid列名（中文）列名（英文）数据类型宽度小数点位数，是否为空用户名UsenameStringYes密码PasswordStringYes第四章人事治理系统的具体实现3.1 模块化的开发环境的简介.Visual BasicVisual Basic是在Windows环境中广泛使用的应用程序设计语言，它以Basic语言 基础，具有可视化、面向对象程序设计、事件驱动机制等特点。可视化程序设计是指开发图形用户界面的一种方法，使用这种方法，编程人员不必 编写大量的代码去描述用户界面上元素的位置和外观，

20、比如命令按钮、文本框、组合框 等元素，编程人员只需在“可视”的编程环境下，用鼠标将VB中预先建立的界面元素 拖放到用户图形界面的适应位置上，同时用鼠标还可直截了当修改用户界面上元素的外 观等特性。采纳可视化程序设计方法，大大的减少了编程人员的编码工作量，并能轻松 快捷地设计出友好的用户界面，从而提高应用程序的开发效率。Visual Basic是一种面向 图形用户界面的、交互性讲的可视编程工具。4.1.1事件驱动的应用程序Visual Basic使用的是一种“事件驱动”机制。所谓“事件驱动”机制是指Windows 应用程序是通过事件来驱动运行的，当用户或者系统触发对象的某个事件时，系统自动 地执

21、行与该事件相关的一段代码来响应，完成特定的功能。例如，用户界面上有一个命 令按钮，当用户单击该按钮时，命令按钮将触发事件，而当该事件发生时，由系统自动 执行一段与该事件相应的代码，完成指定的操作，当该操作完成后，应用程序将暂停， 等待狭义事件的发生。在“事件驱动”机制下，应用程序的执行过程完全由对象事件驱动实现，与传统的 面向过程的应用程序的执行过程完全不同。4. 1.2面向对象的编程Visual Basic采纳面向对象技术，利用对象的属性、事件和方法进行程序设计，从而 实现应用程序的特定需要。在Visual Basic中，对象无处不在，窗体、命令按钮、文本 框、组合框等用于设计用户图形界面的

22、元素差不多上对象。利用Visual Basic的对象编 程技术，就看起来在一块空白的画布上，通过设置对象的属性，使用对象的方法，编程 对象的事件过程，将系统预先建立的对象，按照设计要求将它们有机地组合起来，勾画 出一幅完美的图画，从而完成用户需求。4. 2系统模块的具体实现在本系统中有六个模块组成。它们分别是职员差不多信息模块、职职员资治理模块、 工资统计模块的实现、部门查询模块的实现、专门查询模块的实现、报表查询模块的实 现，下面就开发这几个模块的过程及所遇到的问题分别加以介绍。4.2.1人事档案信息模块f ，”方HRCEg SG)crows%大该模块要紧完成职员差不多信息的录入、查询、统计

23、及打印功能。（其流程图如图 所示)履历表人事变动资料图人事系统档案信息系统流程图该模块部分功能源代码如下：Option ExplicitPrivate Declare Function GetMenu Lib Muser32H (ByVai hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib Muser32H (ByVai hMenu As Long, By Vai nPos As Long) As LongPrivate Declare Function SetMenuItemBitmaps L

24、ib Huser32H (ByVai hMenu As Long, By Vai nPosition As Long, By Vai wFlags As Long, By Vai hBitmapUnchecked As Long, ByVai hBitmapChecked As Long) As LongConst myflag = &H800&Dim add, alert As IntegerPrivate Sub aa()Private Sub Conibo6_Click()Select Case Combo6.TextCase “生产部”Combo7.ClearCombo

25、7.AddItem “经理”Combo7.AddItem ”主管”Combo7.Additem "职员"Conibo7.Text = Combo7.List(0) Case ”总经理室”Combo7.ClearCombo7.AddItem "总经理”Combo7.Additem ”秘书”Combo7.Text = Combo7.List(0)End SelectEnd SubPrivate Sub Combo7_Change()End Sub Private Sub Data 1 _Reposition()If Data 1 .Recordset.RecordCo

26、unt = 0 ThenElseEnd SubIf Combo6.Text = "生产部" ThenCombo7.ClearCombo7.AddItem ”经理'Combo7.AddItem ”主管”Combo7. Add ItemConibo7.Text = Datal. Recordset（"职务''）Else Combo7.ClearCombo7.AddItem ”经理'Combo7.AddItem ”主管”Combo7. Add ItemConibo7.Text = Datal. Recordset（"职务'

27、;'）End If End If End SubPrivate Sub Timerl_Timer（）Label29.Caption = time4. 2. 2工资治理模块该模块是完成对职员的工资信息的输入、查询、并以此进行统计获得“职工实发工资”。此模块要紧包括工资录入、职工实发工资统计和职工工资总额信息，后两者是通过 点击汇总和统计工资按钮获得。(其流程图如图422.1所示)图人事系统工资信息系统流程图此窗口 “职工工资统计表”的数据源均是从数据库EMPOYEE_SAL表。该模块部分功能源代码如下：Private Sub Command l_Click()Dini a(

28、l To 15) As DoubleOn Error GoTo aOIf Text6.Text = ThenText6.Text = "0.00”End IfIfText7.Text = u,5 ThenText7.Text = "0.00”End IfIfText8.Text = ThenText8.Text = "0.00”End IfIfText9.Text = 4W ThenText9.Text = "0.00”End IfIfTextlO.Text = ThenTextl0.Text = "000”End IfIf Text 11.T

29、ext = ThenText 11.Text = u0.00"End IfIf Textl 2.Text = ThenTextl2.Text = "000”If Text 13.Text =ThenTextl3.Text = "000”End IfIfTextl4.Text = "" ThenTextl4.Text = u0.00"End IfIf Text 15.Text =ThenText 15.Text = "O.OO”End IfIf Textl 6.Text = ThenTextl6.Text = "0.

30、00”End IfIfTextl8.Text = "" ThenText 18.Text= "0.00”End IfIfTextl9.Text = u ThenTextl9.Text = "0.00nEnd Ifa(l) = CDbl(Text6.Text)a(2) = CDbl(Text7.Text)a(3) = CDbI(Text8.Text)a(4) = CDbl(Text9.Text)a(5) = CDbI(Text 10.Text)a(6) = CDbI(Textl l.Text)a(7) = CDbI(Text 12.Text)a(8) =

31、CDbI(Text 13.Text)a(9) = CDbI(Text 14.Text)a( 10) = CDbI(Text 15.Text)a( 11) = CDbl(Textl 6.Text)a( 12) = CDbl(Text 18.Text)a(13) = CDbl(Text 19.Text)a(14) = a(l) + a(2) + a(3) + a(4) + a(5) + a(6) 一 a(7) 一 a(8) 一 a(9) 一 a(10) + a(ll) + a(12) + a(13)Textl7.Text = a(14)Exit SubaO:MsgBox "工资各项数值不

32、能为字符串”, vbOKOnly, “提示信息”End SubPrivate Sub Command 10_Click()On Error GoTo aODim a As String, b As String, c As String, ww As StringIf Text21 .Text = ThenMsgBox "请输入查找条件”Exit SubEnd Ifa = Conibo5.Textb = Text21.Textc = a & u Like & b & “如Data 1 .Recordset.FindNext cIf Data 1 .Record

33、set.NoMatch ThenMsgBox “找不到与条件相符的记录”,vbOKOnly, “提示信息”Elseww = Data 1 .Recordset（"职工编号”）ww 二 "职工编号 like 6 & ww &Data3.Recordset.FindFirst wwEnd IfIf Data 1.Recordset.BOF Or Data 1 .Recordset.EOF ThenData 1 .Recordset.MoveLastData3.Recordset.MoveLastEnd IfExit SubaO:"MsgBox “找不到

34、与条件相符的记录”,vbOKOnly, “提示信息”End Sub423工资统计模块的实现2。”等3月工会钱,计及林门人9t“4(AJX/幺金做人该模块是对职工工资信息以部门为索引进行汇总，然后进行统计得到“全体职工 工资总额”，并提供打印功能。该模块部分功能源代码如下：Private Sub Form_Activate()On Error GoTo aODim a, b, ca = 0If Data 1 .Recordset.RecordCount = 0 ThenExit SubEnd IfData 1.Recordset.MoveFirstDo Until Data 1 .Records

35、et.EOFb = Datal.Recordset(“实发工资”)a = a + bData 1 .Recordset.MoveNextLoopLabel35.Caption = aLabel25.Caption = Data 1 .Recordset.RecordCounta = 0b = 0c = 0Data 1.Recordset.MoveFirstDatal.Recordset.FindFirst ”职工编号 like 'GDCW*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Datal.Recordset（“实发工资”

36、）c = b + cDatal.Recordset.FindNext''职工编号 like 'GDCW*'LoopLabel 16.Caption = aLabel26.Caption = ca = 0b = 0c = 0Data 1 .Recordset.MoveFirstDataLRecordset.FindFirst” 职工编号 like 'GDYY*'Do Until Data 1 .Recordset.NoMatchb = Datal. Recordset（“实发工资”）c = b + cDatal.Recordset.FindNext

37、 ”职工编号 like 'GDYY*'LoopLabel 17.Caption = aLabel27.Caption = ca = 0b = 0c = 0Data 1 .Recordset.MoveFirstDatal.Recordset.FindFirst''职工编号 like 'GDGC*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Datal.Recordset（"实发工资”）c = b + cDatal.Recordset.FindNext ”职工编号 like GDGC*

38、9;LoopLabel 18.Caption = aLabel28.Caption = ca = 0b = 0Data 1.Recordset.MoveFirstDataLRecordset.FindFirst ”职ZE编号 like 'GDSC*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Datal .Recordset（"实发工资”）c = b + cDatal.Recordset.FindNext''职工编号 like ,GDSC*'LoopLabel 19.Caption = aLab

39、el29.Caption = ca = 0b = 0c = 0Data 1 .Recordset.MoveFirstDataLRecordset.FindFirst ”职工编号 like 'GDRS*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Datal.Recordset。实发工资”）c = b + cDatal.Recordset.FindNext ”职工编号 like 'GDRS*'LoopLzabel20.Caption = aLabel30.Caption = ca = 0b = 0c = 0Data

40、 1.Recordset.MoveFirstDatal.Recordset.FindFirst ”职工编号 like 'GDBA*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Data 1.Recordset（"实发工资"）c = b + cDatal.Recordset.FindNext ”职工编号 like 'GDBA*'LoopLabel21.Caption = aLabel31 .Caption = ca = 0b = 0c = 0Data 1 .Recordset.MoveFirst

41、Datal.Recordset.FindFirst ”职工编号 like 'GDZW*'Do Until Data 1 .Recordset.NoMatchb = DataLRecordset（“实发工资”）c = b + cDataLRecordset.FindNext''职工编号 like 'GDZW*'LoopLzabel22.Caption = aLzabel32.Caption = ca = 0b = 0c = 0Data 1.Recordset.MoveFirstDatal.Recordset.FindFirst ”职工编号 like

42、 'GDGH*'Do Until Data 1 .Recordset.NoMatcha = a + 1b = Datal.Recordset（“实发工资”）c = b + cDataLRecordset.FindNext''职工编号 like 'GDGH*'LoopLabel23.Caption = aLzabel33.Caption = ca = 0b = 0c = 0Data 1.Recordset.MoveFirstDatal.Recordset.FindFirst ”职工编号 like 'GDJL*'Do Until Da

43、ta 1 .Recordset.NoMatcha = a + 1b = Datal.Recordset。实发工资”)c = b + cDatal.Recordset.FindNext”职工编号 like 'GDJL*'LoopLabel24.Caption = aLabel34.Caption = caO:End SubPrivate Sub Foirn_Load()Dim a As Integer, b As Integera = Year(Date)b = Month(Date)Label36.Caption = " " & a & &q

44、uot;年 "&b&” 月"End SubPrivate Sub Label 10_Click()On Error GoTo aOData2.Recordset.EditData2.Recordset(HbmH)= "生产部”Data2.Recordset.UpdateaO:Form 12.ShowEnd Sub Private Sub Label9_Click()On Error GoTo aOData2.Recordset.EditData2.Recordset("bm")= "人事部”Data2.Recordse

45、t.UpdateaO:Form 12.ShowEnd SubPrivate Sub ninuprint_Click()On Error GoTo aOMe.PrintFormaO:End SubPrivate Sub mnuquit_Click()Unload MeEnd Sub4.2.4部门查询模块的实现fRfnn0> 0) (0« n.pHraS* KsiS, pvK«7 *Zb*取工号 取工4tw n w 门 ,务 次友工*该模块是对部门为索引的“职工档案信息”进行查询，凡符合查找要求的职工将差 不多信息显示出来，如要了解更多的信息可单击该人员的职工编号可进行进

46、一步的查 询。该模块部分功能源代码如下：Option ExplicitDim reco As Integer. X As Integer. Y As Integer, z As IntegerPrivate Sub Commandl_Click()On Error GoTo aODini a As String, b As String, c As Stringa = Combo 1.TextCommand2.Enabled = FalseCommands.Enabled = FalseIf Combo 1.Text = ,rM ThenMsgBox ”请愉入查找条件”Exit SubEnd

47、IfLabel9.Caption =MMLabel lO.Caption = Label68.Caption =Label69.Caption =a = Combo 1.Textc = "部门 Like H, & a & ,HData 1.Recordset.FindFirst cIf Datal .Recordset.NoMatch ThenExit SubElseLabel9.Caption = Datal .Recordset（“职工编号”） b = Datal .Recordset（“职工编号”）Label29.Caption = Datal .Records

48、et（"职工姓名”）LabcI39.Caption = Datal .Recordset（“性别”）Label49.Caption = DataLRecordseK” 部门”）Label59.Caption = Datal .Recordset（“职务”）b = ”职工编号Like H, & b &Data2.Recordset.FindFirst bLabel69.Caption = Data2.Recordset（“实发工资”）reco = 1End IfIf Data 1.Recordset.BOF ThenData 1.Recordset.MoveFirstE

49、nd IfIf Data 1 .Recordset.EOF ThenData 1.Recordset.MoveLastEnd IfData 1.Recordset.FindNext cIf Datal .Recordset.NoMatch ThenExit SubElseLabel lO.Caption = DataLRecordset（”职工编号”）b = DataLRecordset。职工编号”）Labcl28.Caption = Datal .Recordset（"职工姓名”）Label38.Caption = DataLRecordset（“性别”）Label48.Capti

50、on = Datal .Recordset（“部门”）Label58.Caption = DataLRecordset（“职务”）b = ”职工编号Like”'&b&Data2.Recordset.FindFirst bLabel68.Caption = Data2. Recordset（“实发工资”） reco = reco + 1End IfIf Data 1.Recordset.BOF ThenData 1.Recordset.MoveFirstEnd IfIf Data 1 .Recordset.EOF ThenData 1 .Recordset.MoveLas

51、tEnd If If Data 1.Recordset.BOF ThenData 1 .Recordset.MoveFirstEnd IfIf Data l.Recordset.EOF ThenData 1 .Recordset.MoveLastEnd IfCommand?.Enabled = TrueExit SubaO:MsgBox "找不到与条件相符的记录、vbOKOnly, "提示信息”End Sub Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

52、 Single)If Label9.Caption = ThenLabel9.MousePointer = 0Exit SubElseLabcl9.MouseIcon = Image 1. PictureLabcl9.MousePointer = 99End If End SubPrivate Sub mnuquit_Click()Unload Me End SubPrivate Sub Timerl_Timer()Label2.Caption = timeEnd Sub4. 2. 5专门查询模块的实现该模块是对日期型字段和合同期限的“人员信息”进行查询。对日期型字段的查询具体表现为：系统将按

53、用户所需的查找范畴进行查询，并将查找的信息显示出来。如要了解更多 的信息可双击该人员的职工编号可进行进一步的查询。对合同期限的查询具体表现为：系统将职工的“入单位时刻”字段、“合同期限”字段和当前日期进行运算得到合 同期限的剩余时刻，并将查找的信息显示出来。如该时刻小于等于零，将“合同期限” 反显伴有报警声显现。如要了解更多的信息可双击该人员的职工编号可进行进一步的查 询。该模块部分功能源代码如下：Option ExplicitDim reco As Integer, X As Integer, Y As Integer, z As IntegerPrivate Sub Combo l_Cli

54、ck()Dim a As StringLabel3.Caption = aEnd SubPrivate Sub Conimand7_Click()Text31 .Locked = FalseText32,Locked = FalseCombo 1. Locked = FalseCommand 1 .Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer 1.Interval = 1000Command 1 .Enabled = FalseComniand2.Enabled = FalseConiman

55、d3.Enabled = FalseConimand4.Enabled = FalseComniand5.Enabled = FalseCommand6.Enabled = FalseCommand?.Enabled = FalseText31 .Locked = TrueText32.Locked = TiueCombo 1. Locked = TrueEnd SubPrivate Sub Image3_Click（）Image4.Picture = Image2.PictureImage3.Picture = Image 1 .PictureLabel3.Caption ="合同

56、期限（天）"Command4.Enabled = TrueCommand5 .Enabled = Trueommandb.Enabled = TrueExit SubEnd Ifb = Datal .Recordset（"入单位时刻”）Text3.Text = Datal. Recordset（"职工编号”）Text4.Text = Datal. Recordset（"职工姓名”）Text22.Text = CInt（Datal.Recordset（"合同期限"）* 365 - （a - b）If CInt（Datal.Recordset（“合同期限”）* 365 - （a - b） < 1 ThenText22.BackColor = &H