企业工资管理系统文档

1、工资管理系统摘 要 本系统基本上能够满足现代化企业工资管理的需求。 现代化工资管理系统中 使用了各种表格，保存相关的工资信息，方便查询，浏览，修改等操作。本系统的前 提条件是必须有员工的考勤信息作为基础， 因为本系统是使用员工考勤信息来计算员 工的工资 ，在使用的时候必须要保证员工的人事信息数据库和工资数据库在同一个 文件夹中。本系统结合实际的人事、财务制度，经过实际的需求分析，采用功能强大的 VB 作为开发工具、 Access 作为数据库开发出来的企业工资管理系统。本文首先分析了 企业工资管理系统的应用现状， 阐述了本工资管理系统的开发目的。 通过对数据库技 术的现状与发展、数据库系统的选择

2、原则、系统开发工具的选择一系列问题的分析 , 确定了系统的开发平台。 接着详细给出了从工资管理系统分析到总体设计详细设计与 实现及测试的各个环节， 最后对本系统作出了客观评价， 指明了系统的现实意义、 缺 点以及系统的升级方向。1、 引 言随着计算机技术的飞速发展， 计算机在企业管理中的应用越来越普及， 利用计算 机实现企业工资的管理显得越来越重要。 对于大中型企业来说， 利用计算机支持企业 高效率完成劳动人事管理的日常事务， 是适应现代企业制度要求、 推动企业劳动人事 管理走向科学化、 规范化的必要条件； 而工资管理是一项琐碎、 复杂而又十分细致的 工作，工资计算、发放、核算的工作量很大，一

3、般不允许出错，如果实行手工操作， 每月发放工资须手工填制大量的表格， 这就会耗费工作人员大量的时间和精力， 计算 机进行工资发放工作， 不仅能够保证工资核算准确无误、 快速输出，而且还可以利用 计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处 理，同时计算机具有手工管理所无法比拟的优点 . 例如: 检索迅速、查找方便、可靠性 高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资管 理的效率 , 也是企业的科学化、正规化管理，与世界接轨的重要条件。企业的工资管理是公司管理的一个重要内容。 随着当今企业人员数量增加， 企业 的工资计算也变得越来越复杂。

4、如果能够实现工资管理的自动化， 无疑是给企业管理部门带来很大的方便。资金是企业生存的主要元素。 资金的流动影响到企业的整体运作， 企业员工的工 资是企业资金管理的一个重要的组成部分， 因为企业每个月都要涉及发放企业员工工 资的问题。企业员工的人数越多，工资的统计工作就越多，工资的发放困难就越大。 最初的工资统计和发放都是使用人工方式处理， 工作的时候， 出现错误的机率也随之 升高。工资管理系统就是使用电脑代替大量的人工统计和计算， 完成众多工资信息的 处理，同时使用电脑还可以安全地保存大量的工资记录。企业工资管理系统， 为个人提供工资查询服务， 为企业提供工资计算， 工资统计 等服务。传统的纸

5、张材料的数据信息管理已经不适合现代企业公司的发展了， 实现工 资管理的系统化、规范化、自动化，将成为现在公司管理工资的首选。本系统实现的 工资管理系统基本上能够满足现代化企业工资管理的需求。2、企业工资管理系统概述2.1 系统的主要功能企业工资管理系统的主要任务是用计算机对各种工资信息进行日常的管理， 如查 询、修改、增加、删除以及存储等，迅速准确地完成各种工资信息的统计计算和汇总 工作，快速打印出工资报表， 针对系统服务对象的具体要求， 设计了企业工资管理系 统。企业工资管理系统主要有以下几大功能：(1) 对单位人员的变动进行处理。 一个单位的职工不会是一成不变的， 总是在不 断的变化：有调

6、出、有调入、也有职工在本单位内部调动。因此，设计系统是应考虑 到这些情况。(2) 对职工的工资进行计算、 修改。能对各职工的工资进行计算， 即计算应发金 额、应扣金额及实发金额等。(3) 查询统计功能。 要求即可以单项查询， 比如查看某个职工的工资情况等； 也 可以查询全部。(4) 报表打印功能。每月发放工资时，要求能够打印本月的工资表、随工资发给 每个职工的工资条以及工资统计表。2.2 企业工资管理系统的应用现状2.2.1 开发背景随着我国国民经济建设的蓬勃发展和具有中国特色的社会主义市场经济体制的 迅速完善，各个行业都在积极使用现代化的手段， 不断改善服务质量， 提高工作效率， 这些都在很

