毕业设计工资管理系统设计论文.doc

《毕业设计工资管理系统设计论文.doc》由会员分享，可在线阅读，更多相关《毕业设计工资管理系统设计论文.doc（44页珍藏版）》请在三一办公上搜索。

1、工资管理系统设计【摘 要】对企业而言，人力资源是企业最宝贵的资源，也是企业的“生命线”。而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。【关键字】管理信息系统，数据库，工资管理，实体关系图（E-R图），数据字典，数据流图。目 录第一章绪论 31.1研究课题的背景 31.2研究思路和工作计划 3第二章管理信息系统研究概述 52.1管理信息系统的发展历史 52.2管理信息系统的特点 52.2.1管理信息系统的组成 52.2.2管理信息系统的界面特点 62.3管理信息系统的开发方式 72.4管理信息系统的开发过程 9

2、2.4.1系统开发准备 92.4.2系统调研 92.4.3系统设计 102.4.4系统实施与转换 102.4.5系统维护和评价 10第三章工资管理系统分析与设计 123.1系统功能需求简介 123.2功能需求描述 123.3目标系统要求 133.4系统平台选择 133.5数据库设计 133.5.1数据库介绍 133.5.2数据流图 143.5.3数据词典分析 15第四章工资管理系统的功能实现 164.1系统界面 164.2系统管理模块编码设计 164.2.1人员管理 164.2.2部门管理 184.3工资信息管理模块编码设计 194.3.1录入员工工资 194.4 查询模块编码设计 274.4

3、.1 按姓名查询 274.4.2 按工资编号查询 314.5系统维护模块编码设计 334.6报表统计模块 344.7连编程序 34第五章小 结 35致谢 36参考文献 37第一章 绪 论1.1研究课题的背景借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。在企业管理中，人力资源是企业最宝贵的资源，也是企业的“生命线”，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是人力资源管理的重中之重。实行电子化的工资

4、管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。现在应用在大中型企业的管理信息系统中，几乎都包括了工资管理模块。有些环境中是由作为大型ERP软件中的一个模块引进的，有些是作为企业的财务系统的一部分。这些根据规范的西方的管理制度设计的工资管理软件，在很多时候还不能完全解决中国特色的中小企业的问题，本文介绍的毕业设计的研究工作就是要为这些具有中国特色的中小企业解决他们在工资管理方面的问题。在和指导老师交流后，确定实现方案的要点和工作计划。本系统的实现的主要功能有：员工信息管理、工资结构设置、工资汇总打印等等功能。1

5、.2 研究思路和工作计划正如研究任何其它软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统概要设计，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。下面的流程图1.2反映了我的基本的思路和过程。在各阶段的时间安排上，选题和调研用了两周左右的时间；熟悉开发环境，实验关键技术，查找类似的相关系统的资料用了两周时间；系统概要设计用了一周的时间；数据库结构设计用了一周时间；功能模块开发和功能模块测试用了四周的时间；最后，系统调试和系统试运行和修改用了约三周的时间。完成全部工作大约用了3个月的时间。定题研究关键技术开发环境

6、熟悉资料查询调查研究概要设计数据库的结构设计功能模块开发功能模块测试系统调试系统试运行和修改图1.2第二章 管理信息系统研究概述2.1管理信息系统的发展历史信息作为生产力中最活跃的因素，很早就在人类经济生活中发挥着不可替代的作用，但把信息纳入企业经营管理系统中高效处理和应用是在计算机发明以后的50年代末。目前人们所提到的管理信息系统，通常是指以计算机为工具，对管理信息进行收集、存贮、检索、加工和传递，使其应用于组织机构及企业管理领域的“人机系统”，该系统是70年代初“后工业经济”时代的产物，在企业管理信息系统在其发展的初期，是单一的人机系统，系统功能简单，效率低，对管理的作用有限。进入二十世纪

7、80年代末，随着计算机网络和通信技术的大力发展，企业管理信息系统进入网络化的发展时期。世界发达国家已建立起了完善的先进的管理信息系统体系，在其社会经济发展领域中发挥着巨大的作用。我国的管理信息系统大发展是在80年代末90年代初，国家相继建立起了“金卡”、“金关”、“金桥”工程，多数企事业单位建立了局域网和广域网管理信息系统。随着世界经济和我国经济逐步向知识经济迈进，无论是基于工业经济的管理信息系统，还是面向少数专家和管理人员的专家系统 (ES)或决策支持系统 (DSS)，其处理对象和服务对象，自身的系统结构，处理能力，都有了进一步的发展。2.2管理信息系统的特点2.2.1管理信息系统的组成管理

