人事管理系统》说明书57778.docx

《人事管理系统》说明书57778.docx》由会员分享，可在线阅读，更多相关《人事管理系统》说明书57778.docx（53页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、的”人员档档案信息息”查询功功能。(5) 特特殊查询询 提供对对日期型型字段和和合同期期限的”人员档档案信息息”查询功功能。(6) 报报表查询询提供对工资资、职工工履历的的信息以以报表的的形式供供用户查查询、打打印，另外用用户还可可以对这这些基本本信息进进行保存存目录的的选择，使使信息更更加安全全，根据据一定的的权限使使作废能能方便地地更新信信息和删删除无用用数据。由于毕业设设计时间间较短，我我们对VVB程序序的认识识还不够够深刻这这次的成成果还有有许多的的不足需需要我们们在以后后去提高高。关键词：管管理系统统，信息息检索，人人力资源源，主键键，窗口口。前 言随着科学技技术的不不断提高高，计算

4、机机科学日日渐成熟熟，其强大大的功能能已为人人们深刻刻认识，它已进进入人类类社会的的各个领领域并发发挥着越越来越重重要的作作用。尤其是信息息系统随随着计算算机技术术和网络络技术等等信息技技术的发发展而不不断的发发展，管管理信息息系统MMIS，决决策支持持系统DDSS，总总裁信息息系统EEIS，办办公自动动化系统统OA，国国际电子子商贸系系统EDDI等等等层出不不穷，在在国际交交往，企企业管理理中发挥挥着越来来越重要要的作用用，例如如人们熟熟知的办办公自动动化系统统OA，极极大地提提高了我我们的办办公效率率，但仍仍然与我我们传统统的中华华文化有有着不小小的差异异，其他他国际企企业界较较为流行行的

5、决策策支持系系统DSSS，总总裁信息息系统EEIS等等，由于于大多由由国外软软件商开开发而成成与我国国的国情情相比有有很大的的差异，不不能发挥挥全部的的作用，甚甚至被多多数企业业束之高高阁。由由于我国国社会制制度的特特殊性，人人事管理理系统就就更加没没有现成成的可直直接使用用的管理理系统。作为计算机机应用的的一部分分，使用计计算机对对人事劳劳资信息息进行管管理，具有着着用手工管管理所无无法比拟拟的优点点。例如:检索迅迅速、查查找方便便、可靠靠性高、存存储量大大、保密密性好、寿寿命长、成成本低等等。这些些优点能能够极大大地提高高人事劳劳资管理理的效率率，也是企企业的科科学化、正正规化管管理，与世

6、界界接轨的的重要条条件。人事管理系系统是一一个企业业单位不不可缺少少的部分分，它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要，所以人人事劳资资管理系系统应该该能够为为用户提提供充足足的信息息和快捷捷的查询询手段。但但一直以以来人们们使用传传统人工工的方式式管理文文件档案案，这种种管理方方式存在在着许多多缺点，如：效效率低、保保密性差差，另外时时间一长长，将产生生大量的的文件和和数据，这对于于查找、更更新和维维护都带带来了不不少的困困难。因此，开发发这样一一套管理理软件成成为很有有必要的的事情，在下面面的各章章中我们们将以开开发这套符合企企业管理理需要的的人事管管理系统统为题目目，

7、谈谈这次次毕业设设计的选选题思路路与设计计实践过过程和所所涉及到到的问题题及解决决方法。第一章 绪 论1.1信息息化的发发展随着人类迈迈入二十十一世纪纪， 计计算机技技术、通信技技术、网络技技术为代代表的现现代信息息技术的的飞跃发发展，人人类正在在从工业业时代向向信息时时代迈进进，人们们越来越越重视信信息资源源的开发发和利用用，”信息化化”已成为为一个国国家经济济和社会会发展的的关键环环节，信信息化水水平的高高低已成成为衡量量一个国国家现代代化水平平和综合合国力的的重要标标志，信信息化的的实质是是使信息息 这一社社会的主主导资源源充分发发挥作用用，可以以说推广广信息技技术是手段，真真正利用用信

8、息是是目的，信信息化则则是实现现目的的的过程。119933年，美美国提出出建立“信息高高速公路路”，有称称国家信信息基础础设施（NII）的计划，其核心是建立全国的高速网络，把所有的计算机网络连接起来。这个计划的实现将对经济和社会生活产生重大的影响，由此引起的信息化建设浪潮已波及世界各国。我国自19983年年大力推推广微型型计算机机应用以以来，在在管理信信息领域域，无论论在理论论方面，还还是在实实践方面面都有了了很大的的发展。119866年2月月国务院院批准建建设了国国家经济济信息系系统，全全国从中中央到省省、市地方方都陆续续成立了了信息中中心，各各行各业业应用电电子计算算机的热热情普遍遍高涨。