7、大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政职能、 企业管理水平以及优质服务上都提出更高的要求。 建设一个科学高效的信息管理系统 是解决这一问题的必由之路。 企业内部财务管理是该企业运用现代化技术创造更多更 高的经济效益的主要因素之一。 工资管理作为企业内部的一种财务管理也是如此， 由 于企业职工人数较多， 每一位职工的具体实际情况也不尽相同， 各项工资条款的发放， 如果没有一个完整的管理系统， 仅凭手工操作来实现不仅容易出错， 而且也造成资源 的不必要浪费，因此开发这个工资管理系统是很有必要的。2.2.2 开发环境（1）系统运行环境1）腾 II 或以上2）64MB内存或以上3）

8、Windows 95 或以上4）装了 Visual Basic 6.0（2）开发工具1、VB的选用和简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场 上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft 公司的 Visual BasicMicrosoft 公司的 Visual CBorland 公司的 DelphiSun 公司的 Java 等等 在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率； 有些则偏重于可视化程序开发工具所带来的便利性与效率的提高， 各有各的优点和特色， 也满足了不同用户的需求。然而，语言的弹性

9、和工具的便利性是密不可分的，只有便利 的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处 理，使得原来所标榜的效率提高的优点失去了作用； 相反，如果只强调程序语言的弹性， 却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程 序设计师的宝贵时间。作为数据库系统的开发，VB是一个非常理想选择。VB因简单易学、功能强大、编 译速度快而从众多的软件开发工具中脱颖而出。它提供了灵活的可视化设计工具，将可 视化界面与面向对象技术完善、紧密地结合起来，并封装了Win dows编程的复杂性。程序的规模小到简单的个人数据库应用，大到复杂的企业的多层次分布式系统

10、，都可以使 用VB进行开发，其友好的集成开发界面，可视化的双向开发模式，良好的数据库应用支 持高效的程序开发和程序运行，备受广大程序开发人员的好评。尤其是VB对数据库应用 的强大支持，大大提高了数据库应用软件开发的效率，缩短了开发周期，深受广大数据 库应用程序设计人员的喜爱。VB为数据库应用开发人员提供了丰富的数据库开发组件， 使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快，VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地 位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所 得的界面设计，基于对象的设计方法

11、，极短的软件开发周期，较易维护的生成代码。美国微软公司在1991年推出VB1.0至今已经经历了 6个版本，VB6.0运行在win9x 或winme, win2000，winxp，windowsNT等操作系统下，是一个 32位的应用程序开发工 具。VB程序语言具有许多优秀的特性，用其设计应用程序时有两个基本特点：可视化设 计和事件驱动编程。Visual Basic 系统除了一般高级语言所具有的一些名词术语外， 还有几个系统常用的名 词。其基本含义如下：(1) 视窗( Form)视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是 Windows

12、 系统的标准视窗。(2) 对象 (Object)对象是 VB 系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所 应用到的对象类型有标签框 (Label Box) ，文本框 (Text Box) ，命令按扭 (Command Butt on)，网格(Data Grid) ，ADO控件(Adodcl)等。当把这些工具放置到用户界面对 应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法” ，便于 对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。 正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。(3) 属性 (Properti

13、es)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对 象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象 的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式 等。(4) 事件 (Events) 事件是指用户或操作者对计算机进行的某一操作(如击键、单击或移动鼠标等)的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的 键盘事件有 KeyPress (按键)事件，KeyDowr事件和KeyUp事件；鼠标事件有 Click (单 击鼠标)事件， DbDlicd (双击鼠标)。(5) 方法 (Me

14、thod)方法主要是指对一个对象使用某种作用的过程。 它是在程序执行的过程中要计算机 执行的某种操作。其程序的方法有 Show(显示)方法，Hide (隐藏)方法，Refresh (刷 新)方法。(6) 过程 (Procedure) 过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(7) 模块 (Module) 模块是指一些运算量或过程进行声明或定义的一个集合。 系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。2、可视化设计同其他的一些可视化程序开发工具一样 ,VB 具有可视化设计的特点 , 微软的 Word 在 刚刚进入市场时,同WPS竞争的一个重要的功能砝

