工资管理系统毕业设计（论文） .doc

《工资管理系统毕业设计（论文） .doc》由会员分享，可在线阅读，更多相关《工资管理系统毕业设计（论文） .doc（31页珍藏版）》请在三一文库上搜索。

1、目目 录录 摘 要1 第一章 开发软件简介8 2.1 Visual Basic 6.0 简介 .8 2.2 Access 简介 10 2.3 开发工具的使用11 2.3.1 Visual Basic 的使用及安装步骤 12 2.3.2 数据库：Microsoft Access.13 2.3.3 数据库访问方式：ADO12 第三章 数据库应用系统开发.13 3.1 数据库管理系统.14 3.2 数据库模式.14 3.3 数据库信息管理系统分析.14 第二章 系统设计与概要分析15 4.1 系统概要设计思路.16 4.2 系统结构图和功能结构图.17 4.3 运行设计.18 4.4 数据库设计.1

2、9 4.5 数据库表格设计.19 第三章 系统部分代码与分析设计20 5.1 系统应用程序设计.21 5.2 用户密码认证窗体的的实现.21 5.3 系统各功能的实现及一些故障解析.24 第四章 参考文献33 工资管理系统工资管理系统 摘摘 要要 企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加，企 工资管理系统 1 业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理， 同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同 时连接工时考勤、奖惩、津贴和医疗保险等等，来生成企业每个职工的基本工 资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生

3、存的主要元素， 资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重 要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅 花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏 忽，出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时 间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全 面统计，实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型 的信息管理系统（MIS） ，前台程序开发工具采用微软的 VISUAL BASIC，后台 数据库采用 ACCESS 数据库。VISUAL BASIC 是一种面向对象的

4、开发工具，具 有组件丰富、语言简单、功能强大的优点。 ACCESS 数据库具有与 VISUAL BASIC 无缝连接、操作简单、易于使用的优点。运行结果证明，它成为了现代 化企业管理的标志。 关键词关键词：工资管理 信息管理 数据查询 数据库 VISUAL BASIC ACCESS 工资管理系统 2 工资管理系统 3 第一章第一章 开发软件简介开发软件简介 2.1 VISUAL BASIC 6.0 简介 Visual Basic 6.0 是用来创建高性能的企业应用及基于 Web 的应用程序的 最有效工具。集成进来的可视化数据库工具和一个 RAD（快速应用开发）环境 能提高生产效率，而自然代码编

5、译则能生成运行速度更快的应用程序。 使用集成在 Visual Basic 6.0 里的可视化数据库工具和新的数据环境设计器 （Data Environment Designer）可视化 工资管理系统 4 地设计 Oracle 和 Microsoft SQL Server 数据库，创建可重用的数据查询语句、 过程这些都不必离开 Visual Basic 环境。 创建在任何一个装有 Visual Basic 6.0 Web 类库的平台上使用任何一个浏 览器都可轻松地访问的服务器方 Web 应用程序。使用新的动态 HTML 页面 设计器编制高交互性的 Web 页面象编制 Visual Basic 表

6、格一样轻松。 使用下列工具可获得组开发特性和可调节性：Microsoft Visual SourceSafe 6.0 工程元素管理器、Visual Modeler、 Microsoft SQL 服务器 6.5 开发版 、 Microsoft 事务服务器、 Microsoft Internet 信息服务器和 Microsoft 消息队列 服务器。 一. Visual Basic 6.0 有以下特点： 1.可视化 Visual Basic 是可视化编程的先驱和典范，Visual 的英文含义就是可视性。 实际上，Visual Basic 所展现出来的可视性风格，已经成为了诸多可视化集成开 发工具的参

