职工工资管理系统计算机系统设计开发毕业论文.doc

1、摘 要开发的系统是一个适合单机安装、管理集中、易学易懂、操作简单的职工工资管理系统。此职工工资管理系统是：基于Access关系型数据库，使用Vsiual Basic开发的比较典型的信息管理系统(MIS)。它主要包括关系型数据库的建立以及应用程序的开发。数据库部分用关系数据库开发工具Access2000, 汇集各种信息，建立数据表，创建原始数据库，以便以后使用信息的录入、修改、删除、存储、查询和检索。因而，要求数据库数据一致性、完整性强，数据安全性好、可读性强、易维护，数据库是此职工管理系统的核心部分。窗口的设计、应用程序编制，应用程序功能力求完备、窗体画面简捷、操作方便、通俗易懂、实用性强。据

2、此要求，查阅大量的相关文献，结合所学知识，在老师指导下，在开发小组成员的共同努力下，建立起系统的雏形。再对原始系统进行多次试用、改进、修正、完善，直到建成目前的这套职工工资管理系统。该系统，是毕业设计项目，安装方便，界面清晰易操作，根据源码易于对功能加以扩展，便于进行再创作。 关键字：VB程序、数据库、模块、窗体、工资管理系统1、 概述1.1、 引言在高科技中，信息科学技术是知识高度密集、学科高度综合、具有科学与技术融合特征的学科。它直接渗透到经济、文化和社会的各个领域，迅速改变着人们的观念、生活和社会的结构，是当代发展知识经济的支柱之一，其中电脑的发展更是具有典型意义。随着时代的发展和科技的

3、不断进步，当“电脑”不仅已经成为妇孺皆知,且在人们日常生活中出现频率最高的一个单词时,它也早就随着人们对它的了解,已经深入到人们的日常生活和工作的方方面面了，比如文字处理、信息管理、辅助设计、图形图像处理、声音效果处理、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高深的学术殿堂走入了寻常百姓家，各行各业的人们再也无须经过特别的培训,就能够使用电脑完成许许多多复杂而繁琐的工作。现在随着计算机的快速发展，以及当今社会对信息处理的快速而大量的要求，不仅计算机应用已经渗透到社会各行各业。就连企业的信息化管理也已经全面启动，职工的住址，职工的工资，职工的奖金，职工入厂时间，职工的考勤，等计算

4、机信息系统各种软件的发明正成为整个企业信息管理系统的重要组成部分。尤其对于一个（企业单位）企业来说，职工工资管理系统更是不可缺少的管理用具。为什么这样说呢？因为职工在工作，日常生活过程中必然会需要得到报酬,而职工工资更是每个职工心目中最关心的问题,自然的查找职工个人的工资也就成了每个职工最关心的事儿了。而一直以来人们所使用的传统的人工管理职工工资方式，存在着许多缺点,如：效率低、保密性差,另外时间长了,将会产生大量的文件和数据,这对于查找、更新和维护都带来了很多的困难。若采用传统的管理方式，试想一下当每月末，有那么多的职工来查找自己的工资时，此时那些仅靠双手的财会人员会忙成什么样子呀！而使用计

5、算机对职工工资信息进行管理,具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等这些优点能够极大地提高企业对于职工工资管理的效率,也是今后企业迈入科学化、正规化、现代化管理的重要途径。1.2、背景我作为中央电视大学03届计算机应用专业学员，为了在毕业之际向学校交一份满意的答卷，也为了体现我在校学习期间并未辜负老师和学校的辛勤培育，因此毕业设计特以开发“职工工资管理软件”项目作为课题，将在校所学计算机知识做个全面综合的应用与总结。在下面的各章中我将围绕开发一套职工工资管理系统这个课题,谈谈其开发过程中所涉及到的问题及解决方法。1.3、目的开发一个

6、供中小型企业使用的单机版工资管理系统。2、 系统构架与运行环境2.1、 系统构架本系统采用传统的桌面数据管理，系统在一台单机环境即可运行。2.2、 运行环境2.2.1、 硬件环境一台满足WIN98系统运行的PC机；奔腾150以上CPU；64M以上内存；40M以上硬盘的空闲空间；至少有一个软驱用以数据备份。2.2.2、 软件环境WIN98/WINME/WIN2000/WINDOWS XP操作系统。3. 系统开发工具及相关知识3.1开发工具编程工具：VB6.0开发环境；数据库设计工具：ACCESS7.0以上（也可使用VB自带数据库管理器设计）。3.2. 相关知识V B程序设计基础知识对象（控件）的

