毕业设计（论文）基于VB的工资管理信息系统的设计与实现

1、 毕业设计（论文）毕业设计（论文）工资管理信息系统的工资管理信息系统的设计与实现设计与实现二级学院：二级学院： 华建软件学院华建软件学院 学生姓名：学生姓名： 专业班级：专业班级： 计算机计算机 2071 班班 学学 号：号： 指导教师：指导教师： 200 9 年年 5 月月 10 日日 毕业设计（论文）毕业设计（论文）摘摘 要：要：工资管理系统是典型的数据库管理系统 ,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备 ,易使用等特点。经过分析,我使用 microsoft 公司的

2、visual basic 6.0 作为开发工具,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型 ,然后,对初始原型系统进行需求迭代 ,不断修正和改进,直到形成用户满意的可行系统。而后台数据库则选择了 microsoft 公司的access 2003。关键词：关键词： 数据库，access，工资 管理系统，visual basic 6.0 毕业设计（论文）毕业设计（论文）目目 录录引 言.1第一章 开发工具的选择.21.1 可视化编程 .21.2 面向对象的程序设计 .31.3 结构化程序设计语言 .31.4 事件驱动编

3、程机制 .31.5 访问数据库 .41.6 动态数据交换(dde) .41.7 对象的链接与嵌入(ole) .41.8 动态链接库(dll) .4第二章 系统调研及可行性分析.62.1 系统调研 .62.2 可行性分析概述 .62.3 技术可行性分析 .7第三章 系统的总体结构设计.83.1 系统模块结构设计 .83.2 用户登陆模块 .93.3 功能流程图 .103.4 数据库的设计 .10341 数据库需求分析 .10342 表的物理结构 .10第四章 系统实施概况.134.1 登陆界面的设计 .134.2 主窗体的设计 .134.3 系统管理的设计 .144.4 工资数据输入的设计 .1

4、44.5 工资数据修改的设计 .154.6 工资数据查询的设计 .17第五章 主要代码.195.1 登陆界面主要代码 .195.2 基本数据输入主要代码 .195.3 专项修改主要代码 .20 毕业设计（论文）毕业设计（论文）5.4 查询的主要代码 .21第六章 系统测试.246.1 测试举例 .24总 结.25致 谢.26参考资料.27 毕业设计（论文）毕业设计（论文）第 1 页，共 27 页引引 言言电脑在现代社会中管理的作用越来越显得重要和突出。一般来讲，管理通过计划、组织、指导与领导、控制等手段，为组织制定目标，应用组织的各种要素，以实现组织的目标。对企业来说，人们按照一定的营销计划、

5、人力、物力资源，对人员、物质、资金等加以计划和协调，以达到预期的目的，即称为企业管理。传统的企业管理活动中，把人、才、物作为企业的主要资源。但是随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重视信息在生产经营及企业管理中的作用，并把它当企业的一种极其重要的资源，人们称之为 “信息资源” ，信息资源的处理已经成为当今世界上一项主要的社会活动。工资管理系统是一个企业单位不可缺少的部分 ,它对于企业的决策者和管理者来说都至关重要,所以工资管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点 ,如:效率低、保密性

6、差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高 ,计算机科学日渐成熟,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分 ,使用计算机对员工的工资进行管理 ,具有着手工管理所无法比拟的优点 .例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提企业工资管理的效率,也是企业科学化、正规化管理与世界接轨的重要条件。开发这样一套管理软件是很有必要的事情 ,在下面的各章中我们将以开发一套工资管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。

7、工资管理系统是典型的数据库系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 microsoft 公司的 visual basic 开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后,对初始原型系统进行需求迭代 ,不断修正和改进,直到形成用户满意的可行系统。而后台数据库则选择了 microsoft 公司的 access 2003。 毕业设计（论文）毕业设计（

8、论文）第 2 页，共 27 页第一章第一章 开发工具的选择开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有： microsoft 公司的 visual basic、microsoft 公司的 visual c、borland 公司的 delphi、java 等等。在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有