7、照标准。可视化环境下创作前端界面就如同做拼图游戏那样简单， Visual Basic 之所以成为 Windows 环境下快捷、便利的前端开发工具，并获得 最广泛的用户群体支持，其所具有的高度智能的人性化可视开发环境起了很大 的作用。 2.面向对象 面向对象编程(OOP)诞生于 20 世纪 80 年代初期，并先期在 Small Talk、C+等程序设计语言中实现，随着面向对象编程方法的成熟，它所具有的 优越性愈趋明显，于是被渐渐引入到各种传统高级编程语言中，自然也被嵌入 到了 Visual Basic 中。 面向对象编程是建立在类模块基础上的，并通过类的封装、继承、多态性 获得代码重用。和 C+

8、相比，Visual Basic 6.0 的面向对象特性是不够完全的， 它缺少类的继承性，因此依靠类获得代码重用在 Visual Basic 6.0 中受到了一定 程度的限制。尽管如此，通过类来构造应用系统，则仍是 Visual Basic 6.0 最有 效的手段，这个特点尤其体现在它所具有的基于部件的编程方法上。 3.部件编程 基于部件的编程方法是分布式构架思想体系的具体化。在 Visual Basic 中 进行部件编程是通过微软的部件对象模型（COM，Component Object Model） 实现的。COM 是建立在二进制标准上 工资管理系统 5 的对象模型，其具有通用性。因此，在 V

9、isual Basic 中创建的部件，可以自用， 也可以在其他开发环境中（如 Visual C+）使用，同时 Visual Basic 也可以引 用由其他开发工具建立的部件。由于 COM 建立的是基于二进制标准的对象， 并具有接口继承性，因此可以通过部件编程，而使用 Visual Basic 6.0 所缺乏的 对类的继承特性有所弥补。 4.事件驱动 基于事件编程是通过 Visual Basic 创建软件系统时的最主要手段之一。事 件概念是面向对象方法中，外界操作对象由一种状态过度到另一种状态时，对 象对外界的感应接口。基于事件驱动的编程方法体现在：程序的执行是依靠系 统能够被识别的触发事件启动

10、的。用户操作、系统消息，以及程序等各种因素 都可能触发事件。当对象由一种状态过渡到另一种状态时，可能会发生许多个 与时间相关的有序事件，而事件顺序又将决定着代码执行顺序，因此，基于事 件驱动编写程序也就成为了根据有待解决的问题性质合理安排事件和根据事件 顺序有效地组织程序。 2.2 ACCESS 简介 建立一个数据库我们有多种选择，现在市场上有各种各样的数据库，而且 每一种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能 更好地适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。在本 系统中，做为图书仓库管理系统是一个比较小的应用系统，它所产生和处理的 数据量也比较小。因此

11、，没有必要使用像 SQL Server 和 Oracle 这样的大型数据 库。我首先想到的数据库是 Borland 公司的 Paradox 数据库。另外，Microsoft Office 中的 Access 数据库在计算机上的应用比较普及，是开发小型数据库系统 的比较理想的选择，所以，在本系统中我选择了 Access 数据库。 Access 做为一个数据库管理系统，它被集成在 Microsoft Office 中。Access 数据库处理的基本结构，采取关系型数据库模式。与其他的数据库系统相比， Access 更加简单易学，一个普通的计算机用户可以很快地掌握它。Access 2000 的功能十

12、分强大，利用它可以方便地实现对信息保存、维护、查询、统计、打 印、交流、发布，而且它可以十分方便地与 Office 其他组件交流数据，这些功 能对一个一般用户而言已经足够了。 工资管理系统 6 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结 构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Microsoft Access 是一种关系式数据库，关系式数据库由一系列表组成，表 又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有 一个字段名，字段名在一个表中不能重复。图 1 是一个“产品”表的例子。 “产品” 表由 10 个记录组成，一个记

13、录占一行，每一个记录由产品 ID、产品名称、库 存量、订货量、单价和折扣率 6 个字段组成。 “产品 ID”是字段名，其下面的 1，2 等是字段的值。表与表之间可以建立关系，以便查询相关联的信息。 Access 数据库以文件形式保存，文件的扩展名是 MDB。 2.3 开发工具的使用 一.Visual Basic 6.0 的使用及安装步骤: Visual Basic 是微软推出的基于窗口的可视化开发工具。其中，Visual 所指 的是开发图形拥护界面（GUI，Graphical User Interface）的可视化方法。无需 编写大量原代码去描叙用户界面元素的外观位置，而只要把预先建立好的控件