9、目目前，已已从单项项业务的的信息管管理迅速速向综合的的管理层层和决策策层的信信息管理理发展，应应用水平平日趋提提高；以以金桥工工程、金关工工程和金金卡工程程为代表表的国民民经济信信息工程程也正在在加速建建设。1.2系统统开发背背景由于前言中中所阐述述的原因因，现在在我们大大齿集团团公司的人事档档案的管管理水平平还停留留在计算算机加纸纸介质办办公的尴尬境境界，这这样的机机制已经经不能适适应时代代的飞速速发展，因因为这种种管理水水平不能能充分发发挥先进进的高性性能计算算机的作作用，同同时又浪浪费了许许多人力力和办公公用品，在在信息时时代若想想取代这这种不合合理的管管理方法法就必须须由我们们熟悉企企

10、业内部部特点的的新一代代青年人人为企业业分忧解解难，开开发出符符合企业业管理特特点的软软件。我们作为学学习计算算机信息息管理的的大学生生，希望望可以在在这方面面有所贡贡献。我我们希望能能用两年年来所学学的知识识，利用用毕业设设计的实实践活动动开发出出一个符符合企业业管理特特点的实用程序序，既检检验我们们所学的的知识，完完成毕业业设计，又又能帮助助公司进进行更有有效的人人事管理理。 归纳起来，好好处大约约有以下下几点：1 可以以存储所所有职工工的人事事档案和和工资档档案，安安全、高高效地管管理企业业的人力力资源，并并希望今今后成为为企业决决策管理理系统的的一部分分，联机机并网，发发挥更大大的作用

11、用；2 只需需一到二二名录入入员即可可操作系系统，节节省大量量人力，通通过企业业内部局局域网省省去打印印环节即即可直接接获取人人力资源源信息，即即高效，又又节约；3 各部部门负责责人根据据权限级级别，可可以迅速速查到所所需人力力资源信信息。1.3课题题研究的的目的人事管理系系统是一一个企业业单位不不可缺少少的部分分,它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要,所以人人事管理理系统应应该能够够为用户户提供充充足的信信息和快快捷的查查询手段段。但一一直以来来人们无无法脱离离传统人人工的方方式管理理档案文件件，克服服落后的的管理方方式存在在着的许多缺缺点,如:效率低低、保密密性差，

12、另外时时间一长长,将产生生大量的的文件和和数据,这对于于查找、更更新和维维护都带带来了不不少的困困难。就就是因为为没有一一套完整整的适应应企业管管理特点点的系统统。作为计算机机应用的的一部分分,使用计计算机对对人事劳劳资信息息进行管管理,具有着着手工管管理所无无法比拟拟的优点点.例如:检索迅迅速、查查找方便便、可靠靠性高、存存储量大大、保密密性好、寿寿命长、成成本低等等。这些些优点能能够极大大地提高高人事劳劳资管理理的效率率,也是企企业的科科学化、正正规化管管理,与世界界接轨的的重要条条件。1.4系统统设计的的指导思思想针对大齿集集团公司司的实际际境况开开发，实实用性强强。公司司内部实实现信息

13、息化、可视化化管理，充充分考虑虑到公司司的集成成化管理理发展的需需要。使这个个系统具具有良好好的人机机交流界界面，可可操作性性强，运运行速度度快，数数据安全全可靠，第二章 开发发人事管管理系统统的问题题2.1人事事管理系系统的简简介人事管理系系统是针针对人事事部的大大量业务务处理工工作而开开发的管管理软件件。根据据用户的的要求，在大量调查研究的基础上充分考虑各种企业特色需求来实现人员基本情况管理、和工资管理高效查询，资源共享等几个方面的功能。设计出符合合企业需需要的管管理模块块，使用用户通过过输入工工资、职职工履历历等基本本信息，由系统统自行生生成相应应的统计计数据及及各类统统计报表表以供用用