7、属性、事件、方法的运用。数据库开发知识对象与数据库的连接与操作。软件工程知识软件开发流程及使用的工具（系统流程图、数据流图、数据字典、软件结构图的制作）。数据库系统的使用（如何设计系统所需数据库）方法。3.2.1 运用Visual Basic 简介Visual Basic是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，Visual Basic系统在短短的几年内风靡全球。Visual Basic是具有强大设计功能的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码等等。Visual Basic是一种可视化的、

8、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下各类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱件的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。Visual Basic程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计

9、和事件驱动编程。(1)、可视化设计 同其他的一些可视化程序开发工具一样,Visual Basic具有可视化设计的特点,微软的Word在刚刚进入市场时,同WPS竞争的一个重要的功能砝码就是“所见即所得”的字处理功能,Visual Basic在设计应用程序界面时也可以说是“所见即所得”。在设计时,头脑中所想像到的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码，然后再编译生成。如果需要修改,也是利用键盘鼠标和手绘,而底层的一些程序代码则由Visual Basic自动生成或修改。(2)、事件驱动编程Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序

10、设计不能是单一性的,所以在使用Visual Basic设计应用程序时,必须首先确定应用程序如何同用户进行交互。例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编程。3.2.2 Windows下的Visual Basic 编程环境简介(1)、告别“hello world”的年代Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。(2)、面对对象的编程Visual Basic应用由一系列对象组成，包

11、括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。(3)、实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic也提供了强大的创建菜单功能是程序更加标准。您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。(4)、 实现工具栏CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具

12、，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间布局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有Style属性，并可以为其增加下拉按钮和平滑按钮等。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下： lign属性定义工具条在窗体中的位置oolTip

13、Text属性是字符串类型，定义控件的提示字符tyle属性定义按钮外观。ImageList属性定义与数据条对应的ImageList控件名，该控件定义工具条按钮显示的图像。HotImangeList属性设置一个ImageList控件名，该控件定义按钮获得热点时显示的图像。isabledImageList属性定义工具条按钮无效时显示的图像。创建工具条包括ImageList和Toolbar控件ImageList用于为其他控件提供图像库，将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。(5)、 帮助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅

14、仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。(6)、关于系统为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息，通过使用这些

15、APP提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。3.2.3 关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。

16、如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。3.2.4 Access 数据库简介数据库技术产生于60年代末，70 年代初期，其主要目的是有效地管理和存取大量的数据资源。数据库技术主要研究如何存储、使用和管理数据，是计算机数据管理技术发展的最新阶段。数据库（DATABASE）存储的是通用化的相关数据集合，它不仅包括数据本身，而且包括数据之间的联系。现在，数据库技术已经成为计算机领域中最重要的技术之一，是软件学科的一个独立分支。数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库

17、就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，像记录、域等。 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。、 标识需要的数据；、 收集被标识的字段到表中；、 标识主关键字字段；、 绘制一个简单的数据图表；、 规范数据；、 标识指定字段的信息；、 创建物理表。数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体

18、方法。数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。4. 系统需求分析4.1任务概述4.1.1 实现目标实现中小型企业职工工资管理（包括录入、修改、删除、查询、统计、打印、备份、恢复等功能）。4.1

19、.2 用户特点一般企业管理人员使用，具备一定的计算机办公操作能力，无计算机程序设计及数据库管理能力，要求软件具有相当的可靠性和自动化处理功能以及简单易学易操作性能。4.1.3 假定与约束由于设计人员计算机软件开发经验不足，估计4-5人在一个月内完成。4.2 功能简述本软件基本功能包括： 、数据录入：职工情况录入：要求录入职工情况：如职工编码，职工名称等。职工编码与其它系统要有兼容，最好由其它系统导入，要体现职工所属的部门，专业，工龄，技术职称，职工年龄，家庭住址，家庭电话，职工移动电话。（注：也可由其它系统导入，但要满足字段统一。）、工基本工资及奖金录入：根据职工情况不同给出不同的工资项目录入