14、 对象用鼠标拖入到设计窗体上，这就是可视化方法带来的便利。 BASIC 是微软最早期的传统产品，Visual Basic 继承了 BASIC 最显著的简 单、易用的特色。但是，Visual Basic 却又和传统 BASIC 有着本质的区别，主 要表现在可视化、面向对象、部件编程、时间驱动等方面。Visual Basic 是 Windows 环境下最快捷、便利的通用开发工具之一，且有只能特性集成开发环 境，拥有广泛的拥护群。 1Visual Basic 6.0 安装方便快捷易于操作。 (1) 启动安装程序。通过 Windows 的“控制面板添加删除程序”、 “资源管理 器”、 “我的电脑”运行

15、 Visual Basic 6.0 安装光盘上的 Setup.exe 程序。 (2) 输入 CD 号。在安装过程中，安装程序会要求输入 CD 号，它是安装口 令，用户可以从软件商提供的资料找到该 CD 号。 (3) 输入姓名及用户单位。在安装过程中系统会要求用户输入姓名和用户 单位。可以在“姓名”输入框中输入用户的姓名，在“单位”输入框中输入工作单 位。单击安装程序界面上“确定”按钮继续安装。 (4) 安装路径的选择。安装程序允许选择安装路径。通过单击安装程序界 工资管理系统 7 面上的“更改文件夹”按钮，可以设置安装路径。 三.安装方法的选择。Visual Basic 6.0 提供“典型安装

16、”和“自定义安装”两种方式: (1)典型安装：在这种安装方式中，Visual Basic 6.0 的所有文件都将安装到 硬盘上。 (2)自定义安装：按用户的要求安装所要求安装所需要的 Visual Basic 6.0 组 件。 Visual Basic 6.0 经过磁盘空间检查后，开始进行安装。在安装过程中会提 示用户是否要安装大量的联机手册，如果有很充足的硬盘空间，建议安装这些 文件。安装程序最后会要求重新启动计算机，并完成安装过程。 二. 数据库：Microsoft Access Access 是关系数据库开发的工具,数据库能汇集各种信息以查询、存储和 检索。Access 的优点在于它能使

17、用数据表示图提供了一种类似于 Excel 的电子 表格,可以是数据一目了然。另外,Access 允许创建自定义报表用于打印或输出数 据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据 库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系 数据库工具，关系数据库是已开发的最通用的数据库之一。Access 多用于中小 型企业来设计中小型数据库，一般的学校教务系统的数据库用 Access 来设计完 全能达到要求。由于考虑到本系统是应用在单机系统上，只建立起一个数据库。 三. 数据库访问方式: ADO ADO（Active Data Objects）实

18、际是一种提供访问各种数据类型的连接机制。 ADO 设计为一种极简单的格式，通过 ODBC 的方法同数据库接口。可以使用 任何一种 ODBC 数据源，即不止适合于 SQL Server、Oracle、Access 等数据库 应用程序，也适合于 Excel 表格、文本文件、图形文件和无格式的数据文件。 ADO 是基于 OLE-DB 之上的技术，因此 ADO 通过其内部的属性和方法提供统 一的数据访问接口方法。其主要优点是易于使用、高速度、低内存支出和占用 磁盘空间较少。 工资管理系统 8 第二章第二章 数据库应用系统开发数据库应用系统开发 在数据库应用系统开发之前，对开发数据库的基本概念应当了解，

19、对数据 库的结构，开发数据库应用程序的步骤，开发体系及方法都应当有相当清晰的 了解和认识。数据应用系统开发的目标是建立一个满足用户长期需求的产品。 开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。 把设计转变为实际的数据库，并且这些数据库带有功能完备，高效能的应用。 工资管理系统 9 数据库技术在计算机软件领域研究中一直是非常重要的主题，产生于 60 年代， 30 多年来数据库技术得到了迅速发展，并已形成较完善的理论体系和一大批实 用系统。并且，近年来，随着 World Wide Web(WWW)的猛增及 Internet 技术的 迅速发展，使得数据库技术之时成为最热门技

