工资管理信息系统报告

1、西安邮电学院经济管理院课程设计题 目： 工资信息管理系统 系 别： 工商管理系 专业、 班级： 人力资源管理0901 姓 名： 孟阳冠、乔世伟、周思佳 学 号： 指 导 教 师： 张晓峰老师 完 成 时 间： 2011年06月 前 言学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理学生学籍档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计

2、算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生学籍信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中将以开发一套学生信息管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。目录摘 要2第一章 引 言41.1 课题介绍41.2 课题目的及意义41.3 研究方法、发展趋势4第二

3、章 开发环境、工具介绍52.1 Visual Basic 6.052.1.1 Visual Basic的编程特点52.1.2 vb支持的数据库系统62.1.3 数据库开发中的三大工具62.2 SQL Server 2000 简介72.2.1 SQL Server 数据库特点82.3 ADO 对象概述92.3.1 利用ADO开发网络数据库应用程序92.3.2 ADO组件的主要对象及其功能102.3.3 用来操控数据的SQL命令102.4 VB访问数据库过程11第三章 员工工资管理系统设计分析123.1应用需求与分析123.2系统模块划分123.3系统数据库设计12第四章：企业工资管理系统应用程序

4、设计1341操作流程图1342 “登录模块”详细设计1443 “管理员界面”详细设计164.3.1主窗体及核心代码：164.3.2帐号管理窗体及其代码：184.3.3工资管理窗体及其代码：2444“用户界面”详细设计254.4.1主窗体及核心代码：254.4.2工资查询主窗体及核心代码：274.4.3个人信息修改主窗体及核心代码：28第五章 总结30结束语31摘 要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本系统是

5、在管理信息系统的理论和方法指导下、数据库技术支持下完成的。本文在结构上首先论述了毕业设计选题的背景、目的和意义，然后叙述了开发环境、开发平台以及数据库技术，接着用表格和图片的方式介绍了系统的整体规划，接下来是系统在具体实现中的详细内容，最终本系统能够完成信息的输入、输出,数据的修改、查询以及打印报表等功能，本系统界面友好，操作简单，比较实用。关键词：控件；窗体；报表；关系数据库管理系统；VB。第一章 引 言1.1 课题介绍高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，决定：结合我校实际情况，自行研制一个学生信息管理系统。1.2

6、 课题目的及意义由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面： 首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全等等。为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。1.3 研究方法、发展趋势

7、本系统采用功能分析法即通过说明社会现象怎样满足一个社会系统的需要（即具有怎样的功能）来解释社会现象和CS模式共同完成。现代教育技术特别是网络与多媒体技术的发展，对学习活动产生了具有深远意义的冲击，人们可以选择或者设计适合其学习特点的信息采集、加工与重组方式。本系统采用CS模式，在某些方面还不是表现的很好，但未来有关学生信息管理的应该采用多层架构的系统，是真正适应教育信息化发展三大趋势的校园网络应用系统，全面支持Internet功能、远程访问功能，采用先进的CS和BS模式共同开发，支持有关学校信息交流、日常教学、教务管理等的各种应用，提供一个基于校园内联网中支持各种类型的学校应用产品的服务平台和

8、开发平台，基本目标是在学校内部和外部建立起顺畅的信息通道，让信息技术成为推动教育生产力的有力工具，提高学校的管理水平和效率，同时充分利用全球的教育资源为学校的教育服务，克服目前大部分学校的校园网建设只起到宣传作用的通病。第二章 开发环境、工具介绍该软件是在Windows XP Professional + Visual Basic 6.0 + SQL Server 2000的环境下完成的。下面就对这些开发工具进行介绍：2.1 Visual Basic 6.0微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual

9、Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。利用VISUAL BASIC 程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。故而，实现本系统VB是一个相对较好的选择。2.1.1 Visual Basic的编程特点Visual Basic语言的出现为Windows下的编程提出了一个新概念，利用Visual Basic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。利用Visual Basic语言编程有以下几个特点

