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

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

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

3、ess数据库具有与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. THE

5、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 SALARIES

6、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 HOURS

7、, 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 AN

8、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 CALCULATION MISTAKE NEGLIGENCE, THE PHENOMENON OF WAGES AND PAYMENT ERRORS. FOR THES

9、E 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 DE

10、VELOPMENT 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 WAGE

11、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 TOPI

12、CS, 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 ENTERPRI

13、SE 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 EXPLAI

14、NED 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 IDENT

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

16、理信息系统的特点 . 错误！未定义书签。2.2.1、管理信息系统的组成 . 错误！未定义书签。2.2.2、管理信息系统的界面特点 . 错误！未定义书签。2.3管理信息系统的开发方式 . 错误！未定义书签。2.4管理信息系统的开发过程 . 错误！未定义书签。第三章 应用系统分析 103.1 系统设计背景介绍 . 103.2 系统功能分析 . 10第四章 系统详细设计与实现 错误！未定义书签。41 数据库设计 . 错误！未定义书签。42 数据库表 . 错误！未定义书签。4.3系统模块设计 . 15第五章 系统测试 385.1系统的运行要求 . 385.2系统开发环境 . 385.3系统测试 . 3

17、95.4系统运行与维护 . 415.4.1系统的运行： . . 415.4.2系统的维护主要包括四个方面： . . 415.5系统的转换方案 . 41第六章 系统评价 4261系统的特点 . 42 6. 2系统的缺点 . 4263将来可能提出的要求 . 43第七章 小 结 43致 谢 44参 考 文 献： 45第一章 绪 论1.1 研究课题的背景在计算机诞生之前，人们对帐目的管理一直采用的是纸质材料记录，人工统计和计算。例如，古时候所谓的“大户人家”，或是商号等等，都需要有专门的帐房先生来针对每个月的支出、收入等加以统计，并记录于帐册上。其中，对于“仆人”的月俸等管理便是其中相当重要的一个部分

18、，常年累月地便积累了一大摞一大摞的帐册。这样的管理不但费时费力，也容易产生计算上的错误和各种疏漏；随着时代的变迁，这种混乱的情形有所改善，但采取的依然是人工操作，工作量大的时候，出现错误的机率也随之升高。当今社会，资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分，因为企业每个月都要涉及发放企业员工工资的问题。而随着企业人员数量的增加，企业的工资管理也变得越来越复杂。企业员工的人数越多，工资的统计工作就越多，工资的发放困难就越大。如果能够实现工资管理的自动化，无疑将给企业管理部门带来很大的方便。传统的纸介材料的数据信息管理方式已经不适合现

19、代企业公司的发展了，实现工资管理的系统化、规范化、自动化，将成为现代公司管理工资的首选。随着计算机的诞生和普及以及计算机网络的发展，我们就可以开发一个工资管理系统，用电脑代替大量的人工统计和计算，完成许多工资信息的处理，同时，使用电脑还可以安全地、完整地保存大量的工作记录。工资管理是社会主义经济管理的重要组成部分，它与实现国家的经济战略目标息自、相关。作为企事业单位，工资是企事业单位员工收人的主要来源。因此，工资的调整、奖金、津贴的发放等，都是企事业单位员工非常关心的问题。企业是依法设立的集合生产要素, 并在利润动机和承担风险的条件下, 为社会提供产品和服务的基本经济单位。企业工资管理系统是在

20、企业在人事管理系统的各项活动中形成的一种重要的信息资源, 是企业资产的一部分, 管理资产的最好办法就是管理工资。在被称为“信息时代”的当今社会中, 信息资源在社会的运转中发挥着物资所无法替代的作用。不断深化的社会经济改革和日益激烈的市场竞争, 使那些不注重对信息资源进行有效的积累、管理和开发利用的企业, 犹如失去航标的船只, 无法驶向成功的彼岸。企业档案工作属于企业信息工作的重要内容, 是企业管理基础工作的有机组成部分。企业工资管理系统通过对工资问题的研究，认识工资分配的客观规律，探索工资改革的目标、方向和途径，掌握和运用从事工资管理工作的基本知识和方法，以提高工资管理水平，从而使企事业工资管

21、理立足于为企业服务，为员工服务。以维护企业的经济利益, 合法权益和历史真实面貌, 为企业的正常运转提供信息保障。近几年来，我国计算机事业的变化之大，发展之快是任何人都始料不及的。随着微型计算机在我国的逐渐普及，计算机的应用已从科学计算、实时控制方面逐渐扩展到非数值处理的各个领域。尤其是微型计算机系统在企事业管理及办公自动化的应用方面正日益受到各部门的极大关注。手工工资管理是一种原始的工作方法, 由于手工操作出现错误的概率比较大, 其工作量大, 工作程序复杂, 消耗大量的人力、物力、财力和时间. 而且随着时间的推移, 由于人员的增加, 科目的增多以及调整的频繁, 这些矛盾显得尤为突出. 开发一套

