毕业论文企业工资管理系统概要

1、学号浙江万里学院毕业论文（设计）题目学生姓名专业班级 行政班名称 指导教师院（系）浙江万里学院继续教育学院年月曰摘要对企事业单位而言，人力资源是企事业最宝贵的资源，也是企事业的生命线”而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让 人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。工资管 理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理工作也变 得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的 重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等 等，来生成企业每个职工的基本工资、津贴、医疗保险、保

2、险费、实际发放工资 等。资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的 工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工 方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因 素抄写不慎或计算疏忽，出现工资发放错误的现象。基于以上原因，企业工资管理 系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、 自动化。工资管理系统是典型的信息管理系统（MIS ），前台程序开发工具采用 微软的VB6，后台数据库采用Access数据库。VB6是一种面向对象的开发工具， 具有组件丰富、语言简单、功能强大的优点。Access

3、数据库具有与VB6.0无缝连接、操作简单、易于使用的优点。运行结果证明，本企业工资管理系统极大提高了 工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同 时也成为现代化企业管理的标志。本文介绍了毕业设计课题的选题背景和意义、相 关的研究和开发的比较和综述、研究开发的过程以及设计思路和实现细节的考虑， 最后给出了作者在毕业设计过程的体会。在本文作者首先分析了企业工资管理系统 的应用现状，阐述了本工资管理系统的开发目的。通过对数据库技术的现状与发 展、数据库系统的选择原则、系统开发工具的选择等一系列问题的分析确定了系统 的开发平台。接着阐述了 MIS系统基本理论，并在此理论指

4、导下，详细给出了从工资管理系统分析到总体设计详细设计与实现及测试的各个环节，最后对本系统作 出了客观评价评价，指明了系统的现实意义、缺点以及系统的升级方向。关键字管理信息系统数据库工资管理AbstractOF THE ENTERPRISES, THE ENTERPRISES AND HUMAN RESOURCES ARE THE MOST VALUABLE RESOURCE OF ENTERPRISES "LIFELINE." THE SALARY MANAGEMENT IS THE TOP PRIORITY OF HUMAN RESOURCE MANAGEMENT. TH

5、E IMPLEMENTATION OF ELECTRONIC WAGE MANAGEMENT, HUMAN RESOURCE MANAGERS CAN MAKE TRIVIAL PAPERWORK FROM THE HEAVY FREED TO COMPLETE THE MORE IMPORTANT WORK. SALARY MANAGEMENT IS AN IMPORTANT PART OF CORPORATE MANAGEMENT. WITH THE INCREASING NUMBER OF CORPORATE PERSONNEL, CORPORATE MANAGEMENT SALARIE

6、S ARE BECOMING INCREASINGLY SOPHISTICATED. MANAGEMENT OF BOTH COMPANIES INVOLVED IN WAGE LABOR AND PERSONNEL MANAGEMENT, FINANCIAL MANAGEMENT IS ALSO AN IMPORTANT PART. SALARY MANAGEMENT NEEDS AND ASSOCIATED PERSONNEL MANAGEMENT, WHILE CONNECTING ATTENDANCE AND HEALTH INSURANCE AND SO ON WORKING HOU

7、RS, TO GENERATE BUSINESS FOR EACH EMPLOYEE'S BASE PAY, ALLOWANCES, MEDICAL INSURANCE, INSURANCE, THE ACTUAL PAYMENT OF WAGES. FUNDS ARE THE KEY ELEMENTS OF BUSINESS SURVIVAL, CAPITAL FLOWS AFFECT THE OVERALL OPERATION OF THE ENTERPRISE, THE WAGES OF EMPLOYEES IS THE FUND MANAGEMENT BUSINESS IS A

8、N IMPORTANT COMPONENT. EARLY PAYMENT OF WAGE STATISTICS AND HANDLE ALL USE OF ARTIFICIAL MATERIAL, NOT ONLY FINANCIAL OFFICERS SPENT A LOT OF TIME AND DIFFICULT TO SAVE, OFTEN DUE TO INDIVIDUAL FACTOR TRANSCRIPTION OR CALCULATIONMISTAKE NEGLIGENCE, THE PHENOMENON OF WAGES AND PAYMENT ERRORS. FOR THE