10、：1）、可视化程序设计在Visual Basic中开发的应用程序，不但有丰富的图形界面，同时由用户为开发图形界面添加的代码真是少而又少，因为在设计图形界面的过程中只需设置 ActiveX控件的属性即可。2）、强大的数据库和网络功能随着Visual Basic 语言的向前发展，它在数据库和网络方面的功能优势就愈加明显，利用Visual Basic 中的ODBC开放式的数据库访问技术可以很方便地开发出自己的数据库应用程序；利用 Visual Basic自带的可视化数据管理器和报表生成器，完全可以在Visual Basic就完成数据库的开发工作。3）、其他特性在Visual Basic以前的版本中，

11、由于仍然摆脱不了解释执行的代码运行机制，所以在相当的程度上制约了 Visual Basic 的发展。从Visual Basic5.0版本开始，在Visual Basic 中制作的应用程序都改变为编译执行，使得Visual Basic的代码效率有了很大的提高，同时执行的速度 也加快了解30%(同Visual Basic4.0相比)。当然在 Visual Basic中还有其它特性，例如：l 面向对象的编程语言；l 结构化程序设计；l 事件驱动的程序设计：在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时

12、才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l 支持动态链接库；l 应用程序之间的资源共享； l 事件驱动的程序设计；在传统的或“过程化”的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码。从第一行代码执行程序并按应用程序中预定的路径执行，必要时才会调用过程。在事件驱动的应用程序中，代码不是按预定的路径执行，而是在响不同的事件时执行不同

13、的代码片段。事件可以由用户操作触发、也可以由来自操作系统或其它应用程序的消息触发、甚至由应用程序本身的消息触发。这些事件的顺序，决定了代码执行的顺序，因此应用程序每次运行时所经过的路径都是不同的。l 支持动态链接库；l 应用程序之间的资源共享2.1.2 vb支持的数据库系统VB支持对多格式的数据库的访问和维护，无论是Access还是Foxpro中创建的数据库，都可以用VB打开，对其进行查询、修改和删除等操作。事实上，VB几乎支持对市面上所有数据库的访问。VB可以访问的数据库可以简单的分为三类，即：Microsoft Access格式数据库，外部数据库和ODBC数据库。VB对多种数据库格式的支持

14、，大大的增强了开发数据库应用程序的能力。2.1.3 数据库开发中的三大工具Visual Basic在数据库应用程序的开发领域中，提供包含数据管理（DataManager），数据控件（Data Control）以及数据编程对象（数据访问对象（DAO）、远程数据对象（RDO）和ActiveX数据对象（ADO）等功能强大的工具，协助设计人员轻松的连接数据库文件，并访问其中的数据，在功能方面与其他一些专业数据库软件（如FoxPro，Micosoft Access等）不相上下。数据管理器（Data Manager）是Visual Basical已有的老成员之一，拓本盛举有的Jet数据库引擎（Databa

15、se Engine）可以帮助VB程序元件立即维护数据库内容，并可通过输入查询或查找数据库信息，而不必再通过其他数据库软件另外去设计数据库。数据控件是VB所提供的基本控件成员之一。它使得设计者省下一堆程序代码编写的工作，能够轻松的设计及维护数据库内容。数据控件可以通过一些属性的设置去链接某个数据库文件，但是它本身并无法显示数据库各个记录的内容，必须在搭配其他具有数据感知（Data Aware）功能的控件对应并显示一个字段内容，以方便地进行记录的浏览及编辑工作。VB提供的数据访问对象（Data Access Object；DAO）让程序设计者拥有更大的发挥空间。借助程序代码编写，直接控制Jet数据

16、库引擎，配合数据库控件，能够开发出更具弹性且高效率的数据应用程序。RDO是处理远程数据库的一些专门需要的对象集合。使用RDO可以不用本地的查询机就能访问ODBC数据源，这无疑将大大提高应用程序的性能。ADO是VB6.0中新增的对象，它是一个更简单的对象模型，它更好的集成了其它数据访问技术，并且对本地和远程数据库均有共同的界面，可以取代DAO和RDO。ADO更易于使用。我们在本系统中利用数据管理器创建了数据库及数据库表，并采用了ADO数据访问技术。2.2 SQL Server 2000 简介SQL Server 2000是微软公司最新版的大型数据库服务器，其性能指标在各方面都有赶超Oracle数