15、码就是所见即所得的字处理功能,VB 在设计应用程序界面时也可以说是 所见即所得.在设计时,头脑中所想象的应用程序界 面, 完全可以通过键盘鼠标以及徒手画出来 , 而不是编制大量的代码然后再编译生成 , 如 果需要修改，也是利用键盘鼠标和手画，而底层的一些程序代码由 VB自动生成或修改。VB为用户提供大量的界面元素（在VB中称为控件对象）,这些控件对象对于熟悉 Windows应用程序的用户而言是一点也不陌生,女窗体、菜单、命令按钮、工具 按钮、 检查框等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置 , 设置它们的大小、形状、属性等 , 就可以设计出所需的应用程序界面。3、事件驱动编

16、程Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要求程 序设计不能是单一性的 , 在使用 VB 设计应用程序时 , 必须首先确定应用程序如何同用户 进行交互.例如发生鼠标单击、键盘输入等事件时 , 由用户编写的代码控制这些事件的响 应, 这就是所谓的事件驱动编程。4、实现菜单选项菜单是程序最重要的特性之一， 大多数程序都依赖一个定义良好的菜单使程序易于 使用和维护， Visual Basic 也提供了强大的创建菜单功能是程序更加标准。本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您也 可以使用 Visual Basic 的 Appl

17、ication Wizard 来操作。5、实现工具栏CoolBar 控件与 Office2000 中看到的 CoolBar 是类似的。 CoolBar 就是一个可以在 窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁入其他空间你 也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项 卡列表中选择“ Microsoft Windows Common Controls 6.0 ”后工具相中增加改控件。本系统就用了 Cool 工具中的 Statubar 控件，在系统这一界面中，添加了状态栏， 在第一个栏中，

18、在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个 栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。使用 Access2000 实现关系型数据库数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信 息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库 (flat-file )和关系数据库( relational )。关系数据库中包含了多个数据表的信息， 数据库含有各个不同部分的术语，对象记录、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库， 设计必须是灵活的、 有逻辑的。 创建一个

19、数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。6、实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。 一个连接是指一种虚 拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键 字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。 这种连接是指一个

20、表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中 使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。2.2.3 数据库数据库是通过数据库管理系统（DBMS-DATBASEMANAGEMESYSTEM）件来实现 数据的存储、管理与使用的DBASEL就是一种数据库管理系统软件。（1）数据库的概念数据库是存储在一起的相关数据的集合， 这些数据是结构化的， 无有害的或不必 要的冗余， 并为多种应用服务； 数据的存储独立于使用它的程序； 对数据库插入新数 据，修改和检索原有数据均能按一种公用的，

21、 和可控制的方式进行。 当某个系统中存 在结构上完全分开的若干个数据库时，则该系统包含一个 数据库集合 。（2）数据库的优点使用数据库可以带来许多好处： 如减少了数据的冗余度， 从而大大地节省了数据 的存储空间； 实现数据资源的充分共享等等。 此外，数据库技术还为用户提供了非常 简便的使用手段使用户易于编写有关数据库应用程序。（3）数据库文件的特征无论使用哪一种数据库管理系统， 由它们所建立的数据库文件都可以看成是具有 相同性质的记录的集合，因而这些数据库文件都有相同的特性：1）文件的记录格式相同，长度相等。2）不同的行是不同的记录，因而具有不同的内容。3）不同的列表示不同的字段名，同一列中的

22、数据的性质 （属性）相同。4）每一行各列的内容是不能分割的，但行的顺序和列的顺序不影响文件内容的表达。3 系统分析3.1 系统需求分析本系统的开发宗旨以及总体任务就是帮助企业的财务主管部门提高工作效率， 实 现企业工资信息管理的自动化、 规范化和系统化。 所以为了能够实现编制这个系统所 设定的目标，在程序的开发之前，需求分析是必不可少的。需求分析的第一步描述工资管理系统的功能， 即定义用例， 以此确定系统的功能 需求。工资管理系统的用例分析主要是找出系统中所有的用例， 因此要和工资管理系 统的潜在用户进行讨论。系统最终实现的主要功能如下。工资管理系统的用例包括：(1) 系统管理 (2) 工资设