8、信息系统在企业中的应用存在三个要素，这就是人、计算机和数据。人是指企业领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是只靠一些计算机开发人员就可以完成的，必须有企业管理人员，尤其是企业领导的积极参与。计算机技术是MIS（管理信息系统）得以实施的主要技术。在这些技术中，软件开发是MIS开发的重点。第三个因素也不能忽视。企业的管理数据是MIS正常运行的基础。广义地说，各项管理制度是MIS建设成功的基础。2.2.2管理信息系统的界面特点在计算机软件技术中，人机界面已经发展成为一个重要的分支。MIS人机界面设计一般遵循以下一些基本原则：

9、（1）以通信功能作为界面设计的核心人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式；另一方面，计算机向人传递的信息必须准确，不致引起误解或混乱。设计MIS时，针对每一个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”，充分体现人机界面的通信功能。这样设计出来的程序不易出错，而且易于维护。报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。（2）界面必须始终一致统一的人机界面不至于会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每换一个屏幕用户就要换

10、一套操作命令与操作方法。例如在整个系统可以以问号图标表示帮助，以磁盘图标表示存盘，以打印机图标表示打印等。（3）界面必须使用户随时掌握任务的进展情况人机界面应该能够告诉用户软件运行的进度。特别是在需要较长时间的等待时，必须让用户了解工作进展情况，如可以设计已经完成了百分之几的任务进度条等。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。（4）界面友好。使用方便多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入(特别是汉字)，而应让用户用鼠标轻松选择。例如，人事管理系统中的“文化程度”是相对固定的数据，其值一般取

11、“小学”、“初中”、“高中”、“大专”、“大本”、“硕研”、“博研”等。录入这类数据之前，MIS软件应在相应位置弹出一个列表框，待用户以鼠标点击，而不应让用户每次都输入这些汉字。总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意程度愈高。2.3管理信息系统的开发方式管理信息系统的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足，需要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加，并在管理信

12、息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。（1）.独立开发独立开发适合于有较强的管理信息系统分析与设计队伍和程序设计人员、系统维护使用队伍的组织和单位，如大学、研究所、计算机公司、高科技公司等单位。独立开发的优点是开发费用少，实现开发后的系统能够适应本单位的需求且满意度较高，最为方便的是系统维护工作。缺点是由于不是专业开发队伍，容易受业务工作的限制，系统优化不够，开发水平较低，且由于开发人员是临时从所属各单位抽调出来进行管理信息系统的开发工作，这些人员在其原部门还有其他工作，所以精力有限，容易造成系统开发时间长，开发人员调动后，系统维护工作没有保证的情况。因此，一方面需要大力加强

13、领导，实行“一把手”原则，另一方面可向专业开发人士或公司进行咨询，或聘请他们作为开发顾问。（2）.委托开发委托开发方式适合于使用单位无管理信息系统分析、设计及软件开发人员或开发队伍力量较弱、但资金较为充足的单位。双方应签订管理信息系统开发项目协议，明确新系统的目标和功能、开发时间与费用、系统标准与验收方式、人员培训等内容。委托开发方式的优点是省时、省事，开发的系统技术水平较高。缺点是费用高、系统维护需要开发单位的长期支持。此种开发方式需要使用单位的业务骨干参与系统的论证工作，开发过程中需要开发单位和使用单位双方及时沟通，进行协调和检查。（3）.合作开发合作开发方式适合于使用单位有一定的管理信息

14、系统分析、设计及软件开发人员，但开发队伍力量较弱，希望通过管理信息系统的开发建立完善和提高自己的技术队伍，便于系统维护工作的单位。双方共享开发成果，实际上是一种半委托性质的开发工作。优点是相对于委托开发方式而言节约了资金，并可以培养、增强使用单位的技术力量，便于系统维护工作，系统技术水平较高。缺点是双方在合作中沟通易出现问题，需要双方及时达成共识，进行协调和检查。总之，不同的开发方式有不同的长处和短处，需要根据使用单位的实际情况进行选择也可综合使用各种开发方式。2.4管理信息系统的开发过程管理信息系统的开发过程一般包括系统开发准备、系统调查、系统分析、系统设计、系统实现、系统转换、系统运行与维

