企业工资管理系统文档.doc

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

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

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

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

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

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

7、上都提出更高的要求。 建设一个科学高效的信息管理系统是解决这一问题的必由之路。 企业内部财务管理是该企业运用现代化技术创造更多更高的经济效益的主要因素之一。工资管理作为企业内部的一种财务管理也是如此，由于企业职工人数较多，每一位职工的具体实际情况也不尽相同，各项工资条款的发放，如果没有一个完整的管理系统，仅凭手工操作来实现不仅容易出错，而且也造成资源的不必要浪费，因此开发这个工资管理系统是很有必要的。2.2.2开发环境（1） 系统运行环境1）腾 II或以上2）64MB内存或以上3）Windows 95 或以上4）装了 Visual Basic 6.0（2） 开发工具1、 VB的选用和简介现在，

8、市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的 Visual BasicMicrosoft公司的 Visual CBorland 公司的 DelphiSun 公司的 Java 等等在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高， 各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原

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

10、受广大程序开发人员的好评。 尤其是 VB对数据库应用的强大支持，大大提高了数据库应用软件开发的效率，缩短了开发周期，深受广大数据库应用程序设计人员的喜爱。 VB为数据库应用开发人员提供了丰富的数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快， VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。 VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。美国微软公司在 1991 年推出 VB1.0 至今已经经历了 6 个版本， VB

11、6.0 运行在 win9x或 winme，win2000，winxp ，windowsNT等操作系统下，是一个 32 位的应用程序开发工具。VB程序语言具有许多优秀的特性，用其设计应用程序时有两个基本特点：可视化设计和事件驱动编程。VisualBasic系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：(1) 视窗（ Form）视窗是进行人机交互的界面或接口，也叫窗体。 VB系统的人机交互界面或接口， 无论是在设计时或是在运行时，都是Windows 系统的标准视窗。(2) 对象 (Object)对象是 VB 系统内部提供给设计者可以直接使用的处理输出的控制工具

12、。本程序所应用到的对象类型有标签框 (Label Box) ，文本框 (Text Box) ，命令按扭 (Command Button) ，网格 (Data Grid) ， ADO控件 (Adodc1) 等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法” ，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。(3) 属性 (Properties)属性是 VB 系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特

13、征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。(4) 事件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有 KeyPress（按键）事件， KeyDown事件和 KeyUp事件；鼠标事件有 Click （单击鼠标）事件， DbDlicd （双击鼠标）。(5) 方法 (Method)方法主要是指对一个对象使用某种作用的过程。 它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有 Sh

14、ow（显示）方法， Hide（隐藏）方法， Refresh （刷新）方法。(6) 过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(7) 模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。 系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。2、可视化设计同其他的一些可视化程序开发工具一样,VB 具有可视化设计的特点 , 微软的 Word在刚刚进入市场时 , 同 WPS竞争的一个重要的功能砝码就是 所见即所得 的字处理功能 ,VB在设计应用程序界面时也可以说是 所见即所得 . 在设计时 , 头脑中所想象的应用程序界

15、面 , 完全可以通过键盘鼠标以及徒手画出来 , 而不是编制大量的代码然后再编译生成 , 如果需要修改 , 也是利用键盘鼠标和手画 , 而底层的一些程序代码由 VB自动生成或修改。VB 为用户提供大量的界面元素 ( 在 VB 中称为控件对象 ), 这些控件对象对于熟悉Windows 应用程序的用户而言是一点也不陌生, 如 窗体 、 菜单 、 命令按钮 、 工具按钮 、 检查框 等等 , 用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置 , 设置它们的大小、形状、属性等 , 就可以设计出所需的应用程序界面。3、事件驱动编程Windows 操作系统出现以来 , 图形化的用户界面和多任务多进程的

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

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

18、系统，都可以看到当前的时间和日期。使用 Access2000 实现关系型数据库数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（ flat-file ）和关系数据库（ relational ）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，对象记录、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库， 设计必须是灵活的、 有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个

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

20、外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。2.2.3数据库数据库是通过数据库管理系统 (DBMS-DATABASEMANAGEMENTSYSTEM)软件来实现数据的存储、管理与使用的 DBASELL就是一种数据库管理系统软件。（1） 数据库的概念数据库是存储在一起的相关数据的集合， 这些数据是结构化的， 无有害的或不必要的冗余，并为多种应用服务； 数据的存储独立于使用它的程序； 对数据库插入新数据，修改和检索原有数据均能按一种公用的， 和可控制的方式进行。 当某个系统中存在结构上完全分开的若干个数据库时，则该系统包含一个 数据库集合 。（2） 数据