23、置 (3) 工资统计(4) 工资查询 (5) 工资表导出 (6) 打印报表 系统管理用例包括添加用户和修改密码。都通过其相应的窗口来实现。 工资设置用例包括基本工资设置和其它项目设置。其它项目设置有奖金、津贴、 福利、扣发等项目。工资统计用例可以根据不同的月份对其进行相应地统计。 工资查询用例包括单人查询和查询所有， 可以显示员工基本工资、 员工其它项目 情况，以及员工工资具体统计情况。工资表导出用例可根据所需的月份把工资表导出并可直接显示在 Excel 表格中， 而且可以加以保存。打印报表用例是一个很重要的一个用例，它提供给用户生成报表和报印的功能， 能够很方便地将员工的工资情况表打印出来。

24、3.1.1 系统目标采用公司现有的软硬件及科学的管理系统开发方案， 建立工资管理系统， 实现企 业工资管理的计算机自动化。 系统应符合公司人事、 工资管理制度， 并达到操作直观、 方便、实用、安全等要求。3.1.2 数据流程图3.2系统功能调查系统从总体上可以分为系统管理、工资信息设置、工资信息管理、打印报表等功 能。系统管理功能（1）添加用户：使用这个用户登录后，可以添加其他用户（2）修改密码：每一个用户都可以更改自己的密码工资信息设置功能（1）基本工资设置：按照员工编号或职务设置员工的基本工资信息。（2）其他项目设置：设置单个员工的奖金，福利、津贴、出差费、加班费等 信息。（3）工资计算公

25、式设置：设置员工实发工资的计算公式信息。工资信息管理功能（1）出勤统计：按照月份统计员工的当月出勤信息。（2）计算实发工资：计算当月员工实发工资的金额。（3）查询工资：可以按月查询所有员工工资信息或查询个人工资信息（4） 导出工资表：把数据库中员工的工资信息导出到Excel 2000中。打印报表功能(1) 基本工资列表打印：打印出基本工资列表(2) 其他项目打印：打印其他项目列表(3) 工资统计列表打印：打印工资统计列表3.3系统功能模块图企业工资管理系统系统管理工 资 信 息 设 置工 资 信 息 管 理工 资 信 息 管 理打 印 报 表员基苴丿、计工本他算资工项公料资目式设设设设置置置置

26、图3-2系统功能模块图出 勤 统 计计 算 实 发 工 资查 询 工 资基苴丿、工本他资工项表资目导打打出印印工 资 统 计 打 印4系统概要设计4.1系统总体结构设计设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相 互间的关系，这种数据模型是与 DBMSc关的、面向现实世界的、易如理解的数据模 型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分 方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库 中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理 解的直观的数据库结构模式。同时也是一种相对稳定统一

27、的数据模式， 一般情况下很 少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法， 即常用的实体联系模型（简称E-R模型）， 对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界 事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。通过对企业员工管理内容、工资管理内容和过程的分析，本系统设计的实体和属 性如下及图4-1和图4-2 :员工（包括员工编号、员工姓名、性别、籍贯、年龄、生日、学历、专业、住址、 邮编、电话、Email、参加工作时间、进入公司时间、起薪时间、备注）部门（员工编号、部门名称）职务（员工编号、

28、职务名称）职称（员工编号、职称名称）工资结构（员工编号、正常加班工资、特殊加班工资、出差工资、旷工工资、迟到早退）工资帐目（工资帐目代号、工资帐目名称）图4-1员工信息图部门工资账目代工资账目 工资账目名图4-2工资管理内容分析图4.2实体和实体之间的关系E-R图图4-3实体之间的关系 E-R图4.3数据库设计Access在VB中的应用非常广泛， 为此我选用Access 2000数据库来进行数据库的逻辑设计。 根据前面定义的实体及实休之间的关系，形成数据库的表格以及各个表之间的关系。431 Person数据库（员工数据库）（1） Stufflnfo（员工资料表）:员工基本信息表用于存储员工基本