14、户查询询、打印印，另外用用户还可可以对这这些基本本信息进进行定期期的更新新和删除除，人事管管理系统统力求给给用户方方便快捷捷的途径径去管理理这些繁繁琐的数数据。总体功能能需求人事管理系系统是针针对人事事处的大大量业务务处理工工作用计计算机进进行全面面现代化化管理。主要包包括人员员基本情情况管理理、和工工资管理理的高效效查询，资资源共享享等几个个方面的的功能，以实现现用户方方便的输输入、查查询、统统计、打打印相关关报表的的业务需需求。具体系统统功能需需求描述述(1) 档档案信息息管理 提供对对”人员档档案信息息”数据输输入、查查询功能能。(2) 工工资管理理提供对”职职工工资资表”数据的的输入、

15、查查询、统统计功能能，并能能迅速为为企业财财务部门门快速提提供工资资变更信信息。(3) 工工资统计计提供对“职职工工资资表”数据的的月统计计，由系统统自行生生成“职工工工资构成成情况表表”实现该该表的查查询、打打印功能能。(4) 部部门查询询 提供以以某一部部门为索索引的”人员档档案信息息”查询功功能。(5) 特特殊查询询 提供对对日期型型字段和和合同期期限的”人员档档案信息息”查询功功能。(6) 报报表查询询提供对工资资、职工工履历的的信息以以报表的的形式供供用户查查询、打打印，另外用用户还可可以对这这些基本本信息进进行保存存目录的的选择，使使信息更更加安全全，根据据一定的的权限使使作废能能

16、方便地地更新信息息和删除除无用数数据。第三章 人事管管理系统统的分析析和设计计3.1 人人事管理理系统的的分析和和概要设设计根据实际情情况，我我们使用用原型法法（Raapidd Prrotootyppingg）即以以少量代代价快速速地构造造一个可可执行的的软件系系统模型型。使用用户和开开发人员员可以较较快地确确定需求求，然后后采用循循环进化化的开发发方式，对对系统模模型作连连续的精精化，将将系统需需具备的的性质逐逐渐增加加上去，直直到所有有的性质质全部满满足。此此时模块块也发展展成为最最终产品品了。通过对用户户需求的的分析，我我们可以以分析出出该人事事管理系系统大致致可以分分为六个个模块：人事

17、档档案管理理模块、职职工工资资管理模模块、工工资统计计模块的的实现、部门查查询模块块、特殊查查询模块块、报表查查询模块块。现在对这六六个模块块做具体体说明：人事基本情情况管理理模块：输入：职工工信息输出：“人人员档案案表”功能：对人人事基本本信息的的查询职工工资管管理模块块输入：人员员月工资资 输出：“职工工工资表”功能：完成成员工工工资的查查询工资统计模模块 输出：“职工工工资统计计表”功能：完成成员工工工资的统统计和打打印 部门查查询模块块 输出：以部门门为索引引的“职工档档案信息息”功能：完成成以部门门为索引引的“职工档档案信息息”的统计计和查询询 特殊查查询模块块的实现现 输出：满足查

18、查询条件件的“职工档档案信息息”和职工工合同的的期限功能：完成成满足查查询条件件的“职工档档案信息息”和职工工合同的的期限的的查询 报表查查询模块块的实现现输出：员工工履历信信息和工工资信息息的基本本情况 查询及及打印功功能 功能：完完成对员员工履历历信息和和工资信信息基本本情况的的查询及及打印3.2 人人事管理理系统数数据库设设计由于考虑到到本系统统初始阶阶段是应应用在单单机系统统上，与与完成毕毕业设计计时间短短的关系系，我们们先只建立立起一个个数据库库，在此此数据库库基础上上建立起起如下表表：职工基本本信息表表eemplloyeee_iinfoormaatioon_ttablle职工工资资

19、表 empployyee_sallaryy_taablee系统信息息表 sysstemm_taablee 下面我们详详细说明明：职工基本本信息表表eemplloyeee_iinfoormaatioon_ttablle主键：职工工编号WWorkkerccodee职工编号WorkeercoodeStrinng Noo部门DeparrtmeenStrinng Noo 职务PrinccipaalshhipStrinng Noo职工姓名NameStrinng Noo 身份证号IDStrinng Noo 性别SexStrinng Noo出生日期BirthhDayy Date 8 Noo婚否MarryySt

20、rinng Noo文化程度Wen_HHuaStrinng Noo政治面目Zhengg_MiianStrinng Noo毕业时间Time_GruuduaatioonDate 88 Noo毕业学校Schoool_GGrudduattionnStrinng Noo所学专业SpeciialiityStrinng Noo联系电话Contaact_tellephhoneeStrinng Yees籍贯Nativve _plaaceStrinng Yees民族FolkStrinng Yees家庭地址AddreessStrinng Noo邮政编码Post_NO。Strinng Yees如单位时间间Time_in