9、弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程续语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发， visual basic 是一个非常理想选择。数据库是 mis 中的重要支持技术，在 mis 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言 visual basic 语言，该开发工具具有很多长处：vi

10、sual basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发 windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与 windows 的专业开发工具 sdk 相媲美，而且程序开发人员不必具有 c/c+编程基础。在 visual basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 windows 内部的应用程序接口(api)函数，以及动态链接库(dll)、动态数据交换(dde)、对象的链接与嵌入(ole)、开放式数据访问(odbc)等技术，可以高效、快速地开发出 windows 环境下功能强大、图形界面丰富的应用软

11、件系统。总的来说，visual basic 具有以下特点：1.11.1 可视化编程可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程 -编译-修改的操作可能要反复多次，大大影响了软件开发效率。 visual basic 提供了可视化设计工具，把 windows 界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种 “部件” ，即图形对象，并 毕业设计（论文）毕业设

12、计（论文）第 3 页，共 27 页设置这些图形对象的属性。 visual basic 自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。1.21.2 面向对象的程序设计面向对象的程序设计4.0 版以后的 visual basic 支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(c+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而 visual basic 则是应用面向对象的程序设计方法 (oop)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象

13、时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，visual basic 自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。1.31.3 结构化程序设计语言结构化程序设计语言visual basic 是在 basic 语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。 visual basic 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。visual basic 是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并

14、判断每个语句的语法错误。在设计 visual basic 程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.exe)，脱离 visual basic 环境，直接在 windows 环境下运行。1.41.4 事件驱动编程机制事件驱动编程机制visual basic 通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(click)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用 visual basic 设计大型应用软件时，不必建立具有明显开始和结束的

15、程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。 毕业设计（论文）毕业设计（论文）第 4 页，共 27 页1.51.5 访问数据库访问数据库visual basic 具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理 microsoft access 格式的数据库，并提供了强大的数据存储和检索功能。同时，visual basic 还能直接编辑和访问其他外部数据库，如dbase，foxpro，paradox 等，这些数据库格

16、式都可以用 visual basic 编辑和处理。visual basic 提供开放式数据连接，即 odbc 功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如 sql server，oracle 等。在应用程序中，可以使用结构化查询语言 sql 数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的 sql 的编程技术，为单机上运行的数据库提供了 sql 网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。1.61.6 动态数据交换动态数据交换(dde)(dde)利用动态数据交