15、护、系统评价等步骤。根据开发系统的大小、复杂、投入、方式、方法等因素的不同，各步骤的要求和内容也不同，用户需要根据实际情况进行取舍和计划。2.4.1系统开发准备 系统开发准备工作主要包括提出系统开发要求、制订系统开发计划等工作。2.4.2系统调研新系统的系统分析与系统设计工作都要建立在对现行系统调研的基础上，即必须调查现行系统的运行情况、问题等，明确用户的需求，特别是合作开发和委托开发方式。调研的主要内容有： （1）现行系统概况：该组织的发展历史、目前组织的规模、工作状况、管理水平、与外界的主要联系等。调查该项内容的目的主要是为了划分系统界限、系统与外界的输入输出接口等。 （2）组织机构：画出

16、组织的组织结构图，弄清组织的行政关系、人员编制、工作范围、地理位置等，发现不合理问题及新系统启动后可能对现有组织的影响。 （3）业务流程：按照业务种类的不同和处理时间的先后不同，深入了解现行系统的业务流程，画出现行系统业务流程图，并与业务人员反复讨论，得到认可。调查中要注意定性与定量相结合，注意人、财、物、信息的流向、规格、频率、要求以及需要解决的问题等。（4）报表、数据处理：了解各种统计报表、数据的格式、内容、处理时间及上报时间、频率、规律，存在的问题，对新系统的要求、希望等并收集各种报表。（5）问题：现行系统中存在的主要问题和薄弱环节，可以按照严重程度分成不同的等级。新系统的建立应能解决大

17、部分问题，并改善薄弱环节。（6）新系统的功能和目标：了解各级领导和各类业务工作人员对新系统功能的要求，系统分析(又称逻辑设计)是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。新系统的逻辑模型由系统数据流程图、概况表、数据字典、物理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。系统逻辑模型就像在根据需要建设一座学校前，按照学校教育的层次(初等、中等、高等)、规模、投资、地理环境、技术水平等条件的要求和约束，先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。在系统

18、设计阶段要做认真、细致的分析、研究工作，避免新系统在功能上存在先天不足或缺陷。因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告(系统逻辑设计说明书)，经有关领导审批通过之后，转入系统设计(又称系统物理设计)阶段。2.4.3系统设计系统设计又称系统物理设计。系统设计要根据系统分析报告中的系统逻辑模型综合考虑各种约束，利用一切可利用的技术手段和方法进行各种具体设计，确定新系统的实施方案，解决“系统怎么做”的问题。结构化系统设计是指利用一组标准的图表工具和准则，确

19、定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最经济合理的技术手段。系统设计阶段的文件是系统设计报告(又称系统物理设计说明书)。2.4.4系统实施与转换系统实施阶段的主要工作包括：系统硬件的购置与安装、程序的编写(购买)与调试、系统操作人员的培训、系统有关数据的准备和录入、系统调试和转换。在系统实施阶段要成立系统实施工作量到小组，组织各专业小组组长和有关部门的领导共同编制新系统实施计划。可以应用各种项目管理的软件和方法进行管理，实行项目经理负责制，保证系统实施工作的顺利进行和成功。数

20、据准备与录入工作主要是指由手工操作转入计算机处理所需的各种数据的整理、录入及计算机系统中为新系统所用数据的转换工作。数据准备与录入工作要注意数据的准确性，在整理、录入、校验等各个环节把好关，为系统的顺利转换打好基础。2.4.5系统维护和评价管理信息系统是一个复杂的人机系统。系统外部环境与内部因素的变化，不断影响系统的运行，这时就需要不断地完善系统，以提高系统运行的效率与服务水平，这就需要从始至终地进行系统的维护工作。系统评价主要是指系统建成后，经过一段时间的运行后，要对系统目标与功能的实现情况进行检查，并与系统开发中设立的系统预期目标进行对比，及时写出系统评价报告。系统维护与评价阶段是系统生命

21、周期中的最后一个阶段，也是时间最长的一个重要阶段。第三章 工资管理系统分析与设计3.1系统功能需求简介工资管理信息系统对企业加强工资管理有着极其重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块，查询模块等等。该工资管理系统的主要功能如图3.1所示：系统管理资 料 输 入资料增删工资信息信息查询信息修改信息录入工资汇总工资条打印报表打印报表输出系统维护修改密码添加用户工资管理系统 图3.1 系统功能模块图3.2功能需求描述（1）系统管理模块系统管理模块

