《《人事管理系统》说明书595.docx》由会员分享，可在线阅读，更多相关《《人事管理系统》说明书595.docx（40页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、太原科技大学成人教育学院2005届本科毕业设计说明书摘要由于各种种原因，现现在我们们大齿集集团公司司的人事事档案的的管理水水平还停停留在计计算机加加纸介质质办公的的尴尬境境界，这这样的机机制已经经不能适适应时代代的飞速速发展，因因为这种种管理水水平不能能充分发发挥先进进的高性性能计算算机的作作用，同同时又浪浪费了许许多人力力和办公公用品，在在信息时时代若想想取代这这种不合合理的管管理方法法就必须须由我们们熟悉企企业内部部特点的的新一代代青年人人为企业业分忧解解难，开开发出符符合企业业管理特特点的软软件，利利用毕业业设计的的实践活活动开发发出一个个符合企企业管理理特点的的实用程程序，既既检验我我
2、们所学学的知识识，完成成毕业设设计，又又能帮助助公司进进行更有有效的人人事管理理。系统设计计的指导导思想是是，针对对大齿集集团公司司的实际际境况开开发，实实用性强强。公司司内部实实现信息息化、可可视化管管理，充充分考虑虑到公司司的集成成化管理理发展的的需要。力求使使这个系系统具有有良好的的人机交交流界面面，符合合公司人人事管理理的实际际需要，可可操作性性强，运运行速度度快，数数据安全全可靠。具体系系统功能能需求描描述(1) 档案信信息管理理 提供供对”人员档档案信息息”数据输输入、查查询功能能。(2) 工资管管理提供对”职工工工资表”数据的的输入、查询、统计功功能，并并能迅速速为企业业财务部部
3、门快速速提供工工资变更更信息。(3) 工资统统计提供对“职工工工资表”数据的的月统计计，由系统统自行生生成“职工工工资构成成情况表表”实现该该表的查查询、打打印功能能。(4) 部门查查询 提供供以某一一部门为为索引的的”人员档档案信息息”查询功功能。(5) 特殊查查询 提供供对日期期型字段段和合同同期限的的”人员档档案信息息”查询功功能。(6) 报表查查询提供对工工资、职职工履历历的信息息以报表表的形式式供用户户查询、打印，另外用用户还可可以对这这些基本本信息进进行保存存目录的的选择，使使信息更更加安全全，根据据一定的的权限使使作废能能方便地地更新信信息和删删除无用用数据。由于毕业业设计时时间
4、较短短，我们们对VBB程序的的认识还还不够深深刻这次次的成果果还有许许多的不不足需要要我们在在以后去去提高。关键词：管理系系统，信信息检索索，人力力资源，主主键，窗窗口。前 言言随着科学学技术的的不断提提高，计算机机科学日日渐成熟熟，其强大大的功能能已为人人们深刻刻认识，它已进进入人类类社会的的各个领领域并发发挥着越越来越重重要的作作用。尤其是信信息系统统随着计计算机技技术和网网络技术术等信息息技术的的发展而而不断的的发展，管管理信息息系统MMIS，决决策支持持系统DDSS，总总裁信息息系统EEIS，办办公自动动化系统统OA，国国际电子子商贸系系统EDDI等等等层出不不穷，在在国际交交往，企企
5、业管理理中发挥挥着越来来越重要要的作用用，例如如人们熟熟知的办办公自动动化系统统OA，极极大地提提高了我我们的办办公效率率，但仍仍然与我我们传统统的中华华文化有有着不小小的差异异，其他他国际企企业界较较为流行行的决策策支持系系统DSSS，总总裁信息息系统EEIS等等，由于于大多由由国外软软件商开开发而成成与我国国的国情情相比有有很大的的差异，不不能发挥挥全部的的作用，甚甚至被多多数企业业束之高高阁。由由于我国国社会制制度的特特殊性，人人事管理理系统就就更加没没有现成成的可直直接使用用的管理理系统。作为计算算机应用用的一部部分，使用计计算机对对人事劳劳资信息息进行管管理，具有着着用手工管管理所无
6、无法比拟拟的优点点。例如:检索迅迅速、查查找方便便、可靠靠性高、存储量量大、保保密性好好、寿命命长、成成本低等等。这些些优点能能够极大大地提高高人事劳劳资管理理的效率率，也是企企业的科科学化、正规化化管理，与世界界接轨的的重要条条件。人事管理理系统是是一个企企业单位位不可缺缺少的部部分，它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要，所以人人事劳资资管理系系统应该该能够为为用户提提供充足足的信息息和快捷捷的查询询手段。但一直直以来人人们使用用传统人人工的方方式管理理文件档档案，这这种管理理方式存存在着许许多缺点点，如：效效率低、保密性性差，另外时时间一长长，将产生生大量的的文件和
7、和数据，这对于于查找、更新和和维护都都带来了了不少的的困难。因此，开开发这样样一套管管理软件件成为很很有必要要的事情情，在下面面的各章章中我们们将以开开发这套符合企企业管理理需要的的人事管管理系统统为题目目，谈谈这次次毕业设设计的选选题思路路与设计计实践过过程和所所涉及到到的问题题及解决决方法。第一章 绪 论论1.1信信息化的的发展随着人类类迈入二二十一世世纪， 计算机机技术、通信技技术、网络技技术为代代表的现现代信息息技术的的飞跃发发展，人人类正在在从工业业时代向向信息时时代迈进进，人们们越来越越重视信信息资源源的开发发和利用用，”信息化化”已成为为一个国国家经济济和社会会发展的的关键环环节
8、，信信息化水水平的高高低已成成为衡量量一个国国家现代代化水平平和综合合国力的的重要标标志，信信息化的的实质是是使信息息 这一社社会的主主导资源源充分发发挥作用用，可以以说推广广信息技技术是手段，真真正利用用信息是是目的，信信息化则则是实现现目的的的过程。19993年，美美国提出出建立“信息高高速公路路”，有称称国家信信息基础础设施（NII）的计划，其核心是建立全国的高速网络，把所有的计算机网络连接起来。这个计划的实现将对经济和社会生活产生重大的影响，由此引起的信息化建设浪潮已波及世界各国。我国自119833年大力力推广微微型计算算机应用用以来，在在管理信信息领域域，无论论在理论论方面，还还是在
9、实实践方面面都有了了很大的的发展。19886年22月国务务院批准准建设了了国家经经济信息息系统，全全国从中中央到省省、市地方方都陆续续成立了了信息中中心，各各行各业业应用电电子计算算机的热热情普遍遍高涨。目前，已已从单项项业务的的信息管管理迅速速向综合的的管理层层和决策策层的信信息管理理发展，应应用水平平日趋提提高；以以金桥工工程、金关工工程和金金卡工程程为代表表的国民民经济信信息工程程也正在在加速建建设。1.2系系统开发发背景由于前言言中所阐阐述的原原因，现现在我们们大齿集集团公司司的人事档档案的管管理水平平还停留留在计算算机加纸纸介质办办公的尴尬境境界，这这样的机机制已经经不能适适应时代代
10、的飞速速发展，因因为这种种管理水水平不能能充分发发挥先进进的高性性能计算算机的作作用，同同时又浪浪费了许许多人力力和办公公用品，在在信息时时代若想想取代这这种不合合理的管管理方法法就必须须由我们们熟悉企企业内部部特点的的新一代代青年人人为企业业分忧解解难，开开发出符符合企业业管理特特点的软软件。我们作为为学习计计算机信信息管理理的大学学生，希希望可以以在这方方面有所所贡献。我们希望能能用两年年来所学学的知识识，利用用毕业设设计的实实践活动动开发出出一个符符合企业业管理特特点的实用程序序，既检检验我们们所学的的知识，完完成毕业业设计，又又能帮助助公司进进行更有有效的人人事管理理。 归纳起来来，好
11、处处大约有有以下几几点：1 可可以存储储所有职工工的人事事档案和和工资档档案，安安全、高高效地管管理企业业的人力力资源，并并希望今今后成为为企业决决策管理理系统的的一部分分，联机机并网，发发挥更大大的作用用；2 只只需一到到二名录录入员即即可操作作系统，节节省大量量人力，通通过企业业内部局局域网省省去打印印环节即即可直接接获取人人力资源源信息，即即高效，又又节约；3 各各部门负负责人根根据权限限级别，可以迅速查到所需人力资源信息。1.3课课题研究究的目的的人事管理理系统是是一个企企业单位位不可缺缺少的部部分,它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要,所以人人事管理理系统应应
12、该能够够为用户户提供充充足的信信息和快快捷的查查询手段段。但一一直以来来人们无无法脱离离传统人人工的方方式管理理档案文件件，克服服落后的的管理方方式存在在着的许多缺缺点,如:效率低低、保密密性差，另外时时间一长长,将产生生大量的的文件和和数据,这对于于查找、更新和和维护都都带来了了不少的的困难。就是因因为没有有一套完完整的适适应企业业管理特特点的系系统。作为计算算机应用用的一部部分,使用计计算机对对人事劳劳资信息息进行管管理,具有着着手工管管理所无无法比拟拟的优点点.例如:检索迅迅速、查查找方便便、可靠靠性高、存储量量大、保保密性好好、寿命命长、成成本低等等。这些些优点能能够极大大地提高高人事
13、劳劳资管理理的效率率,也是企企业的科科学化、正规化化管理,与世界界接轨的的重要条条件。1.4系系统设计计的指导导思想针对大齿齿集团公公司的实实际境况况开发，实实用性强强。公司司内部实实现信息息化、可视化化管理，充充分考虑虑到公司司的集成成化管理理发展的需需要。使这个个系统具具有良好好的人机机交流界界面，可可操作性性强，运运行速度度快，数数据安全全可靠，第二章 开开发人事事管理系系统的问问题2.1人人事管理理系统的的简介人事管理理系统是是针对人人事部的的大量业业务处理理工作而而开发的的管理软软件。根根据用户户的要求求，在大大量调查查研究的的基础上上充分考考虑各种种企业特特色需求求来实现现人员基基
14、本情况况管理、和工资资管理高高效查询询，资源源共享等等几个方方面的功功能。设计出符符合企业业需要的的管理模模块，使使用户通通过输入入工资、职工履履历等基基本信息息，由系统统自行生生成相应应的统计计数据及及各类统统计报表表以供用用户查询询、打印印，另外用用户还可可以对这这些基本本信息进进行定期期的更新新和删除除，人事管管理系统统力求给给用户方方便快捷捷的途径径去管理理这些繁繁琐的数数据。总体功功能需求求人事管理理系统是是针对人人事处的的大量业业务处理理工作用用计算机机进行全全面现代代化管理理。主要包包括人员员基本情情况管理理、和工工资管理理的高效效查询，资资源共享享等几个个方面的的功能，以实现现
15、用户方方便的输输入、查查询、统统计、打打印相关关报表的的业务需需求。具体系系统功能能需求描描述(1) 档案信信息管理理 提供供对”人员档档案信息息”数据输输入、查查询功能能。(2) 工资管管理提供对”职工工工资表”数据的的输入、查询、统计功功能，并并能迅速速为企业业财务部部门快速速提供工工资变更更信息。(3) 工资统统计提供对“职工工工资表”数据的的月统计计，由系统统自行生生成“职工工工资构成成情况表表”实现该该表的查查询、打打印功能能。(4) 部门查查询 提供供以某一一部门为为索引的的”人员档档案信息息”查询功功能。(5) 特殊查查询 提供供对日期期型字段段和合同同期限的的”人员档档案信息息
16、”查询功功能。(6) 报表查查询提供对工工资、职职工履历历的信息息以报表表的形式式供用户户查询、打印，另外用用户还可可以对这这些基本本信息进进行保存存目录的的选择，使使信息更更加安全全，根据据一定的的权限使使作废能能方便地地更新信息息和删除除无用数数据。第三章 人事事管理系系统的分分析和设设计3.1 人事管管理系统统的分析析和概要要设计根据实际际情况，我我们使用用原型法法（Raapidd Prrotootyppingg）即以以少量代代价快速速地构造造一个可可执行的的软件系系统模型型。使用用户和开开发人员员可以较较快地确确定需求求，然后后采用循循环进化化的开发发方式，对对系统模模型作连连续的精精
17、化，将将系统需需具备的的性质逐逐渐增加加上去，直直到所有有的性质质全部满满足。此此时模块块也发展展成为最最终产品品了。通过对用用户需求求的分析析，我们们可以分分析出该该人事管管理系统统大致可可以分为为六个模模块：人人事档案案管理模模块、职职工工资资管理模模块、工工资统计计模块的的实现、部门查查询模块块、特殊查查询模块块、报表查查询模块块。现在对这这六个模模块做具具体说明明：人事基本本情况管管理模块块：输入：职职工信息息输出：“人员档档案表”功能：对对人事基基本信息息的查询询职工工资资管理模模块输入：人人员月工工资 输出：“职工工工资表”功能：完完成员工工工资的的查询工资统计计模块 输出出：“职
18、工工工资统计计表”功能：完完成员工工工资的的统计和和打印 部门门查询模模块 输出出：以部部门为索索引的“职工档档案信息息”功能：完完成以部部门为索索引的“职工档档案信息息”的统计计和查询询 特殊殊查询模模块的实实现 输出出：满足足查询条条件的“职工档档案信息息”和职工工合同的的期限功能：完完成满足足查询条条件的“职工档档案信息息”和职工工合同的的期限的的查询 报表表查询模模块的实实现输出：员员工履历历信息和和工资信信息的基基本情况况 查询询及打印印功能 功能：完成对对员工履履历信息息和工资资信息基基本情况况的查询询及打印印3.2 人事管管理系统统数据库库设计由于考虑虑到本系系统初始始阶段是是应
19、用在在单机系系统上，与完成毕业设计时间短的关系，我们先只建立起一个数据库，在此数据库基础上建立起如下表：职工基基本信息息表empployyee_infformmatiion_tabble职工工工资表 emmplooyeee_saalarry_ttablle系统信信息表 syysteem_ttablle 下面我们们详细说说明：职工基基本信息息表empployyee_infformmatiion_tabble主键：职职工编号号Worrkerrcodde职工编号号WorkkerccodeeStriing NNo部门DepaartmmenStriing NNo 职务PrinncippalsshippS
20、triing NNo职工姓名名NameeStriing NNo 身份证号号IDStriing NNo 性别SexStriing NNo出生日期期BirtthDaay Datee 88 NNo婚否MarrryStriing NNo文化程度度Wen_HuaaStriing NNo政治面目目Zhenng_MMiannStriing NNo毕业时间间Timee_GrruduuatiionDatee 8 NNo毕业学校校Schoool_GruuduaatioonStriing NNo所学专业业SpecciallityyStriing NNo联系电话话Conttactt_teelepphonneStrii
21、ng YYes籍贯Natiive _plaaceStriing YYes民族FolkkStriing YYes家庭地址址AddrresssStriing NNo邮政编码码Postt_NOO。Striing YYes如单位时时间Timee_innputtDatee 88 YYes合同期限限Qi_XXiannInteegerr2 YYes职称Zhi_CheengStriing NNo评定时间间Asseess_TimmeDatee照片PhottoBinaary YYes备注MemooMemoo NNo职工工工资表 emmplooyeee_saalarry_ttablle主键：职职工编号号Worrke
22、rrcodde，日日期Daate职工编号号WorkkerccodeeStriing No职工姓名名NameeStriing No年/月Yearr/moonthhStriing No技能工资资Salaary_jnDoubble 8 2 No工龄工资资Salaary_glDoubble 8 2 Yess岗位工资资Salaary_gwDoubble 8 2 Yess职务工资资Salaary_zhwwDoubble 8 2 Yess洗理费Charrge_xlDoubble 8 2 Yess房屋补贴贴Subssidyy_fwwDoubble 8 2 Yess交通补贴贴Subssidyy_jttDoubb
23、le 8 2 Yess价格补贴贴Subssidyy_prriceeDoueele 8 2 Yess工会会费费Charrge_ghDoubble 8 2 Yess房屋租金金Charrge_fwDoubble 8 2 Yess养老保险险Insuurannce_ylDoubble 8 2 Yess建房扣款款KK_jjfDoubble 8 2 Yess扣款KKDoubble 8 2 Yess实发工资资Salaary_sfDoubble 8 2 No系统信信息表 syysteem_ttablle 主键：用用户名UUseiid用户名UsennameeStriing Yess密码PasssworrdStri
24、ing Yess第四章 人人事管理理系统的的具体实实现4.1模模块化的的开发环环境的简简介_VVisuual BassicVisuual Bassic 是在 Winndowws 环环境中广广泛使用用的应用用程序设设计语言言，它以以Bassic语语言基础础，具有有可视化化、 面向向对象程程序设计计、 事件件驱动机机制等特特点。可视化程程序设计计是指开开发图形形用户界界面的一一种方法法，使用用这种方方法，编编程人员员不必编编写大量量的代码码去描述述用户界界面上元元素的位位置和外外观，比比如命令令按钮、文本框框、组合框框等元素素，编程程人员只只需在“可视”的编程程环境下下，用鼠鼠标将VVB中预预先建
25、立立的界面面元素拖拖放到用用户图形形界面的的适应位位置上，并并且用鼠鼠标还可可直接修修改用户户界面上上元素的的外观等等特性。采用可可视化程程序设计计方法，大大大的减减少了编编程人员员的编码码工作量量，并能能轻松快快捷地设设计出友友好的用用户界面面，从而而提高应应用程序序的开发发效率。Vissuall Baasicc是一种种面向图图形用户户界面的的、交互性性讲的可可视编程程工具。4.1.1事件驱驱动的应应用程序序Visuual Bassic使使用的是是一种“事件驱驱动”机制。所谓“事件驱驱动”机制是是指Wiindoows应应用程序序是通过过事件来来驱动运运行的，当当用户或或者系统统触发对对象的某
26、某个事件件时，系系统自动动地执行行与该事事件相关关的一段段代码来来响应，完完成特定定的功能能。例如如，用户户界面上上有一个个命令按按钮，当当用户单单击该按按钮时，命命令按钮钮将触发发事件，而而当该事事件发生生时，由由系统自自动执行行一段与与该事件件相应的的代码，完完成指定定的操作作，当该该操作完完成后，应应用程序序将暂停停，等待待狭义事事件的发发生。在“事件件驱动”机制下下，应用用程序的的执行过过程完全全由对象象事件驱驱动实现现，与传传统的面面向过程程的应用用程序的的执行过过程完全全不同。4.1.2面向对对象的编编程Visuual Bassic采采用面向向对象技技术，利利用对象象的属性性、事件
27、和和方法进进行程序序设计，从从而实实现应用用程序的的特定需需要。在在Vissuall Baasicc中，对对象无处处不在，窗窗体、命令按按钮、文本框框、组合框框等用于于设计用用户图形形界面的的元素都都是对象象。利用用Vissuall Baasicc的对象象编程技技术，就就好像在在一块空空白的画画布上，通通过设置置对象的的属性，使使用对象象的方法法，编程程对象的的事件过过程，将将系统预预先建立立的对象象，按照照设计要要求将它它们有机机地组合合起来，勾勾画出一一幅完美美的图画画，从而而完成用用户需求求。4.2系系统模块块的具体体实现在本系统统中有六六个模块块组成。它们分分别是员员工基本本信息模模块
28、、员员工工资资管理模模块、工工资统计计模块的的实现、部门查查询模块块的实现现、特殊查查询模块块的实现现、报表查查询模块块的实现现，下面面就开发发这几个个模块的的过程及及所遇到到的问题题分别加加以介绍绍。4.2. 1人事档档案信息息模块 履历表该模块主主要完成成员工基基本信息息的录入入、查询询、统计计及打印印功能。 (其流流程图如如图3.2.11.1所示示) 源文件 主文件更新模块 更新文件 计算机打印模块人事变动资料图4.22.1.1 人人事系统统档案信信息系统统流程图图该模块部部分功能能源代码码如下：Optiion ExppliccitPrivvatee Deeclaare Funnctii
29、on GettMennu LLib usser332 (ByyVall hwwnd As Lonng) As LonngPrivvatee Deeclaare Funnctiion GettSubbMennu LLib usser332 (ByyVall hMMenuu Ass Loong, ByyVall nPPos As Lonng) As LonngPrivvatee Deeclaare Funnctiion SettMennuIttemBBitmmapss Liib useer322 (ByVVal hMeenu As Lonng, ByVVal nPoosittionn Ass Lo
30、ong, ByyVall wFFlaggs AAs LLongg, BByVaal hhBittmappUncchecckedd Ass Loong, ByyVall hBBitmmapCChecckedd Ass Loong) Ass LoongConsst mmyfllag = &H8000&Dim addd, aalerrt AAs IInteegerrPrivvatee Suub aaa()Privvatee Suub CCombbo6_Cliick()Seleect Casse CCombbo6.TexxtCasee 生生产部Combbo7.CleearCombbo7.AdddIte
31、em 经理Combbo7.AdddIteem 主管Combbo7.AdddIteem 职员Combbo7.Texxt = Coomboo7.LListt(0)Casee 总总经理室室Combbo7.CleearCombbo7.AdddIteem 总经理理Combbo7.AdddIteem 秘书Combbo7.Texxt = Coomboo7.LListt(0)End SellecttEnd SubbPrivvatee Suub CCombbo7_Chaangee()End SubbPrivvatee Suub DDataa1_RRepoosittionn()If DDataa1.RRecoor
32、dsset.ReccorddCouunt = 00 ThhenElseeIf CCombbo6.Texxt = 生生产部 ThhenCombbo7.CleearCombbo7.AdddIteem 经理Combbo7.AdddIteem 主管Combbo7.AdddIteem 职员Combbo7.Texxt = Daata11.Reecorrdseet(职务)ElseeCombbo7.CleearCombbo7.AdddIteem 经理Combbo7.AdddIteem 主管Combbo7.AdddIteem 职员Combbo7.Texxt = Daata11.Reecorrdseet(职务)E
33、nd IfEnd IfEnd SubbPrivvatee Suub TTimeer1_Timmer()Labeel299.Caaptiion = ttimeeEnd Subb4.2.2工资管管理模块块该模块是是完成对对员工的的工资信信息的输输入、查查询、并并以此进进行统计计获得“职工实实发工资资”。此模块主主要包括括工资录录入、职职工实发发工资统统计和职职工工资资总额信信息，后后两者是是通过点点击汇总总和统计计工资按按钮获得得。(其流程程图如图图4.2.2.11所示)扣款单工资单 主文件更新模块上月主文件本月主文件 计算机打印模块工资表图4.22.1.1 人人事系统统工资信信息系统统流程图图此
34、窗口口“职工工工资统计计表”的数据据源均是是从数据据库EMMPOYYEE_SALL表。该模块部部分功能能源代码码如下：Privvatee Suub CCommmandd1_CClicck()Dim a(11 Too 155) AAs DDoubbleOn EErroor GGoToo a00If TTextt6.TTextt = “” TThennTextt6.TTextt = “0.000”End IfIf TTextt7.TTextt = “” TThennTextt7.TTextt = “0.000”End IfIf TTextt8.TTextt = “” TThennTextt8.TT
35、extt = “0.000”End IfIf TTextt9.TTextt = “” TThennTextt9.TTextt = “0.000”End IfIf TTextt10.Texxt = “” TThennTextt10.Texxt = “0.000”End IfIf TTextt11.Texxt = “” TThennTextt11.Texxt = “0.000”End IfIf TTextt12.Texxt = “” TThennTextt12.Texxt = “0.000”End IfIf TTextt13.Texxt = “” TThennTextt13.Texxt = “0.
36、000”End IfIf TTextt14.Texxt = “” TThennTextt14.Texxt = “0.000”End IfIf TTextt15.Texxt = “” TThennTextt15.Texxt = “0.000”End IfIf TTextt16.Texxt = “” TThennTextt16.Texxt = “0.000”End IfIf TTextt18.Texxt = “” TThennTextt18.Texxt = “0.000”End IfIf TTextt19.Texxt = “” TThennTextt19.Texxt = “0.000”End If
37、a(1) = CDbbl(TTextt6.TTextt)a(2) = CDbbl(TTextt7.TTextt)a(3) = CDbbl(TTextt8.TTextt)a(4) = CDbbl(TTextt9.TTextt)a(5) = CDbbl(TTextt10.Texxt)a(6) = CDbbl(TTextt11.Texxt)a(7) = CDbbl(TTextt12.Texxt)a(8) = CDbbl(TTextt13.Texxt)a(9) = CDbbl(TTextt14.Texxt)a(100) = CDDbl(Texxt155.Teext)a(111) = CDDbl(Tex
38、xt166.Teext)a(122) = CDDbl(Texxt188.Teext)a(133) = CDDbl(Texxt199.Teext)a(144) = a(1) + aa(2) + a(33) + a(4) + aa(5) + a(66) a(7) a(8) a(9) a(10) + a(111) + aa(122) + a(13)Textt17.Texxt = a(14)Exitt Suuba0:MsgBBox “工资各各项数值值不能为为字符串串”, vvbOKKOnlly, “提示信信息”End SubbPrivvatee Suub CCommmandd10_Cliick()On
39、 EErroor GGoToo a00Dim a AAs SStriing, b As Strringg, cc Ass Sttrinng, ww As Strringg If Texxt211.Teext = “” TThennMsgBBox “请输入入查找条条件”Textt21.SettFoccusExitt SuubEnd If a = Coomboo5.TTextt b = Teext221.TTexttc = a & “ Liike ” & b & “”Dataa1.RRecoordsset.FinndNeext cIf DDataa1.RRecoordsset.NoMMatcch
40、TThennMsgBBox “找不到到与条件件相符的的记录”, vvbOKKOnlly, “提示信信息”Elseeww = Daata11.Reecorrdseet(“职工编编号”)ww = “职工编编号 llikee ” & www & “”Dataa3.RRecoordsset.FinndFiirstt wwwEnd IfIf DDataa1.RRecoordsset.BOFF Orr Daata11.Reecorrdseet.EEOF TheenDataa1.RRecoordsset.MovveLaastDataa3.RRecoordsset.MovveLaastEnd IfExitt
41、Suuba0:MsggBoxx “找不到到与条件件相符的的记录”, vvbOKKOnlly, “提示信信息”End Subb4.2.3工资资统计模模块的实实现该模块是是对职工工工资信信息以部部门为索索引进行行汇总，然然后进行行统计得得到“全体职职工工资资总额”，并提提供打印印功能。该模块部部分功能能源代码码如下：Privvatee Suub FFormm_Acctivvatee()On EErroor GGoToo a00Dim a, b, ca = 0If DDataa1.RRecoordsset.ReccorddCouunt = 00 ThhenExitt SuubEnd IfDataa1
42、.RRecoordsset.MovveFiirsttDo UUntiil DDataa1.RRecoordsset.EOFFb = Datta1.Reccorddsett(实实发工资资)a = a + bDataa1.RRecoordsset.MovveNeextLooppLabeel355.Caaptiion = aaLabeel255.Caaptiion = DDataa1.RRecoordsset.ReccorddCouunta = 0b = 0c = 0Dataa1.RRecoordsset.MovveFiirsttDataa1.RRecoordsset.FinndFiirstt 职职工编号号 liike GDDCW* Do UUntiil DDataa1.RRecoordsset.NoMMatccha = a + 1b = Datta1.Reccorddsett(实实发工资资)c = b + cDataa1.RRecoordsset.FinndNeext 职工工编号 likke GDCCW* LooppLabeel166.Caaptiion = aaLabeel266.Caaptiion = cca = 0b = 0c = 0Dataa1.RRecoordsset.MovveFiirsttDa