29、信息，为保证数据的一致和历史资料的完整，表的记录在一般的情况不能被删除。表4-1 Stuffl nfo（员工资料表）序号字段名字段中文名类型1SID员工编号文本2SName员工姓名文本3SGe nder性别文本4SPlace籍贯文本5SAge年龄长整型6SBirthday生日日期/时间7SDegree学历文本8SSpecial专业文本9SAddress住址文本10SCode邮编文本11STel电话文本12SEmailEmail文本13SWorkTime参加工作时间日期/时间14SI nTime进入公司时间日期/时间15SDept部门文本16SPayTime起薪时间日期/时间17SPositio

30、 n职务文本18SRemark备注文本Userlnfo （用户口令表）:为了便于多个用户管理该系统，建立此表，记录用户的 登录用户名和口令。表4-2 Userlnfo（用户口令表）序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本（3）OverTimelnfo（加班情况表）：用于存储员工加班的情况，在计算工资时便于统计。表4-5 OverTimelnfo （加班情况表）序号字段名字段中文名类型1OID记录编号自动编号2OStuffID员工编号文本3OSpeciality特殊加班天数数字4OCom mon正常加班天数数字5OFromday加班日期日期/时间4.3.2

31、Salary 数据库（工资数据库）（1） AttendanceStatistics（员工出勤表）：用于统计员工的出勤情况，为统计工资时提供方便。表 4-7 AttendanceStatistics（员工出勤表）序号字段名字段中文名类型1StuffID员工编号文本2StuffName员工姓名文本3RecordMo nth统计时间日期时间4Atte ndance出勤天数日期/时间5LateEarly迟到早退次数数字6Abse nt旷工次数数字7OverTimeCom正常加班次数数字8OverTimeSpe特殊加班次数数字9Errand出差次数数字表 4-8 FormulaSetting（工资设置表

32、）序号字段名字段中文名类型1OvertimeCom正常加班工资百分比数字2OvertimeSpe特殊加班工资百分比数字3Errand出差工资数字4Abse nt旷工工资数字5Le迟到早退数字（3） Salaryother （其他工资项目表）：用于存储不同名称的其他工资，比如奖金、 津贴、福利等。表4-9 Salaryother （其他工资项目表）序号字段名字段中文名类型1StuffID员工编号文本2YearMo nth年月日期/时间3Type类型数字4Name名称文本5Money金额货币6Remark备注备注（4）SalarySetting（基本工资设置）：用于存储不同职称的员工的基本工资表4

33、-10 SalarySetting（基本工资设置）序号字段名字段中文名类型1StuffID员工编号文本2Spositi on员工职务文本3Salary基本工资货币（5）Userlnfo （用户表）：用于存储新添加的用户，当添加完用户时，就被存 储在此表中。表 4-11 Userlnfo （用户表）序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本（6）Salarystatistics（工资情况表）：用于存储员工的工资情况表，便于明确查看。表 4-12 Salarystatistics（工资情况表）序号字段名字段中文名类型1StuffName员工编号文本2Stuffn

34、ame员工姓名文本3YearMo nth时间日期/时间4Basicsalary基本工资货币5Bonus奖金货币6Welfare福利货币7Allowa nee津贴货币8Abateme nt扣发货币9LeSub迟到早退扣发货币10Abse ntSub旷工扣发货币11Overtime加班费货币12Others其他金额货币13Total总额货币5详细设计根据系统分析、系统概要设计的结果，采用VB作为开发工具，实现公司工资管理各模块的功能。系统运行时，首先出现在用户面前的就是一个登录窗口。5.1登录窗体设计功能说明它主要是控制员工登录，防止非法用户闯入本系统，保证系统的安全，输入口令 时屏幕显示为“*”

35、以利保密。在开发过程当中，我还给系统限制了登录出错的次数， 如果用户名或密码出错超过三次，那就自动退出系统。系统登陆时，要求正确输入用户名和密码。成功登陆后显示如图4-2所示工资管理 系统主界面。用户名分为管理员用户和普通用户。如图4-1所示：图4-1登录窗口实现功能的部分主要代码：Private Sub Comok_Click()On Error GoTo DealerrorDim strSql As StringDim strMsg As Stri ngOn Error GoTo DealerrorDim objC n As New Connectionstrc n = CS()objC

