毕业论文范文——企业档案管理系统

杭州师范学院本科毕业论文企业档案管理系统摘要企业员工的档案管理是企业员工管理的一个重要内容。当今社会人员流动越来越频繁，使得档案管理工作也变得越来越复杂。如何管理好企业员工的信息，成为企业管理中一个大的问题。如果能实现档案管理的自动化，无疑将给公司管理部门带来很大的方便。本档案管理系统为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务，能够满足现代企业对员工档案管理的需要。本系统以VB6.0为开发工具，后台数据库选择ACCESS2003，操作系统为WINDOWS2000。关键词：档案管理，VB6.0，ADOAbstractThe 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 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 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第一章应用背景1.1引言企业员工的档案管理是企业员工管理的一个重要内容。随着时代的进步，企业也逐渐变得庞大起来；当今社会人员流动越来越频繁，使得档案管理工作也变的越来越复杂。如何管理好企业员工的信息，成为企业管理中一个大的问题。如果能实现档案管理的自动化，无疑将给公司管理部门带来很大的方便。由于档案管理的极端重要性，在不同的历史时期产生了不同的、相对于那个时代最完备的档案管理技术与管理制度。近代档案学已经是一门完善的、体系严密的科学。虽然档案学面临信息化的冲击与挑战，但是我们必须清醒地看到，新一代档案学尚未产生，档案管理信息化还存在大量未解决的难题。因此，处理好档案管理信息化中的管理创新和原有档案管理制度之间的矛盾是我们面临的首要挑战。原有档案管理制度的核心一是为了快速查询、应用，二是为了确保档案安全。同时，对历史档案管理现状难于改变的特点，必然使档案管理不可避免地走向管理方式的多元化。档案管理系统向深层应用发展时，会出现与其它应用系统整合的情况，如文档管理一体化。对于这类整合，重要的是处理好整合应用项目与档案管理特有的、独立性要求的矛盾。例如，档案管理中对文件标题有权改动，这必然使公文、档案一体化管理系统的设计复杂化。采取管理创新和合理技术是档案管理与其它信息系统整合的可行的解决方案。企业职工档案管理是随着人事制度改革应运而生的一项新的工作。近年来，随着人事制度的改革及企事业单位实行劳动合同制，用人单位拥有了用人自主权。但由于一些企业的改制，人事的更迭，以及人事档案的多头管理，造成了部分档案的流失，也造成了效率低，办事难的情况。最初的档案管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业员工的数目越来越多，依然维持着人力进行档案管理，必然会造成工作效率低，工作错误增高的问题。企业档案管理就是把分散在企事业单位的职工档案实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询等现代化、专业化的管理系统。档案管理为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务；为企业单位和个人提供档案的收集、整理、保管服务。企业档案管理的对象是企业、企业化管理的人事单位及职工本人。企业档案管理的自动化是当今社会的发展趋势。档案信息录入项目齐全、完整、系统，这些无疑是现代企业档案管理系统的要求。现代化的企业档案管理系统中灵活使用了表格对档案分门别类，组成企业档案管理系统，可以方便地查询、阅读、修改、交流和重复使用。1.2主要功能开发企业档案管理系统的总体任务是实现企业员工档案管理的系统化和自动化。档案管理为企业单位和个人提供信息咨询、档案检索、档案存取、工资调整、依据档案出具各类证明材料等服务；为企业单位和个人提供档案的收集、整理、保管服务。本系统的主要功能如下：职工档案管理部分：有关企业员工各种信息的输入，包括员工基本档案、家庭成员、工作记录、奖惩情况、职称评定、培训记录、调动记录等。这一部分要完成的主要功能是员工信息的添加、修改、删除、查询。部门管理部分：职工所在部门的信息输入，包括部门名称、部门负责人以及部门联系电话等。这一部分完成的主要功能是部门信息的添加、修改、删除、查询等。系统维护部门：操作员设置、操作员权限设置、修改密码等。第二章ADO 技术介绍2.1ADO的介绍ADO是 ActiveX Data Object的缩写，它是Microsoft数据库应用程序开发的新接口，是Microsoft新的数据访问技术，是建立在OLE DB之上的高层数据库访问技术。ADO被设计用来同新的数据库访问层OLE DB Provider一起协同工作，以提供通用数据库访问（Universal Data Access）。OLE DB是一个低层的数据库访问接口，用它可以访问各种数据库，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。即使对OLE DB、COM不了解也能轻松使用ADO，因为它非常简单易用，甚至比DAO都要容易使用，并不失灵活性。ADO提供了一个熟悉的，高层的对OLE DB的自动封装接口。如同RDO对象是ODBC驱动程序一样，不同的数据库要求它们自己的OLE DB提供者（OLE DB Provider）。虽然目前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针对客户/服务器以及Web应用程序作了优化。ADO最基本的操作流程：初始化COM库，引入ADO库定义文件；用Connection对象连接数据库；利用建立好的连接，通过Connection、Command对象执行SQL命令，或利用Recordset对象取得结果记录集进行查询、处理；使用完毕后关闭连接释放对象。2.2ADO的对象2.2.1数据库连接对象Connection这是ADO最大的特点，也是DAO对象所没有的。每一次引用数据库可以建立一个连接对象，然后在其之上建立多个RecordSet，方便远程连接操作。建立一个Connection的方法很简单，下面例子主要介绍了Connection对象的创建、连接数据库以及关闭连接的方法：SubConnectionExample1()Dim cnnAsADODB. ConnectionSetcnn=NewADODB. Connection通过ODBCDSN打开数据库cnn.OpenPush,sa,检查是否成功建立连接对象If cnn.State=adStateOpen ThenMsgBoxWelcome to Pushs！ElseMsgBoxSorry.No Pubs today.End If关闭连接对象Cnn.CloseEnd Sub表2-1Connection对象属性列表属性功能ConnectionString打开Connection的参数设置。主要有以下几项：Provider、File Name、Remote Provider、Remote Server、URLDefaultDatabase定义Connection对象的缺省数据库Provider定义对象的数据库OLE DB的提供者，如SQL Server之类State当前状态，只读。主要返回值为adStateOpen或adStateExecuting表2-2Connection对象方法列表方法功能BeginTrans开始一个新的处理事物RollbackTrans放弃当前所有的处理事物并开启一个新的事物Cancel终止当前的数据库操作Close关闭释放Connection对象Execute执行SQL语句，或者查询Open打开Connection对象2.2.2命令对象CommandCommand对象也是ADO的特色之一。一般用于大量数据的操作或者是对数据库表单结构的操作。Command的重要属性如表2-3所示，重要方法如表2-4所示。表2-3Command对象的属性列表属性功能ActiveCinnection指定当前命令对象属于哪个CommandCommandStream指定提供命令参数的流CommandText指定参数Dialect指定参数的语法规范StateCommand对象运行状态表2-4Command对象方法列表方法功能Cancel放弃操作CreateParameter创建参数Execute执行参数2.2.3数据集对象RecordsetRecordset对象表示的是来自基本表或者命令执行结果的记录全集，任何时候，Recordset对象所指的当前记录均为集合内的单个记录。可使用Recordset对象操作来自提供者的数据，使用ADO时，通过Recordset对象可对几乎所有数据进行操作。所以Recordset对象均使用记录（行）和字段（列）进行结构。由于提供者所支持的功能不同，某些Recordset方法或属性有可能无效。打开Recordset时，当前记录位于第一个记录（如果有），并且BOF和EOF属性被设置成False。如果没有记录，BOF和EOF属性设置是True。假设提供者支持相关的功能，可以使用MoveFirst、MoveLast、MoveNext和MovePrevious方法以及Move方法，和AbsolutePosition、AbsolutePage和Filter属性来重新确定当前记录的位置。仅向前Recordset对象只支持MoveNext方法。当使用Move方法访问每个记录（或枚举Recordset）时，可用BOF和EOF属性查看移动是否超过Recordset的开始或者结尾。Recordset对象可支持两类更新：立即更新和批更新。使用立即更新，一旦调用Update方法，对数据的所有更改将被立即写入基本数据源。也可以使用AddNew和Update方法将值的数组作为参数传递，同时更新记录的若干字段。如果提供者支持批更新，可以使提供者将多个记录的更改寸入缓存，然后使用UpdateBatch方法在单个调用中将它们传给数据库。这种情况应用于使用AddNew、Update和Delete方法所做的更改。调用UpdateBatch方法后，可以使用Status属性检查任何数据冲突并加以解决。2.2.4字段对象FieldField对象代表使用普通数据类型的数据的列。Recordset对象含有由Field对象组成的Field集合。每个Field对象对应与Recordset中的一列，其重要属性如表2-5所示，重要方法如表2-6所示。表2-5Field对象属性列表属性功能Name返回字段名DefinedSize返回已声明的字段大小Value查看或更改字段中的数据Actualsize返回给定字段中数据的实际大小NativeError指示给定Error对象的、特定提供者的错误代码表2-6Field对象方法列表方法功能AppendChunk将数据追加到大型文本、二进制数据中GetGhunk返回大型文本或二进制数据Field对象的全部或部分内容2.2.5错误集合ErrorsErrors对象包含与单个操作（涉及提供者）有关的数据访问错误的详细信息。任何涉及ADO对象的操作都会生成一个或多个提供者错误。每个错误出现时，一个或多个Errors对象将被放到Connection对象的Errors集合中。当另一个ADO操作产生错误时。Errors集合将被清空，并在其中放入新的Errors对象集。每个Errors对象集都代表特定的提供者错误而不是ADO错误，ADO错误被记载到运行时的例外处理机制中。例如，在Microsoft Visual Basic中，产生特定ADO的错误将触发On Errors事件并出现在Err对象中。Errors的主要属性如表2-7所示。表2-7Errors对象属性列表属性功能Description包含错误的文本Number包含错误常量的长整型整数值Source标识产生错误的对象。在向数据源发出请求后，如果Errors集合有多个Errors对象，则会用到该属性SQLSate指示给定Errors对象的SQL状态NativeErrors指示给定Errors对象的、特定提供者的错误代码出现提供者错误时，Errors对象被放在Connection对象的Errors集合中。ADO支持由单个ADO操作返回多少错误，以便显示在特定提供者的错误信息。要在错误处理程序中获得丰富的错误信息，可使用相应的语言或所在工作环境下的错误捕获功能，然后使用嵌套循环枚举出Errors集合的每个Errors对象的属性。Errors集合的重要方法如图2-8所示表2-8Errors集合的方法列表方法功能Clear删除集合内的所有对象Item根据名称或序号返回集合的特定成员2.3用ADO操作数据库概述在使用ADO操作数据库时，主要采取如下的步骤和方法：l 打开数据库，首先需要创建数据库连接对象（Connection），然后调用该对象的Open方法即可打开数据库。l 操作数据库数据。在数据库打开之后，通过Connection、Command对象执行SQL命令，或者创建记录集（RecordSet）对象，使用该对象的各种方法就可以进行数据库数据的查询、定位以及增加、删除和修改。l 关闭数据库。使用上面创建的数据库连接对象的close方法就可以进行数据库的关闭。下面就分别详细介绍以上所说的各个步骤和方法。2.4ADO连接Access数据库可以使用指定OLE DB提供者和连接数据字符串来连接Access数据文件。例如：SetCon=NewADODB.ConnectionDimsrtconAsStringSrtcon=Provider=Microsoft.Jet.OLEDB.4.0;Date Source=C:gongcheng.mdb;_&Persist Security Info=False;Con.Open strcon其中C:gongcheng.mdb为数据库的路径和名称。如果数据库有密码，则：Provider=Microsoft.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.mdb“为在网络邻居中名chybing的机器上（IP也可以）上的data文件夹下面名为gongcheng的Access数据。2.5ADO对数据库基本操作2.5.1用记录集（Recordset）对象操纵数据记录集（Recordset）对象是ADO操作数据最常用的对象，在此对Recordset的基本操作做一个说明1）创建并打开Recordset对象DimrstADO As ADODB. Recordset如果在缺省情况下，Visual Basic将按照引用数据库的先后顺序判断一个Recordset是ADO对象还是DAO对象。以Microsoft Jet引擎的数据库为例子，ADO打开记录集的方式如下：Sub ADOOpenJetDatabase()Dim cnnAs NewADODB.ConnectionCnn.OpenProvider= Microsoft. Jet.OLEDB.4.0;&Data Source=.NorthWind.mdbCnn.CloseEnd Sub）浏览数据库记录（定位当前记录）关键在于ADO需要先建立Connection下面来举一个例子：Sub ADOOpenJetDatabase()Dim cnn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDimfldAs ADODB.Field打开连接Cnn.OpenProvider=Microsoft.Jet.OLEDB.4.0；&Data Source=.NorthWind.mdb；打开方式：forward-only,read-onlyRst.OpenSELECT *FROM Customers_WHERE Region=WA，cnn,adOpenForwardOnly,adLockReadOnly输出第一个记录的所有字段值For Each fld In rst.FieldsDebug.Print fld.Value&；NextDebug.print关闭数据记录集对象Rst.CloseCnn.CloseEnd Sub至于Move，MoveNext，FindFirst之类的方法，两者用法相同。3）查询数据记录ADO的查询数据库记录的方法和DAO有所不同，DAO可以利用RecordSet对象的FindFirst、FindNext、Findlast、FindPrevious方法，依次用Move浏览查询到的记录，并显示出来。而ADO只有Find方法，该方法允许使用一个查找字符串，它由单引号（）或数码符号（#）加以封闭。双引号（“）不能使用，数码符号必须封闭数值。如果使用Like操作符，就可以用星号（*）作为字符串值中的通配符号。然而，星号必须的值中的最后一个字符或值中的唯一字符。否则会发生运行时的错误。除了搜寻条件外，Find方法还有几个参数。应指明开始搜索时要跳过的记录数；否则，搜索当从当前记录开始。当要开始搜索下一个值时，应当指明一个起始值。在记录集中也可以指明是否向回搜索（相开头）或者向前（向尾部），可以通过指明书签作为搜索的开始位子。Find方法的调用语法是：RstName.Find strCriteria,IngSkipRecords,IngSe archDirection,varStart其中strCriteria是查找条件，比较符仅限于“=”、“”、“=”、“添加职工档案”菜单进入窗体时，添加的代码如下：Private Sub archive_managent_Clock()Selsct_row=addinfo=Trueshow_arch=FalseForm1.ShowEnd Sub窗体加载后，控制按钮的部分也应该有两个状态。如果是做显示资料用，则“修改员工信息”、“删除员工档案”和“返回”按钮可以用，“保存”、“取消”按钮不可用。如果是处于添加状态则相反。因此，在窗体加载时还要设置按钮状态。在公共模块中定义一个布尔型的变量cmd_states来标记：Option ExplicitPublic addinfo As Boolean标记是否处于“添加档案”状态Public cmd_states As Boolean标记form1按钮的状态在单击“查看详细资料”时设置cmd_states，代码如下：Private Sub Command1_Clock()cmd_states=TrueForm1.Sho