20、术之一。 3.1 数据库管理系统 数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。 DBMS 是数据库系统的核心组成部分。对数据库的一切操作，包括定义，更新 及各种控制，都是通过 DBMS 进行的。DBMS 总是基于某种数据模型，可以把 DBMS 看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同， DBMS 可以分成层次型，网状型，关系型，面向对象型等。MS SQL Serever2000 就是一种关系型数据库管理系统。 关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联 系。 关系模型是由若干个关系模型式组成的集合。关系模式是相当于前面提到 的记

21、录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型 和层次，网状模型的最大判别是用关键码而不是用指针导航数据。SQL 语言是 关系数据库的标准化语言，已得到了广泛的应用。 设计子系统有一个方便数据 库及其应用创建的工具集。它典型地包含产生表，窗体，查询和报表的工具。 DBMS 产品还提供编程语言和对编程语言的接口。运行子系统处理用设计子系 统开发的应用组建。它所包含的运行处理器用来处理窗体和数据库的数据交互， 以及回答查询和打印报表等。 3.2 数据库模式 数据库模式定义了数据库的结构，表，关系，域和业务规则。数据库模型 是一种设计，数据库和应用正是建立在此基础上的。域是一列可能

22、拥有的值的 集合。必须为每一个表的每一列确定域。除了数据的物理格式外，还需要确定 是否有些域对表来说是唯一的。 数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据 工资管理系统 10 库应用程序中的业务活动的约束。业务规则是模式的一个重要部分，因为他们 指定可无论什么数据变化到达 DBMS 引擎，允许的数据值必须满足的约束。不 管无效的数据变化请求是来自窗体的用户，查询/修改请求还是应用程序， DBMS 都应该拒绝。 3.3 数据库信息管理系统分析 信息系统的主要任务是通过大量的数据获得管理所需要的信息，这就是必 须存储和管理大量的数据。因此建立一个良好的数据组织结构和数据库，使

23、整 个系统都可以迅速，方便，准确地调用和管理所需的数据，是衡量信息系统开 发工作好坏的主要指标之一。 数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类，分组 系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部 门的存档数据和数据需求，分析各个数据之间的关系，按照 DBMS 提供的功能 和描述工具，设计出规模适当，正确反映数据关系，数据 余少，存取效率高， 能满足多种查询要求的数据模型。 关系数据结构的建立：在进行了数据基本结构的规范化重组以后，还必须 建立整个数据的关系结构。这一步设计完成后数据库和书记结构设计工作基本 完成只待系统实现时将数据分析和数据字典的内容代

24、入到所设计的数据整体关 系结构中，一个规范化的数据库系统结构就建立起来了。 建立关系数据结构涉及三方面内容：确定关联的关键指标项并建立关联表； 确定单一的父系记录结构：建立整个数据库的关系结构。 第三章第三章 系统设计与概要分析系统设计与概要分析 4.1 系统设计思路 在软件需求分析阶段，搞清楚了软件“做什么“的问题，形成了目标系统的 工资管理系统 11 逻辑模型。现在我们所要做的就是要把软件“做什么“的逻辑模型变换为“怎么做 “的物理模型，即着手实现软件的需求。首先，我们需要描述的是系统的总的体 系结构。 系统的概要设计中最重要的就是系统的模块化。模块化是指解决一个复杂 问题时自项向下逐层把

25、软件系统划分成若干个模块的过程。每个模块完成一个 特定的功能，所有的模块按某种方法组织起来，成为一个整体，完成整个系统 所要求的功能。 将系统划分为多个模块是为了降低软件系统的复杂性，提高可读性、可维 护性，但模块的划分不能是任意的，应尽量保持其独立性。也就是说，每个模 块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单， 提高模块的独立性，为设计高质量的软件结构奠定基础。 我首先将整个系统化分为几个小问题，小模块，进一步细分模块，添加细 节。比如:工资管理系统分为工资系统管理模块、工资输入模块、工资查询模块 和系统维护模块等。 一个基本的工资管理系统有利于对工资进行方便的录入