36、n.Conn ectio nStri ng = strc nobjC n.Ope nSet objRs = New RecordsetSet objRs.ActiveC onnection = objCn objRs.CursorLocati on = adUseClie nt strSql = SELECT * FROM 系统用户 objRs.Open strSql objRs.ActiveConnection = Nothing objCn.CloseSet objCn = NothingIf Logontimes = 3 ThenMsgBox 你已经超过最大登陆次数！退出系统 , vbO

37、KOnly + vbCritical, 系统登录EndElseobjRs.MoveFirstobjRs.Find 用户名 = & txtUserName & If objRs.EOF ThenMsgBox 用户名错误！ , vbOKOnly + vbCritical, 系统登录 txtUserName.SetFocus txtUserName.Text = ElseIf objRs!口令 txtPassword ThenMsgBox 密码错误 ! 请重新输入 !, vbOKOnly + vbCritical, 系统登录 txtPassword.SetFocustxtPassword.Text

38、= ElseMsgBox 欢迎使用工资管理系统 , vbOKCancel + vbOKOnly, 系统登录 strusername = txtUserName userpassword = txtPasswordIf CmbStatus = ThenMsgBox 请选择登陆身份 !, vbOKOnly + vbCritical, 系统登录 CmbStatus.SetFocusElseIf CmbStatus.ListIndex = 0 And objRs!admin = True ThenUserAdmin = 1End IfIf CmbStatus.ListIndex = 0 And obj

39、Rs!admin = False ThenX = MsgBox( 你不是管理员，将以普通用户登陆 , vbOKCancel + vbOKOnly, 系统登录 )End IfIf X = 2 ThentxtUserName.SetFocus txtUserName.Text = txtPassword.Text = Else 添加操作员登陆时间strSql = insert into t_login (用户 , 登录时间 ) values( &txtUserName & , & Now & )Set objRs = ExecuteSQL(strSql, strMsg)Unload MeMDIFo

40、rm1.ShowEnd IfEnd IfEnd IfEnd IfEnd IfLogontimes = Logontimes + 1 登陆次数Exit SubDealerror:msg = 程序执行出错 , 错误信息如下 : & vbCrLf & Err.DescriptionShowError msgEnd SubDim objRs As RecordsetDim i As In tegerDim Log on times As In tegerPrivate Sub Comca ncle_Click()n = MsgBox(你选择了退出系统登陆,退出将不能启动管理系统! & vbCrLf &

41、 是否真 的退出?, vbYesNo,系统验证)If n = vbYes The nUn load MeEnd IfEnd Sub5.2主窗口设计功能说明界面采用MDI方式，可同时打开几个子窗体，在界面上放置了菜单栏，它集中了系统操作的入口，各功能模块的执行从此进入。其总体模块图如下所示：主菜单系 统 管 理工资信息设置工 资 信 息 管 理打 印 报 表图5-2总体模块图5.3 系统管理模块5.3.1 功能说明 系统管理模块主要实现的是添加用户和修改密码的功能， 当想要添加用户时， 就 可直接在添加用户这个窗体上进行录入； 而用户想要修改密码时则可以在修改密码这 个窗口上进行操作， 此时用户

42、必须记得原先的密码才能进行修改， 而且修改密码时设 置了再次确认密码，以免由于误输而导致操作无法完成。添加用户窗体代码如下：Private Sub cmdCancel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(username.Text) = ThenMsgBox 请输入用户名称 , vbOKOnly + vbExclamation, 警告 Exit Sub username.SetFocusElsesql = select

43、* from 系统用户 where 用户名 = & username & Set re = getrs(sql, gzgl)If re.EOF = False ThenMsgBox 这个用户已经存在， 请重新输入用户名 , vbOKOnly+ vbExclamation,II 小 II 警告 username.SetFocus username.Text = password.Text = confirmpwd.Text = Exit SubElseIf Trim(password.Text) Trim(confirmpwd.Text) ThenMsgBox 两次输入密码不一致，请重新输入密码

44、 , vbOKOnly+ vbExclamation,II 小 II 警告 password.Text = confirmpwd.Text = password.SetFocusExit SubElseIf Trim(password.Text) = ThenMsgBox 密码不能为空 , vbOKOnly + vbExclamation, 警告 password.Text = confirmpwd = password.SetFocusElseIf AdminCheck = False Thensql = insert into 系统用户 ( 用户名 , 口令 ) values( & use

45、rname sql = sql & , & password & )Call transactsql(sql, gzgl)Elsesql = insert into 系统用户 ( 用户名 , 口令 ,admin) values( & username sql = sql & , & passwordsql = sql & , & UserAdmin & )End IfCall transactsql(sql, gzgl)MsgBox 添加成功 , vbOKOnly + vbExclamation, 添加结果 username.Text = password.Text = confirmpwd.