22、工资管理系统, 对其进行微机化管理工资管理是非常必要的。企业工资管理系统就是专为企事业单位管理工资而设计的。此系统有较好的人机对话界面，操作简单，使用方便等优点，尤其在数据库的检索方面，具有极快的速度和很高的准确性。借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。在企业管理中，人力资源是企业的宝贵资源，也是企业的“生命线”，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是人力资源管理的重中之重。实行电子

23、化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。现在应用在大中型企业的信息管理系统中，几乎都包括了工资管理模块。有些环境中是有大型ERP 软件中的一个模块引进的，有些作为企业的财务系统的一部分。这些根据规范的西方管理制度设计的工资管理软件，在很多时候还不能完成解决中国特色中小企业的问题，本文介绍的毕业设计的研究工作就是要为这些具有中国特色的中小企业解决他们在工资管理方面的问题。通过在本单位经过一周的调研，并参考其它同行设计工资管理软件，我基本上搞清了象我们单位的小型企业对系统的需求，如果能够设计一套针对

24、类似本单位的小型国有企业的工资管理系统特别有意义，并且是现行的财务管理软件代替不了的。在和指导老师多次交流后，最终确定了实现方案的要点和工作计划。基本完成了该工资管理系统论文的写作。本系统的实现的主要功能有：员工信息管理、工资结构设置、工资汇总打印等功能。1.2 研究思路和工作计划企业工资管理系统为企业提供了工资计算，工资统计等服务；而且系统使用表格保存相关的工资信息，方便查询、浏览、修改等操作，基本上能够满足现代企业工资管理的需求。在像研究任何其他软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统概要设计，数据库结构设计，功能模块开发

25、，功能模块测试，系统调试和系统试运行和修改。下面的流程图反映我们的基本思路和过程。本系统主要实现了以下的功能：1. 用户密码修改功能；2. 企业员工和部门的基本信息的浏览、添加、删除、修改功能；3. 员工基本工资的设置和调整功能；4. 员工的考勤信息统计功能；5. 员工工资的结算功能；6. 员工工资和打印功能在各阶段的时间安排上，选题和调研用了2周左右的时间；熟悉开发环境，实验关键技术，查找类似的相关系统得资料用了2周时间；系统概要设计用了1周的时间；数据库结构设计用了1周时间；功能模块开发和测试用了4周时间；系统调试和试运行、修改约三周时间。完成全部工作大约3个月时间。以下是研究设计图： 图

26、1.2 研究流程图 13、企业工资管理系统的现状分析1.31企业工资管理的应用现状随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体制的迅速完善，各个行业都在积极使用现代化的手段，不断改善服务质量，提高工作效率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政职能、企业管理水平以及优质服务上都提出更高的要求。建设一个科学高效的信息管理系统是解决这一问题的必由之路。企业内部财务管理是该企业运用现代化技术创造更多更高的经济效益的主要因素之一。工资管理作为企业内部的一种财务管理也是如此，由于企业职工人数较多，每一位职工的具体实际情况也不尽相同，各项工资条款的发放，如

