《企业人事工资管理系统.doc》由会员分享，可在线阅读，更多相关《企业人事工资管理系统.doc（29页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、云 南 财 经 大 学学生毕业论文（设计） 题目：企业人事工资管理系统的设计与实现院（系）：信息学院 专业：计算机科学与技术（经济信息处理） 班级：计经11-1班 学号：201105002387 论文作者：雷磊 指导教师：杜士镕 指导教师职称：讲师 2015 年月云南财经大学 本科毕业论文（设计）原创性及知识产权声明 本人郑重声明：所呈交的毕业论文（设计）是本人在导师的指导下取得的成果。对本论文（设计）的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。因本毕业论文（设计）引起的法律结果完全由本人承担。 本毕业论文（设计）成果归云南财经大学所有。特此声明 毕业论文（设计）作者签名： 作者
2、专业：计算机科学与技术（经济信息处理）作者学号：201105002387 2015年 4 月16日目录本科毕业论文（设计）原创性及知识产权声明1目录2内容摘要3Abstract4一、 绪论5（一） 问题的提出5（二） 本课题的研究意义5二、 可行性分析6（一）经济可行性6（二） 操作可行性6三 、系统分析7（一）管理需求分析7（二）业务流程分析8（三）数据流分析8四 、系统设计12（一）功能模块结构图12（二）数据库设计13（三）I/O设计16（四）处理流程设计16五 、 系统实施18（一） 开发环境简介18（二）系统界面的实施18（三）员工基本信息录入窗体的实施19（四）员工工资表窗体的实施
3、20六 、结论28参考文献29致 谢 语30内容摘要由于计算机技术的飞速发展,数据库技术作为数据管理的一个有效的手段,在各行各业中得到越来越广泛的应用。因此,本文围绕一个”企业人事工资管理系统”程序的设计和应用系统的开发课题为背景,详细介绍了以VB和ACCESS为语言编写企业人事工资管理系统的过程。企业人事工资管理系统的设计不但是一个应用程序编写的过程,更重要的是在系统分析以及设计阶段所做的很多工作。该程序在设计过程中每一步都是严格遵循系统开发的设计思路,用分步骤的生命周期严格进行管理,并主要讲述了程序的总体设计和详细设计阶段,对程序进行需求迭代,不断修正和改进,使系统能够不断完善，利用ACC
4、ESS的强大数据库功能,直到形成一个完善的可行性系统.优美、秀丽的界面,方便实用的查询与维护功能共同构成了“人事工资管理系统”。关键词：VBACCESS数据库软件工程人事工资管理系统AbstractDue to the rapid development of computer technology, database technology as an effective means of data management, widely used in all walks of life. Therefore, the project design and application system
5、 based on a enterprise personnel salary management system program as the background, introduced by VB and ACCESS to prepare the enterprise personnel salary management system language.企业人事工资管理系统的设计不但是一个应用程序编写的过程,更重要的是在系统分析以及设计阶段所做的很多工作。该程序在设计过程中每一步都是严格遵循系统开发的设计思路,用分步骤的生命周期严格进行管理,并主要讲述了程序的总体设计和详细设计阶段,
6、对程序进行需求迭代,不断修正和改进,使系统能够不断完善，利用ACCESS的强大数据库功能,直到形成一个完善的可行性系统.优美、秀丽的界面,方便实用的查询与维护功能共同构成了“人事工资管理系统”。 The design of enterprise personnel salary management system is not only the process of writing an application, it is more important to do a lot of work in system analysis and design stage. The program i
7、n the design process of each step is to strictly follow the design ideas of system development, with the steps of the life cycle of strict management, and mainly introduces the general design procedure and the detailed design stage, the demand for computation procedures, and constantly revised and i
8、mproved, so that the system can continue to improve,the database function, until the feasibility of forming a perfect system. A beautiful, beautiful interface, easy to query and maintenance functions constitute the personnel salary management systemKeywords: VBACCESSdatabasesoftware engineeringmanag
9、ement information syste一、 绪论（一） 问题的提出某企业拥有干部和员工多人，主要有领导干部，技术人员，销售人员，操作人员。公司下设机关，销售公司，成品车间，调和车间，为了便于员工工资管理，并且还专设置了人事工资管理系统，根据员工每个人的工作年限和医疗保险，住房补贴，岗位工资的来计算每个员工的工资的工资系统，也便于查询员工工资。随着公司逐年的发展，公司的人事工资等事务纷繁芜杂，若用传统的方法来管理这些数据，不但会造成公司在管理上上的浪费，并且因为要处理的信息量过大较难进行统计和分析。依靠传统的管理方法来管理公司跟不上公司的发展需要，为了提高办事效率和节约公司运作的成本，需
10、要改变以前单纯依赖人工管理的方法。随着经济水平的发展，知识经济时代给企事业工资信息管理提出了更高的要求，除了以往的工资利用计算机软件excel可以管理外，公司更希望能够对以往的各种的人事信息，考勤信息，工作评价信息，工资信息等统一管理起来。高效的、准确的人事工资管理，不仅能促进员工不断提高自身素质、提高工作积极性。还能提高员工工作质量和效率。（二） 本课题的研究意义 目前市面上流行的工资发放软件种类繁多。但是，对于企业单位的工资发放来讲，用不着太大的数据库系统。太大的数据库系统会造成资源的浪费以及管理的不方便。因此，只需要一个操作方便，功能实用，能同时满足企业各部门对数据的管理及需求的系统就可
11、以了。我们的目的就是在于开发这样一个比较适合企业人事工资管理的系统。二、 可行性分析可行性研究是为了用最小的成本在较短的时间内确定问题能否解决。这需要依靠客观的分析。必须分析主要的几种解决方法，从而判定原系统目标和规模是否能够现实，系统设计完成后所能带来的效益是否值得去开发这个系统。因此，可行性研究本质上是要简化系统分析和设计的过程，也就是在比较高层次以抽象的方式进行系统的分析和设计。（一）经济可行性这个系统的经济效益能不能超过它的开发成本。本人事工资管理系统是基于VisualBasic 6.0及ACCESS基础上开发的小型数据库应用程序，不需要多少人力和物力就可以设计的。但本系统一旦投入使用
12、，将大大减少人事工资管理人员的工作量，提高了工作效率，其经济效益是显儿易见的。（二） 操作可行性系统的操作方式在这个用户组织内能不能行得通。在进行需求分析时，就对用户组织进行了调查，针对他们的情况，设计出适合这个用户组织的人机界面，使操作方式更加简单。本系统开发思想是采用现代化先进的人事工资信息化高效管理思想，综合多种人事工资信息管理软件开发商优点以及结合我们单位实际情况而开发。三 、系统分析（一）管理需求分析本系统开发目的是方便管理单位人事和工资信息。单位工作人员和管理人员 通过此人事管理系统，可以管理单位人事信息，快速记录和计算工资信息，监督 单位财务状况，统计财务信息。所以为用户方便使用
13、，需要系统界面美观大方， 数据操作简单易懂，系统数据安全可靠。具体需要达到如下目的： （1）单位人事管理要合理，工资信息分类科学，能全面反映单位员工情况。（2）单位财务信息要规范化，系统化，保证财务工作的正常、快速、有效运行。（3）财务管理制度要体现在系统功能设计上，保证有效的管理机制。（4）财务工作要体现透明化、公平化，促进单位员工的工作积极性。 完成工资管理系统达到预期目标后，应具备如下特点：（1） 企业人事工资管理系统要降低单位财务管理的工作力量，提高 财务管理工作的效率。传统的财务管理模式下，财务人员要统计员工信息，员工考勤和计算员工薪资福利，所有信息统计存储要记录在纸质档案中。这些基
14、本工资就占了财务管理工作的 70%以上，管理人员每个月都在反复重复这些基本工作。使用了此人事工资管理系统后，这些事一般只占到其工作量的 10%20%。 （2）企业人事工资管理系统要降低单位工资管理的成本。使用这类工资管理系统后，单位员工的基本信息保存在系统数据库中，随时可以查询、修 改、录入员工信息，出现问题可以及时采取措施解决问题。因此，使用本系统可 以由于人员流动而带来的造成的损失。此外，由于先进的工资管理系统能够使用 少数人数就可以管理整个单位的工资，能够及时地发现和挖掘员工的才能，可以 帮助提高单位员工的整体素质。 （3） 企业人事工资管理系统要及时准确地收集信息，加强单位内部 的信息
15、沟通，实现单位内部信息的数据共享，可以在单位内部的各个部门之间架起一个沟通的桥梁，方便单位各部门做出决策或采取行动。（二）业务流程分析 系统各功能需求如下： （1）考勤管理：提供考勤的添加、修改、通过考勤计算出不同加班性质的加班津贴和早退、迟到、缺席、离岗等应扣除的工资，最后导出考勤表。 （2）工资管理：基本工资的修改，岗位工资的修改，基本工资表的变动，计算个人所得税，最后和考勤表一起形成工资汇总表，导出工资汇总表。 （3）人事管理：提供对个人信息的添加，删除，修改等功能，保证个人信息的及时更新，对人事信息的修改，导出人事信息花名册。（三）数据流分析1.DFD 对于人事工资管理系统来说，我们要
16、进行工资的计算，因此必须要了解企业的基本工资，岗位工资，考勤等相关内容。比较复杂的人事工资管理系统,其DFD可能含有上千个加工,基本不可能一次就将它们全部画齐。正确的做法是：从系统的基本模型开始，依次地对系统进行分解。直到所有的加工都比较简单，不需要再分解为止。通常把这种不需要分解的加工称为“基本加工”。数据流图（DFD）正是用来指出软件系统中的数据是如何流动以及变换的。下面是企业人事工资管理系统的数据流图:图2-1企业人事工资管理系统数据流程图 2.数据字典上文中的数据流图只能给出系统逻辑功能的一个总结构而缺乏详细和具体的内容。数据词典的作用主要是给数据流图上的每一个成分加以定义和说明。除了
17、这些，数据词典还要对系统分析中其它需要设计的问题进行定义以及说明。此系统的数据词典描述的内容主要有：数据流、数据存储、数据元素、数据结构、数据处理逻辑和外部项。在系统分析的过程中，会产生大量的数据词典。限于篇幅，采用图表格式仅就这几项条目各举一例来说明。数据元素系统名：人事工资管理条目名：员工编号编号：E2别名：员工号存储处：D1 基本信息表D2 业务档案表D3 考勤表D4 工资表数据元素值：代码类型字符型长度：10简要说明：员工编号是员工的识别符，每个员工都有唯一的编号。审核日期表2-1数据元素条目举例表数据结构条目数据结构系统名：企业人事工资管理系统条目名：人事信息编号：S1别名：无结构：
18、员工编号姓名性别部门民族出生年月政治面貌家庭住址学历基本工资有关数据存储：D1 员工档案信息表有关数据流：简要说明：员工在进入单位后需要首先提供个人资料，单位并确定基本工资。审核日期表2-2数据结构条目举例表数据流条目数据流系统名：企业人事工资管理系统条目名：工资汇总表编号：S6别名：无来源：工资表去处：打印报表数据流结构：库存数据=员工编号+姓名+基本工资+岗位津贴+加班津贴+考勤工资+行政性扣款+应发工资+个人所得税+实发工资*0.2简要说明：对工资表中的已经创建的信息进行查询并且输出打印。审核日期表2-3数据流条目举例表数据存储条目数据存储系统名：企业人事工资管理系统条目名：工资表编号：
19、D4别名：无存储组织：每个员工一条工资记录按员工编号顺序排列主关键字：员工编号辅关键字：年月记录组成：项名：员工编号基本工资岗位津贴加班津贴考勤工资行政扣款应发工资所得税实发工资年月长度：（byte）10666666666简要说明：员工的所有的创建的工资信息都存储在这里。审核日期表2-4数据存储条目举例表数据处理逻辑条目处理逻辑系统名：企业人事工资管理系统条目名：工资计算表编号：S3别名：无输入：取自基本信息，业务档案信息，考勤信息，年月等。输出：员工当月的工资表加工逻辑：应发工资=基本工资+岗位工资+加班津贴+考勤工资-行政扣款-个人所得税简要说明：工资表每月创建一次。审核日期表2-5 数据
20、处理逻辑条目举例表四 、系统设计 （一）功能模块结构图对于一个小型企业来说，其工资管理系统不需要特别多的模块，结合了本企业的实际情况，确定了本子系统的功能模块如下图所示。 工资管理系统 人事档案 业务档案 工资管理 考勤管理 系统管理档 档 档 档 档 档 评 评 工 工 工 工 初 考 考 考案 案 案 案 案 案 价 价 资 资 资 资 始 勤 勤 勤输 更 查 统 输 查 输 维 生 查 统 报 化 更 查 报入 新 询 计 入 询 入 护 成 询 计 表 新 询 表 用 系 关 系户 数 于 统 管 维 系 退 理 护 统 出图3-1功能模块结构图 各模块详细说明：(1)人事档案管理档
21、案更新:包括对人事档案的修改，删除，增加（新建档案）档案查询：可以按姓名、职称或任意条件查询个人或一部分人的情况； 档案统计：按多种条件进行数据统计并显示，包括统计学历、职称、年龄、政治面貌等。档案输出：可以输出个人档案，全部档案，花名册，团员名册，党员名册等(2)业务档案管理档案编辑：包括新建，修改，删除员工的业务档案。档案查询：可以按姓名、职称或任意条件查询个人或一部分人的情况评价编辑：包括对员工每年的考核评价等级等情况进行录入和浏览。评价维护：可以输出员工的评价资料进行维护修改。(3)员工工作评价管理提供对员工的每年度的工作考核进行录入，维护和浏览以及报表等功能。(4)员工考勤管理考勤表
22、的创建：按照年月对考勤表完成初始化创建。考勤维护: 考勤表创建时初始化数据暂时为0，其中的字段的值需要通过考勤表维护功能来进行修改。考勤查询: 按姓名或员工编号查询个人出勤情况。统计输出：按多种条件进行数据统计并显示在表格中，也可将统计计结果打印出来。本系统的输出报表是通过将输出的数据对象导出到报表专家excel后通过excel完成报表。(5)职工工资管理创建工资表：通过输入的年月来完成对员工工资表的创建，创建工资表是将系统中其它的数据库表中的数据关联起来，综合得到的员工的某年月的工资。工资查询：可按员工编号和年月等进行员工工资状况查询；工资统计：按多种条件进行数据统计并显示。工资输出：可以输
23、出个人工资单，或输出全体人员工资汇总清单。本系统的输入报表是通过导出到excel完成报表的。 人事工资管理人员功能的信息量大，数据安全性和保密性要求最高。本功能实现对员工信息、业务信息、考勤信息的管理和统计、工作人员和管理人员信息查看及维护。管理员可以浏览、查询、添加、删除、修改、统计员工人事信息等普通管理操作员只能按指定范围功能的操作权限。（二）数据库设计“数据库”就是为了实现一定的目的按某种规则组织起来的“数据”的“集合”。它是由一个被称为数据库管理系统的软件来进行管理得。数据的存取方式和使用它的应用程序是独立的。 数据库的结构设计是软件开发的开始条件，设计较好、较全面的数据库结构设计，对
24、于软件开发来说是成功的基石，数据库结构设计不全面，会直接影响软件的开发和利用。概念结构设计数据库概念结构设计是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面设计打下基础。本系统根据上面的设计规划出的实体有：员工、员工考勤表、工资表、岗位类别表。实体与实体之间的关系E-R图如下图：图3-2实体与实体之间的关系E-R图2的逻辑结构设计将以上的E-R图转换成如下关系模式：员工(员工编号、姓名、部门、性别、民族、出生年月、政治面貌、家庭住址、联系电话、毕业学校、最高学历、所学专业、职务、专业技术职称、职称时间、个人简历、奖惩情况、岗位编号、业务档案)。员工考勤表（员工
25、编号、迟到次数、早退次数、缺席次数、离岗次数、备注、年月）。员工工资表（员工编号、基本工资、岗位工资、加班津贴、考勤工资、行政性扣款、个人所得税、实发工资、年月）。岗位类别表（岗位编号、岗位名称，职责，岗位工资）3 数据库结构 本系统的后台数据库选择为ACCESS，在以上的数据库概念结构设计和逻辑结构设计完成后，就可以实现为ACCESS数据库了。 ACCESS具有三大功能： 1 建立数据库;2数据库操作;3数据通讯。 ACCESS的内部结构 ACCESS数据库是关系型数据库，具有表的很多特性，在ACCESS数据库中，包括表、窗体、查询、报表、宏、页和模块七个对象，这些用象对于收集、存储和操作各
26、种不同的信息。它们功能如下 :(1)利用表对象存储信息；(2)利用窗体对象查看信息；(3)利用查询对象搜索信息；(4)利用报表对象显示信息；(5)利用宏对象完成自动化工作；(6)利用页对象显示数据访问页信息；(7)利用嵌入模块实现复杂功能。 ACCESS数据库的构成 ACCESS数据库是一系列数据基本表、表与表之间的关系、查询、窗体、报表、页、宏和模块的集合，这些成分统一组织在一个以.mdb为后綴的数据库文件中。 在需求分析、概念结构设计的基础上得到数据库的逻辑结构设计之后，我们就可以在Visual Basic6.0中实现该逻辑结构。数据库设计主要如图所示：图3-3 员工信息表图3-4 员工考
27、勤表（三）I/O设计1. 输入设计 对于此人事工资管理系统来说，输入设计主要是主界面的设计和相关信息的录入。如员工基本信息的输入、员工业务档案的输入、员工出勤信息的输入、还有输入员工的部分信息，查询相关内容等。3.输出设计 对于人事工资管理系统来说，输出内容主要是在职员工的基本信息，业务信息，出勤信息，工资表等。（四）处理流程设计 1.系统登录流程设计，首先选择角色，然后输入账号，最后输入密码，验证密码是否正确，进入系统，如图所示：图3-5 系统登录界面表2.工资生成处理模块：管理员进入系统，根据人员信息，人员业务档案，员工考勤表生成工资表，核对工资表是否正确，正确则导出到EXECL，不正确就
28、重新返回处理，工资计算公式如下：应发工资=基本工资+岗位工资+加班津贴+考勤工资-行政扣款-个人所得税。基本工资、岗位工资和行政扣款是固定的:加班津贴=平时加班的加班天数*平时加班津贴+节假日加班的天数*节假日加班的津贴：考勤工资等于迟到次数*迟到扣款+早退次数*早退扣款+缺席次数*缺席扣款+离岗次数*离岗扣款：个人所得税=（应发工资-800）*0.2。五 、 系统实施（一） 开发环境简介 Visual Basic 是一个可视化的、面向对象的、采用事件驱动的结构化高级程序设计语言，它具有强大的数据库操作功能，提供了数据管理器（Data Manager）、数据控件（Data Control）、以
29、及ADO（Activex数据对象）等强大工具，利用它能够建立多种类型的数据库并可以管理维护和使用这些数据。当设计好系统的数据库结构后，就可以开始在Visual Basic6.0中开始设计系统功能模块相应的窗体了。设计窗体就是将前面分析得到系统的功能模块通过在Visual Basic6.0设计出具体的窗体，通过窗体的操作来实现预订的模块的功能。由于Visual Basic6.0是一种面向对象的编程软件，设计窗体和控件可以轻松通过系统得到，所以编程的时可以集中精力来设计控件的事件。面向对象的编程软件就是通过控件这种对象，发出不同的消息，去触发相应事件的发生。（二）系统界面的实施图5-1系统主界面图
30、系统主界面主要有系统菜单和运行界面。系统用户通过菜单的操作来完成系统设计的各项功能。该界面提供的菜单如下表所示：员工基本信息档案管理评价管理出勤管理工资管理系统管理基本信息录入档案录入评价初始化月考勤表月工资表系数设置基本信息维护档案维护评价维护考勤维护工资查询添加操作员基本信息查询档案查询考勤查询岗位工资维护基本信息统计档案统计加班维护退出表4-1系统界面提供的菜单表菜单的设计是本窗体的重点，菜单设计的过程通过系统的菜单栏ToolsMenu Editor进入菜单编辑器。添加如上图所示的菜单后，关闭菜单。回到该界面窗体的。可以看到该窗体的上面已经有了这些设计的菜单，通过点击设计的菜单栏，即可进
31、入源代码设计环境，通过添加clcik事件源代码后，即完成了该窗体的设计。（三）员工基本信息录入窗体的实施本功能实现了人事管理过程,编程采用ADODB.connection和ADODB.command 的VB内置对象，其主要作用是实现了数据库连接及SQL查询语言的使用。员工档案信息录入功能如下图：图5-2员工档案信息录入功能界面图通过以上相关技术的引用，员工基本信息录入功能编写很快就可以完成了。其中记载按钮的click事件：单击按钮时，首先检查文本框输入的是否为空，接着连接数据库，建立记录集，并使用记录集打开查询，最后对该查询记录集增加一条记录，语句：adoPrimaryRS.AddNew。并设
32、置增加的记录的相应字段值为文本框和组合框的输入值，记录集更新记录。语句：adoPrimaryRS.Update。更新语句是特别重要的，如果没有更新语句，最后数据库中的记录就不能得到修改和添加。通过该窗体的操作，系统可以完成对员工的基本信息的录入。录入后员工的基本信息的维护，包括信息的修改，删除，浏览，简单的查找等操作，可以通过员工基本信息维护窗体来完成。（四）员工工资表窗体的实施通过管理人员输入年、月，系统即可生成当月的员工工资表。如果输入的年月工资表已经生成，则系统给出提示，并可以浏览当月工资表。图5-4员工工资表浏览界面图该窗体包括一个表格控件、一个文本框控件、一个组合框控件、四个按钮控件
33、。文本框控件用于输入年，组合框用于选择工资的月份。创建/浏览月工资表按钮的click事件：根据输入的年月在工资表中查询，如果没有该月的工资则系统开始创建该月的员工工资记录。创建时需要根据员工基本信息表中的基本工资、考勤表的该员工编号的考勤工资、加班表中的该员工编号的加班工资、业务档案表中的岗位工资、系数表中的工资系数进行计算分别得出员工的工资表中的每项记录。x = adoPrimaryRS.Fields(基本工资) + adoPrimaryRS.Fields(岗位津贴) + adoPrimaryRS.Fields(加班津贴) - adoPrimaryRS.Fields(考勤工资) - adoP
34、rimaryRS.Fields(行政性扣款) adoPrimaryRS.Fields(应发工资) = x通过以上语句可以看出，应发工资是有基本工资岗位工资加班津贴考勤工资个人所得税。个人所得税是在应发工资的基础上800的差乘20%得到的。实现的语句：y = x - 800 If y 0 Then adoPrimaryRS.Fields(个人所得税) = y * 0.2 Else adoPrimaryRS.Fields(个人所得税) = 0 End If 计算完应发工资和个人所得税后最终的实发工资就可以计算出来了。实现的语句是：adoPrimaryRS.Fields(实发工资) = x - ad
35、oPrimaryRS.Fields(个人所得税)如果该月工资已经创建，则系统给出提示后，用户可以浏览该月的工资表记录。导出到EXCEL表按钮的clcik事件：将工资记录集中的数据导出到excel表中，通过excel表完成报表打印。具体代码如下:Dim WithEvents adoPrimaryRS As RecordsetDim WithEvents adoPrimaryRS1 As RecordsetDim WithEvents adoPrimaryRS2 As RecordsetDim WithEvents adoPrimaryRS3 As RecordsetDim WithEvents
36、adoPrimaryRS4 As RecordsetDim WithEvents adoPrimaryRS5 As RecordsetDim WithEvents adoPrimaryRS6 As RecordsetPrivate Sub Command1_Click() If Text1.Text = 输入年 Or Combo1.Text = 选择月 Then MsgBox 年月不能为空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If a = Text1.Text b = Combo1.Text c = a & b Set adoPrimaryR
37、S = New Recordset adoPrimaryRS.Open select * from 员工工资表 where 年月= & c & , db, adOpenStatic, adLockOptimistic If adoPrimaryRS.EOF Then Set adoPrimaryRS6 = New Recordset adoPrimaryRS6.Open select * from 行政扣款 , db, adOpenStatic, adLockOptimistic kk1 = adoPrimaryRS6.RecordCount Set adoPrimaryRS1 = New R
38、ecordset adoPrimaryRS1.Open select * from 员工基本资料 , db, adOpenStatic, adLockOptimistic kk2 = adoPrimaryRS1.RecordCount If kk1 kk2 Then MsgBox 员工信息和业务信息不一致，请检查！, vbOKOnly + vbExclamation, 警告 Exit Sub End If For pp = 1 To kk2 adoPrimaryRS6.MoveFirst adoPrimaryRS1.MoveFirst If adoPrimaryRS6.Fields(员工编号)
39、 adoPrimaryRS1.Fields(员工编号) Then MsgBox 员工信息和业务信息不一致，请检查！, vbOKOnly + vbExclamation, 警告 Exit Sub End If adoPrimaryRS1.MoveNext adoPrimaryRS6.MoveNext Next pp adoPrimaryRS1.MoveFirst Do While Not adoPrimaryRS1.EOF m = adoPrimaryRS1.Fields(员工编号) Set adoPrimaryRS2 = New Recordset adoPrimaryRS2.Open sel
40、ect 岗位工作表.岗位工资 from 员工业务档案,岗位资料 where 员工业务档案.岗位编号=岗位资料.岗位编号 and 员工业务档案.员工编号= & m & , db, adOpenStatic, adLockOptimistic Set adoPrimaryRS3 = New Recordset adoPrimaryRS3.Open select * from 加班 where 员工编号= & m & and 年月= & c & , db, adOpenStatic, adLockOptimistic Set adoPrimaryRS4 = New Recordset adoPrim
41、aryRS4.Open select * from 考勤 where 员工编号= & m & and 年月= & c & , db, adOpenStatic, adLockOptimistic If adoPrimaryRS4.EOF Then MsgBox 本月的考勤还未创建，不能计发工资！, vbOKOnly + vbExclamation, 警告 adoPrimaryRS4.Cancel Unload Me Exit Sub End If Set adoPrimaryRS5 = New Recordset adoPrimaryRS5.Open select * from 行政扣款 ,
42、db, adOpenStatic, adLockOptimistic If adoPrimaryRS5.EOF Then MsgBox 工资系数未设定，不能计发工资！, vbOKOnly + vbExclamation, 警告 Exit Sub End If adoPrimaryRS.AddNew adoPrimaryRS.Fields(员工编号) = adoPrimaryRS1.Fields(员工编号) adoPrimaryRS.Fields(基本工资) = adoPrimaryRS1.Fields(基本工资) adoPrimaryRS.Fields(岗位津贴) = adoPrimaryRS2.Fields(岗位工资) If adoPrimaryRS3.EOF Then adoPrimaryRS.Fields(加班津贴) = 0 Else If adoPrimaryRS3.Fields(加班类别) = 1 Then