21、pputDate 8 Yees合同期限Qi_XiianIntegger22 Yees职称Zhi_CChenngStrinng Noo评定时间Assesss_TTimeeDate照片PhotooBinarry Yees备注MemoMemo Noo职工工资资表 empployyee_sallaryy_taablee主键：职工工编号WWorkkerccodee，日期期Datte职工编号WorkeercoodeStrinng NNo职工姓名NameStrinng NNo年/月Year/monnthStrinng NNo技能工资Salarry_jjnDoublle 8 22 NNo工龄工资Salarry

22、_gglDoublle 8 22 YYes岗位工资Salarry_ggwDoublle 8 22 YYes职务工资Salarry_zzhwDoublle 8 22 YYes洗理费Chargge_xxlDoublle 8 22 YYes房屋补贴Subsiidy_fwDoublle 8 22 YYes交通补贴Subsiidy_jtDoublle 8 22 YYes价格补贴Subsiidy_priiceDouelle 8 22 YYes工会会费Chargge_gghDoublle 8 22 YYes房屋租金Chargge_ffwDoublle 8 22 YYes养老保险Insurrancce_yyl

23、Doublle 8 22 YYes建房扣款KK_jffDoublle 8 22 YYes扣款KKDoublle 8 22 YYes实发工资Salarry_ssfDoublle 8 22 NNo系统信息息表 sysstemm_taablee 主键：用户户名Usseidd用户名UsenaameStrinng YYes密码PasswworddStrinng YYes第四章 人事事管理系系统的具具体实现现4.1模块块化的开开发环境境的简介介_Viisuaal BBasiicVisuaal BBasiic 是是在 WWinddowss 环境境中广泛泛使用的的应用程程序设计计语言，它它以Baasicc语言

24、基基础，具具有可视视化、 面向对对象程序序设计、 事件件驱动机机制等特特点。可视化程序序设计是是指开发发图形用用户界面面的一种种方法，使使用这种种方法，编编程人员员不必编编写大量量的代码码去描述述用户界界面上元元素的位位置和外外观，比比如命令令按钮、文文本框、组合框框等元素素，编程程人员只只需在“可视”的编程程环境下下，用鼠鼠标将VVB中预预先建立立的界面面元素拖拖放到用用户图形形界面的的适应位位置上，并并且用鼠鼠标还可可直接修修改用户户界面上上元素的的外观等等特性。采采用可视视化程序序设计方方法，大大大的减减少了编编程人员员的编码码工作量量，并能能轻松快快捷地设设计出友友好的用用户界面面，从

25、而而提高应应用程序序的开发发效率。Visual Basic是一种面向图形用户界面的、交互性讲的可视编程工具。4.1.11事件驱驱动的应应用程序序Visuaal BBasiic使用用的是一一种“事件驱驱动”机制。所所谓“事件驱驱动”机制是是指Wiindoows应应用程序序是通过过事件来来驱动运运行的，当当用户或或者系统统触发对对象的某某个事件件时，系系统自动动地执行行与该事事件相关关的一段段代码来来响应，完完成特定定的功能能。例如如，用户户界面上上有一个个命令按按钮，当当用户单单击该按按钮时，命命令按钮钮将触发发事件，而而当该事事件发生生时，由由系统自自动执行行一段与与该事件件相应的的代码，完完

26、成指定定的操作作，当该该操作完完成后，应应用程序序将暂停停，等待待狭义事事件的发发生。在“事件驱驱动”机制下下，应用用程序的的执行过过程完全全由对象象事件驱驱动实现现，与传传统的面面向过程程的应用用程序的的执行过过程完全全不同。4.1.22面向对对象的编编程Visuaal BBasiic采用用面向对对象技术术，利用用对象的的属性、事件和和方法进进行程序序设计，从从而实实现应用用程序的的特定需需要。在在Vissuall Baasicc中，对对象无处处不在，窗窗体、命令按按钮、文本框框、组合框框等用于于设计用用户图形形界面的的元素都都是对象象。利用用Vissuall Baasicc的对象象编程技技

27、术，就就好像在在一块空空白的画画布上，通通过设置置对象的的属性，使使用对象象的方法法，编程程对象的的事件过过程，将将系统预预先建立立的对象象，按照照设计要要求将它它们有机机地组合合起来，勾勾画出一一幅完美美的图画画，从而而完成用用户需求求。4.2系统统模块的的具体实实现在本系统中中有六个个模块组组成。它它们分别别是员工工基本信信息模块块、员工工工资管管理模块块、工资资统计模模块的实实现、部门查查询模块块的实现现、特殊查查询模块块的实现现、报表查查询模块块的实现现，下面面就开发发这几个个模块的的过程及及所遇到到的问题题分别加加以介绍绍。4.2. 1人事档案案信息模模块 履历表该模块主要要完成员员