20、规格：如基本工资，工龄工资，奖金，住房补贴，交通补贴等。、工资查询：可采用手工公式式查询，要求较高，使用SQL语言，功能强；也可采用专项自动查询，选择好查询项目，自动生成结果，但功能较差。、工资统计分析：按职工情况统计分析，按部门情况统计分析，按工资分段统计分析。、工资报表打印：职工工资单，职工工资分析表，年度职工统计表等。、其它基本数据导入：由其它系统导入数据，可按指定字段导入，不一定全部导入。备份：按季度备份（分基本数据备份和工资支出备份两部分）。恢复：按6个月恢复。用户登录管理：可采用权限管理，也可采用密码管理； 权限管理：不同用户进入系统有不同操作权限； 密码管理：不同的操作权限有不同

21、密码。系统初始化：初始化数据库结构，生成系统库。4.3 系统逻辑描述4.3.1系统流程图 （如：图4-1）职工信息管理基 本 数 据 管 理职工家庭信息管理 基本数据库职工所在岗位信息管理每月初： 职工技术职称信息管理工资录入工 资 管 理工资数据库工资查询每月末结束：工资单打印显示输出工资统计打印输出 图4-14.3.2 数据流图 顶层（如：图4-2） ：数据录入 数据报表打印 打印机 系统操作员 工资管理系统 数据浏览及统计分析图示 显示器 系统数据库图4-2一层（如：图4-3） ： 打印及显示 系统操作员 系统管理模块1 数据录入模块2 数据处理模块3 登录 系统数据库图4-3二层（如：

22、图4-4） ：（1） 模块：包括操作员管理、数据备份（如：图1-1）： 操作员 管理员登录 操作员管理(1.1) 备份请求 数据备份(1.2) 需备份数据 磁盘数据库 操作员库图4-4（2） 模块：包括基本数据录入与成绩录入（如：图4-5）： 操作员 基本数据表 职工工资表 基本数据录入 职工工资录入 基本数据库 工资库图4-5（2） 模块：包括查询统计与报表打印（如：图4-6）： 操作员 查询统计请求 报表打印请求 查询统计处理 报表打印处理 结果显示 报表打印输出图4-65 系统总体设计5.1 软件结构图（如：图5-1）职工所在岗位数据管理(2.3)职工基本信息数据管理(2.1)数据备份操

23、作员管理工资单打印工资统计工资录入系统管理职工工资管理系统工资查询基本数据管理职工技术职称数据管理(2.4)职工家庭信息数据管理(2.2) 图5-15.2数据库设计整个系统使用一个ACCESS数据库CJGL.MDB,内建表如下：、操作员信息表（如：表5-1）表5-1字段名称字段类型字段长度备注用户名字符10如admin，代表管理员。密码字符10权限字符10以字符的各位代表一种操作权限，如：1111111111，第1位为1表示有系统菜单使用权，为0表示没有此权限；第2位为1表示有基本数据录入权，为0表示没有此权；以此类推。、部门信息表（如：表5-2）表5-2字段名称字段类型字段长度备注部门号字符

24、5如95101，代表95某部门101号员工。部门名称字符20部门人数数值2部门主管字符10联系电话字符15、职工信息表（如：表5-3）表5-3字段名称字段类型字段长度备注职工编号字符7如9510101，95101代表部门，后二位代表序号。职工岗位字符5所属部门姓名字符10性别文本2联系电话文本20家庭住址文本10E-MAIL文本20、职工家庭信息表（如：表5-4）表5-4字段名称字段类型字段长度备注职工家庭编号字符4如：0001仅为序号。职工姓名字符10职工性别文本2联系电话文本20、职工所在岗位信息表（如：表5-5）表5-5字段名称字段类型字段长度备 注岗位编号字符7如：9510101仅是序