21、库的优点使用数据库可以带来许多好处： 如减少了数据的冗余度， 从而大大地节省了数据的存储空间； 实现数据资源的充分共享等等。 此外，数据库技术还为用户提供了非常简便的使用手段使用户易于编写有关数据库应用程序。（3） 数据库文件的特征无论使用哪一种数据库管理系统， 由它们所建立的数据库文件都可以看成是具有相同性质的记录的集合，因而这些数据库文件都有相同的特性：1）文件的记录格式相同，长度相等。2）不同的行是不同的记录，因而具有不同的内容。3）不同的列表示不同的字段名，同一列中的数据的性质( 属性 ) 相同。4）每一行各列的内容是不能分割的，但行的顺序和列的顺序不影响文件内容的表达。3 系统分析3

22、.1系统需求分析本系统的开发宗旨以及总体任务就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的自动化、规范化和系统化。 所以为了能够实现编制这个系统所设定的目标，在程序的开发之前，需求分析是必不可少的。需求分析的第一步描述工资管理系统的功能， 即定义用例，以此确定系统的功能需求。工资管理系统的用例分析主要是找出系统中所有的用例， 因此要和工资管理系统的潜在用户进行讨论。系统最终实现的主要功能如下。工资管理系统的用例包括：(1)系统管理(2)工资设置(3)工资统计(4)工资查询(5)工资表导出(6)打印报表系统管理用例包括添加用户和修改密码。都通过其相应的窗口来实现。工资设置用例包括

23、基本工资设置和其它项目设置。其它项目设置有奖金、津贴、福利、扣发等项目。工资统计用例可以根据不同的月份对其进行相应地统计。工资查询用例包括单人查询和查询所有， 可以显示员工基本工资、 员工其它项目情况，以及员工工资具体统计情况。工资表导出用例可根据所需的月份把工资表导出并可直接显示在 Excel 表格中，而且可以加以保存。打印报表用例是一个很重要的一个用例，它提供给用户生成报表和报印的功能，能够很方便地将员工的工资情况表打印出来。3.1.1系统目标采用公司现有的软硬件及科学的管理系统开发方案， 建立工资管理系统， 实现企业工资管理的计算机自动化。 系统应符合公司人事、 工资管理制度，并达到操作

24、直观、方便、实用、安全等要求。3.1.2数据流程图导出或打印工资表月度员工考勤表计算工资月度工资基本工资基本工资奖金等表等设置发放工资图 3-1数据流程图3.2 系统功能调查系统从总体上可以分为系统管理、工资信息设置、 工资信息管理、 打印报表等功能。3.2.1系统管理功能（1）添加用户：使用这个用户登录后，可以添加其他用户（ 2）修改密码：每一个用户都可以更改自己的密码3.2.2工资信息设置功能（1）基本工资设置：按照员工编号或职务设置员工的基本工资信息。（2）其他项目设置：设置单个员工的奖金，福利、津贴、出差费、加班费等信息。（ 3）工资计算公式设置：设置员工实发工资的计算公式信息。3.2

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

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

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

28、、特殊加班工资、出差工资、旷工工资、迟到早退）工资帐目（工资帐目代号、工资帐目名称）性别年龄籍贯员工姓生日员工编学历专业员工备注起薪时住址进入公司时邮编参加工作时电话间Email图 4-1 员工信息图部门代号部门职务代号职务职称代号职称工资账目代工资账目工资结构员工编号正常加班工出差工资特殊加班工图 4-2工资管理内容分析图4.2 实体和实体之间的关系E-R 图部门名称职务名称职称名称工资账目名迟到早退旷工工资部门属职称具员工具工资结职务担工资账具图 4-3实体之间的关系E-R 图4.3 数据库设计Access 在 VB中的应用非常广泛，为此我选用Access 2000 数据库来进行数据库的逻

29、辑设计。根据前面定义的实体及实休之间的关系，形成数据库的表格以及各个表之间的关系。4.3.1 Person数据库 ( 员工数据库 )(1) StuffInfo ( 员工资料表 ): 员工基本信息表用于存储员工基本信息，为保证数据的一致和历史资料的完整，表的记录在一般的情况不能被删除。表 4-1 StuffInfo(员工资料表 )序号字段名字段中文名类型1SID员工编号文本2SName员工姓名文本3SGender性别文本4SPlace籍贯文本5SAge年龄长整型6SBirthday生日日期/ 时间7SDegree学历文本8SSpecial专业文本9SAddress住址文本10SCode邮编文本1