28、工基本本信息的的录入、查查询、统统计及打打印功能能。 (其流程程图如图图3.22.1.1所示示) 源文件 主文件更新模块 更新文件 计算机打印模块人事变动资料图4.2.1.1 人人事系统统档案信信息系统统流程图图该模块部分分功能源源代码如如下：Optioon EExplliciitPrivaate Decclarre FFuncctioon GGetMMenuu Liib useer322 (ByVVal hwnnd AAs LLongg) AAs LLonggPrivaate Decclarre FFuncctioon GGetSSubMMenuu Liib useer322 (ByVVal

29、 hMeenu As Lonng, ByVVal nPoos AAs LLongg) AAs LLonggPrivaate Decclarre FFuncctioon SSetMMenuuIteemBiitmaaps Libb uuserr32 (BByVaal hhMennu AAs LLongg, BByVaal nnPossitiion As Lonng, ByVVal wFllagss Ass Loong, ByyVall hBBitmmapUUnchheckked As Lonng, ByVVal hBiitmaapChheckked As Lonng) As LonngConstt

30、 myyflaag = &HH8000&Dim aadd, allertt Ass InnteggerPrivaate Subb aaa()Privaate Subb Coomboo6_CClicck()Selecct CCasee Coomboo6.TTexttCase 生产产部Comboo7.CCleaarComboo7.AAddIItemm 经经理Comboo7.AAddIItemm 主主管Comboo7.AAddIItemm 职职员Comboo7.TTextt = Commbo77.Liist(0)Case 总经经理室Comboo7.CCleaarComboo7.AAddIItemm

31、总总经理Comboo7.AAddIItemm 秘秘书Comboo7.TTextt = Commbo77.Liist(0)End SSeleectEnd SSubPrivaate Subb Coomboo7_CChannge()End SSubPrivaate Subb Daata11_Reepossitiion()If Daata11.Reecorrdseet.RRecoordCCounnt = 0 TheenElseIf Coomboo6.TTextt = 生产产部 TheenComboo7.CCleaarComboo7.AAddIItemm 经经理Comboo7.AAddIItemm 主主

32、管Comboo7.AAddIItemm 职职员Comboo7.TTextt = Datta1.Reccorddsett(职职务)ElseComboo7.CCleaarComboo7.AAddIItemm 经经理Comboo7.AAddIItemm 主主管Comboo7.AAddIItemm 职职员Comboo7.TTextt = Datta1.Reccorddsett(职职务)End IIfEnd IIfEnd SSubPrivaate Subb Tiimerr1_TTimeer()Labell29.Capptioon = tiimeEnd SSub4.2.22工资管管理模块块该模块是完完成对

33、员员工的工工资信息息的输入入、查询询、并以以此进行行统计获获得“职工实实发工资资”。此模块主要要包括工工资录入入、职工工实发工工资统计计和职工工工资总总额信息息，后两两者是通通过点击击汇总和和统计工工资按钮钮获得。(其流程图如图4.2.2.1所示)扣款单工资单 主文件更新模块上月主文件本月主文件 计算机打印模块工资表图4.2.1.1 人人事系统统工资信信息系统统流程图图此窗口“职工工工资统计计表”的数据据源均是是从数据据库EMMPOYYEE_SALL表。该模块部分分功能源源代码如如下：Privaate Subb Coommaand11_Cllickk()Dim aa(1 To 15) Ass

34、DooublleOn Errrorr GooTo a0If Teext66.Teext = “” TThennText66.Teext = “0.000”End IIfIf Teext77.Teext = “” TThennText77.Teext = “0.000”End IIfIf Teext88.Teext = “” TThennText88.Teext = “0.000”End IIfIf Teext99.Teext = “” TThennText99.Teext = “0.000”End IIfIf Teext110.TTextt = “” TThennText110.TTextt

35、= “0.000”End IIfIf Teext111.TTextt = “” TThennText111.TTextt = “0.000”End IIfIf Teext112.TTextt = “” TThennText112.TTextt = “0.000”End IIfIf Teext113.TTextt = “” TThennText113.TTextt = “0.000”End IIfIf Teext114.TTextt = “” TThennText114.TTextt = “0.000”End IIfIf Teext115.TTextt = “” TThennText115.TT