26、、查询、显示等， 不但可以提高工作效率，还可以提高单位人员的积极性，增强单位的活力。平 时在工资的统计和发放中难免会出现一些差错，既浪费人力又不能很好的提高 计算的准确性。而工资的发放又有较强的时间限制。开发工资管理系统，用计 算机来统计和计算工资，可以避免了许多人工发放时工资的差错，不仅可以保 证计算的准确性，还可以对各种信息进行统计。其主要任务是用计算机对各种 工资信息进行日常的管理，如查询、修改、增加、删除以及存储等，迅速准确 地完成各种工资信息的统计工作。针对系统服务对象的具体要求，设计了本工 资管理系统。通过对用户需求的分析，我们可以分析出工资管理系统大致可以 分为 4 个模块：登录

27、模块，工资输入模块，工资查询模块，系统维护模块。结 构与功能模块如下: 4.2.工资管理系统结构图与功能结构图 一. 工资管理系统结构图 工资管理系统 12 工资管理系统 系 统 管 理 输 入 模 块 查 询 模 块 维护 模块 本工资管理系统主要有以下几大功能： (1) 可对人员的工资进行修改、录入、删除。 (2) 查询功能。要求即可以按照一定的查询方式进行，比如按照车间，科室， 姓名，工号等基本信息来进行查询。 (3) 系统登录管理方便安全,采用了账号密码,防止了信息的泄漏。 (4) 维护性大大提高了,有利于工作人员随时快捷的对本系统进行维护和删改措 施。 二.工资管理系统功能结构图 工

28、资管理系统 14 工资管理系统 系统管理用户管理 退出系统 输入模块员工基本信息 员工照片信息 员工奖惩情况 查询模块按工号查询 按姓名查询 按车间科室号 查询 维护模块员工信息维护 员工信息删除 工资管理系统 15 本工资管理系统功能结构模块的特点: (1) 本工资管理系统的登录状态大大提高了其系统的安全运行,以防人们可以随 意的更改信息,用户只能通过帐号密码来登录本工资管理系统。 (2) 由管理信息系统的父模块的向后延伸成几个具有各自间独立功能的子模块 甚至子模块下的二级模块,具有易辨认性、准确性、高效性可观性等。 (3) 系统管理模块下的用户管理和退出系统模块既让用户清楚的了解整个系统

29、的设计,又能够在第一时间内退出登录,节省了时间。 (4) 当进入输入模块时候,用户可以清晰的知道自己想要如何根据自己的需要来 查询到自己想要查询的员工信息以及该员工的奖惩情况。 (5) 当用户找到该确定员工时,可依照其工号、姓名、以及车间或科室号来进行 查询其工资等信息情况。 (6) 最后进入到管理员的维护模块了.此模块的设计都依据着以员工为本的思想, 对员工的基本信息包括其工资、奖惩、照片及信息等基本情况,有效的时时保护 着整个系统的稳定运行,如发生需要变动或者删除、添加及更改的,管理员能够对 其系统进行相应的维护措施,有效的避免了信息的错误及做好安全性的防范。 4.3 运行设计 (1) 运

30、行模块的单独运行 具体软件的单独运行模块为程序提供了良好的运行环境，使其不易在查询 信息的时候发生错误以及发生系统冗余,各个模块在软件运行过程中能较好的查 询信息，处理数据等。 (2) 运行控制 软件运行时有较友好的界面，基本能够实现用户的数据信息处理要求。 4.4 数据库设计 数据库设计属于系统设计的范畴。通常把使用数据库的系统统称为数据库 应用系统，把数据库应用系统的设计简称为数据库设计。 按照软件工程对系统生命周期的定义，软件生命周期分为指定计划、需求 分析、设计、程序编制、测试以及运行维护 6 个阶段。在数据库设计中也参照 工资管理系统 16 这种划分，把数据库应用系统的生命周期分为数