17、据库的趋势。用它可以方便地管理数据库和开发应用程序，它使用了最先进的数据库构架，与Windows NT/2000平台紧密集成，具有完全的Web功能。通过对高端硬件平台、网络和存储技术的支持，为WEB站和企业的应用最大限度地提供了可扩展性和高可靠性，能在Internet商业领域快速建立并应用。此外，还增强了安全性，保护防火墙内外的数据。支持基于角色的安全并拥有安全审计工具。在经历了SQL Server 6.5和7.0两个版本的尝试后，微软公司终于开始了大规模的业务。记得在以前各种关于SQL Server的文章，都会将其定位成中小型应用方面，这种感觉被大家自然的延续到了2000版之中。其实这是一种

18、误解。在过去的很长一段时间中，微软公司聘请了世界上最优秀的数据库专家以及专门搭建了信息量可谓空前的地理信息系统，励精图治，就是为了摘掉扣在自己头上的这顶帽子。有了强大的性能和功能支持，再配合其一向为人称道的易用性，SQL Server可以说成为了开发者手中的一柄利器！ 另外，目前国内的一些关于微软平台的数据库编程教程，喜欢使用Access作为数据库平台的案例，并展开相关的内容。这其实对于开发真正的数据库应用并没有直接的帮助作用，只能使大家停留在应用的初级阶段。SQL Server 2000提供的非常傻瓜的缺省安装和使用模式，其上手难度并不比Access大。另外，SQL Server 2000可

19、以兼顾小、中、大规模的应用，有着远远比Access强大的伸缩性。2.2.1 SQL Server 数据库特点概括起来，SQL Server 2000数据库管理系统具有以下主要特点。1）、丰富的图形管理工具，使系统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2000还提供了SQL事件探查器、SQL查询分析器、SQL Server服务管理器和多种操作向导等图形界面管理工具，大大简化了

20、用户操作，从而增强了系统的易用性。2）、动态自动管理和优化功能。即使SQL Server数据库管理员不做任何设置，SQL Server也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。3）、充分的Internet技术支持。Internet网络发展到今天已经成为一条重要的信息发布渠道，SQL Server增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQL Server数据库系统，也扩展了SQL Server在数据挖掘和分析服务领

21、域的应用。4）、丰富的编程接口工具，使用户开发SQL Server数据库应用程序更加灵活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQL Server 2000还支持ODBC、OLE DB、ADO规范，可以使用ODBC、OLE DB、ADO接口访问SQL Server数据库。5）、具有很好的伸缩性和可靠性。SQL Server 2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括W

22、indows NT和Windows 2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。6）、简单的管理方式。SQL Server 2000与Microsoft Windows 2000有机集成，所以可以使用Windows 2000的活动目录（Active Directory）功能对SQL Server进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows 2000的集成还使SQL Server能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理

23、和异步I/O等），从而增强了SQL Server数据库系统的功能，并且只需要占用很少的系统资源。2.3 ADO 对象概述ADO对象能够存取到数据库的内容，首先要求数据库的驱动程序( ODBC驱动程序与OLE DB驱动程序)必须安装上，否则，ADO对象是无法存取数据库中内容，其原理示意图如下图所示：客户端客户端客户端ADO对象各种数据库所对应的驱动程序各种数据库(如Access、SQL Server以及Oracle等)请注意：上图中的“各种数据库所对应的驱动程序”即ODBC驱动程序与OLE DB驱动程序。2.3.1 利用ADO开发网络数据库应用程序ADO（Active Date Objects,

24、即ActiveX数据对象）是一个ASP内置的ActiveX服务器组件（ActiveX Server Component）。可把它与ASP结合起来，建立提供数据库信息的网页内容，对数据库进行查询、插入、更新、删除等操作，并可以把在用户端实现“网上实时更新显示”的最新Web数据库技术。要执行ADO，服务器端必须安装Windows NT Server 和Internet Information Server(IIS)，而客户端只要有IE或NETSCAPE较新版本的浏览器即可。利用ADO开发网络数据库应用程序有以下几个优点：1）、支持客户机/服务器结构（Client/Server）与Web系统开发技术