36、extt = “0.000”End IIfIf Teext116.TTextt = “” TThennText116.TTextt = “0.000”End IIfIf Teext118.TTextt = “” TThennText118.TTextt = “0.000”End IIfIf Teext119.TTextt = “” TThennText119.TTextt = “0.000”End IIfa(1) = CCDbll(Teext66.Teext)a(2) = CCDbll(Teext77.Teext)a(3) = CCDbll(Teext88.Teext)a(4) = CCDbl

37、l(Teext99.Teext)a(5) = CCDbll(Teext110.TTextt)a(6) = CCDbll(Teext111.TTextt)a(7) = CCDbll(Teext112.TTextt)a(8) = CCDbll(Teext113.TTextt)a(9) = CCDbll(Teext114.TTextt)a(10) = CDbbl(TTextt15.Texxt)a(11) = CDbbl(TTextt16.Texxt)a(12) = CDbbl(TTextt18.Texxt)a(13) = CDbbl(TTextt19.Texxt)a(14) = a(11) + a(

38、2) + aa(3) + a(44) + a(5) + aa(6) a(7) a(8) a(9) a(10) + a(111) + aa(122) + a(13)Text117.TTextt = a(114)Exit Subba0:MsgBoox “工资各各项数值值不能为为字符串串”, vvbOKKOnlly, “提示信信息”End SSubPrivaate Subb Coommaand110_CClicck()On Errrorr GooTo a0Dim aa Ass Sttrinng, b AAs SStriing, c As Strringg, www AAs SStriing If T

39、Textt21.Texxt = “” TThennMsgBoox “请输入入查找条条件”Text221.SSetFFocuusExit SubbEnd IIf a = Commbo55.Teext b = Texxt211.Teextc = aa & “ Liike ” & b & “”Data11.Reecorrdseet.FFinddNexxt ccIf Daata11.Reecorrdseet.NNoMaatchh ThhenMsgBoox “找不到到与条件件相符的的记录”, vvbOKKOnlly, “提示信信息”Elseww = Datta1.Reccorddsett(“职工编编号”

40、)ww = “职工编编号 llikee ” & www & “”Data33.Reecorrdseet.FFinddFirrst wwEnd IIfIf Daata11.Reecorrdseet.BBOF Or Datta1.Reccorddsett.EOOF TThennData11.Reecorrdseet.MMoveeLasstData33.Reecorrdseet.MMoveeLasstEnd IIfExit Subba0:MsgBBox “找不到到与条件件相符的的记录”, vvbOKKOnlly, “提示信信息”End SSub4.2.33工资统统计模块块的实现现该模块是对对职工工工

41、资信息息以部门门为索引引进行汇汇总，然然后进行行统计得得到“全体职职工工资资总额”，并提提供打印印功能。该模块部分分功能源源代码如如下：Privaate Subb Foorm_Acttivaate()On Errrorr GooTo a0Dim aa, bb, cca = 00If Daata11.Reecorrdseet.RRecoordCCounnt = 0 TheenExit SubbEnd IIfData11.Reecorrdseet.MMoveeFirrstDo Unntill Daata11.Reecorrdseet.EEOFb = DDataa1.RRecoordsset(实发发

42、工资)a = aa + bData11.Reecorrdseet.MMoveeNexxtLoopLabell35.Capptioon = aLabell25.Capptioon = Daata11.Reecorrdseet.RRecoordCCounnta = 00b = 00c = 00Data11.Reecorrdseet.MMoveeFirrstData11.Reecorrdseet.FFinddFirrst 职工工编号 likke GDCCW* Do Unntill Daata11.Reecorrdseet.NNoMaatchha = aa + 1b = DDataa1.RRecoor

43、dsset(实发发工资)c = bb + cData11.Reecorrdseet.FFinddNexxt 职工编编号 llikee GGDCWW* LoopLabell16.Capptioon = aLabell26.Capptioon = ca = 00b = 00c = 00Data11.Reecorrdseet.MMoveeFirrstData11.Reecorrdseet.FFinddFirrst 职工工编号 likke GDYYY* Do Unntill Daata11.Reecorrdseet.NNoMaatchha = aa + 1b = DDataa1.RRecoordsset(实发发工资)c = bb + cData11.Reecorrdseet.FFinddNexxt 职工编编号 llikee GGDYYY* LoopLabell17.Capptioon = aLabell27.Capptioon = ca = 00b = 00c