30、1STel电话文本12SEmailEmail文本13SWorkTime参加工作时间日期/ 时间14SInTime进入公司时间日期/ 时间15SDept部门文本16SPayTime起薪时间日期/ 时间17SPosition职务文本18SRemark备注文本(2) UserInfo ( 用户口令表 ): 为了便于多个用户管理该系统，建立此表，记录用户的登录用户名和口令。表 4-2 UserInfo( 用户口令表 )序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本(3) OverTimeInfo （加班情况表）：用于存储员工加班的情况，在计算工资时便于统计。表 4-5

31、OverTimeInfo （加班情况表）序号字段名字段中文名类型1OID记录编号自动编号2OStuffID员工编号文本3OSpeciality特殊加班天数数字4OCommon正常加班天数数字5OFromday加班日期日期/ 时间4.3.2 Salary数据库（工资数据库）（ 1） AttendanceStatistics （员工出勤表）：用于统计员工的出勤情况，为统计工资时提供方便。表 4-7 AttendanceStatistics（员工出勤表）序号字段名字段中文名类型1StuffID员工编号文本2StuffName员工姓名文本3RecordMonth统计时间日期时间4Attendance出

32、勤天数日期/ 时间5LateEarly迟到早退次数数字6Absent旷工次数数字7OverTimeCom正常加班次数数字8OverTimeSpe特殊加班次数数字9Errand出差次数数字（ 2） FormulaSetting （工资设置表）：用于设置工资的各项情况。表 4-8 FormulaSetting （工资设置表）序号字段名字段中文名类型1OvertimeCom正常加班工资百分比数字2OvertimeSpe特殊加班工资百分比数字3Errand出差工资数字4Absent旷工工资数字5Le迟到早退数字（3）Salaryother （其他工资项目表）：用于存储不同名称的其他工资，比如奖金、津贴

33、、福利等。表 4-9 Salaryother （其他工资项目表）序号字段名字段中文名类型1StuffID员工编号文本2YearMonth年月日期/ 时间3Type类型数字4Name名称文本5Money金额货币6Remark备注备注（4）SalarySetting（基本工资设置）：用于存储不同职称的员工的基本工资。表 4-10 SalarySetting （基本工资设置）序号字段名字段中文名类型1StuffID员工编号文本2Sposition员工职务文本3Salary基本工资货币（ 5） UserInfo ( 用户表 ) ：用于存储新添加的用户，当添加完用户时，就被存储在此表中。表 4-11 U

34、serInfo (用户表 )序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本（ 6） SalaryStatistics （工资情况表）：用于存储员工的工资情况表，便于明确查看。表 4-12 SalaryStatistics（工资情况表）序号字段名字段中文名类型1StuffName员工编号文本2Stuffname员工姓名文本3YearMonth时间日期/ 时间4Basicsalary基本工资货币5Bonus奖金货币6Welfare福利货币7Allowance津贴货币8Abatement扣发货币9LeSub迟到早退扣发货币10AbsentSub旷工扣发货币11Over

35、time加班费货币12Others其他金额货币13Total总额货币5 详细设计根据系统分析、系统概要设计的结果，采用VB作为开发工具，实现公司工资管理各模块的功能。系统运行时，首先出现在用户面前的就是一个登录窗口。5.1登录窗体设计5.1.1功能说明它主要是控制员工登录， 防止非法用户闯入本系统， 保证系统的安全， 输入口令时屏幕显示为“ * ”以利保密。在开发过程当中，我还给系统限制了登录出错的次数，如果用户名或密码出错超过三次，那就自动退出系统。系统登陆时，要求正确输入用户名和密码。 成功登陆后显示如图系统主界面。用户名分为管理员用户和普通用户。如图 4-1 所示：4-2所示工资管理图

36、4-1登录窗口实现功能的部分主要代码：Private Sub Comok_Click()On Error GoTo DealerrorDim strSql As StringDim strMsg As StringOn Error GoTo DealerrorDim objCn As New Connectionstrcn = CS()objCn.ConnectionString = strcnobjCn.OpenSet objRs = New RecordsetSet objRs.ActiveConnection = objCnobjRs.CursorLocation = adUseClie