46、Text = username.SetFocus If Check1 = False ThenUnload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Left = ReadIni( 添加用户 , left) Me.Top = ReadIni( 添加用户 , top) End SubPrivate Sub Form_Unload(Cancel As Integer) Call WriteIni( 添加用户 , left, Me.Left) Call WriteIni(添加用户 , top, Me.Top)End Sub修

47、改密码窗体代码如下：Private Sub cmdCancel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs As ADODB.RecordsetIf Trim(oldpwd.Text) = ThenMsgBox 请输入旧密码 , vbOKOnly + vbExclamation, 提示 oldpwd.SetFocusExit SubElseIf Trim(oldpwd.Text) Trim(userpassword) ThenMsgBox 旧密码与登录的密码不同， 请重新输入！

48、, vbOKOnly+ vbExclamation, 提示oldpwd.Text = oldpwd.SetFocusElseIf Trim(newpwd.Text) = ThenMsgBox 请输入新密码 , vbOKOnly + vbExclamation, 提示 newpwd.SetFocusExit SubElseIf Trim(newpwd.Text) Trim(confirmpwd.Text) ThenMsgBox 两次密码不同 , vbOKOnly + vbExclamation, 警告 newpwd.Text = confirmpwd.Text = newpwd.SetFocus

49、Elseuserpassword = newpwdsql = update 系统用户 set 口令 = & newpwd & where 用户名 = & strusername & Call transactsql(sql, gzgl)MsgBox 密码已经修改 , vbOKOnly + vbExclamation, 修改结果 Unload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load（）Me丄eft = Readlni（修改密码, left）Me.Top = ReadIni（ 修改密码, top）End SubPrivate Sub Form_Unl

50、oad（Ca ncel As In teger） Call WriteIni（修改密码, left, Me丄eft）Call WriteIni（修改密码, top, Me.Top）End Sub5.4工资信息设置模块541功能说明此模块的功能主要是系统管理员根据本企业的规章制度及条例对工资的各项内容进行设置。包括基本工资设置、其他项目设置（包括奖金、福利、津贴、扣发等项目），以及工资计算公式设置。其分解模块图如下：图5-5分解模块图员工基本档案信息的实现：员工基本档案信息管理，在窗体中完成员工基本信息的录入工作。根据提示在该窗体中输入相应的信息，最后单击“保存”按钮，进行信息的保存。如图4-3

51、所示图4-3员工基本档案信息录入窗口相应部分代码如下:添加员工基本信息Private Sub cmdOK_Click()Dim rs As ADODB.RecordsetDim strSql As Stri ngDim strMsg As Stri ngDim tmpPath As Stri ngDim iStm As ADODB.Stream如果是修改(保存照片-删除原记录-保存记录)If bln Cha nge = True The n如果不要删除If bln DelPhoto = False The n工号=& txtGH.Text & ”strSql = select * from t

52、_br whereSet rs = ExecuteSQL(strSql, strMsg)保存到文件tmpPath = App.path & temp.jpgSet iStm = New ADODB.StreamWith iStm.Mode = adModeReadWrite.Type = adTypeBinary.Open.Write rs.Fields(照片).Value.SaveToFile tmpPathblnDel = TrueEnd WithstrFileName = tmpPathpic.Picture = LoadPicture(tmpPath)iStm.CloseElsebln

53、Del = FalseEnd Ifrs.CloseEnd If 删除记录strSql = delete * from t_br where工号= & txtGH.Text & Set rs = ExecuteSQL(strSql, strMsg)ElsestrSql = select * from t_br where工号= & txtGH.Text & Set rs = ExecuteSQL(strSql, strMsg)If rs.EOF = False ThenMsgBox 已 有 相 同 的 工 号 ， 无 法 添 加 到 数 据 库 ！ , vbOKOnly vbExclamation, 警告TextFocus txtGHExit SubEnd If rs.CloseEnd Ifs