25、号，（唯一性）不同岗位同一部门序号也不一样。岗位名称字符20所属班组字符5平时业绩表现数值2.1占总成绩的百分比,如：0.2即20%满勤率数值2.1同上该岗位工资等级数值2.1同上该岗位保健等级数值2.1同上该岗位带班付长字符4、职工工资表（如：表5-6）表5-6字段名称字段类型字段长度备 注工资编号字符6如：000001仅是序号，（唯一性）不同人同一岗位序号也不一样。职工编号字符6基本工资数值4.1如：61.5或49.5或99.5。奖金数值4.1同上工龄工资数值4.1同上岗位津贴数值4.1同上总工资数值4.1基本工资*岗位系数+奖金*岗位系数+工龄工资*工龄+岗位津贴6 详细设计6.1 主要

26、模块目录（1） 主模块（2） 启动登录窗体（3） 主窗体（4） 操作员管理窗体（5） 部门信息管理窗体（6） 职工信息管理窗体（7） 职工家庭信息管理窗体（8） 所在岗位信息管理窗体（9） 职工工资信息管理窗体（10）工资查询窗体（11）工资统计窗体（12）工资单打印窗体（13）帮助窗体6.2 模块设计（1） 主模块（main.bas）功能：设置全局变量和全局数据库ADO连接对象，为其它模块的数据库访问提供连接。（2） 启动登录窗体（frmlog.frm）（如：图6-1）功能：显示系统名称版本号设计者信息,及登录界面。图6-1包括四个标签控件、两个文本框、两个按钮。标签：分别显示“职工工资管理

27、系统”、“用户名”、“密码”字样，以相同的字体，字号，颜色显示在窗口中。涉及标签的FONTSIZE,FONT,FORECOLOR属性,窗口的背景颜色BACKCOLOR属性。文本框：用于输入操作号及密码，密码文本框输入信息以“*”代替。按钮：当输入了操作号及密码后，按“登录”按钮，系统内部验证是否正确，如正确则进入系统主界面，否则禁止用户进入系统。事件函数：“登录”按钮的单击CLICK事件，功能是验证用户及密码是否正确，如正确则关闭当前窗口，打开主窗口。（3） 主窗体(frmmain.frm) （如：图6-2）图6-2功能：用户完成系统各项功能的入口 。包含一个菜单，一个工具栏，和一个状态栏。主

28、窗口采用自动最大化，占据整个桌面，设置窗口的window state属性为2最大化。（4） 人员管理窗体(frmczy.frm) （如：图6-3）图6-3功能：添加员工、删除员工、修改员工。窗口包括四个按钮，功能分别是新增，删除，修改信息以及退出管理。一个表格，用来显示员工列表，同时当单击上面按钮时，功能在表格中实现。（5） 职位信息管理窗体(frmbj.frm) （如：图6-4）图6-4功能：完成职位情况的管理添加职位：弹出添加职位窗体，在相应文本框内输入数据后，按“新增”按钮，如果职位号与已有记录不冲突，则在数据库中增加一条记录，同时显示在窗体表格中修改职位：弹出添加职位窗体，先在表格中选

29、中一个职位，其信息则显示在文本框中，然后对其进行相应的信息修改（职位号不可更改），最后按“修改”按钮，信息更改写入数据库。删除职位：弹出添加职位窗体，先在表格中选中一个职位，其信息则显示在文本框中，然后按“删除”按钮，会弹出一个确认对话框，如真的想删除此职位，则确定，否则取消“删除”。（6） 特殊项信息管理窗体（如：图6-5）图6-5功能：按职工名录入职工信息，同时也可修改、删除。添加特殊项：弹出添加特殊项窗体，先选择要录入职工，然后填写其它信息 。删除特殊项：弹出删除特殊项窗体，先选择要删除的职工，然后删除信息 。修改特殊项：弹出修改特殊项窗体，先选择要修改的职工，然后修改其它信息 。（7）

30、 工资发放信息管理窗体(frmjs.frm) （如：图6-6）功能：完成对职工工资信息的管理（生成月表、查询是否已经发放、发放工资、打印工资表）。 图6-6（8） 统计报表信息管理窗体(frmkc.frm) （如：图6-7）图6-7功能：按月统计职工工资及有关其它的信息。（9） 添加员工窗体(frmcxcj.frm、frmcxcj1.frm) （如：图6-8）图6-8功能：向数据库中添加职工的有关信息。（10） 修改员工窗体(frmcjtj.frm) （如：图6-9）图6-9功能：用于对员工有关的信息进行相关的修改，以直方图显示。（11） 修改职位的窗体（如：图6-10）图6-10功能：对相关