37、ntstrSql = SELECT * FROM系统用户 objRs.Open strSqlobjRs.ActiveConnection = NothingobjCn.CloseSet objCn = NothingIf Logontimes = 3 ThenMsgBox 你已经超过最大登陆次数！退出系统, vbOKOnly + vbCritical, 系统登录EndElseobjRs.MoveFirstobjRs.Find 用户名 = & txtUserName & If objRs.EOF ThenMsgBox 用户名错误！ , vbOKOnly + vbCritical, 系统登录 tx

38、tUserName.SetFocustxtUserName.Text = ElseIf objRs!口令 txtPassword ThenMsgBox 密码错误 ! 请重新输入 !, vbOKOnly + vbCritical, 系统登录 txtPassword.SetFocustxtPassword.Text = ElseMsgBox 欢迎使用工资管理系统, vbOKCancel + vbOKOnly, 系统登录 strusername = txtUserNameuserpassword = txtPasswordIf CmbStatus = ThenMsgBox 请选择登陆身份 !, vb

39、OKOnly + vbCritical, 系统登录 CmbStatus.SetFocusElseIf CmbStatus.ListIndex = 0 And objRs!admin = True ThenUserAdmin = 1End IfIf CmbStatus.ListIndex = 0 And objRs!admin = False ThenX = MsgBox( 你不是管理员，将以普通用户登陆 , vbOKCancel + vbOKOnly, 系统登录 )End IfIf X = 2 ThentxtUserName.SetFocustxtUserName.Text = txtPass

40、word.Text = Else 添加操作员登陆时间strSql = insert into t_login (用户 , 登录时间 ) values( &txtUserName & , & Now & )Set objRs = ExecuteSQL(strSql, strMsg)Unload MeMDIForm1.ShowEnd IfEnd IfEnd IfEnd IfEnd IfLogontimes = Logontimes + 1登陆次数Exit SubDealerror:msg = 程序执行出错 , 错误信息如下 : & vbCrLf & Err.Description ShowErro

41、r msgEnd SubDim objRs As RecordsetDim i As IntegerDim Logontimes As IntegerPrivate Sub Comcancle_Click()n = MsgBox( 你选择了退出系统登陆, 退出将不能启动管理系统! & vbCrLf & 是否真的退出 ?, vbYesNo, 系统验证 )If n = vbYes ThenUnload MeEnd IfEnd Sub5.2 主窗口设计5.2.1功能说明界面采用 MDI方式，可同时打开几个子窗体，在界面上放置了菜单栏, 它集中了系统操作的入口，各功能模块的执行从此进入。其总体模块图如

42、下所示：主菜单工工系资资打统信信印管息息报理设管表置理图 5-2 总体模块图5.3 系统管理模块5.3.1功能说明系统管理模块主要实现的是添加用户和修改密码的功能， 当想要添加用户时， 就可直接在添加用户这个窗体上进行录入； 而用户想要修改密码时则可以在修改密码这个窗口上进行操作， 此时用户必须记得原先的密码才能进行修改， 而且修改密码时设置了再次确认密码，以免由于误输而导致操作无法完成。添加用户窗体代码如下：Private Sub cmdCancel_Click()Unload MeExit SubEnd SubPrivate Sub cmdOK_Click()Dim sql As Stri

43、ngDim rs As ADODB.RecordsetIf Trim(username.Text) = ThenMsgBox 请输入用户名称 , vbOKOnly + vbExclamation, 警告 Exit Subusername.SetFocusElsesql = select * from系统用户 where用户名 = & username & Set re = getrs(sql, gzgl)If re.EOF = False ThenMsgBox 这个用户已经存在， 请重新输入用户名 , vbOKOnly+ vbExclamation,警告username.SetFocususe

44、rname.Text = password.Text = confirmpwd.Text = Exit SubElseIf Trim(password.Text) Trim(confirmpwd.Text) ThenMsgBox 两次输入密码不一致，请重新输入密码, vbOKOnly+ vbExclamation,警告password.Text = confirmpwd.Text = password.SetFocusExit SubElseIf Trim(password.Text) = ThenMsgBox 密码不能为空 , vbOKOnly + vbExclamation, 警告 pas

45、sword.Text = confirmpwd = password.SetFocusElseIf AdminCheck = False Thensql = insert into系统用户 ( 用户名 , 口令 ) values( & usernamesql = 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.Text = username.SetFocusIf Check1 = False ThenUnload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Left = ReadIni(添加用户 , left)