27、果没有一个完整的管理系统来进行管理，那么势必会给管理人员带来种种麻烦，因此类似工资管理系统之类的财务软件的开发势在必行。13.2管理系统开发的目的本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理，使管理员能够有序的管理每一位职工的各项工资条款的发放以及员工个人台帐的生成，使企业运用现代化技术创造更多更高的经济效益。第二章 系统需求分析2.1 系统设计背景介绍管理信息系统就是我们常说的MIS (Management Information System，在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的

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

29、业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。 因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。2.2 系统功能分析工资管理信息系统主要有以下几项功能要求： *按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。 *对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修

30、改用户原有的用户名、密码，删除原有用户。第三章详细设计与实现本部分说明了系统的整个设计，再以工资数据输入，工资计算以及查询为例详细说明了系统是怎样实现的。31数据库设计概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS 无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据

31、模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R 模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R 模型是建立概念性数据模型的有力工具。3. 2 数据库表启动Access 2000，创建新的数据库，命名为Salary.mdb 和Person.mdb ，保存在要存放这个系统所有工程文件的文件夹中。在使用的时，要把应用程序和这两个数据库保存在同一个文件夹中。 员工出勤统计信息表： 员工工资计算公式信息表： 员工其他项目设置： 员工工资

32、统计信息表： 员工信息表： 用户信息表： 33系统模块设计举例下面对本系统的具体的几个模块做详细说明。1、系统主程序MAIN.PRG clear screen clear events set defa to d:qygzopen database databasesalary do salarymain.mpr do form salaryformksjm read events 2、Ksjm.frm(1打开表单设计器，设计好表单，并且设置好必要的属性，设计结果见图 frmMain.load 事件代码: public i i=0Timer.timer 事件代码:if Thisform.Lab

33、el1.Left<0-Thisform.Label1.Width Thisform.Label1.Left=Thisform.Width+3 EndifI=I+10If I>=255*2-6I=0Endif(2“员工基本信息“按钮的CLICK 事件为：do form salaryformpersonnelfrmadduser.frm的有关设计见第3目（3）“基本工资设定“按钮的CLICK 事件为：do form salaryformdataformat（4）“计算工资 “按钮的CLICK 事件为：do form salaryformresult（5）“查询工资 “按钮的CLICK

34、事件为：do form salaryformgrcx（6）“退出“按钮的CLICK 事件为：thisform.releaseclear events3 personnel.frm的有关设计：(1打开表单设计器，设计好表单，并且设置好必要的属性，设计结果 Form1.init 事件代码:set multilocks oncursorsetprop("buffering",3(2 mand1.click事件代码：thisform.pageframe1.page1.fy1.enabled=.F.mand2.enabled=.F.mand3.enabled=.F.mand4.ena

35、bled=.T.if mand1.caption='增加新记录' thisform.pageframe1.page1.txtpid.enabled=.T.thisform.pageframe1.page1.txtpname.enabled=.T.thisform.pageframe1.page1.txtp*.enabled=.T.thisform.pageframe1.page1.txtpjob.enabled=.T.thisform.pageframe1.page1.txtpindate.enabled=.T.thisform.pageframe1.page1.txtpran

36、k.enabled=.T.append blankmand1.caption='增加确认'elsegetname=alltrim(thisform.pageframe1.page1.txtpname.value get*=alltrim(thisform.pageframe1.page1.txtp*.valueif empty(getid or empty(getname or empty(get* or empty(getjob or empty(getindate or empty(getrankmessagebox("资料不足",48," 错

37、误"elsemand1.caption='增加新记录'tableupdate(.t.thisform.pageframe1.page1.txtpid.enabled=.F.thisform.pageframe1.page1.txtpname.enabled=.F.thisform.pageframe1.page1.txtp*.enabled=.F.thisform.pageframe1.page1.txtpjob.enabled=.F.thisform.pageframe1.page1.txtpindate.enabled=.F.thisform.pageframe1

38、.page1.txtprank.enabled=.F.thisform.pageframe1.page1.fy1.enabled=.T.mand2.enabled=.T.mand3.enabled=.T.mand4.enabled=.F.endifendif4基本工资设定窗体代码: Private Sub cmdok_Click(Dim sql As StringDim rs As New ADODB.RecordsetIf ichangeflag = 1 ThenIf Me.optionid.Value = True ThenIf Mstuffid.Text = "" T

39、henMsgBox "请选择员工编号", vbOKOnly + vbExclamation, "提示"ElseIf IsEmpty(Me.textmoney = True ThenMsgBox "请输入基本工资", vbOKOnly + vbExclamation, "提示"ElseIf IsNumeric(Me.textmoney = False ThenMsgBox "请输入数字", vbOKOnly + vbExclamation, "提示"Me.textmoney =

40、 ""Elsesql = "select * from 工资 where 编号='" & Mstuffid.Text & "'"Set rs = getrs(sql, "salary"If rs.EOF = False Thensql = "delete from 工资 where 编号='" & Mstuffid.Text & "'"Call transactsql(sql, "salary"

41、;End Ifrs.CloseCall addrecordMsgBox "已经设置基本工资", vbOKOnly + vbExclamation, "添加结果"Call initsql = "select * from 工资"Call frmresult.basictopicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Me.ZOrder 0End IfEnd IfIf Me.optionposition.Value = True ThenIf Mpositio

42、n.Text = "" ThenMsgBox "请输入职务", vbOKOnly + vbExclamation, "提示" ElseIf IsEmpty(Me.textmoney = True ThenElseIf IsNumeric(Me.textmoney = False ThenMsgBox "请输入数字", vbOKOnly + vbExclamation, "提示" Me.textmoney = ""Elsesql = "select * from 工资

43、 where 职位='" & Mposition.Text & "'"Set rs = getrs(sql, "salary"If rs.EOF = False Thensql = "delete from 工资 where 职位='" & Mposition.Text & "'"Call transactsql(sql, "salary"End Ifrs.Closesql = "select * from 信息

44、 where 职位='" & Mposition.Text & "'"Set rs = getrs(sql, "salary"While Not rs.EOFid = rs(0Call addrecordrs.MoveNextWendrs.CloseMsgBox "已经设置基本工资", vbOKOnly + vbExclamation, "添加结果"Call initsql = "select * from 工资"Call frmresult.basic

45、topicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Me.ZOrder 0End IfEnd IfElsesql = "update 工资 set 工资=" & Me.textmoney & " where 编号='" sql = sql & Mstuffid & "'"Call transactsql(sql, "salary"MsgBox "已经修改基本工资设置",

46、vbOKOnly + vbExclamation, "提示"Unload Mesql = "select * from 工资"Call frmresult.basictopicCall frmresult.showbasic(sqlfrmresult.Showfrmresult.ZOrder 0Call frmsumsalary.resumsalary(DateEnd IfEnd SubPrivate Sub comstuffid_Change(Private Sub Form_Load(Dim sql As StringDim rs As New AD

47、ODB.RecordsetIf ichangeflag = 1 Then '添加信息sql = "select 标识 from 信息 order by 标识"Set rs = getrs(sql, "salary"If rs.EOF = False ThenWhile Not rs.EOFMstuffid.AddItem rs(0rs.MoveNextWendrs.CloseMstuffid.ListIndex = 0End Ifsql = "select distinct 职位 from 信息"Set rs = getrs(

48、sql, "salary"If rs.EOF = False ThenWhile Not rs.EOFMposition.AddItem rs(0rs.MoveNextWendrs.CloseMposition.ListIndex = 0End IfMe.optionid.Value = TrueElse ' 修改信息Me.Caption = "修改基本工资设置"Set rs = getrs(strpublicsql, "salary"Mstuffid.Text = rs(1Mposition.Text = rs(2Me.te

49、xtmoney = rs(3Mstuffid.Enabled = FalseMposition.Enabled = Falsers.CloseEnd IfEnd Sub5个人查询窗体有关代码: （1）. ”确定”按钮有关代码:set order to tms_userseek innameif !found(cMessageTitle='设备管理系统'cMessageText='用户名错误，请重新输入'nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle do case

50、case nAnswer=6thisform.text1.value=''case nAnswer=7thisform.releaseendcaseelseif tms_pswd!=inpswdcMessageTitle='设备管理系统'cMessageText='密码错误，请重新输入'nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle do casecase nAnswer=6if flag<2thisform.text2.value='

51、;'flag=flag+1elsethisform.releaseendifcase nAnswer=7thisform.releaseendcaseelsethisform.releasepar1=innamedo form salaryformgresultendifendif（2）表单载入事件代码:public innamepublic flagflag=05计算工资有关源码:Private Sub cmdok_Click(If Me.textovertimecom = "" And IsNumeric(Me.textovertimecom = True Th

52、enMsgBox "请输入正常加班工资百分比", vbOKOnly + vbExclamation, " 提示"Me.textovertimecom = ""ElseIf Me.textovertimespe = "" And IsNumeric(Me.textovertimespe = False ThenMsgBox "请输入特殊加班工资百分比", vbOKOnly + vbExclamation, " 提示"Me.textovertimespe = "&quo

53、t;ElseIf Me.texterrand = "" And IsNumeric(Me.texterrand = False ThenMsgBox "请输入出差工资", vbOKOnly + vbExclamation, "提示" Me.texterrand = ""ElseIf Me.textabsent = "" And IsNumeric(Me.textabsent = False ThenMsgBox "请输入旷工扣发工资", vbOKOnly + vbExclam

54、ation, "提示"Me.textabsent = ""ElseIf Me.textle = "" And IsNumeric(Me.textle = False Then MsgBox "请输入迟到早退扣发工资", vbOKOnly + vbExclamation, "提示"Me.textle = ""ElseCall setvalueCall initEnd IfEnd SubPrivate Sub setvalue(Dim sql As StringDim rs As

55、 New ADODB.Recordsetsql = "select * from 统计"Set rs = getrs(sql, "salary"If rs.EOF = False Thensql = "delete from 统计"Call transactsql(sql, "salary"End Ifrs.AddNewrs.Fields(0 = Me.textovertimecomrs.Fields(1 = Me.textovertimespers.Fields(2 = Me.texterrandrs.Field

56、s(3 = Me.textabsentrs.Fields(4 = Me.textlers.Updaters.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 硬盘（或以上）的普通微机即可顺利运行。软件平台是指