31、据库规划、需求收集与分析、 数据库设计与应用程序设计、实现、测试以及运行维护 6 个阶段。 在信息世界中，信息从客观事物出发流经数据库，通过决策机构最后又回 到客观世界，信息的这一循环经历了三个领域：信息世界，数据世界，现实世 界。现实世界的事物反映到人的头脑中，人的大脑对它有个认识过程，经过分 析（选择、命名、分类等）进入信息世界。这些信息再进一步加工、编码，然 后进入数据世界，而软件系统的开发工作需要考虑这两个方面的问题，也就是 要考虑系统开发所需要的数据，以及如何对这些数据进行操作。这两个问题贯 穿了整个软件系统的开发过程，这也就是数据库的设计问题，软件设计的一个 核心。 4.5 数据库

32、表格设计 我在系统中定义的表格都基本地按照范式的思想和要求去完成，数据是用 ACCESS2003，系统中所有数据都存放在 data.mdb 中，定义了如下几张表格， 分别是 accounts 系统用户表、车间信息表、科室工资信息表、奖惩信息表、基 本工资信息表、员工信息表、工号信息表、通过对这几张表格的操作可以较好 地完成系统设计的各项功能，几张表格之间有着不同程度的联系。下面列出一 些制作的表格分析。 一.admin 表 字段名称数据类型说明 id数字登陆编号 username文本登录名 password数字密码 typeid数字登陆次数 二.员工信息表 工资管理系统 17 字段名称数据类型

33、说明 Id数字员工编号 Number数字工号 realname文本真实姓名 age数字年龄 sex文本性别 room文本车间 pic 文本员工照片 gongzi 数字 员工工资 buzhu 数字 补助 三.奖惩信息表 字段名称数据类型说明 userid文本用户名字 title文本标题 type文本奖惩类型 money数字奖惩金额 body文本奖惩情况 工资管理系统 18 第四章第四章 系统部分代码和分析设计系统部分代码和分析设计 5.1 系统应用程序设计 各功能细节的总体分析： 1. 整个系统内的主要功能是添加，删除，修改。虽然从功能上看来比较简单 但它们必须受到严格的制约。 添加：不能添加已

34、经存在或者关键字相同的数据 删除：由于许多数据是互相关联的如：没有员工的基本信息，哪来员 工的基本工资？所以在删除此类数据的时候一定要注意。 修改：同样的，不能修改成已经存在或者关键字相同的数据。 有许多数据必须加以规范。比如说年龄和公司对福利的承担比例。 2. 公司对福利的承担也不可能是 100%，一般在 015%左右。奖金的发放不 能单纯的在部门内人数平分，这很可能要和他日常表现要有关联，所以每个人 在最后工资发放阶段必须要可以单独修改的可能。 5.2 用户认证系统密码窗体的实现 本窗体是为了让工作人员按照用户和密码进行登陆。窗体界面、源代码如下： 源代码： If username.Tex

35、t = “ Or password.Text = “ Then 工资管理系统 19 MsgBox “没有输入用户名,请输入!“, vbOKOnly + vbExclamation, “警告“ username.SetFocus Else On Error Resume Next Dim sql Dim rs As New ADODB.Recordset SQL 查询语句，从管理员表中查询匹配用户名和密码的记录 sql = “select * from admins where username=“ & username.Text & “ and password1=“ & password.T

36、ext & “ “ rs.Open sql, conn, 1, 1 If Err.number 0 Then 记录 存在，提示，关闭对象，退出模块 工资管理系统 22 MsgBox “此用户名已经存在“ rs.Close conn.Close Exit Sub Else rs.Clone 执行 SQL 语句插入指令 insert into sql = “insert into admins(username,password1) values(“ & Text1.Text & “,“ & Text2.Text & “)“ conn.Execute sql MsgBox “添加成功“ Dim r