31、职工的职位进行修改。（12） 添加职工职位的窗体（如：图6-11）图6-11功能：在此窗体中对职工的职位进行添加。并加入到数据库中。（13） 添加特殊项的窗体（如：图6-12）图6-12功能：添加职工的特殊项的信息。（14） 修改特殊项的窗体（如：图6-13图6-13功能：在此窗体中对职工的相关信息进行修改。7 编码 7.1 、 登陆窗体编码Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Then MsgBox 用户名和密码错误！, , 提示Else If Text1.Text = GZGL Or Text2.Text =

32、 123 Then MainForm.Show End If Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_Change()End Sub7.2 、主窗体编码 调用统计报表窗体Private Sub Analysis_Click() AnaForm.ShowEnd Sub退出程序Private Sub Exit_Click() Unload Me EndEnd Sub调用人员管理窗体Private Sub HRManage_Click() HRForm.ShowEnd Su

33、b设置启动参数Private Sub MDIForm_Load() gFile = App.Path & 职工工资管理系统.mdb Set gX = CreateObject(Excel.Application)End Sub关闭所有窗口Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Unload AddEForm Unload AddPForm Unload AddSForm Unload UpdateEForm Unload UpdatePForm

34、Unload UpdateSFormEnd Sub调用工资发放窗体Private Sub PayoffTable_Click() PayForm.ShowEnd Sub调用职位管理窗体Private Sub PosManage_Click() PosForm.ShowEnd Sub调用特殊项管理窗体Private Sub SpecialManage_Click() SpecialForm.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.index

35、 Case 1 HRForm.Show Case 2 PosForm.Show Case 3 SpecialForm.Show Case 4 PayForm.Show Case 5 AnaForm.Show Case 6 Unload Me End SelectEnd Sub 73、 模块编码：Option ExplicitAccess数据库文件的名称Public gFile As String数据库连接对象Public gCon As New ADODB.Connection数据库集合对象Public gRst As New ADODB.RecordsetExcel程序对象Public gX

36、 As Excel.Application 打开数据库文件Public Sub OpenDBFile() 打开错误处理陷阱 Dim intErrFileNo As Integer 自由文件号 On Error GoTo ErrGoto gCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & gFile & ;Mode=ReadWrite;Persist Security Info=False Exit SubErrGoto: 把错误信息保存在文件里 intErrFileNo = FreeFile() Open YFSystem.ini

37、 For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + OpenDBFile(Module1) + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub 关闭数据库连接Public Sub CloseDBFile() 打开错误处理

38、陷阱 Dim intErrFileNo As Integer 自由文件号 On Error GoTo ErrGoto gCon.Close Exit SubErrGoto: 把错误信息保存在文件里 intErrFileNo = FreeFile() Open YFSystem.ini For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr

39、(34), Chr(34) + CloseDBFile(Module1) + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub打开数据集Public Sub OpenRS(SQL As String) 打开错误处理陷阱 Dim intErrFileNo As Integer 自由文件号 On Error GoTo ErrGoto OpenDBFile gRst.Open SQL, gCon, adOpenStatic, adLockOptimistic Exit SubErrGoto: 把错误信息保存在文件里 i

40、ntErrFileNo = FreeFile() Open YFSystem.ini For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + OpenRS(Module1) + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub关

41、闭打开的数据集合Public Sub CloseRS() 打开错误处理陷阱 Dim intErrFileNo As Integer 自由文件号 On Error GoTo ErrGoto gRst.Close CloseDBFile Exit SubErrGoto: 把错误信息保存在文件里 intErrFileNo = FreeFile() Open YFSystem.ini For Append As intErrFileNo Print #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + CloseRS(Module1) + Chr(34), Chr(34) + App.Title + Chr(34) Close #intErrFileNoEnd Sub8 设计总结经过一个多月的设计和开发，职工工资管理系统基本开发完毕。其功能基本符合用户需求，能够完成职工工资的