22、具有增加与修改员工和部门功能。系统管理包括员工管理和部门管理。员工基本信息包括员工号、姓名、部门、职位、基本工资等。系统管理模块实现了对数据库中员工信息和部门的增加和删除。（2） 工资信息模块本系统将工资结构分为工资号、姓名、底薪、补贴、奖金、加班费、扣考核、房帖、房租、养老金、医疗保险、住房公积金、所得税。用户可以对某一员工录入工资信息，系统自动计算出应发工资。在此模块中用户还可以对已录入记录进行修改和删除。（3）查询模块用户可以根据员工号或员工姓名进行查询。（4）工资汇总模块用户在员工信息管理模块对该员工的工资信息信息输入以后，在工资汇总模块会自动对员工工资进行汇总并打印出工资汇总表。（5

23、）系统维护模块用户可以添加或修改登陆时的用户名和密码。3.3目标系统要求目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反应速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。3.4系统平台选择选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在

24、规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。操作系统：Windows 2000或者Windows XP开发工具与语言: Visual Basic 6.0中文版 + Access20003.5数据库设计3.5.1数据库介绍所谓数据库（Database）就是指按一定组织方式存储在一起的，相互有关的若干个数据的结合，数据库管理系统（Database Management System）就是一种操纵和管理数据库的大型软件，简称DBMS,他们建立在操作系统的基础上，对数据库进行统一的管理和控制，其功能包括数据

25、库定义，数据库管理，数据库建立和维护，于操作系统通信等。DBMS通常由数据字典，数据描述语言及其编译程序，数据操纵（查询）语言及其编译程序，数据库管理例行程序等部分组成。关系数据库是以关系模型为基础的数据库，是根据表、记录和字段之间的关系进行组织和访问的一种数据库，它通过若干个表（Table）来存取数据，并且通过关系（Relation）将这些表联系在一起，关系数据库提供了成为机构化查询语言（SQL）标准接口，该接口允许使用多种数据库工具和产品，关系数据库是目前最广泛应用的数据库。在ACCESS中数据库是一个逻辑上的概念，通过一组系统文件将相互关联的数据表及其数据库对象组织起来，成为扩展名为.m

26、db的数据库文件。数据库文件一般不能直接使用，而是交由ACCESS数据库统一管理。ACCESS中一个库可以容纳多个表，通过库我们可明确各表之间的相互关系，使表文件不在彼此孤立，而成为相互关联的数据集合。3.5.2数据流图根据对工资管理工作的调查和用户需求分析，该系统的数据流图如图3.2所示。系统设定员工信息管理员工工资汇总图3.2 系统的数据流程图3.5.3数据词典分析该软件的数据库由四个数据表组成：A员工基本信息表：ygshujuB基础工资设定表：gzshujuC部门表：bumenD管理员密码表：denglu（1）员工基本信息表：ygshuju字段名类型员工号数值型姓名字符型所属部门字符型职

27、位字符型基本工资数值型(2)基础工资设定表：gzshuju字段名类型工资号数值型姓名字符型底薪数值型补贴数值型奖金数值型加班数值型扣考核数值型房帖数值型房租数值型养老金数值型医疗保险数值型住房公积金数值型所得税数值型计法时间日期型(3)部门表：bumen字段名类型部门字符型4、管理员注册表：denglu字段字段名类型1用户名字符型2口 令字符型第四章 工资管理系统的功能实现4.1系统界面图4.14.2系统管理模块编码设计此模块细分为人员管理和部门管理。4.2.1人员管理人员管理包括员工基本信息增删改功能。员工基本信息可以对员工信息添加、修改和删除,员工管理界面如下:图4.2.1具体编码如下：（

28、1）“添加”按钮控件源代码：Private Sub Command5_Click()If Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = ThenExit SubEnd IfAdodc3.Recordset.AddNewEnd Sub（2）“删除”按钮控件源代码：Private Sub Command6_Click()Adodc3.Recordset.DeleteEnd Sub（3）“离开”按钮控件代码：Private Sub Command1_Click()Unload MeEnd Su

29、b4.2.2部门管理部门管理同样包括对部门信息增删改功能。部门信息可以对部门添加、修改和删除，部门管理界面如图4.2.2：图4.2.2具体编码如下：（1）“添加新部门”按钮控件源代码：Private Sub Command1_Click()If Text1.Text = ThenExit SubEnd IfAdodc1.Recordset.AddNewIf Adodc1.Recordset.EOF ThenExit SubEnd IfEnd Sub（2）“删除所选”按钮控件源代码：Private Sub Command2_Click()If Text1.Text = ThenExit SubE