9、SE REASONS, COMPANIES PAY TO USE COMPUTER SECURITY MANAGEMENT SYSTEM PRESERVATION, FAST CALCULATION, COMPREHENSIVE STATISTICS, WAGES OF MANAGEMENT TO ACHIEVE THE SYSTEMATIC, STANDARDIZED AND AUTOMATED. SALARY MANAGEMENT SYSTEM IS A TYPICAL MANAGEMENT INFORMATION SYSTEM (MIS, THE FOREGROUND PROGRAM D

10、EVELOPMENT TOOLS USING MICROSOFT VB6, BACK-END DATABASE USING ACCESS DATABASE. VB6 IS AN OBJECT- ORIENTED DEVELOPMENT TOOLS, WITH COMPONENTS RICH IN LANGUAGE SIMPLE, POWERFUL ADVANTAGES. ACCESS DATABASES WITH SEAMLESS CONNECTION WITH THE VB6.0, SIMPLE, EASY TO USE. 运行RESULTS SHOW, THE ENTERPRISE WAG

11、E MANAGEMENT SYSTEM GREATLY IMPROVES THE WORKING EFFICIENCY, SAVING HUMAN AND MATERIAL RESOURCES AND ULTIMATELY MEET ENTERPRISE FINANCIAL MANAGEMENT, STAFF WAGES NEED AND A MODERN ENTERPRISE MANAGEMENT OF BIAOZHI. THIS ARTICLE DESCRIBES THE GRADUATION PROJECT OF THE BACKGROUND AND SIGNIFICANCE OF TO

12、PICS, RELATED RESEARCH AND DEVELOPMENT COMPARISON AND REVIEW, RESEARCH AND DEVELOPMENT PROCESS AND DESIGN IDEAS AND IMPLEMENTATION DETAILS TO CONSIDER, GIVEN THE AUTHOR'S EXPERIENCE IN THE DESIGN PROCESS OF GRADUATION. IN THIS ARTICLE THE AUTHOR FIRST ANALYZES THE SALARY MANAGEMENT SYSTEM ENTERP

13、RISE APPLICATION STATUS, EXPLAINED THE PURPOSE OF SALARY MANAGEMENT SYSTEM. ON DATABASE TECHNOLOGY BY PRESENT SITUATION AND DEVELOPMENT, AND DATABASE SYSTEM OF THE SELECTION PRINCIPLE, SYSTEM DEVELOPMENT TOOLS OF CHOICE ANDA SERIES OF QUESTIONS TO DETERMINE THE SYSTEM'S DEVELOPMENT 平台.THEN EXPLA

14、INED THE BASIC THEORY OF MIS SYSTEMS, AND UNDER THE GUIDANCE OF THIS THEORY PRESENTED IN DETAIL THE OVERALL DESIGN FROM THE SALARY MANAGEMENT SYSTEM DETAILED DESIGN AND IMPLEMENTATION AND TESTING AT ALL ASPECTS OF THE LAST PAIR OF AN OBJECTIVE ANALYSIS OF THE SYSTEM'S EVALUATION, THE SYSTEM IDEN

15、TIFIED PRACTICAL SIGNIFICANCE, THE DIRECTION OF SHORTCOMINGS AND SYSTEM UPGRADES.Keywords: MIS; Database; Salary man ageme nt目录第一章绪论11.1研究课题的背景11.2研究思路和工作计划 31.3工资管理的应用现状 错误！未定义书签。企业工资管理的应用现状 错误！未定义书签。管理系统开发的目的 错误！未定义书签。第二章管理信息系统研究概述错误！未定义书签。2.1管理信息系统的发展历史错误！未定义书签。2.2管理信息系统的特点错误！未定义书签。221、 管理信息系统的组成

16、 错误！未定义书签。222、 管理信息系统的界面特点错误！未定义书签。2.3管理信息系统的开发方式错误！未定义书签2.4管理信息系统的开发过程错误！未定义书签第三章应用系统分析103.1系统设计背景介绍 103.2系统功能分析10第四章系统详细设计与实现 错误！未定义书签。4. 1数据库设计 错误！未定义书签。4. 2数据库表错误！未定义书签。4.3系统模块设计 15第五章系统测试385.1系统的运行要求385.2系统开发环境385.3系统测试395.4系统运行与维护41系统的运行： 41系统的维护主要包括四个方面： 415.5系统的转换方案41第六章系统评价426. 1系统的特点 42 6.

17、 2系统的缺点426. 3将来可能提出的要求 43第七章小结43致谢44参考文献：45第一章绪论1.1研究课题的背景在计算机诞生之前，人们对帐目的管理一直采用的是纸质材料记录，人工统计 和计算。例如，古时候所谓的 大户人家”或是商号等等，都需要有专门的帐房先 生来针对每个月的支出、收入等加以统计，并记录于帐册上。其中，对于仆人”的月俸等管理便是其中相当重要的一个部分，常年累月地便积累了一大摞一大摞的帐 册。这样的管理不但费时费力，也容易产生计算上的错误和各种疏漏；随着时代的 变迁，这种混乱的情形有所改善，但采取的依然是人工操作，工作量大的时候，出 现错误的机率也随之升高。当今社会，资金是企业生

18、存的主要元素，资金的流动影响到企业的整体运作， 企业员工的工资是企业资金管理的一个重要的组成部分，因为企业每个月都要涉及 发放企业员工工资的问题。而随着企业人员数量的增加，企业的工资管理也变得越 来越复杂。企业员工的人数越多，工资的统计工作就越多，工资的发放困难就越 大。如果能够实现工资管理的自动化，无疑将给企业管理部门带来很大的方便。传统的纸介材料的数据信息管理方式已经不适合现代企业公司的发展了，实现 工资管理的系统化、规范化、自动化，将成为现代公司管理工资的首选。随着计算 机的诞生和普及以及计算机网络的发展，我们就可以开发一个工资管理系统，用电脑代替大量的人工统计和计算，完成许多工资信息的

19、处理，同时，使用电脑还可以 安全地、完整地保存大量的工作记录。工资管理是社会主义经济管理的重要组成部分，它与实现国家的经济战略目标 息自、相关。作为企事业单位，工资是企事业单位员工收人的主要来源。因此，工 资的调整、奖金、津贴的发放等，都是企事业单位员工非常关心的问题。企业是依 法设立的集合生产要素，并在利润动机和承担风险的条件下，为社会提供产品和服务 的基本经济单位。企业工资管理系统是在企业在人事管理系统的各项活动中形成的 一种重要的信息资源，是企业资产的一部分，管理资产的最好办法就是管理工资。在 被称为信息时代”的当今社会中,信息资源在社会的运转中发挥着物资所无法替代的作用。不断深化的社

20、会经济改革和日益激烈的市场竞争，使那些不注重对信息资源进行有效的积累、管 理和开发利用的企业，犹如失去航标的船只，无法驶向成功的彼岸。企业档案工作属 于企业信息工作的重要内容，是企业管理基础工作的有机组成部分。企业工资管理 系统通过对工资问题的研究，认识工资分配的客观规律，探索工资改革的目标、方 向和途径，掌握和运用从事工资管理工作的基本知识和方法，以提高工资管理水 平，从而使企事业工资管理立足于为企业服务，为员工服务。以维护企业的经济利 益,合法权益和历史真实面貌，为企业的正常运转提供信息保障。近几年来，我国计算机事业的变化之大，发展之快是任何人都始料不及的。随 着微型计算机在我国的逐渐普及

21、，计算机的应用已从科学计算、实时控制方面逐渐 扩展到非数值处理的各个领域。尤其是微型计算机系统在企事业管理及办公自动化 的应用方面正日益受到各部门的极大关注。手工工资管理是一种原始的工作方法，由于手工操作出现错误的概率比较大，其工作量大，工作程序复杂，消耗大量的人 力、物力、财力和时间.而且随着时间的推移，由于人员的增加，科目的增多以及调 整的频繁,这些矛盾显得尤为突出.开发一套工资管理系统，对其进行微机化管理工 资管理是非常必要的。企业工资管理系统就是专为企事业单位管理工资而设计的。 此系统有较好的人机对话界面，操作简单，使用方便等优点，尤其在数据库的检索 方面，具有极快的速度和很高的准确性

22、。借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不 能回避的问题。在企业管理中，人力资源是企业的宝贵资源，也是企业的生命线”，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是 人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁 重琐碎的案头工作解脱出来，去完成更重要的工作。工资管理信息系统的实现可以 减轻比较繁琐的手工工资管理。现在应用在大中型企业的信息管理系统中，几乎都包括了工资管理模块。有些环

23、境中是有大型 ERP软件中的一个模块引进的，有些作为企业的财 务系统的一部分。这些根据规范的西方管理制度设计的工资管理软件，在很多时候 还不能完成解决中国特色中小企业的问题，本文介绍的毕业设计的研究工作就是要 为这些具有中国特色的中小企业解决他们在工资管理方面的问题。通过在本单位经过一周的调研，并参考其它同行设计工资管理软件，我基本上 搞清了象我们单位的小型企业对系统的需求，如果能够设计一套针对类似本单位的 小型国有企业的工资管理系统特别有意义，并且是现行的财务管理软件代替不了 的。在和指导老师多次交流后，最终确定了实现方案的要点和工作计划。基本完成 了该工资管理系统论文的写作。本系统的实现的

24、主要功能有：员工信息管理、工资 结构设置、工资汇总打印等功能。1.2研究思路和工作计划企业工资管理系统为企业提供了工资计算，工资统计等服务；而且系统使用表 格保存相关的工资信息，方便查询、浏览、修改等操作，基本上能够满足现代企业 工资管理的需求。在像研究任何其他软件项目一样，我做的毕业设计也经历了从选 题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统概要设计，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和 修改。下面的流程图反映我们的基本思路和过程。本系统主要实现了以下的功能：1. 用户密码修改功能；2. 企业员工和部门的基本信息的浏览、添加、删除、修改

25、功能；3. 员工基本工资的设置和调整功能；4. 员工的考勤信息统计功能；5. 员工工资的结算功能；6. 员工工资和打印功能在各阶段的时间安排上，选题和调研用了 2周左右的时间；熟悉开发环境，实验关键技术，查找类似的相关系统得资料用了 2周时间；系统概要设计用了 1周的时间；数据库结构设计用了 1周时间；功能模块开发和测试用了 4周时间； 系统调试和试运行、修改约三周时间。完成全部工作大约 3个月时间。以下是研究 设计图：图1.2研究流程图1. 3、企业工资管理系统的现状分析1.3. 1企业工资管理的应用现状随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体制的 迅速完善，各个行业

26、都在积极使用现代化的手段，不断改善服务质量，提高工作效 率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政 职能、企业管理水平以及优质服务上都提出更高的要求。建设一个科学高效的信息 管理系统是解决这一问题的必由之路。企业内部财务管理是该企业运用现代化技术 创造更多更高的经济效益的主要因素之一。工资管理作为企业内部的一种财务管理也是如此，由于企业职工人数较多，每一位职工的具体实际情 况也不尽相同，各项工资条款的发放，如果没有一个完整的管理系统来进行管理， 那么势必会给管理人员带来种种麻烦，因此类似工资管理系统之类的财务软件的开 发势在必行。1. 3.2管理系统开发的目的本系

27、统开发的主要目的就是要使企事业单位工资管理实现计算机管理，使管理 员能够有序的管理每一位职工的各项工资条款的发放以及员工个人台帐的生成，使 企业运用现代化技术创造更多更高的经济效益。第二章系统需求分析2.1系统设计背景介绍管理信息系统就是我们常说的 MIS (Ma nageme nt In formation System,在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化 设备想结合，则是当今社会现代企业的发展趋势。通过这样的管理方式，企业的管 理人员、技术人员、统计人员等各部门员工就能从大量烦琐的资料和数据中解脱出 来，只需对自己需要的数据和内容进行必须的处理，

28、而不用对每个环节都了如指 掌。这在一定程度上能够节省人力物力，同时也大大加强了对数据处理的及时性和 准确性。本次的开发内容一一人事管理系统就是信息管理与现代化办公设备相结 合的例子。开发本系统希望使人事管理人员可以从年复一年的输入、计算、统计等 工作中解脱出来，由于人事方面的数据众多，输入、统计极为不便，输入量大，计 算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统 一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按 所属部门、专业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理 操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据

29、进行存储和处 理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效 率。2.2系统功能分析工资管理信息系统主要有以下几项功能要求：*按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考 勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并 可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。第三章详细设计与实现本部分说明了系统的整个设计，再以工资数据输入，工资计算以及查

30、询为例详 细说明了系统是怎样实现的。3.1数据库设计概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据 及其相互间的关系，这种数据模型是与 DBMS无关的、面向现实世界的、易如理 解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户 进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据 库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人 们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情 况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的 基础。概念设计中自

31、顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映 现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。3. 2数据库表启动Access 2000创建新的数据库，命名为 Salary.mdb和Person.mdb，保存在要存放这个系统所有工程文件的文件夹中。在使用的时，要把应用程序和这两个 数据库保存在同一个文件夹中。员工出勤统计信息表：字段类型任度是沓空ID自动编号反樂型不能空员工编号文本30不能空员匸姓名文本30不能空统计时间日期/时间不能空出動入数数了长整型不能空迟到早退次数数字不能空旷工次数数

32、了不能空n疋常加班次数数了K醛型不能空特殊加班次数数了氏魅型不能空7段类型怪度是否空ID自动编号氏無型不能空员工编号文本30不能空员L姓名文本30不能空员工工资计算公式信息表： 员工其他项目设置:字段类熨氏度是否空ID自动编号长整型不能空员匸编号文本30不能空员匚姓名文本30不能空统计时间FI期/时间不能空出勒天数数字长整型不能空迟到早退次数数字J不能空旷工次数数字:长整熨不能空正常加班次数数字长整世不能空特殊加班次数数了不能空字段类型K：度是否空员工工资统计信息表:F段类取枝度是杏空ID自动编号氏揺型不能空编号文本30不能空员匸姓名文木30不能空时间U期/时间不能空咸本匸资货币货币不能空奖金

33、货币货币不能空福利货币货币不能空迟到早退扣发货币货币不能空旷匚扣发货币货币不能空加班费货币货币不能空总额货币货币不能空员工信息表:长ffi'IDn动編号不能空编号立本30,不能空r员1奸若30 r不能空时间H期/时间不能空谨币货币不能空奖金货币货币不能空福利饭币货币术能先迟到事退扣发货帀1S币不能它旷 XRJ&r板币货币不能空拠班费徒币货币不葩空货币货币不能空7段类T!K度是竹空ID文本30能空员Ett®30性别文本301不能空30不能帘字段类型氏度是沓空用户信息表:字 段 类 型氏 度是仰空用户名称文本30不能空用户密码文本30不能空3. 3系统模块设计举例下面对本

34、系统的具体的几个模块做详细说明1、系统主程序 MAIN.PRG clear screen clear events set defa to d:qygzope n database database'salary do salary'ma in. mpr do form salaryformksjm read events 2 Ksjm.frm(1打开表单设计器，设计好表单，并且设置好必要的属性，设计结果见图和 工程 1 - f rdain (KDIForB.) 一口frmMain.load 事件代码：public i i=0Timer.timer事件代码:if Thisfor

35、m. Label1.Left<0-Thisform. Labell.WidthThisform 丄 abel1.Left=Thisform.Width+3 En difThisform 丄 abel1.Left=Thisform .L abel1 .L eft-101=1+10If l>=255*2-6I=0Endif(2员工基本信息 按钮的CLICK事件为:do form salaryformpers onnelfrmadduser.frm的有关设计见第3目(3) 基本工资设定 按钮的CLICK事件为:do form salaryformdataformat(4) 计算工资 按钮

36、的CLICK事件为:do form salaryformresult(5) 查询工资 按钮的CLICK事件为:do form salaryformgrcx(6) 退出 按钮的CLICK事件为：thisform.releaseclear eve nts3. pers onn el.frm 的有关设计:(1打开表单设计器，设计好表单，并且设置好必要的属性，设计结果IttM 历厚职务：參庄：Forml.init事件代码:set multilocks oncursorsetprop("bufferi ng",3事件代码： 增加新记录appe nd bla nkf 加确认'e

37、lseif empty(getid or empty(get name or empty(get* or empty(getjob orempty(geti ndate or empty(getra nkmessagebox(资料不足",48,"错误"else增加新记录'tableupdate(.t.en dif4. 基本工资设定窗体代码Private Sub cmdok_Click(Dim sql As StringDim rs As New ADODB.RecordsetIf icha ngeflag = 1 ThenIf Me.optio ni d.

38、Value = True The nMsgBox "请选择员工编号", vbOKOnly + vbExclamation,"提示"ElseIf lsEmpty(Me.textm oney = True The nMsgBox "请输入基本工资", vbOKOnly + vbExclamation,"提示"Me.textm on ey.SetFocusElseIf lsNumeric(Me.textm oney = False ThenMsgBox "请输入数字", vbOKOnly + vbEx

39、clamation,"提示"Me.textm oney =""Me.textm on ey.SetFocusElsesql = "select * from 工资 where 编号='"& & "”'Set rs = getrs(sql, "salary"If rs.EOF = False The nsql = "delete from 工资 where 编号='"& & "”'Call tran sactsql

40、(sql, "salary"End If rs.CloseCall addrecordMsgBox "已经设置基本工资", vbOKOnly + vbExclamation,"添加结果"Call initsql = "select * from 工资"Call frmresult.basictopicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Me.ZOrder 0End IfEnd IfIf Me.opti on positi on. V

41、alue = True The nIf Mpositi on. Text = "" The nMsgBox "请输入职务", vbOKOnly + vbExclamation,"提示"ElseIflsEmpty(Me.textm oney = True The nMsgBox "请输入基本工资", vbOKOnly + vbExclamation,"提示"Me.textm on ey.SetFocusElseIf lsNumeric(Me.textm oney = False ThenMsgBo

42、x "请输入数字", vbOKOnly + vbExclamation,"提示"Me.textmoney =""Me.textm on ey.SetFocusElsesql = "select * from 工资 where 职位='"& & "”'Set rs = getrs(sql, "salary"If rs.EOF = False The nsql = "delete from 工资 where 职位='"&

43、& "”'Call tran sactsql(sql, "salary"End Ifrs.Closesql = "select * from 信息 where 职位='"& & "”'Set rs = getrs(sql, "salary"While Not rs.EOFid = rs(0Call addrecordrs.MoveNextWendrs.CloseMsgBox "已经设置基本工资", vbOKOnly + vbExclamation,

44、"添加结果"Call initsql = "select * from 工资"Call frmresult.basictopicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Me.ZOrder 0End IfEnd IfElsesql = "update 工资 set 工资="& Me.textmo ney & " where 编号='"sql = sql &Mstuffid & "”Call

45、 tran sactsql(sql, "salary"MsgBox "已经修改基本工资设置", vbOKOnly + vbExclamation,"提示"Un load Mesql = "select * from 工资"Call frmresult.basictopicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Call frmsumsalary.resumsalary(DateEnd IfEnd SubPrivate Sub comst

46、uffid_Cha nge(Private Sub Form_Load(Dim sql As Stri ngDim rs As New ADODB.RecordsetIf icha ngeflag = 1 Then '添加信息sql = "select 标识 from 信息 order by 标识"Set rs = getrs(sql, "salary"If rs.EOF = False The nWhile Not rs.EOFrs.MoveNextWendrs.CloseEnd Ifsql = "select dist inct 职

47、位 from 信息"Set rs = getrs(sql, "salary"If rs.EOF = False The nWhile Not rs.EOFMpositio n.Addltem rs(0 rs.MoveNextWendrs.CloseMpositi on .ListI ndex = 0End IfMe.opti oni d.Value = TrueElse '修改信息Me.Caption ="修改基本工资设置" Set rs = getrs(strpublicsql, "salary"Mpositi o

48、n. Text = rs(2Me.textm oney = rs(3Mpositi on.En abled = Falsers.CloseEnd IfEnd Sub5 个人查询窗体有关代码(1).确定”按钮有关代码：seek inn ameif !found(cMessageTitle=设备管理系统cMessageText=ffl户名错误，请重新输入'n DialogType=4+32nAn swer=messagebox(cMessageText ,n DialogType,cMessageTitle do casecase nAn swer=6case nAn swer=7this

49、form.releaseendcaseelseif tms_pswd!=i npswdcMessageTitle=设备管理系统'cMessageText=S码错误，请重新输入'n DialogType=4+32nan swer=messagebox(cMessageText, nDialogType,cMessageTitle do casecase nAn swer=6if flag<2flag=flag+1elsethisform.releaseen difcase nAn swer=7thisform.releaseendcaseelsethisform.relea

50、separ仁 inn amedo form salaryformgresulten difen dif(2).表单载入事件代码public inn amepublic flagflag=05计算工资有关源码：Private Sub cmdok_Click(If Me.textovertimecom = "" And lsNumeric(Me.textovertimecom = True Then MsgBox "请输入正常加班工资百分比", vbOKOnly + vbExclamation,"提示" Me.textovertimeco

51、m =""ElseIf Me.textovertimespe = "" And lsNumeric(Me.textovertimespe = False ThenMsgBox "请输入特殊加班工资百分比", vbOKOnly + vbExclamation,"提示"Me.textovertimespe =""ElseIf Me.texterra nd = "" And IsNumeric(Me.texterra nd = False The nMsgBox "请输入

52、出差工资", vbOKOnly + vbExclamation,"提示"Me.texterrand =IlliMe.texterra nd.SetFocusElseIf Me.textabse nt = "" A nd IsNumeric(Me.textabse nt = False The nMsgBox "请输入旷工扣发工资", vbOKOnly + vbExclamation,"提示"Me.textabse nt =""Me.textabse nt.SetFocusElseIf

53、Me.textle = "" A nd IsNumeric(Me.textle = False The n MsgBox "请输入迟到早退扣发工资", vbOKOnly + vbExclamation,"提示"Me.textle =""ElseCall setvalueCall initEnd IfEnd SubPrivate Sub setvalue(Dim sql As Stri ngDim rs As New ADODB.Recordsetsql = "select * from 统计"S

54、et rs = getrs(sql, "salary"If rs.EOF = False The nsql = "delete from 统计"Call tran sactsql(sql, "salary"End Ifrs.AddNewrs.Fields(O = Me.textovertimecomrs.Fields(1 = Me.textovertimespers.Fields(2 = Me.texterra ndrs.Fields(3 = Me.textabse ntrs.Fields(4 = Me.textlers.Update

55、rs.CloseMsgBox "已经设置公式", vbOKOnly + vbExclamation,"设置结果"End Subt其它模块设计略，具体的请用 VFP6.0打开工程文件就可看到相应的源代码。 第四章系统测试4.1系统的运行要求1. 硬件要求。设备名称说明处理器 奔腾III以上，256MB内存256MB，内存越大，速度越快硬盘40GB鼠标双飞燕2D鼠标2. 软件要求。名称说明操作系统 WINDOWS95/98，WINDOWSXP应用软件VISUAL FOXPRO6.0 (中文版)4.2系统开发环境系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配 置。由于本系统是一个小型的 MIS管理系统，因此对计算机硬件的要求不高，比 较经济，只要配备有奔腾四代赛扬处理器 2.0GHZ （或以上）、DDR256M内存 （或以上）、60G硬盘（或以上）的普通微机即可顺利运行。软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时选用了 Access数 据库，由于这些软件产品