17、换(dynamic data exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。 visual basic 提供了动态数据交换的编程技术，可以在应用程序中与其他 windows 应用程序建立动态数据交换，在不同的应用程序之间进行通信。1.71.7 对象的链接与嵌入对象的链接与嵌入(ole)(ole)对象的链接与嵌入(ole)将每个应用程序都看作是一个对象 (object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、

18、动画、文字等各种信息的集合式的文件。 ole 技术是 microsoft 公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用 ole 技术，可以方便地建立复合式文档 (compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。1.81.8 动态链接库动态链接库(dll)(dll)visual basic 是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将 c/c+或

19、汇编语言编写的程序加入到 visual basic 应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用 windows 应用程序接口(api)函数，实现 sdk 所具 毕业设计（论文）毕业设计（论文）第 5 页，共 27 页有的功能。 毕业设计（论文）毕业设计（论文）第 6 页，共 27 页第二章第二章 系统调研及可行性分析系统调研及可行性分析2.12.1 系统调研系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是

20、系统研究人员，有些人对于其功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）现行系统可能是手工系统，也可能是使用计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的

21、开发却失败的悲剧发生。2.22.2 可行性分析概述可行性分析概述可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。（1）可行性分析阶段的主要工作包括以下几个方面： 新系统目标可行性分析：分析新系统的目标是否符合学校的现状和发展的需要。 社会可行性分析： 毕业设计（论文）毕业设计（论文）第 7

22、页，共 27 页社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。 技术可行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。 经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。 管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。2.32.3 技术可行性分析技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支

23、持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入 /输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否

24、符合系统方案设计要求，同时还要考虑计算机的性能 /价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求： 操作系统的选择； 编译系统的选择； 数据库管理系统的选择； 高级编程语言的选择； 汉字处理系统的选择； 应用软件包的选择。本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见， 毕业设计（论文）毕业设计（论文）第 8 页，共 27 页并吸收他们的积极观点，使本系统开发在相当大的程度上具有一定的先进性和合理性。 毕业设计（论文）毕业设计（论文）第 9 页，共 27 页第三章第三章 系统系统的总体结构设计的总体结构设计3.13.1 系统模块结构设计系

25、统模块结构设计整个工资管理系统成树型 ,由上而下依次分开，最上面一层是主窗体 ,如图 3-1用户登陆系统管理工资数据输入工资数据修改工资数据查询帮助退出系统重新登陆基本数据输入专项数据修改基本数据修改查询工资明细工资组合查询关于本软件图 3-1 系统功能模块图各个模块的简介:重新登陆：在登陆系统后可以切换用户重新登陆系统。退出系统：直接退出本系统。基本数据输入：录入新职工的基本信息及工资情况。基本数据修改：可方便地进行删除、修改等操作。专项数据修改：对专项数据进行查询后进行删除、修改等操作。工资组合查询：可方便地对工资情况进行组合查询，并在表中显示出来。查询工资明细：可方便地对工资情况进行明细

26、查询，并显示在文本框中。 毕业设计（论文）毕业设计（论文）第 10 页，共 27 页3.23.2 用户登陆模块用户登陆模块用户登录模块的功能是系统模块中一个重要的子系统模块，它是系统安全的一个保障。它的主要功能是授权用户的管理，需要正确的用户名和密码才能进入系统。对于错误的用户名和密码并给出相应的提示。如图 3-2图 3-2 系统登陆流程图 毕业设计（论文）毕业设计（论文）第 11 页，共 27 页3.33.3 功能流程图功能流程图图 3-3 功能流程图3.43.4 数据库的设计数据库的设计3 34 41 1 数据库需求分析数据库需求分析根据数据流程，列出以下工资管理系统所需的五张表,名称及说

27、明如下: 密码表用户登陆时的用户名及密码部门表公司所在的部门基本工资表所有员工的工资情况部门工资表各部门的工资情况工资总表工资的具体情况3 34 42 2 表的物理结构表的物理结构字段数据类型长度no文本2usname文本6passwd文本8图 3-4 密码表 毕业设计（论文）毕业设计（论文）第 12 页，共 27 页字段数据类型长度部门编号文本2部门名称文本1图 3-5 部门表字段数据类型长度职工号文本5部门编号文本2职工姓名文本8性别文本2职称或职务文本16参加工作时间日期/时间基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型所得税数字单精度型实发工资数字单精度型图 3-6 基

28、本工资表字段数据类型长度部门名称文本2基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型所得税数字单精度型实发工资数字单精度型图 3-7 部门工资表字段数据类型长度基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型 毕业设计（论文）毕业设计（论文）第 13 页，共 27 页所得税数字单精度型实发工资数字单精度型图 3-8 工资总表 毕业设计（论文）毕业设计（论文）第 14 页，共 27 页第四章第四章 系统系统实施概况实施概况4.14.1 登陆界面的设计登陆界面的设计输入正确的用户名及密码就能登陆到主窗体，从而对整个系统进行操作。如图4.1。图 4-14.24.2 主窗体的

29、设计主窗体的设计主窗体实现了“系统管理” ， “工资数据输入” ， “工资数据修改” ， “工资数据查询” ， “帮助”功能，如图 4-2。 毕业设计（论文）毕业设计（论文）第 15 页，共 27 页图 4-24.34.3 系统管理的设计系统管理的设计通过“系统管理”主菜单可以进行“重新登陆”及“退出系统”操作。如图 4-3图 4-34.44.4 工资数据输入的设计工资数据输入的设计通过“工资数据输入”主菜单可以进行“基本数据输入”的操作。如图 4-4 毕业设计（论文）毕业设计（论文）第 16 页，共 27 页图 4-44.54.5 工资数据修改的设计工资数据修改的设计通过“工资数据修改”主菜

30、单可以进行“基本数据修改”及“专项数据修改”操作。基本数据修改如图 4-5，专项数据修改如图 4-6。 毕业设计（论文）毕业设计（论文）第 17 页，共 27 页 图 4-5 毕业设计（论文）毕业设计（论文）第 18 页，共 27 页图 4-64.64.6 工资数据查询的设计工资数据查询的设计通过“工资数据查询”主菜单可以进行“工资组合查询”及“查询工资明细”操作。工资组合查询如图 4-7，查询工资明细如图 4-8。 毕业设计（论文）毕业设计（论文）第 19 页，共 27 页图 4-7图 4-8 毕业设计（论文）毕业设计（论文）第 20 页，共 27 页第五章第五章 主要代码主要代码5.15.

31、1 登陆界面主要代码登陆界面主要代码 private sub cmdok_click() 检查正确的密码 sirname = trim$(cbl_name.text) sirpwd = ucase$(trim$(txtpassword) ssql = select * from 密码表 where usname= & sirname & & and passwd= & sirpwd & data1.recordsource = ssql data1.refresh if data1.recordset.recordcount 0 then unload me frmmain.show frmm

32、ain.mnu_in_update.enabled = true frmmain.mnu_in_xg.enabled = true frmmain.mnu_query.enabled = true frmmain.mun_help.enabled = true else msgbox 无效的密码，请重试!, , 登录 txtpassword.setfocus txtpassword = end ifend sub5.25.2 基本数据输入主要代码基本数据输入主要代码 private sub cmd_ok_click() on error goto noupdate cmd_add.defaul

33、t = true if trim(text1.text) = then msgbox 工号不能为空!, , 警告 text1.setfocus else if opt_man.value = true then data1.recordset.fields(3) = 男 else data1.recordset.fields(3) = 女 end if data1.recordset.fields(1) = trim(str(cbl_depart.listindex + 1) data1.recordset.update 毕业设计（论文）毕业设计（论文）第 21 页，共 27 页 cmd_ok

34、.visible = false cmd_add.visible = true text1.enabled = false text3.enabled = false end if cmd_cancel.enabled = false exit subnoupdate: msgbox 增加发生错误! exit subend sub5.35.3 专项修改主要代码专项修改主要代码private sub cmd_ok_click() set db = opendatabase(app.path & & 工资库.mdb) ssql = ssql = update 基本工资表 set if opt_jb

35、gz.value = true then xm = 基本工资 else xm = 岗位工资 end if ssql = ssql & xm if opt_add.value = true then op = + else op = - end if ssql = ssql & = & xm & op if opt_xd.value = true then ssql = ssql & xm & * & val(text2.text) / 100 else ssql = ssql & val(text3.text) end if ssql = ssql & where 1=1 & vbcrlf i

36、f txt_id then ssql = ssql & and 职工号 = & trim(txt_id) & & vbcrlf end if if txt_name then ssql = ssql & and 职工姓名 = & trim(txt_name) & & vbcrlf end if 毕业设计（论文）毕业设计（论文）第 22 页，共 27 页 if cbl_title then ssql = ssql & and 职称或职务 = & trim(cbl_title) & & vbcrlf end if if cbl_depart then ssql = ssql & and 部门代码

37、= & trim(cbl_depart.listindex) & & vbcrlf end if if cbl_data then ssql = ssql & and & trim(cbl_data) & trim(cbl_opt) & trim(txt_data) & vbcrlf end if db.execute ssql cmd_find_click frame2.visible = false frame1.visible = trueend sub5.45.4 查询的主要代码查询的主要代码 private sub cmd_find_click() ssql = ssql = ssq

38、l & select a.职工号, & vbcrlf ssql = ssql & a.职工姓名, & vbcrlf ssql = ssql & a.性别, & vbcrlf ssql = ssql & a.职称或职务, & vbcrlf ssql = ssql & a.参加工作时间, & vbcrlf ssql = ssql & a.基本工资, & vbcrlf ssql = ssql & a.岗位工资, & vbcrlf ssql = ssql & a.应发工资, & vbcrlf ssql = ssql & a.所得税, & vbcrlf ssql = ssql & a.实发工资, & v

39、bcrlf ssql = ssql & a.部门编号, & vbcrlf ssql = ssql & b.部门名称 , & vbcrlf ssql = ssql & b.部门编号 & vbcrlf ssql = ssql & from 基本工资表 a, & vbcrlf ssql = ssql & 部门表 b & vbcrlf ssql = ssql & where a.部门编号=b.部门编号 & vbcrlf if txt_id then ssql = ssql & and a.职工号= & trim(txt_id) & & vbcrlf end if if txt_name then ss

40、ql = ssql & and a.职工姓名= & trim(txt_name) & & vbcrlf end if if cbl_title then 毕业设计（论文）毕业设计（论文）第 23 页，共 27 页 ssql = ssql & and a.职称或职务= & trim(cbl_title) & & vbcrlf end if if cbl_depart then ssql = ssql & and b.部门名称= & trim(cbl_depart) & & vbcrlf end if if cbl_data then ssql = ssql & and & trim(cbl_da

41、ta) & trim(cbl_opt) & trim(txt_data) & vbcrlf end if data1.recordsource = ssql data1.refresh if data1.recordset.recordcount = 0 then msgbox 没有满足条件的纪录存在!, , 提示 me.mousepointer = vbdefault grd_result.redraw = true grd_result.clear grd_result.formatstring = 序号|职工工号| 姓 名 |性别|所属 & _ 部门| 职称职务|工龄|基本工资|岗位津贴

42、|应发工资|所得税|实发工资 exit sub end if irownum = 1 do until data1.recordset.eof with grd_result .rows = irownum + 1 .row = irownum .col = 0 .text = irownum .col = 1 职工工号 .text = data1.recordset.fields(0).value .col = 2 姓名 .text = data1.recordset.fields(1).value .col = 3 性别 .text = data1.recordset.fields(2).

43、value .col = 4 所属部门 .text = data1.recordset.fields(11).value .col = 5 职称职务 if data1.recordset.fields(3).value then .text = data1.recordset.fields(3).value end if .col = 6 工龄 if data1.recordset.fields(4).value then .text = data1.recordset.fields(4).value end if .col = 7 基本工资 if data1.recordset.fields

44、(5).value then 毕业设计（论文）毕业设计（论文）第 24 页，共 27 页 .text = data1.recordset.fields(5).value end if .col = 8 岗位津贴 if data1.recordset.fields(6).value then .text = data1.recordset.fields(6).value end if .col = 9 应发工资 if data1.recordset.fields(7).value then .text = data1.recordset.fields(7).value end if .col =

45、 10 所得税 if data1.recordset.fields(8).value then .text = data1.recordset.fields(8).value end if .col = 11 实发工资 if data1.recordset.fields(9).value then .text = data1.recordset.fields(9).value end if end with irownum = irownum + 1 data1.recordset.movenext loopend sub 毕业设计（论文）毕业设计（论文）第 25 页，共 27 页第六章第六章 系统测试系统测试为了确保本系统能够正常运行，需要在发布之后做一次较全面的测试。现将具体操作及过程举例说明如下：6.16.1 测试举例测试举例（1）测试用户登陆是否成功：打开工资管