1、 杭州师范学院本科毕业论文 企业档案管理系统1摘要企业员工的档案管理是企业员工管理的一个重要内容。当今社会人员流动越来越频繁，使得档案管理工作也变得越来越复杂。如何管理好企业员工的信息，成为企业管理中一个大的问题。如果能实现档案管理的自动化，无疑将给公司管理部门带来很大的方便。本档案管理系统为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务，能够满足现代企业对员工档案管理的需要。本系统以 VB6.0 为开发工具，后台数据库选择 ACCESS2003，操作系统为 WINDOWS2000。关键词：档案管理，VB6.0，ADO杭州师范学院本科毕业论文 企业档案
2、管理系统2AbstractThe file management of the business enterprise employee is an important content for business enterprise management. Today the increment of floating population makes the file management become more and more complex, How to manage staffs information is becoming a big problem for business
3、enterprise management. If the automation of file management can be realized, it is helpful for the manage department of enterprise.The file management can provide the service of information consulting, file inquiring, file access, and provide the service of giving evidence for employee. It can meet
4、the file managements demands of modern enterprise management.This system is designed for windows 98, and the develop language is Visual basic 6.0, the database management system is Access2003.Key words: File management, Visual Basic, ADO杭州师范学院本科毕业论文 企业档案管理系统3第一章 应用背景1.1 引言企业员工的档案管理是企业员工管理的一个重要内容。随着时
5、代的进步，企业也逐渐变得庞大起来；当今社会人员流动越来越频繁，使得档案管理工作也变的越来越复杂。如何管理好企业员工的信息，成为企业管理中一个大的问题。如果能实现档案管理的自动化，无疑将给公司管理部门带来很大的方便。由于档案管理的极端重要性，在不同的历史时期产生了不同的、相对于那个时代最完备的档案管理技术与管理制度。近代档案学已经是一门完善的、体系严密的科学。虽然档案学面临信息化的冲击与挑战，但是我们必须清醒地看到，新一代档案学尚未产生，档案管理信息化还存在大量未解决的难题。因此，处理好档案管理信息化中的管理创新和原有档案管理制度之间的矛盾是我们面临的首要挑战。原有档案管理制度的核心一是为了快速
6、查询、应用，二是为了确保档案安全。同时，对历史档案管理现状难于改变的特点，必然使档案管理不可避免地走向管理方式的多元化。 档案管理系统向深层应用发展时，会出现与其它应用系统整合的情况，如文档管理一体化。对于这类整合，重要的是处理好整合应用项目与档案管理特有的、独立性要求的矛盾。例如，档案管理中对文件标题有权改动，这必然使公文、档案一体化管理系统的设计复杂化。采取管理创新和合理技术是档案管理与其它信息系统整合的可行的解决方案。企业职工档案管理是随着人事制度改革应运而生的一项新的工作。近年来，随着人事制度的改革及企事业单位实行劳动合同制，用人单位拥有了用人自主权。但由于一些企业的改制，人事的更迭，
7、以及人事档案的多头管理，造成了部分档案的流失，也造成了效率低，办事难的情况。最初的档案管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业员工的数目越来越多，依然维持着人力进行档案管理，必然会造成工作效率低，工作错误增高的问题。企业档案管理就是把分散在企事业单位的职工档案实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询等现代化、专业化的管理系统。档案管理为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务；为企业单位和个人提供档案的收集、整理、保管服务。企业档案管理的对象是企业、企业化管理的人事单位及职
8、工本人。杭州师范学院本科毕业论文 企业档案管理系统4企业档案管理的自动化是当今社会的发展趋势。档案信息录入项目齐全、完整、系统，这些无疑是现代企业档案管理系统的要求。现代化的企业档案管理系统中灵活使用了表格对档案分门别类，组成企业档案管理系统，可以方便地查询、阅读、修改、交流和重复使用。1.2 主要功能开发企业档案管理系统的总体任务是实现企业员工档案管理的系统化和自动化。档案管理为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务；为企业单位和个人提供档案的收集、整理、保管服务。本系统的主要功能如下：职工档案管理部分：有关企业员工各种信息的输入，包括员工基
9、本档案、家庭成员、工作记录、奖惩情况、职称评定、培训记录、调动记录等。这一部分要完成的主要功能是员工信息的添加、修改、删除、查询。部门管理部分：职工所在部门的信息输入，包括部门名称、部门负责人以及部门联系电话等。这一部分完成的主要功能是部门信息的添加、修改、删除、查询等。系统维护部门：操作员设置、操作员权限设置、修改密码等。杭州师范学院本科毕业论文 企业档案管理系统5第二章 ADO 技术介绍2.1 ADO 的介绍ADO 是 ActiveX Data Object 的缩写，它是 Microsoft 数据库应用程序开发的新接口，是Microsoft 新的数据访问技术，是建立在 OLE DB 之上的
10、高层数据库访问技术。ADO 被设计用来同新的数据库访问层 OLE DB Provider 一起协同工作，以提供通用数据库访问（Universal Data Access） 。OLE DB 是一个低层的数据库访问接口，用它可以访问各种数据库，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。即使对 OLE DB、COM 不了解也能轻松使用 ADO，因为它非常简单易用，甚至比 DAO 都要容易使用，并不失灵活性。ADO 提供了一个熟悉的，高层的对 OLE DB 的自动封装接口。如同 RDO 对象是 ODBC 驱动程序一样，不同的数据库要求它们自己的 OLE DB 提供者（OLE DB P
11、rovider） 。虽然目前 OLE DB 提供者比较少，但微软正积极推广该技术，并打算用 OLE DB 取代 ODBC。ADO 向 Visual Basic 程序员提供了很多好处，包括易于使用、熟悉的界面、高速度以及较低的内存占用（已实现 ADO2.0 的 Msado1.5.dll 需要占用 342KB 内存，大约是 DAO3.5 的Dap350.dll 所占内存的 60%） 。同传统的数据对象层次（DAO 和 RDO）不同，ADO 可以独立创建。因此可以创建一个“Connection”对象，但是可以有多个，独立的“Recordset ”对象来使用它，另外 ADO 针对客户/服务器以及 We
12、b 应用程序作了优化。ADO 最基本的操作流程：初始化 COM 库，引入 ADO 库定义文件；用 Connection 对象连接数据库；利用建立好的连接，通过 Connection、Command 对象执行 SQL 命令，或利用Recordset 对象取得结果记录集进行查询、处理；使用完毕后关闭连接释放对象。2.2 ADO 的对象2.2.1 数据库连接对象Connection这是 ADO 最大的特点，也是 DAO 对象所没有的。每一次引用数据库可以建立一个连接对象，然后在其之上建立多个 RecordSet，方便远程连接操作。建立一个 Connection 的方法很简单，下面例子主要介绍了 Co
13、nnection 对象的创建、连接数据库以及关闭连接的方法：Sub ConnectionExample1()Dim cnn As ADODB. Connection杭州师范学院本科毕业论文 企业档案管理系统6Set cnn=New ADODB. Connection通过 ODBC DSN 打开数据库cnn.OpenPush,sa,检查是否成功建立连接对象If cnn.State=adStateOpen ThenMsgBoxWelcome to Pushs！ElseMsgBoxSorry.No Pubs today.End If关闭连接对象Cnn.CloseEnd Sub表 2-1 Connec
14、tion 对象属性列表属性 功能ConnectionString打开 Connection 的参数设置。主要有以下几项：Provider、File Name、Remote Provider、Remote Server、URLDefaultDatabase 定义 Connection 对象的缺省数据库Provider 定义对象的数据库 OLE DB 的提供者，如 SQL Server 之类State 当前状态，只读。主要返回值为 adStateOpen 或 adStateExecuting表 2-2 Connection 对象方法列表方法 功能BeginTrans 开始一个新的处理事物Rollb
15、ackTrans 放弃当前所有的处理事物并开启一个新的事物Cancel 终止当前的数据库操作Close 关闭释放 Connection 对象Execute 执行 SQL 语句，或者查询Open 打开 Connection 对象2.2.2 命令对象CommandCommand 对象也是 ADO 的特色之一。一般用于大量数据的操作或者是对数据库表单结构的操杭州师范学院本科毕业论文 企业档案管理系统7作。Command 的重要属性如表 2-3 所示，重要方法如表 2-4 所示。表 2-3 Command 对象的属性列表属性 功能ActiveCinnection 指定当前命令对象属于哪个 Comman
16、dCommandStream 指定提供命令参数的流CommandText 指定参数Dialect 指定参数的语法规范State Command 对象运行状态表 2-4 Command 对象方法列表方法 功能Cancel 放弃操作CreateParameter 创建参数Execute 执行参数2.2.3 数据集对象RecordsetRecordset 对象表示的是来自基本表或者命令执行结果的记录全集，任何时候，Recordset对象所指的当前记录均为集合内的单个记录。可使用 Recordset 对象操作来自提供者的数据，使用 ADO 时，通过 Recordset 对象可对几乎所有数据进行操作。所
17、以 Recordset 对象均使用记录（行）和字段（列）进行结构。由于提供者所支持的功能不同，某些 Recordset 方法或属性有可能无效。打开 Recordset 时，当前记录位于第一个记录（如果有） ，并且 BOF 和 EOF 属性被设置成False。如果没有记录，BOF 和 EOF 属性设置是 True。假设提供者支持相关的功能，可以使用 MoveFirst、MoveLast、MoveNext 和 MovePrevious方法以及 Move 方法，和 AbsolutePosition、AbsolutePage 和 Filter 属性来重新确定当前记录的位置。仅向前 Recordset
18、对象只支持 MoveNext 方法。当使用 Move 方法访问每个记录（或枚举 Recordset）时，可用 BOF 和 EOF 属性查看移动是否超过 Recordset 的开始或者结尾。Recordset 对象可支持两类更新：立即更新和批更新。使用立即更新，一旦调用 Update 方法，对数据的所有更改将被立即写入基本数据源。也可以使用 AddNew 和 Update 方法将值的数组作为参数传递，同时更新记录的若干字段。杭州师范学院本科毕业论文 企业档案管理系统8如果提供者支持批更新，可以使提供者将多个记录的更改寸入缓存，然后使用 UpdateBatch方法在单个调用中将它们传给数据库。这种
19、情况应用于使用 AddNew、Update 和 Delete 方法所做的更改。调用 UpdateBatch 方法后，可以使用 Status 属性检查任何数据冲突并加以解决。2.2.4 字段对象FieldField 对象代表使用普通数据类型的数据的列。Recordset 对象含有由 Field 对象组成的Field 集合。每个 Field 对象对应与 Recordset 中的一列，其重要属性如表 2-5 所示，重要方法如表 2-6 所示。表 2-5 Field 对象属性列表属性 功能Name 返回字段名DefinedSize 返回已声明的字段大小Value 查看或更改字段中的数据Actualsi
20、ze 返回给定字段中数据的实际大小NativeError 指示给定 Error 对象的、特定提供者的错误代码表 2-6 Field 对象方法列表方法 功能AppendChunk 将数据追加到大型文本、二进制数据中GetGhunk 返回大型文本或二进制数据 Field 对象的全部或部分内容2.2.5 错误集合ErrorsErrors 对象包含与单个操作（涉及提供者）有关的数据访问错误的详细信息。任何涉及 ADO 对象的操作都会生成一个或多个提供者错误。每个错误出现时，一个或多个Errors 对象将被放到 Connection 对象的 Errors 集合中。当另一个 ADO 操作产生错误时。Err
21、ors 集合将被清空，并在其中放入新的 Errors 对象集。每个 Errors 对象集都代表特定的提供者错误而不是 ADO 错误，ADO 错误被记载到运行时的例外处理机制中。例如，在 Microsoft Visual Basic 中，产生特定 ADO 的错误将触发 On Errors 事件并出现在 Err 对象中。Errors 的主要属性如表 2-7 所示。杭州师范学院本科毕业论文 企业档案管理系统9表 2-7 Errors 对象属性列表属性 功能Description 包含错误的文本Number 包含错误常量的长整型整数值Source标识产生错误的对象。在向数据源发出请求后，如果 Erro
22、rs 集合有多个 Errors 对象，则会用到该属性SQLSate 指示给定 Errors 对象的 SQL 状态NativeErrors 指示给定 Errors 对象的、特定提供者的错误代码出现提供者错误时，Errors 对象被放在 Connection 对象的 Errors 集合中。ADO 支持由单个 ADO 操作返回多少错误，以便显示在特定提供者的错误信息。要在错误处理程序中获得丰富的错误信息，可使用相应的语言或所在工作环境下的错误捕获功能，然后使用嵌套循环枚举出Errors 集合的每个 Errors 对象的属性。Errors 集合的重要方法如图 2-8 所示表 2-8 Errors 集合
23、的方法列表方法 功能Clear 删除集合内的所有对象Item 根据名称或序号返回集合的特定成员2.3 用 ADO 操作数据库概述在使用 ADO 操作数据库时，主要采取如下的步骤和方法： 打开数据库，首先需要创建数据库连接对象（Connection） ，然后调用该对象的 Open方法即可打开数据库。 操作数据库数据。在数据库打开之后，通过 Connection、Command 对象执行 SQL 命令，或者创建记录集（RecordSet）对象，使用该对象的各种方法就可以进行数据库数据的查询、定位以及增加、删除和修改。 关闭数据库。使用上面创建的数据库连接对象的 close 方法就可以进行数据库的关
24、闭。下面就分别详细介绍以上所说的各个步骤和方法。2.4 ADO 连接 Access 数据库杭州师范学院本科毕业论文 企业档案管理系统10可以使用指定 OLE DB 提供者和连接数据字符串来连接 Access 数据文件。例如：Set Con=New ADODB.ConnectionDim srtcon As StringSrtcon=Provider=Microsoft.Jet.OLEDB.4.0;Date Source=C:gongcheng.mdb;_Con.Open strcon其中 C:gongcheng.mdb 为数据库的路径和名称。如果数据库有密码，则：Provider=Micros
25、oft.Jet.OLEDB.4.0;Password=sa;UserId=rose;DataSource=C:gongcheng.mdb; Persist Security Info=True其中 rose 为用户名；sa 为密码如果数据库是局域网其他计算机上的，那么这个数据库所在的至少上一层目录为共享，采用以下方法：Provider=Microsoft.Jet.OLEDB.4.0;UserId=rose;DataSource=C:Chybingchybinggongcheng.mdb; Persist Security Info=False这里“Chybingchybinggongcheng
26、.mdb“为在网络邻居中名 chybing 的机器上（IP 也可以）上的 data 文件夹下面名为 gongcheng 的 Access 数据。2.5 ADO 对数据库基本操作2.5.1 用记录集（Recordset）对象操纵数据记录集（Recordset）对象是 ADO 操作数据最常用的对象，在此对 Recordset 的基本操作做一个说明1）创建并打开 Recordset 对象Dim rstADO As ADODB. Recordset如果在缺省情况下，Visual Basic 将按照引用数据库的先后顺序判断一个 Recordset 是ADO 对象还是 DAO 对象。以 Microsoft Jet 引擎的数据库为例子，ADO 打开记录集的方式如下：Sub ADOOpenJetDatabase()Dim cnn As New ADODB.ConnectionCnn.OpenProvider= Microsoft. Jet.OLEDB.4.0;