25、。2）、内部有多个互相独立的对象模型。3）、支持分批修改数据库内容。4）、支持多种不同的数据控制指标形式。5）、先进的Recordset数据高速缓存管理功能。6）、允许在程序中使用多个Recordset对象或者多个分批修改区块传送。7）、ADO属于Free_threaded对象，利用它可以开发出更有效的Web应用程序。2.3.2 ADO组件的主要对象及其功能ADO组件又称为数据库访问组件，它提供了以下七种对象：1）、Connection对象：提供对数据库的连接服务。2）、Command对象：定义对数据库源操作的命令。3）、Recordset对象：由数据库服务器所返回的记录集。Recordset

26、对象的LockType属性的设置值如下表所示：常量值说明adLockReadOnly1默认值，只读。无法更改数据adLockPressimistic2保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用立即锁定数据源的记录的方式。adLockOptimistic3开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用Updata方法时锁定记录。adLockBatchOptimistic4开放式批更新。用于与立即更新模式相反的批更新模式。4）、Fields对象：由数据库服务器所返回的单一数据字段5）、Parametes对象：表示Command对象的参数。6）、Property对

27、象：单独的一个Property对象，提供属性功能。7）、Error对象：提供处理错误的功能。使用ADO对象可以建立和管理数据库的连接，按数据库服务器的要求获得数据，执行更新、删除、添加数据等操作，获取ODBC的错误信息等。2.3.3 用来操控数据的SQL命令SQL命令是发送给数据库并要求数据库操作的指令，它是专门为数据库设计的语言，比一般的计算机程序语言简单的多。SQL命令主要分成两部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立数据表及数据列的指令群，而DML则是操作数据库记录的指令群，如数据库

28、记录的添加、更新、删除、和查询等。SQL命令，包括Select、Delete、Update、Insert Into、Select Into等。1）、筛选及排序记录的Select指令基本句型一：Select 字段串列 From 数据表基本句型二：Select From Where 筛选条件基本句型三：Select From Order By字段串列Select Top：限定选取数据的条数2）、删除数据记录的Delete指令基本语法：Delete From 数据表 Where 条件式3）、更新数据记录的Update指令基本语法：Update 数据表Set 表达式4）、增加数据记录的Insert I

29、nto 指令基本句型一：Insert Into 数据表 (字段串列) Values (字段串列)基本句型二：Insert Into 数据表 (字段1,字段2,字段n) Select 5）、建立新数据表的Select Into 指令该指令与“Insert Into Select ”指令的区别是，这个指令将建立另一个新的数据表，而Insert Into是增加数据记录到“现存的”数据表中。2.4 VB访问数据库过程1）、定义数据库组件Dim conn As New ADODB.Connection其中conn为连接对象Dim reco As New ADODB.Recordset 其中reco为结果

30、集对象2）、打开数据库对于SQL数据库，其连接语句为conn.Open driver=sql server;server=localhost;uid=sa;pwd=;database=student。而对于Access数据库，连接语句为conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path + student.mdb3）、设定SQL语句，使用“Execute”命令，即可开始执行访问数据库的动作4）、关闭结果集对象，断开与数据库的连接reco.Closeconn.Close第三章 员工工资管理系统设计分析3.1应用需求

31、与分析基本信息的添加、修改、删除和查询。基本信息包括项目类型信息，项目状态信息，模块状态信息和缺陷级别信息等。 此功能为项目组管理和软件项目管理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收员工信息和角色信息。软件项目管理模块包括项目基本信息管理、软件模块管理和软件缺陷管理等功能3.2系统模块划分开发这个系统的目的就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的系统化、规范化和自动化。能够和认识管理系统、考勤管理系统相结合，真正实现企业高效、科学、现代化的员工管理。系统最终实现的主要功能如下。企业工资信息设置部分：包括设置员工的基本工资和其他项目的金额，如奖金