37、s As New ADODB.Recordset sql = “select * from users“ rs.Open sql, conn, 1, 3 If Err.number “ Then 从通用对话框返回的图片文件路径 最右侧开始向左挨个字符进行判断，如果是“”，则获得“”后面的字符串，即为 图片文件名 j = j + 1 Else strimage = Mid(appa, Len(appa) - j + 1, j) 获得图片文件名，放到 strimage 变量中 Exit For End If Next i If appa 0 Then 判断金额是否为数字，如果不为数字，则程序出错，

38、 捕捉错误 MsgBox “发生错误，请正确录入金额“ Text2.SetFocus rs.Close conn.Close 工资管理系统 26 Exit Sub End If rs.Close conn.Close MsgBox “添加成功“ Dim rs As New ADODB.Recordset sql = “select * from users where number like %“ & Text1.Text & “% and realname like %“ & Text2.Text & “% and room like %“ & Text3.Text & “%“ 此句 SQL

39、 查询语句 Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 工资管理系统 27 On Error Resume Next If id.Text = “ Then MsgBox “请选择要修改的记录“ Exit Sub End If Call con Dim rs As New ADODB.Recordset sql = “select * from user_jc where id=“ & id.Text SQL 查询语句，与 ID 字段匹 配的记录 修改指定记录 rs.Open sql, c

40、onn, 1, 3 rs(“title“) = title.Text rs(“userid“) = realname.Text rs(“type“) = Combo1.Text 工资管理系统 28 rs(“money“) = jine.Text rs(“body“) = beizhu.Text rs.Update If Err.number 0 Then MsgBox “请填写正确的金额“ jine.SetFocus rs.Close conn.Close Exit Sub End If rs.Close conn.Close Command3.Enabled = True Me.Adodc1

41、.RecordSource = “select * from users where id=“ & DataGrid1.Row id.Text = Me.Adodc1.Recordset.Fields(“id“) number.Text = Me.Adodc1.Recordset.Fields(“number“) 工资管理系统 29 realname.Text = Me.Adodc1.Recordset.Fields(“realname“) Combo1.Text = Me.Adodc1.Recordset.Fields(“sex“) age.Text = Me.Adodc1.Recordse

42、t.Fields(“age“) If IsNull(Me.Adodc1.Recordset.Fields(“room“) Then room.Text = “ Else room.Text = Me.Adodc1.Recordset.Fields(“room“) End If gongzi.Text = Me.Adodc1.Recordset.Fields(“gongzi“) qita.Text = Me.Adodc1.Recordset.Fields(“buzhu“) If IsNull(Me.Adodc1.Recordset.Fields(“pic“) Then Image1.Pictur

43、e = LoadPicture(App.Path & “/uploadImage/onne.jpg“) MsgBox App.Path & “uploadImage/onne.jpg“ Else Image1.Picture = LoadPicture(App.Path & Me.Adodc1.Recordset.Fields(“pic“) MsgBox pic1 & “1“ End If 工资管理系统 30 参考文献参考文献 1肖建 ，薛凤武 ，吴静，2000 年， VISUAL BASIC 6.0 基础教程 ，中国电 力出版社。 2陈豫龙， 何旭洪，2002 年， VISUAL BASIC6.0 数据库开发实例导航 ，人 民邮电出版社。 3网络书籍，2001 年， VISUAL BASIC 6.0 时尚编程百例 ，机械工业出版社。 4莎师煊 王珊著，2002，数据库概论，高等教育出版社。 5刘韬、骆娟、何旭洪，2002， VISUAL BASIC6.0 数据库系统开发实例导航 ， 人民邮电出版社。 6陈明，2000， VISUAL BASIC 程序设计 ，中央广播电视大学出版社。 7VISUAL BASIC 6.0 中文版控件大全 ，MICROSOFT 电子工业出版社。 8王利， 数据库管理系统 ，中央广播电视大学出版社。 工资管理系统 38