30、nd IfAdodc1.Recordset.DeleteEnd Sub4.3工资信息管理模块编码设计该模块细分为“录入员工工资”和“修改工资记录”4.3.1录入员工工资“录入员工工资”功能是对某一个员工的工资情况进行录入，界面如图4.3.1所示：图4.3.1具体编码如下：（1） 窗体初始化：Private Sub Form_Load()Dim MsgText As StringDim intCount As IntegerDim dateTemp As DateDim db As DatabaseDim res As RecordsetSet db = OpenDatabase(App.Pat

31、h + zongbiao.mdb)Set res = db.OpenRecordset(bumen)If Not res.EOF ThenDo While Not res.EOF cboItem(0).AddItem Trim(res!部门) res.MoveNextLoop cboItem(0).ListIndex = 0ElseMsgBox 请先进行员工档案登记！, vbOKOnly + vbExclamation, 警告cmdSave.Enabled = False Exit Sub End IfmblChange = FalseEnd Sub（2） 两个下拉菜单源代码：Private

32、Sub cboItem_Click(Index As Integer) Dim MsgText As StringDim intCount As IntegerDim db As DatabaseDim res As RecordsetDim strsql As StringSet db = OpenDatabase(App.Path + zongbiao.mdb) strsql = select 姓名,员工号,基本工资 from ygshuju where 部门 like * & Trim(cboItem(0) & * Set res = db.OpenRecordset(strsql)If

33、 Index = 0 Then cboItem(1).Clear If Not res.EOF Then With cboItem(1) Do While Not res.EOF .AddItem Trim(res!姓名) res.MoveNext Loop .ListIndex = 0 End With End If End If res.MoveFirst res.Move cboItem(1).ListIndex txtId = res.Fields(1) & Format(Now, yymm) txtItem(0) = res.Fields(2)End Sub（3）“添加”按钮具体编码

34、如下：Private Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim mrc As Recordset Dim MsgText As String Dim db As Database Dim sMeg As String If Trim(txtItem(0) & ) = Then sMeg = 底薪 sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If Tr

35、im(txtItem(13) & ) Then If Not IsDate(txtItem(13) Then MsgBox 时间输入格式不正确，应输入如下格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub Else txtItem(13) = Format(txtItem(13), yyyy-mm-dd) End If Else MsgBox 时间不能为空！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If Se

36、t db = OpenDatabase(App.Path + zongbiao.mdb) 添加判断是否有相同的ID记录txtSQL = select * from gzshuju where 工资号= & Trim(txtId) & Set mrc = db.OpenRecordset(txtSQL) If mrc.EOF = False Then MsgBox 已经存在该员工在该月的工资记录！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If mrc.Close txtSQL = select * from

37、gzshuju Set mrc = db.OpenRecordset(txtSQL) mrc.AddNew mrc.Fields(0) = Trim(txtId) mrc.Fields(1) = Trim(cboItem(1) mrc.Fields(17) = Trim(cboItem(0) mrc.Fields(15) = Trim(txtItem(13) For intCount = 0 To 12 mrc.Fields(intCount + 2) = txtItem(intCount) Next intCount mrc.Update mrc.CloseMsgBox 计发工资成功！, v

38、bOKOnly + vbExclamation, 警告 For intCount = 0 To 12 txtItem(intCount) = Next intCount mblChange = False cmdSave.Enabled = False End Sub（4）“离开”按钮具体编码如下：Private Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_C

39、lick End If End If Unload MeEnd Sub（5）关于此窗体中的计发工资的计算源代码如下：Private Sub txtItem_Click(Index As Integer) Dim intCount As Integer 用于计算工资 Dim dblTotal As Double 有变化设置gblchange mblChange = True If (Index = 0 And Index 8) Or Index = 10 Or Index = 11 Then dblTotal = 0 For intCount = 0 To 3 If Trim(txtItem(i

40、ntCount) Then dblTotal = dblTotal + CDbl(txtItem(intCount) End If Next intCount For intCount = 4 To 7 If Trim(txtItem(intCount) Then dblTotal = dblTotal - CDbl(txtItem(intCount) End If Next intCount If Trim(txtItem(10) Then dblTotal = dblTotal + CDbl(txtItem(10) End If If Trim(txtItem(11) Then dblTotal = dblTotal - CDbl(txtItem(11) End If txtItem(8) = Format(dblTotal, #0.00) End If If Index = 9 Then 税额变化 If Trim(txtItem(9) & ) = Then txtItem(12) = Trim(txtItem(8) & ) Else txtItem(12) = Format(CDbl(txtItem(8) - CDbl(txtItem(9), #0.00) End If End If If Index = 8 And Trim(txtItem(8) & )