32、等。企业工资信息管理部分：包括统计出勤、计算工资、查询工资和导出工资表。系统部分：包括添加用户和修改密码。3.3系统数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，确保数据信息的完整性和一致性。针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设计如下的数据项和数据结构：登录表：包括员工编号、员工帐号、密码、权限；员工信息表：包括员工编号、姓名、性别、出生年月、籍贯、所在部门、职务、工资；工资表：包括员工帐号、员工编号、姓名、基本工资

33、、水电费、交通费、其他、总计；第四章：企业工资管理系统应用程序设计41操作流程图初始登入用户:admin 密码为:admin欢迎界面用户登录否判断登录是否正确是判断登陆者是否为管理员否是普通用户界面管理员界面员工信息管理帐号管理工资管理个人信息查询与修改42 “登录模块”详细设计 登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。 图表 1欢迎界面图表 2登录界面登陆界面代码如下：Pri

34、vate Sub Command1_Click() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=myg rs.Open select * from log where 员工帐号= & Text1.Text & ,

35、conn, adOpenKeyset, adLockOptimistic If Text1.Text = Then 判断用户名是否为空 MsgBox 请输入帐号！, , 提示 Exit Sub End If If rs.EOF Then MsgBox 没有这个帐号，请重新输入！, , 提示 判断是否为空号 Exit Sub End If user = rs.Fields(0) Dim name As String Dim password As String Dim power As String power = Trim(rs.Fields(2) name = rs.Fields(3) pa

36、ssword = Trim(rs.Fields(1) If password = Text2.Text Then If power = 0 Then 判断权限，管理员 Unload Me frm_adminmain.Show End If If power = 1 Then 判断权限，用户 Unload Me frm_usermain.Show End If Else MsgBox 密码不正确！, , 提示 Text2.Text = Text2.SetFocusEnd If End SubPrivate Sub Command2_Click() 确定是否退出Dim a As Stringa =

37、 MsgBox(确定要退出吗？, vbYesNo, 提示)If a = vbYes Then EndElse frm_login.ShowEnd IfEnd SubPrivate Sub Form_Load() Text1.Text = 窗体装载时，文本框清空 Text2.Text = End Sub43 “管理员界面”详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由系统、员工信息查询与修改、帐号管理、工资管理和帮助这五个大模块组成。主窗体是进行相关操

38、作的主界面。在这几个里，管理员有所有的权利进行各种操作。4.3.1主窗体及核心代码：图表 3管理员主界面员工信息查询月修改界面及其核心代码：图表 4员工信息查询与修改代码：Private Sub Command1_Click()Dim b As String b = MsgBox(确定要修改吗？, vbYesNo, 提示) If b = vbYes Then Adodc1.Recordset.Fields(0) = Trim(Text1.Text) Adodc1.Recordset.Fields(1) = Trim(Text2.Text) Adodc1.Recordset.Fields(2)

39、= Trim(Text3.Text) Adodc1.Recordset.Fields(3) = Trim(Text4.Text) Adodc1.Recordset.Fields(4) = Trim(Text5.Text) Adodc1.Recordset.Fields(5) = Trim(Text6.Text) Adodc1.Recordset.Fields(6) = Trim(Text7.Text) Adodc1.Recordset.Fields(7) = Trim(Text8.Text) Adodc1.Recordset.Update MsgBox 更新成功！, , Else frm_us

40、ermsgadd.Show End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command3_Click()Unload Mefrm_adminmain.ShowEnd SubPrivate Sub Form_Unload(Cancel As Integer)frm_adminmain.ShowEnd Sub4.3.

41、2帐号管理窗体及其代码：帐号管理分为帐号信息修改和帐号添加。帐号信息修改：图表 5帐号管理代码：Private Sub Command1_Click()Dim b As String 修改帐号信息 b = MsgBox(确定要修改吗？, vbYesNo, 提示) If b = vbYes Then Adodc1.Recordset.Fields(0) = Trim(Text1.Text) Adodc1.Recordset.Fields(1) = Trim(Text2.Text) Adodc1.Recordset.Fields(2) = Trim(Text3.Text) Adodc

42、1.Recordset.Fields(3) = Trim(Text4.Text) Adodc1.Recordset.Update MsgBox 修改成功！, , 提示 Else frm_accountmanage.Show End IfEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.BOF Then MsgBox 已经是第一条, , 提示 Exit SubElse Adodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd Su

43、bPrivate Sub Command4_Click()If Adodc1.Recordset.EOF Then MsgBox 已经到达最后一条, , 提示 Exit SubElse Adodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)frm_adminmain.ShowEnd Sub帐号添加：图表 6帐号添加代码：Private Sub Command1_Click()Dim conn As ADODB.Connection Dim rs As ADODB.Record

44、set Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=myg rs.CursorLocation = adUseClient rs.Open select * from log where 员工帐号= & Text4.Text & , conn, adOpenKeyset, adLockOptimistic If rs.Re

45、cordCount 0 Then MsgBox 这个帐号已存在！, , 提示Exit SubEnd Ifrs.AddNew rs.Fields(0) = Text1 rs.Fields(1) = Text2 rs.Fields(2) = Text3 rs.Fields(3) = Text4rs.UpdateBatch adAffectAllChaptersMsgBox 帐号添加成功，请更新个人信息！, , 提示Unload Mefrm_msgadd.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_U

46、nload(Cancel As Integer)frm_adminmain.ShowEnd Sub图表 7用户信息添加代码：Private Sub Command1_Click()Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Cat

47、alog=myg rs.CursorLocation = adUseClient rs.Open select * from usermsg , conn, adOpenKeyset, adLockOptimisticrs.AddNew rs.Fields(0) = Label10 rs.Fields(1) = Text2 rs.Fields(2) = Combo1 rs.Fields(3) = Text4 rs.Fields(4) = Text5 rs.Fields(5) = Text6 rs.Fields(6) = Text7 rs.Fields(7) = Text8 rs.UpdateB

48、atch adAffectAllChaptersMsgBox 用户信息添加成功，请更新个人工资信息！, , 提示Unload Mefrm_saladd.Show End SubPrivate Sub Command2_Click()MsgBox 信息没有添加完，不能退出！, , 提示End SubPrivate Sub Form_Load()Text1 = frm_accountadd.Text1.TextEnd Sub图表 8员工工资设置代码：Private Sub Command1_Click()Dim conn As ADODB.Connection Dim rs As ADODB.Re

49、cordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=myg rs.CursorLocation = adUseClient rs.Open select * from sal , conn, adOpenKeyset, adLockOptimisticrs.AddNew rs.Fields(0) = Label1

50、rs.Fields(1) = Text1 rs.Fields(2) = Text2 rs.Fields(3) = Text3 rs.Fields(4) = Text4 Text5.Text = Text1.Text + Text2.Text + Text3.Text + Text4.Text rs.Fields(5) = Text5 rs.Fields(6) = Text6 rs.Fields(7) = Text7 rs.UpdateBatch adAffectAllChaptersMsgBox 用户工资信息添加成功！, , 提示Unload Mefrm_adminmain.ShowEnd S

51、ubPrivate Sub Form_Load()Label1 = frm_accountadd.Text1.TextText6 = frm_msgadd.Text2.Text 姓名Text7 = frm_accountadd.Text4.Text 员工帐号Text1.Text = 0Text2.Text = 0Text3.Text = 0Text4.Text = 0End Sub4.3.3工资管理窗体及其代码：图表 9工资管理界面代码：Private Sub Form_Load()Dim conn As ADODB.Connection Dim rs As ADODB.Recordset S

52、et conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=myg rs.Open select * from sal where 员工编号= & user & , conn, adOpenKeyset, adLockOptimisticText1 = rs.Fields(0)Text2 = rs.Fields(6)Text3 = rs.Fields(1)Text4 = rs.Fields(2)Text5 = rs.Fields(3)Text6 = rs.Fields(4)Text7 = rs.Fields(5)rs.CloseEnd SubPrivate Sub Form_Unload(Cancel As Integer)frm_usermain.ShowEnd Sub44“用户界面”详细设计4.4.1主窗体及核心代码：图表 10用户主窗体代码：Private Sub bangzhu_Click()Unload Mefrm_help2.ShowEnd SubPrivate Sub Form_Load() 窗体