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

学号 浙江万里学院毕业论文（设计） 题 目 学生姓名 专业班级 行政班名称 指导教师 院 （系） 浙江万里学院继续教育学院 年 月 日 浙江万里学院 企业工资管理系统 1 摘 要 对企事业单位而言，人力资源是企事业最宝贵的资源，也是企事业的“生 命线” 。而工资管理又是人力资源管理的重中之重。实行电子化的工资管 理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更 重要的工作。工资管理是公司管理的一个重要内容。随着企业人员数量增 加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动 人事的管理，同时也是企业财务管理的重要组成部分。工资管理需要和人 事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工 的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生 存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企 业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工 方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于 个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。基于以上原 因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工 资管理的系统化、规范化、自动化。工资管理系统是典型的信息管理系统 （MIS） ，前台程序开发工具采用微软的 VB6，后台数据库采用 Access 数据 库。VB6 是一种面向对象的开发工具，具有组件丰富、语言简单、功能强 大的优点。 Access 数据库具有与 VB6.0 无缝连接、操作简单、易于使用 的优点。运行结果证明，本企业工资管理系统极大提高了工作效率，节省 了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成 为现代化企业管理的标志。本文介绍了毕业设计课题的选题背景和意义、 相关的研究和开发的比较和综述、研究开发的过程以及设计思路和实现细 节的考虑，最后给出了作者在毕业设计过程的体会。在本文作者首先分析 了企业工资管理系统的应用现状，阐述了本工资管理系统的开发目的。通 过对数据库技术的现状与发展、数据库系统的选择原则、系统开发工具的 选择等一系列问题的分析确定了系统的开发平台。接着阐述了 MIS 系统基 本理论，并在此理论指导下，详细给出了从工资管理系统分析到总体设计 详细设计与实现及测试的各个环节，最后对本系统作出了客观评价评价， 指明了系统的现实意义、缺点以及系统的升级方向。 关键字关键字 管理信息系统 数据库 工资管理 Abstract 浙江万里学院 企业工资管理系统 2 OF 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 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 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, TO GENERATE BUSINESS FOR EACH EMPLOYEES 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 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 THESE 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 DEVELOPMENT 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 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. 浙江万里学院 企业工资管理系统 3 THIS ARTICLE DESCRIBES THE GRADUATION PROJECT OF THE BACKGROUND AND SIGNIFICANCE OF TOPICS, RELATED RESEARCH AND DEVELOPMENT COMPARISON AND REVIEW, RESEARCH AND DEVELOPMENT PROCESS AND DESIGN IDEAS AND IMPLEMENTATION DETAILS TO CONSIDER, GIVEN THE AUTHORS EXPERIENCE IN THE DESIGN PROCESS OF GRADUATION. IN THIS ARTICLE THE AUTHOR FIRST ANALYZES THE SALARY MANAGEMENT SYSTEM ENTERPRISE 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 AND A SERIES OF QUESTIONS TO DETERMINE THE SYSTEMS DEVELOPMENT 平台平台. THEN EXPLAINED 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 SYSTEMS EVALUATION, THE SYSTEM IDENTIFIED PRACTICAL SIGNIFICANCE, THE DIRECTION OF SHORTCOMINGS AND SYSTEM UPGRADES. Keywords: MIS; Database; Salary management 目录目录 第一章第一章 绪绪 论论1 1 1.1 研究课题的背景 .1 1.2 研究思路和工作计划 .3 1.3 工资管理的应用现状.错误！未定义书签。错误！未定义书签。 1.3.1 企业工资管理的应用现状 .错误！未定义书签。错误！未定义书签。 1.3.2 管理系统开发的目的 .错误！未定义书签。错误！未定义书签。 第二章第二章 管理信息系统研究概述管理信息系统研究概述错误！未定义书签。 2.1 管理信息系统的发展历史 .错误！未定义书签。错误！未定义书签。 2.2 管理信息系统的特点 .错误！未定义书签。错误！未定义书签。 2.2.1、管理信息系统的组成 .错误！未定义书签。错误！未定义书签。 2.2.2、管理信息系统的界面特点 .错误！未定义书签。错误！未定义书签。 2.3 管理信息系统的开发方式 .错误！未定义书签。错误！未定义书签。 浙江万里学院 企业工资管理系统 4 2.4 管理信息系统的开发过程 .错误！未定义书签。错误！未定义书签。 第三章第三章 应用系统分析应用系统分析 1010 3.1 系统设计背景介绍.10 3.2 系统功能分析.10 第四章第四章 系统详细设计与实现系统详细设计与实现 错误！未定义书签。 41 数据库设计.错误！未定义书签。错误！未定义书签。 42 数据库表.错误！未定义书签。错误！未定义书签。 4.3 系统模块设计.15 第五章第五章 系统测试系统测试 3838 5.1 系统的运行要求 .38 5.2 系统开发环境 .38 5.3 系统测试 .39 5.4 系统运行与维护 .41 5.4.1 系统的运行：.41 5.4.2 系统的维护主要包括四个方面：.41 5.5 系统的转换方案 .41 第六章第六章 系统评价系统评价4242 61 系统的特点 .42 6. 2 系统的缺点.42 63 将来可能提出的要求 .43 第七章第七章 小小 结结4343 致致 谢谢4444 参参 考考 文文 献：献： 4545 浙江万里学院 企业工资管理系统 1 第一章第一章 绪绪 论论 1.11.1 研究课题的背景研究课题的背景 在计算机诞生之前，人们对帐目的管理一直采用的是纸质材料记录，人 工统计和计算。例如，古时候所谓的 “大户人家 ”，或是商号等等，都需要有 专门的帐 房先生来针对每个月的支出、收入等加以统计，并记录于帐册上。 其中，对于 “仆人”的月俸等管理便是其中相当重要的一个部分，常年累月地 便积累了一大摞一大摞的帐册。这样的管理不但费时费力，也容易产生计算上 的错误和各种疏漏；随着时代的变迁，这种混乱的情形有所改善，但采取的依 然是人工操作，工作量大的时候，出现错误的机率也随之升高。 当今社会，资金是企业生存的主要元素，资金的流动影响到企业的整体 运作，企业员工的工资是企业资金管理的一个重要的组成部分，因为企业每个 月都要涉及发放企业员工工资的问题。而随着企业人员数量的增加，企业的工 资管理也变得越来越复杂。企业员工的人数越多，工资的统计工作就越多，工 资的发放困难就越大。如果能够实现工资管理的自动化，无疑将给企业管理部 门带来很大的方便。 传统的纸介材料的数据信息管理方式已经不适合现代企业公司的发展了， 实现工资管理的系统化、规范化、自动化，将成为现代公司管理工资的首选。 随着计算机的诞生和普及以及计算机网络的发展，我们就可以开发一个工资管 理系统，用电脑代替大量的人工统计和计算，完成许多工资信息的处理，同时， 使用电脑还可以安全地、完整地保存大量的工作记录。 工资管理是社会主义经济管理的重要组成部分，它与实现国家的经济战 略目标息自、相关。作为企事业单位，工资是企事业单位员工收人的主要来源。 因此，工资的调整、奖金、津贴的发放等，都是企事业单位员工非常关心的问 题。企业是依法设立的集合生产要素 ,并在利润动机和承担风险的条件下 ,为 社会提供产品和服务的基本经济单位。企业工资管理系统是在企业在人事管理 系统的各项活动中形成的一种重要的信息资源,是企业资产的一部分 ,管理资 产的最好办法就是管理工资。在被称为 “信息时代 ”的当今社会中 ,信息资 浙江万里学院 企业工资管理系统 2 源在社会的运转中发挥着物资所无法替代的作用。不断深化的社会经济改革和 日益激烈的市场竞争 ,使那些不注重对信息资源进行有效的积累、管理和开发 利用的企业 ,犹如失去航标的船只 ,无法驶向成功的彼岸。企业档案工作属于 企业信息工作的重要内容 ,是企业管理基础工作的有机组成部分。企业工资管 理系统通过对工资问题的研究，认识工资分配的客观规律，探索工资改革的 目标、方向和途径，掌握和运用从事工资管理工作的基本知识和方法，以提高 工资管理水平，从而使企事业工资管理立足于为企业服务，为员工服务。以维 护企业的经济利益 ,合法权益和历史真实面貌 ,为企业的正常运转提供信息保 障。 近几年来，我国计算机事业的变化之大，发展之快是任何人都始料不及 的。随着微型计算机在我国的逐渐普及，计算机的应用已从科学计算、实时控 制方面逐渐扩展到非数值处理的各个领域。尤其是微型计算机系统在企事业管 理及办公自动化的应用方面正日益受到各部门的极大关注。手工工资管理是一 种原始的工作方法 ,由于手工操作出现错误的概率比较大 ,其工作量大 ,工作程 序复杂,消耗大量的人力、物力、财力和时间 .而且随着时间的推移 ,由于人员 的增加,科目的增多以及调整的频繁 ,这些矛盾显得尤为突出 .开发一套工资管 理系统,对其进行微机化管理工资管理是非常必要的。企业工资管理系统就是 专为企事业单位管理工资而设计的。此系统有较好的人机对话界面，操作简单， 使用方便等优点，尤其在数据库的检索方面，具有极快的速度和很高的准确性。 借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要 趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信 息化带动工业化 ”的指导思想。对企业而言，全面开发和应用计算机管理信 息系统就是近期不能回避的问题。在企业管理中，人力资源是企业的宝贵资源， 也是企业的 “生命线” ，因此人事管理是企业的计算机管理信息系统重要组成 部分。而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可 以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。 工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。 现在应用在大中型企业的信息管理系统中，几乎都包括了工资管理模块。 浙江万里学院 企业工资管理系统 3 有些环境中是有大型 ERP 软件中的一个模块引进的，有些作为企业的财务系 统的一部分。这些根据规范的西方管理制度设计的工资管理软件，在很多时候 还不能完成解决中国特色中小企业的问题，本文介绍的毕业设计的研究工作就 是要为这些具有中国特色的中小企业解决他们在工资管理方面的问题。 通过在本单位经过一周的调研，并参考其它同行设计工资管理软件，我基 本上搞清了象我们单位的小型企业对系统的需求，如果能够设计一套针对类似 本单位的小型国有企业的工资管理系统特别有意义，并且是现行的财务管理软 件代替不了的。 在和指导老师多次交流后， 最终确定了实现方案的要点和工作计划。 基本完成了该工资管理系统论文的写作。 本系统的实现的主要功能有：员工 信息管理、工资结构设置、工资汇总打印等功能。 1.21.2 研究思路和工作计划研究思路和工作计划 企业工资管理系统为企业提供了工资计算，工资统计等服务；而且系统使 用表格保存相关的工资信息，方便查询、浏览、修改等操作，基本上能够满足 现代企业工资管理的需求。在像研究任何其他软件项目一样，我做的毕业设计 也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统 的资料；系统概要设计，数据库结构设计，功能模块开发，功能模块测试，系 统调试和系统试运行和修改。下面的流程图反映我们的基本思路和过程。本系 统主要实现了以下的功能： 1. 用户密码修改功能； 2. 企业员工和部门的基本信息的浏览、添加、删除、修改功能； 3. 员工基本工资的设置和调整功能； 4. 员工的考勤信息统计功能； 5. 员工工资的结算功能； 6. 员工工资和打印功能 在各阶段的时间安排上，选题和调研用了 2 周左右的时间；熟悉开发环境， 实验关键技术，查找类似的相关系统得资料用了 2 周时间；系统概要设计用了 浙江万里学院 企业工资管理系统 4 1 周的时间；数据库结构设计用了 1 周时间；功能模块开发和测试用了 4 周时 间；系统调试和试运行、修改约三周时间。完成全部工作大约 3 个月时间。以 下是研究设计图： 调查研究 定题 系统测试 概要设计 数据库结构设计 功能模块开发 资料查询开发环境熟悉研究关键 功能模块测试 系统试运行和修改 图图 1.2 研究流程图 1 13 3、企业工资管理系统的现状分析、企业工资管理系统的现状分析 1.31.31 1 企业工资管理的应用现状企业工资管理的应用现状 随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体 制的迅速完善，各个行业都在积极使用现代化的手段，不断改善服务质量，提 高工作效率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系 无论是在行政职能、企业管理水平以及优质服务上都提出更高的要求。建设一 个科学高效的信息管理系统是解决这一问题的必由之路。企业内部财务管理是 该企业运用现代化技术创造更多更高的经济效益的主要因素之一。工资管理作 为企业内部的一种财务管理也是如此，由于企业职工人数较多，每一位职工的 浙江万里学院 企业工资管理系统 5 具体实际情况也不尽相同，各项工资条款的发放，如果没有一个完整的管理系 统来进行管理，那么势必会给管理人员带来种种麻烦，因此类似工资管理系统 之类的财务软件的开发势在必行。 1 13.23.2 管理系统开发的目的管理系统开发的目的 本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理，使 管理员能够有序的管理每一位职工的各项工资条款的发放以及员工个人台帐的 生成，使企业运用现代化技术创造更多更高的经济效益。 第二章 系统需求分析 2.1 系统设计背景介绍 管理信息系统就是我们常说的 MIS (Management Information System)， 在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与 企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的管理 方式，企业的管理人员、技术人员、统计人员等各部门员工就能从大量烦琐的 资料和数据中解脱出来，只需对自己需要的数据和内容进行必须的处理，而不 用对每个环节都了如指掌。这在一定程度上能够节省人力物力，同时也大大加 强了对数据处理的及时性和准确性。 本次的开发内容人事管理系统就是信 息管理与现代化办公设备相结合的例子。开发本系统希望使人事管理人员可以 从年复一年的输入、计算、统计等工作中解脱出来，由于人事方面的数据众多， 输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时 费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在 不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工 资日期等详细分类，使客户可以根据需要进行管理操作。 因此，该管理系统的 目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代 化办公设备的连接实时刷新数据，从而提高企业的工作效率。 2.2 系统功能分析 浙江万里学院 企业工资管理系统 6 工资管理信息系统主要有以下几项功能要求： *按不同权限登录系统。 *对其提供的部门资料情况进行添加、查询、修改和删除操作。 *对其提供的人员资料情况进行添加、查询、修改和删除操作。 *对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤 月份进行分类。 *对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可 按工资月份进行分类。 *可添加新的用户，修改用户原有的用户名、密码，删除原有用户。 第三章详细设计与实现 本部分说明了系统的整个设计，再以工资数据输入，工资计算以及查询为 例详细说明了系统是怎样实现的。 31 数据库设计 概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示 数据及其相互间的关系，这种数据模型是与 DBMS 无关的、面向现实世界的、易 如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统， 与用户进行交流十分方便。 概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在 数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种 容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据 模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是 设计数据库结构的基础。 概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称 E-R 模型） ，对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系 反映现实世界事物间的内在联系。E-R 模型是建立概念性数据模型的有力工具。 浙江万里学院 企业工资管理系统 7 3. 2 数据库表 启动 Access 2000，创建新的数据库，命名为 Salary.mdb 和 Person.mdb， 保存在要存放这个系统所有工程文件的文件夹中。在使用的时，要把应用程序 和这两个数据库保存在同一个文件夹中。 员工出勤统计信息表： 字 段类 型长 度是否空 ID自动编号长整型不能空 员工编号文本30不能空 员工姓名文本30不能空 统计时间日期/时间不能空 出勤天数数字长整型不能空 迟到早退次数数字长整型不能空 旷工次数数字长整型不能空 正常加班次数数字长整型不能空 特殊加班次数数字长整型不能空 员工工资计算公式信息表： 字 段类 型长 度是否空 出差工资数字长整型不能空 旷工工资数字长整型不能空 迟到早退数字长整型不能空 员工其他项目设置： 字 段类 型长 度是否空 员工编号文本30不能空 ID自动编号长整型不能空 编号文本30不能空 职位文本30不能空 工资货币货币不能空 年月日期/时间 不能空 类型数字长整型 不能空 类型文本30 能空 名称货币货币 不能空 备注备注 能空 浙江万里学院 企业工资管理系统 8 员工工资统计信息表： 字 段类 型长 度是否空 ID自动编号长整型不能空 编号文本30不能空 员工姓名文本30不能空 时间日期/时间不能空 基本工资货币货币不能空 奖金货币货币不能空 福利货币货币不能空 迟到早退扣发货币货币不能空 旷工扣发货币货币不能空 加班费货币货币不能空 总额货币货币不能空 员工信息表： 字 段类 型长 度是否空 ID文本30能空 员工姓名文本30能空 性别文本30不能空 籍贯文本30不能空 年龄数字长整型不能空 生日日期/时间不能空 学历文本30不能空 专业文本30不能空 住址文本30不能空 邮编文本30不能空 电话文本30不能空 Email文本30能空 部门文本30能空 起薪时间日期/时间不能空 职务文本30能空 备注文本30能空 用户信息表： 字 段类 型长 度是否空 浙江万里学院 企业工资管理系统 9 用户名称文本30不能空 用户密码文本30不能空 33 系统模块设计举例 下面对本系统的具体的几个模块做详细说明。 1、系统主程序 MAIN.PRG clear screen clear events set defa to d:qygz open database databasesalary do salarymain.mpr do form salaryformksjm read events 2、Ksjm.frm (1)打开表单设计器，设计好表单，并且设置好必要的属性，设计结果见图 frmMain.load 事件代码: public i i=0 Timer.timer 事件代码: if Thisform.Label1.Left=255*2-6 I=0 Endif (2)“员工基本信息“按钮的 CLICK 事件为： do form salaryformpersonnel frmadduser.frm 的有关设计见第 3 目 （3） “基本工资设定“按钮的 CLICK 事件为： do form salaryformdataformat （4） “计算工资 “按钮的 CLICK 事件为： do form salaryformresult （5） “查询工资 “按钮的 CLICK 事件为： do form salaryformgrcx （6） “退出“按钮的 CLICK 事件为： thisform.release clear events 3 personnel.frm 的有关设计： (1)打开表单设计器，设计好表单，并且设置好必要的属性，设计结果 浙江万里学院 企业工资管理系统 11 Form1.init 事件代码: set multilocks on cursorsetprop(buffering,3) (2) mand1.click 事件代码： thisform.pageframe1.page1.fy1.enabled=.F. mand2.enabled=.F. mand3.enabled=.F. mand4.enabled=.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. 浙江万里学院 企业工资管理系统 12 thisform.pageframe1.page1.txtpindate.enabled=.T. thisform.pageframe1.page1.txtprank.enabled=.T. append blank mand1.caption=增加确认 thisform.pageframe1.page1.refresh thisform.pageframe1.page1.txtpid.setfocus else getid=alltrim(thisform.pageframe1.page1.txtpid.value) getname=alltrim(thisform.pageframe1.page1.txtpname.value) get*=alltrim(thisform.pageframe1.page1.txtp*.value) getjob=alltrim(thisform.pageframe1.page1.txtpjob.value) getindate=alltrim(thisform.pageframe1.page1.txtpindate.value) getrank=alltrim(thisform.pageframe1.page1.txtprank.value) if empty(getid) or empty(getname) or empty(get*) or empty(getjob) or empty(getindate) or empty(getrank) messagebox(资料不足,48,错误) else mand1.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.page1.txtprank.enabled=.F. thisform.pageframe1.page1.fy1.enabled=.T. mand2.enabled=.T. mand3.enabled=.T. mand4.enabled=.F. 浙江万里学院 企业工资管理系统 13 endif endif 4基本工资设定窗体代码: Private Sub cmdok_Click() Dim sql As String Dim rs As New ADODB.Recordset If ichangeflag = 1 Then If Me.optionid.Value = True Then If Mstuffid.Text = Then MsgBox 请选择员工编号, vbOKOnly + vbExclamation, 提示 ElseIf IsEmpty(Me.textmoney) = True Then MsgBox 请输入基本工资, vbOKOnly + vbExclamation, 提示 Me.textmoney.SetFocus ElseIf IsNumeric(Me.textmoney) = False Then MsgBox 请输入数字, vbOKOnly + vbExclamation, 提示 浙江万里学院 企业工资管理系统 14 Me.textmoney = Me.textmoney.SetFocus Else sql = select * from 工资 where 编号= & Mstuffid.Text & Set rs = getrs(sql, salary) If rs.EOF = False Then sql = delete from 工资 where 编号= & Mstuffid.Text & Call transactsql(sql, salary) End If rs.Close id = Mstuffid.Text Call addrecord MsgBox 已经设置基本工资, vbOKOnly + vbExclamation, 添加结果 Call init sql = select * from 工资 Call frmresult.basictopic Call frmresult.showbasic(sql) frmresult.Show frmresult.ZOrder 0 Me.ZOrder 0 End If End If If Me.optionposition.Value = True Then If Mposition.Text = Then MsgBox 请输入职务, vbOKOnly + vbExclamation, 提示 ElseIf IsEmpty(Me.textmoney) = True Then 浙江万里学院 企业工资管理系统 15 MsgBox 请输入基本工资, vbOKOnly + vbExclamation, 提示 Me.textmoney.SetFocus ElseIf IsNumeric(Me.textmoney) = False Then MsgBox 请输入数字, vbOKOnly + vbExclamation, 提示 Me.textmoney = Me.textmoney.SetFocus Else sql = select * from 工资 where 职位= & Mposition.Text & Set rs = getrs(sql, salary) If rs.EOF = False Then sql = delete from 工资 where 职位= & Mposition.Text & Call transactsql(sql, salary) End If rs.Close sql = select * from 信息 where 职位= & Mposition.Text & Set rs = getrs(sql, salary) While Not rs.EOF id = rs(0) Call addrecord rs.MoveNext Wend rs.Close MsgBox 已经设置基本工资, vbOKOnly + vbExclamation, 添 加结果 Call init sql = select * from 工资 浙江万里学院 企业工资管理系统 16 Call frmresult.basictopic Call frmresult.showbasic(sql) frmresult.Show frmresult.ZOrder 0 Me.ZOrder 0 End If End If Else sql = update 工资 set 工资= & Me.textmoney & where 编号 = sql = sql & Mstuffid & Call transactsql(sql, salary) MsgBox 已经修改基本工资设置, vbOKOnly + vbExclamation, 提 示 Unload Me sql = select * from 工资 Call frmresult.basictopic Call frmresult.showbasic(sql) frmresult.Show frmresult.ZOrder 0 Call frmsumsalary.resumsalary(Date) End If End Sub Private Sub comstuffid_Change( Private Sub Form_Load() Dim sql As String Dim rs As New ADODB.Recordset 浙江万里学院 企业工资管理系统 17 If ichangeflag = 1 Then 添加信息 sql = select 标识 from 信息 order by 标识 Set rs = getrs(sql, salary) If rs.EOF = False Then While Not rs.EOF Mstuffid.AddItem rs(0) rs.MoveNext Wend rs.Close Mstuffid.ListIndex = 0 End If sql = select distinct 职位 from 信息 Set rs = getrs(sql, salary) If rs.EOF = False Then While Not rs.EOF Mposition.AddItem rs(0) rs.MoveNext Wend rs.Close Mposition.ListIndex = 0 End If Me.optionid.Value = True Else 修改信息 Me.Caption = 修改基本工资设置 Set rs = getrs(strpublicsql, salary) Mstuffid.Text = rs(1) Mposition.Text = rs(2) 浙江万里学院 企业工资管理系统 18 Me.textmoney = rs(3) Mstuffid.Enabled