bs123-档案管理系统

1、PAGE 山东广播电视大学 第60页摘要近年来，随着企业彼此间的竞争日趋激烈，信息技术在企业的发展中占据着越来越重要的地位。在企业的运输生产中，档案已成为企业运输经营中不可或缺的一部分，为管理者进行管理决策和进行各种经营活动提供了重要的依据，在运输生产中发挥了越来越重要的作用。档案管理系系统是一一个企业业单位不不可缺少少的部分分，它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要，所以档档案管理理系统能能够为用用户提供供充足的的信息和和快捷的的查询手手段。用用Vissuall BBasiic构建建的档案案管理系系统，能能实现档档案的录录入、修修改、查查找、删删除、统统计、查查询、预预

2、览、编编辑、打打印、打打印预览览、取消消、刷新新、视图图、系统统维护、帮帮助等功功能，此此外，在在程序中中还设计计了用户户登陆，并并设定了了密码，以以确保本本系统应应用的安安全性。本本管理系系统设计计合理、界界面美观观、操作作方便、运运行稳定定、功能完备备，为进进行现代代化的档档案管理理工作起起到了重重要作用用，具有有较高的的实用价价值。关键词： 数据库库 模模块 信息 数据据源目录第一章 概述3第二章 目标分析析和方案案确定4第三章章 开开发档案案管理系系统的基基本思路路63.1 使使用VBB6.00编写代代码63.2 使使用Acccesss20000建建立数据据库663.3 用用JETT数

3、据库库引擎访访问数据据库6第四章 Vissuall Baasicc 6.0编程程语言概概述774.1 创创建菜单单栏74.2 创创建工具具栏774.3 建建立帮助助信息84.4 生生成版本本信息8第五章 使用AAcceess220000 实现现关系型型数据库库95.1 数数据库的的概念95.2 新新建一个个数据库库995.3 修修改已建建的数据据库9第六章 系统总总体设计计10第七章 分模块块设计1127.1档案案的系统统维护1127.2档案案的版本本和系统统信息137.3档案案的录入入、编辑辑、删除除、刷新新177.4档案案的登陆陆和密码码设计247.5档案案的主界界面277.6档案案的查询

4、询、预览览、打印印功能287.7档案案的统计计功能317.8档案案的报表表322第八章 结束语语334附：主要参参考文献献355概述近年来，随随着企业业彼此间间的竞争争日趋激激烈，信信息技术术在企业业的发展展中占据据着越来来越重要要的地位位，借助助信息技技术来获获取更快快捷、更更高效、更更准确的的操作方方式，发发挥企业业本身最最大的竞竞争力以以适应快快速变迁迁的商业业环境，逐逐渐成为为不可避避免的趋趋势。在在企业的的运输生生产中，档档案已成成为企业业运输经经营中不不可或缺缺的一部部分，为为管理者者进行管管理决策策和进行行各种经经营活动动提供了了重要的的依据，在在运输生生产中发发挥了越越来越重重

5、要的作作用。为为方便、高高效、快快捷地适适应现代代化档案案的需要要，本论论文应用用Vissuall BBasiic构建建了一个个档案管管理系统统，其中中用到了了数据库库的应用用、建立立、数据据库操作作对象AADO、数数据报表表设计等等知识。档档案管理理系统是是典型的的信息管管理系统统(MIIS)，其开发发主要包包括后台台数据库库的建立立和维护护以及前前端应用用程序的的开发两两个方面面。对于于前者要要求建立立起数据据一致性性和完整整性强、数数据安全全性好的的库。而而对于后后者则要要求应用用程序功功能完备备，易使用用等特点点。用VVisuual Baasicc构建的的档案管管理系统统，主要要能实现

6、现档案的的录入、修修改、查查找、删删除、统统计、查查询、编编辑、打打印、打打印预览览、取消消、刷新新、视图图、系统统维护、帮帮助等功功能，为为保证用用户的安安全性，还还设计了了简捷方方便的用用户登陆陆和密码码修改。本本管理系系统设计合理、界界面美观观、操作作方便、运运行稳定定、功能能完备，为为进行现现代化的的档案管管理工作作起到了了重要作作用，具具有较高高的实用用价值。目标分析和和方案确确定档案管理系系统是一一个企业业单位不不可缺少少的部分分，它的内内容对于于企业的的决策者者和管理理者来说说都至关关重要，所以档档案管理理系统应应该能够够为用户户提供充充足的信信息和快快捷的查查询手段段。但一一直

7、以来来人们使使用传统统人工的的方式管管理文件件档案，这这种管理理方式存存在着许许多缺点点，如:效效率低、保保密性差差，另外时时间一长长，将产生生大量的的文件和和数据，这对于于查找、更更新和维维护都带带来了不不少的困困难。随着科学技技术的不不断提高高，计算机机科学日日渐成熟熟，其强大大的功能能已为人人们深刻刻认识，它已进进入人类类社会的的各个领领域并发发挥着越越来越重重要的作作用。今今天，计计算机的的价格已已经十分分低廉，性性能却有有了长足足的进步步。它已已经被应应用于许许多领域域，计算算机之所所以如此此流行的的原因主主要有以以下几个个方面：首先，计算算机可以以代替人人工进行行许多繁繁杂的劳劳动

8、；其次，计算算机可以以节省许许多资源源；第三，计算算机可以以大大的的提高人人们的工工作效率率；第四，计算算机可以以使敏感感文档更更加安全全，等等等。 在在企业中中用计算算机管理理档案的的意义：现在，有有很多企企业的档档案管理理水平还还停留在在纸介质质的基础础上，这这样的机机制已经经不能适适应时代代的发展展，因为为它浪费费了许多多人力和和物力，在在信息时时代这种种传统的的管理方方法必然然被计算算机为基基础的信信息管理理所取代代。作为计算机机应用的的一部分分，使用计计算机对对档案信信息进行行管理，具有着着手工管管理所无无法比拟拟的优点点。例如:检索迅迅速、查查找方便便、可靠靠性高、存存储量大大、保

9、密密性好、寿寿命长、成成本低等等。这些些优点能能够极大大地提高高学生档档案管理理的效率率，也是企企业的科科学化、正正规化管管理，与世界界接轨的的重要条条件。VVisuual Baasicc简单易易学且功功能丰富富，是广广泛应用用的变成成语言之之一，它它的发展展为编程程人员提提供了更更广泛的的空间。为为能够迎迎合转变变快速的的信息技技术，越越来越多多的企业业倾向于于分布式式的 管管理需求求，提供供分布式式主从结结构环境境的Miicroosofft SQLL SServver便便成为相相当重要要的核心心角色，这这个数据据库服务务器运用用了关系系数据库库的技术术，同时时考虑到到高效率率数据库库管理的

10、的需求，借借助标准准化的访访问环境境，提高高了和前前端应用用环境轻轻松集成成的能力力，以适适应各种种企业组组织在不不同环境境下的操操作需求求。作为为前端应应用程序序开发环环境的VVisuual Baasicc6.0，在在数据来来源的维维护、数数据访问问技术、国国际网络络和企业业内部IIntrraneet应用用程序等等功能方方面都有有其独到到、先进进之处。我作为一个计算机应用专业的专科生，希望在这方面有所贡献。我希望能用我所学的Visual Basic6.0编制出一个实用的程序来对企业的档案进行更有效、快捷、方便的管理，因此，我充分运用Visual Basic进行了这套档案管理系统的开发。第三章

11、 开发档档案管理理系统的的基本思思路3.1、编编程环境境的选择择微软公司的的Vissuall Baasicc 6.0是WWinddowss应用程程序开发发工具，使使目前最最为广泛泛的、易易学易用用的面向向对象的的开发工工具。VVisuual Bassic提提供了大大量的控控件，这这些控件件可用于于设计界界面和实实现各种种功能，减减少了编编程人员员的工作作量，也也简化了了界面设设计过程程，从而而有效的的提高了了应用程程序的运运行效率率和可靠靠性。故故而，实实现本系系统VBB是一个个相对较较好的选选择。3.2、关关系型数数据库的的实现Accesss20000 就是关关系数据据库开发发工具，数数据库

12、能能汇集各各种信息息以供查查询、存存储和检检索。AAcceess 的优点点在于它它能使用用数据表表示图或或自定义义窗体收收集信息息。数据据表示图图提供了了一种类类似于 Exccel 的电子子表格，可可以使数数据库一一目了然然。另外外，Acccesss 允允许创建建自定义义报表用用于打印印或输出出数据库库中的信信息。AAcceess也也提供了了数据存存储库，可可以使用用桌面数数据库文文件把数数据库文文件置于于网络文文件服务务器，与与其他网网络用户户共享数数据库。AAcceess 是一种种关系数数据库工工具，关关系数据据库是已已开发的的最通用用的数据据库之一一。如上上所述，AAcceess 作为关

13、关系数据据库开发发具备了了许多优优点，可可以在一一个数据据包中同同时拥有有桌面数数据库的的便利和和关系数数据库的的强大功功能。3.3、二二者的结结合（DDBA）微软的JEET数据据库引擎擎提供了了与数据据库打交交道的途途径，我我们是通通过它以以及Viisuaal BBasiic 来来访问数数据库并并对其进进行各种种操作。VVisuual Bassic、AAcceess以以及其他他微软的的软件产产品都是是通过共共用JEET数据据库引擎擎，从而而给用户户提供了了丰富的的数据类类型。DATA 控件在在数据库库中的信信息与将将信息显显示给用用户看的的Vissuall Baasicc程序之之间架起起了一

14、座座桥梁。我我们可以以设置DDATAA控件的的各个属属性，告告诉它要要调用那那个数据据库的哪哪个部分分。缺省省情况下下，DAATA控控件根据据数据库库中的一一个或多多个数据据表建立立一个ddynaasett-tyype（动动态集合合）类型型的记录录集合。一一个记录录集合是是动态的的也就意意味着，当当原来的的数据表表中的容容改变了了以后，该该记录集集合中的的记录也也会随之之改变。DDATAA控件还还提供了了用来浏浏览不同同记录的的各种跳跳转按钮钮。将DDATAA控件放放置在窗窗体中之之后，我我们还必必须在该该控件与与要处理理的数据据库之间间建立联联系。第四章 Vissuall Baasicc 6

15、.0编程程语言概概述Visuaal Bassic应应用程序序基本的的构建块块是用户户所创建建的对象象，每一一个对象象都具有有一些特特性和行行为（属属性、事事件和方方法）。开开发人员员可以最最有效利利用所创创建的每每一个对对象。使使用应用用程序具具有可通通用性、可可扩展性性和强有有力的功功能。Visuaal Bassic应应用由一一系列对对象组成成，包括括有函数数、菜单单、结构构和数据据窗口、用用户对象象、用户户事件等等等，对对象中又又包含若若干控件件如命令令按钮、单单行编辑辑器等这这些对象象和控件件都可在在许多应应用中重重复使用用。4.1创建建菜单栏栏除此之外，VVB6.0还有有以下一一些重要

16、要功能。菜菜单是程程序最重重要的特特性之一一，大多多数程序序都依赖赖一个定定义良好好的菜单单使程序序易于使使用和维维护，VVisuual Baasicc也提供供了强大大的创建建菜单功功能是程程序更加加标准。您您可以使使用Viisuaal Bassic的的Apppliccayttionn WWizaard也也可以使使用Viisuaal Bassic的的菜单编编辑器建建立菜单单或者修修改已经经存在的的菜单、控控件。其其属性及及对象如如下：Alignn属性定定义工具具条在窗窗休中的的位置。ToolTTipTTextt属性是是字符串串类型，定定义控件件的提示示字符。Stylee属性定定义按钮钮外观。I

17、mageeLisst属性性定义与与数据条条对应的的ImaageLListt控件名名，该控控件定义义工具条条按钮显显示的图图像。HotImmanggeLiist属属性设置置一个IImaggeLiist控控件名，该该控件定定义按钮钮获得热热点时显显示的图图像。DisabbleddImaageLListt属性定定义工具具条按钮钮无效时时显示的的图像。4.2创建建工具栏栏创建工具条条主要利利用ImmageeLisst和TToollbarr控件。创创建时，先先将ImmageeLisst添加加到窗体体上，然然后往其其中添加加一些图图片，接接着Tooolbbar控控件添加加到窗体体上，再再往Tooolbba

18、r中中插入一一些命令令按纽，为为他们添添加上相相应图片片即可。4.3建立立帮助信信息专业水平的的软件通通常都带带有联机机帮助功功能。无无论写出出来的程程序是要要给大量量的用户户使用，还还是仅仅仅局限于于公司内内部有限限的使用用者，我我们都应应该为用用户提供供详细的的、易于于理解的的联机帮帮助文档档。微软软的Heelp Woorksshopp4.00是一套套独立于于Vissuall BBasiic的用用来协助助我们创创建、运运行于332位WWinddowss操作系系统下的的帮助文文件的工工具。使使用它可可以为我我们编写写的应用用程序生生成一组组帮助文文件。4.4生成成版本信信息为了使程序序显得更

19、更具有专专业风格格，首先先可以在在其中加加入通常常的应用用程序信信息。这这些信息息包括公公司名称称、版本本号、修修订号以以及其他他类似信信息。VVisuual Baasicc允许你你使用AAPP对对象来保保存这些些信息，AAPP对对象是一一个预定定义对象象，不需需要在程程序中创创建它。AAPP对对象的大大多数属属性被应应用程序序用来提提供常规规的信息息，通过过使用这这些APPP提供供的属性性，可以以在应用用程序和和用户之之间交流流重要信信息，在在项目属属性框中中可以设设置它的的属性。第五章 使用AAcceess220000实现关关系型数数据库5.1、数数据库的的概念数据库是一一种存储储数据并并

20、对数据据进行操操作的工工具。数数据库的的作用在在于组织织和表达达信息，简简而言之之，数据据库就是是信息集集合。计计算机的的数据库库可以分分为两类类：非关关系数据据库（fflatt-fiile）和和关系数数据库（rrelaatioonall）。关关系数据据库中包包含了多多个数据据表的信信息，数数据库含含有各个个不同部部分的术术语，象象记录、域域等。5.2、新新建一个个数据库库创建任何一一个数据据库的第第一步是是仔细的的规划数数据库，设设计必须须是灵活活的、有有逻辑的的。创建建一个数数据库结结构的过过程被认认为是数数据模型型设计。1）标识需需要的数数据；2）收集被被标识的的字段到到表中；3）标识主

21、主关键字字字段；4）绘制一一个简单单的数据据图表；5）规范数数据；6）标识指指定字段段的信息息；7）创建物物理表。档案管理系统登陆模块录入模块修改模块查询模块统计档案管理系统登陆模块录入模块修改模块查询模块统计模块预览打印数据库的修修改分为为：添加加、编辑辑和删除除记录。这这三种操操作均可可由Viisuaal Bassic创创建的程程序来完完成，下下面的章章节将详详细描述述实现的的具体方方法。第六章 系统总总体设计计根据设计方方案，本本系统的的结构框框图为（如如下所示示）：本系统所实实现的主主要功能能为：可以进行文文本操作作；录入一个数数据库项项目；修改一个数数据库项项目；查找一个数数据库信信

22、息；删除一个数数据库信信息；统计一个数数据库信信息；查询一个数数据库信信息；预览一个数数据库信信息；编辑一个数数据库信信息；打印一个数数据库信信息；打印预览一一个数据据库信息息；刷新一个数数据库信信息；取消一个数数据库信信息。数据打印根据实际数数据操作作流程，本本城西数数据的EER图为为（根据据数据流流程勾画画，下图图为示意意图）：数据打印档案数据数据录入数据修改、查询用户登录 档档案的录录入档案的的修改和和查询 档案的的预览档案数据数据录入数据修改、查询本系统所采采用的数数据库结结构：数据表：档档案表、用用户表。根根据系统统的需要要，档案案表采用用字段结结构为：编号标题发文部门发文号内容发文

23、日期字段类型自动编号字符字符字符备注日期是否索引是否否否否否登录表结构构为：编 号用 户 名名密 码第七章 分模块块设计7.1、档档案的系系统维护护：为提高系统统的安全全性，防防止非法法用户进进入本系系统，本本系统设设有用户户登陆界界面，并并设立密密码，合合法用户户可以在在系统维维护里面面的用户户修改里里面自行行设立用用户名和和密码，系系统默认认用户名名为“admmin”，密码码为“12334”。系统统的用户户密码更更改界面面如下：Edit.frmmDim db Ass CConnnecttionnDim rs Ass RRecoordssetPrivaate Subb Coommaand11

24、_Cllickk()On Errrorr GooTo erIf rss.Sttatee = adSStatteOppen Theen rrs.CClossers.Oppen 登录录, db, 1, 3rs(用用户名) = Teext11.Teextrs(密密码) = Texxt2.Texxtrs.Uppdatters.CClosseMsgBoox 修改成成功！, vvbOKKOnlly + vbbExcclammatiionUnloaad MMeExit Subber:MsgBoox 有错误误产生！, vbOOKOnnly + vvbExxclaamattionnEnd SSubPrivaat

25、e Subb Coommaand22_Cllickk() UUnlooad MeEnd SSubPrivaate Subb Foorm_Loaad()Text11.Teext = llogiin.uuserrText22.Teext = llogiin.ppasssworrd Sett dbb = Neww Coonneectiion db.CurrsorrLoccatiion = aadUsseClliennt db.Opeen PROOVIDDER=Miccrossoftt.Jeet.OOLEDDB.33.511;Daata Souurcee=daatabbasee.mddb; Sett

26、rss = Neww ReecorrdseetEnd SSubPrivaate Subb Foorm_Unlloadd(Caanceel AAs IInteegerr)If rss.Sttatee = adSStatteOppen Theen rrs.CClosseSet rrs = Noothiingdb.ClloseeSet ddb = NoothiingEnd SSub7.2、档档案的版版本和系系统信息息Aboutt.frrmOptioon EExplliciit 注册表表关键字字安全选选项Constt REEAD_CONNTROOL = &HH200000Constt KEEY_QQU

27、ERRY_VVALUUE = &HH1Constt KEEY_SSET_VALLUE = &H2Constt KEEY_CCREAATE_SUBB_KEEY = &HH4Constt KEEY_EENUMMERAATE_SUBB_KEEYS = &H8Constt KEEY_NNOTIIFY = &H100Constt KEEY_CCREAATE_LINNK = &HH20Constt KEEY_AALL_ACCCESSS = KEYY_QUUERYY_VAALUEE + KEYY_SEET_VVALUUE + _ KEYY_CRREATTE_SSUB_KEYY + KEYY_ENNUMEER

28、ATTE_SSUB_KEYYS + _ KEYY_NOOTIFFY + KEEY_CCREAATE_LINNK + REEAD_CONNTROOL 注册表表关键字字 ROOOT 类型Constt HKKEY_LOCCAL_MACCHINNE = &HH8000000002Constt ERRRORR_SUUCCEESS = 00Constt REEG_SSZ = 1 独独立的空空的终结结字符串串Constt REEG_DDWORRD = 4 332位数数字Constt gRREGKKEYSSYSIINFOOLOCC = SOOFTWWAREEMiicroosofftSSharred Toool

29、s LoccatiionConstt gRREGVVALSSYSIINFOOLOCC = MSSINFFOConstt gRREGKKEYSSYSIINFOO = SOOFTWWAREEMiicroosofftSSharred TooolsMSIINFOOConstt gRREGVVALSSYSIINFOO = PAATHPrivaate Decclarre FFuncctioon RRegOOpennKeyyEx Libb aadvaapi332 Aliias ReegOppenKKeyEExA (BByVaal hhKeyy Ass Loong, ByyVall lppSubbKeyy A

30、ss Sttrinng, ByVVal ulOOptiionss Ass Loong, ByyVall saamDeesirred As Lonng, ByRRef phkkRessultt Ass Loong) Ass LoongPrivaate Decclarre FFuncctioon RRegQQuerryVaalueeEx Libb aadvaapi332 Aliias ReegQuueryyVallueEExA (BByVaal hhKeyy Ass Loong, ByyVall lppVallueNNamee Ass Sttrinng, ByVVal lpRReseerveed

31、AAs LLongg, BByReef llpTyype As Lonng, ByVVal lpDDataa Ass Sttrinng, ByRRef lpccbDaata As Lonng) As LonngPrivaate Decclarre FFuncctioon RRegCClosseKeey LLib addvappi322 (ByVVal hKeey AAs LLongg) AAs LLonggPrivaate Subb cmmdSyysInnfo_Cliick() Calll SStarrtSyysInnfoEnd SSubPrivaate Subb cmmdOKK_Cllick

32、k() Unlloadd MeeEnd SSubPrivaate Subb Foorm_Loaad() MMe.CCapttionn = 关于于 & AApp.Tittle llblVVerssionn.Caaptiion = 版本 & Appp.MMajoor & . & Appp.MMinoor & . & Appp.RReviisioon llblTTitlle.CCapttionn = Appp.Tiitlee MMe.WWidtth = 58820 MMe.HHeigght = 440355End SSubPubliic SSub StaartSSysIInfoo() OOn EEr

33、roor GGoToo SyysInnfoEErr DDim rc As Lonng DDim SyssInffoPaath As Strringg 试图图从注册册表中获获得系统统信息程程序的路路径及名名称 IIf GGetKKeyVValuue(HHKEYY_LOOCALL_MAACHIINE, gRREGKKEYSSYSIINFOO, ggREGGVALLSYSSINFFO, SyssInffoPaath) Thhen 试图图仅从注注册表中中获得系系统信息息程序的的路径 EElseeIf GettKeyyVallue(HKEEY_LLOCAAL_MMACHHINEE, ggREGGKEYY

34、SYSSINFFOLOOC, gREEGVAALSYYSINNFOLLOC, SyysInnfoPPathh) TThenn 已已知322位文件件版本的的有效位位置 If (Diir(SSysIInfooPatth & MSIINFOO32.EXEE) ) Thhen SyysInnfoPPathh = SyssInffoPaath & MSSINFFO322.EXXE 错错误 - 文件件不能被被找到 Elsse GooTo SyssInffoErrrEnd IIf 错误误 - 注册表表相应条条目不能能被找到到 EElsee GoTTo SSysIInfooErrr EEnd If CCall

35、l Shhelll(SyysInnfoPPathh, vvbNoormaalFoocuss) EExitt SuubSysInnfoEErr: MMsgBBox 此时时系统信信息不可可用, vbbOKOOnlyyEnd SSubPubliic FFuncctioon GGetKKeyVValuue(KKeyRRoott Ass Loong, KeeyNaame As Strringg, SSubKKeyRRef As Strringg, BByReef KKeyVVal As Strringg) AAs BBoolleann DDim i AAs LLongg 循环计计数器 DDim rc A

36、s Lonng 返回代代码 DDim hKeey AAs LLongg 打开的的注册表表关键字字句柄 DDim hDeepthh Ass Loong DDim KeyyVallTyppe AAs LLongg 注册表表关键字字数据类类型 DDim tmppVall Ass Sttrinng 注册表表关键字字值的临临时存储储器 DDim KeyyVallSizze AAs LLongg 注册表表关键自自变量的的尺寸 打开开 HHKEYY_LOOCALL_MAACHIINE 下的的 ReegKeey rrc = ReegOppenKKeyEEx(KKeyRRoott, KKeyNNamee, 00

37、, KKEY_ALLL_ACCCESSS, hKeey) 打打开注册册表关键键字 IIf (rc ERRROR_SUCCCESSS) Theen GGoToo GeetKeeyErrrorr 处理错错误 ttmpVVal = SStriing$(10024, 0) 分配配变量空空间 KKeyVValSSizee = 10224 标记变变量尺寸寸 检索索注册表表关键字字的值 rrc = ReegQuueryyVallueEEx(hhKeyy, SSubKKeyRRef, 0, _ KKeyVValTTypee, ttmpVVal, KeeyVaalSiize) 获得/创建关关键字值值 IIf (

38、rc ERRROR_SUCCCESSS) Theen GGoToo GeetKeeyErrrorr 处理错错误 IIf (Ascc(Miid(ttmpVVal, KeeyVaalSiize, 1) = 0) Thhen Winn95 外接程程序空终终结字符符串 tmppVall = Lefft(ttmpVVal, KeeyVaalSiize - 11) Nulll 被被找到,从字符符串中分分离出来来 EElsee WinnNT 没有空空终结字字符串 tmppVall = Lefft(ttmpVVal, KeeyVaalSiize) Nulll 没没有被找找到, 分离字字符串 EEnd If 决

39、定定转换的的关键字字的值类类型 SSeleect Casse KKeyVValTTypee 搜索数数据类型型 CCasee REEG_SSZ 字符串串注册关关键字数数据类型型 KeyyVall = tmppVall 复制字字符串的的值 CCasee REEG_DDWORRD 四字节节的注册册表关键键字数据据类型 Forr i = LLen(tmppVall) TTo 11 Sttep -1 将每位位进行转转换 KeeyVaal = KeeyVaal + Heex(AAsc(Midd(tmmpVaal, i, 1) 生成值值字符。 By Chaar。 Nexxt KeyyVall = Forrm

40、att$(&h + KeyyVall) 转换四四字节的的字符为为字符串串 EEnd Sellectt GGetKKeyVValuue = Trrue 返回成成功 rrc = ReegClloseeKeyy(hKKey) 关闭注注册表关关键字 EExitt Fuuncttionn 退出GetKeeyErrrorr: 错误发发生后将将其清除除 KKeyVVal = 设置返返回值到到空字符符串 GGetKKeyVValuue = Faalsee 返回失失败 rrc = ReegClloseeKeyy(hKKey) 关闭注注册表关关键字End FFuncctioon7.3、档档案的录录入、编编辑、删删

41、除、刷刷新本部分程序序主要是是把车站站的档案案录入计计算机数数据库档档案表里里，并提提供编辑辑、删除除等功能能，能快快捷、高高效地把把用纸张张记录的的档案内内容用数数字的形形式存储储在计算算机里，适适应现代代化的办办公系统统的需要要，以对对信息进进行高效效、快速速的查询询、修改改。系统统的录入入界面如如下：frm档案案Dim WWithhEveentss addoPrrimaaryRRS AAs RRecoordssetDim mmbChhanggedBByCoode As BoooleaanDim mmvBoookMMarkk Ass VaariaantDim mmbEdditFFlagg

42、Ass BoooleeanDim mmbAdddNeewFllag As BoooleaanDim mmbDaataCChanngedd Ass BoooleeanPrivaate Subb Foorm_Loaad() Dimm dbb Ass Coonneectiion Sett dbb = Neww Coonneectiion db.CurrsorrLoccatiion = aadUsseClliennt db.Opeen PROOVIDDER=Miccrossoftt.Jeet.OOLEDDB.33.511;Daata Souurcee=daatabbasee.mddb; Sett ad

43、doPrrimaaryRRS = Neew RRecoordsset adooPriimarryRSS.Oppen seelecct 标标题,发发文部门门,发文文号,发发文日期期,录入入人,内内容 ffromm 档案案, db, addOpeenSttatiic, adLLockkOpttimiistiic Dimm oTTextt Ass TeextBBox 绑定定字段到到窗体文文本框 Forr Eaach oTeext In Me.txttFieeldss SSet oTeext.DattaSoourcce = addoPrrimaaryRRS Nexxt mbDDataaChaangee

44、d = FaalseeEnd SSubPrivaate Subb Foorm_Ressizee() On Errror Ressumee Neext lbllStaatuss.Wiidthh = Me.Widdth - 115000 cmddNexxt.LLeftt = lbllStaatuss.Wiidthh + 7000 cmddLasst.LLeftt = cmddNexxt.LLeftt + 3400End SSubPrivaate Subb Foorm_Unlloadd(Caanceel AAs IInteegerr) Scrreenn.MoouseePoiinteer = vbbD

45、effaulltEnd SSubPrivaate Subb addoPrrimaaryRRS_MMoveeCommpleete(ByVVal adRReasson As ADOODB.EveentRReassonEEnumm, BByVaal ppErrror As ADOODB.Errror, addStaatuss Ass ADDODBB.EvventtStaatussEnuum, ByVVal pReecorrdseet AAs AADODDB.RRecoordsset) 显示示记录位位置 lbllStaatuss.Caaptiion = Reccordd: & CSttr(aadoPP

46、rimmaryyRS.AbssoluutePPosiitioon)End SSubPrivaate Subb addoPrrimaaryRRS_WWilllChaangeeReccordd(ByyVall addReaasonn Ass ADDODBB.EvventtReaasonnEnuum, ByVVal cReecorrds As Lonng, adSStattus As ADOODB.EveentSStattusEEnumm, BByVaal ppReccorddsett Ass ADDODBB.Reecorrdseet) Thhis is wheere youu puut vvali

47、idattionn coode Thhis eveent getts ccallled wheen tthe folllowwingg acctioons occcur Dimm bCCanccel As Boooleaan Sellectt Caase adRReasson Casse aadRssnAdddNeew addStaatuss = adSStattusCCanccel Casse aadRssnCllosee Casse aadRssnDeelette Casse aadRssnFiirsttChaangee Casse aadRssnMoove Casse aadRssnRe

48、equeery Casse aadRssnReesynnch Casse aadRssnUnndoAAddNNew Casse aadRssnUnndoDDeleete Casse aadRssnUnndoUUpdaate Casse aadRssnUppdatte Endd Seelecct If bCaanceel TThenn addStaatuss = adSStattusCCanccelEnd SSubPrivaate Subb cmmdAddd_CClicck() On Errror GoTTo AAddEErr Witth aadoPPrimmaryyRS IIf NNot (.

49、BBOF Andd .EEOF) Thhen mvvBoookMaark = .Boookmaark EEnd If .AdddNeww llblSStattus.Capptioon = AAdd reccordd mmbAdddNeewFllag = TTruee SSetBButttonss Faalsee Endd Wiith Exiit SSubAddErrr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdDeelette_CClicck() On Errror GoTTo DDeleeteEErr Witth aado

50、PPrimmaryyRS .Delletee .MovveNeext IIf .EOFF Thhen .MooveLLastt Endd Wiith Exiit SSubDeletteErrr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdReefreesh_Cliick() Thhis is onlly nneedded forr muultii usser appps On Errror GoTTo RRefrreshhErrr adooPriimarryRSS.Reequeery Exiit SSubRefreeshEEr

51、r: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdEddit_Cliick() On Errror GoTTo EEdittErrr lbllStaatuss.Caaptiion = Ediit rrecoord mbEEdittFlaag = Trrue SettButttonns FFalsse Exiit SSubEditEErr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdCaanceel_CClicck() On Errror Ressumee Nee

52、xt SettButttonns TTruee mbEEdittFlaag = Faalsee mbAAddNNewFFlagg = Fallse adooPriimarryRSS.CaanceelUppdatte If mvBBookkMarrk 0 Theen aadoPPrimmaryyRS.Boookmaark = mmvBoookMMarkk Elsse aadoPPrimmaryyRS.MovveFiirstt Endd Iff mbDDataaChaangeed = FaalseeEnd SSubPrivaate Subb cmmdUppdatte_CClicck() On Er

53、rror GoTTo UUpdaateEErr adooPriimarryRSS.UppdatteBaatchh addAfffecttAlll If mbAAddNNewFFlagg Thhen aadoPPrimmaryyRS.MovveLaast mmovee too thhe nnew reccordd Endd Iff mbEEdittFlaag = Faalsee mbAAddNNewFFlagg = Fallse SettButttonns TTruee mbDDataaChaangeed = Faalsee Exiit SSubUpdatteErrr: MsggBoxx Err

54、r.DDesccripptioonEnd SSubPrivaate Subb cmmdCllosee_Cllickk() Unlloadd MeeEnd SSubPrivaate Subb cmmdFiirstt_Cllickk() On Errror GoTTo GGoFiirsttErrror adooPriimarryRSS.MooveFFirsst mbDDataaChaangeed = Faalsee Exiit SSubGoFirrstEErroor: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdLaast_Clii

55、ck() On Errror GoTTo GGoLaastEErroor adooPriimarryRSS.MooveLLastt mbDDataaChaangeed = Faalsee Exiit SSubGoLasstErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdNeext_Cliick() On Errror GoTTo GGoNeextEErroor If Nott addoPrrimaaryRRS.EEOF Theen aadoPPrimmaryyRS.MovveNeext If adooPriimar

56、ryRSS.EOOF AAnd adooPriimarryRSS.ReecorrdCoountt 0 TThenn BBeepp moovedd offf tthe endd soo goo baack aadoPPrimmaryyRS.MovveLaast Endd Iff shhow thee cuurreent reccordd mbDDataaChaangeed = Faalsee Exiit SSubGoNexxtErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb cmmdPrreviiouss_Cllickk()

57、On Errror GoTTo GGoPrrevEErroor If Nott addoPrrimaaryRRS.BBOF Theen aadoPPrimmaryyRS.MovvePrreviiouss If adooPriimarryRSS.BOOF AAnd adooPriimarryRSS.ReecorrdCoountt 0 TThenn BBeepp movved offf thhe eend so go bacck aadoPPrimmaryyRS.MovveFiirstt Endd Iff shhow thee cuurreent reccordd mbDDataaChaangee

58、d = Faalsee Exiit SSubGoPreevErrrorr: MsggBoxx Errr.DDesccripptioonEnd SSubPrivaate Subb SeetBuuttoons(bVaal AAs BBoolleann) cmddAddd.Viisibble = bbVall cmddEdiit.VVisiiblee = bVaal cmddUpddatee.Viisibble = NNot bVaal cmddCanncell.Viisibble = NNot bVaal cmddDelletee.Viisibble = bbVall cmddCloose.Vis

59、siblle = bVVal cmddReffressh.VVisiiblee = bVaal cmddNexxt.EEnabbledd = bVaal cmddFirrst.Enaableed = bVVal cmddLasst.EEnabbledd = bVaal cmddPreevioous.Enaableed = bVValEnd SSub7.4档案案的登陆陆和密码码设计本部分程序序主要是是提高系系统的安安全性，以以防止非非法用户户进入本本系统，避避免不必必要的损损失。Loginn.frrm是否合法法用户Publiic ppasssworrd AAs SStriingPubliic u

60、userr Ass SttrinngDim ddb AAs CConnnecttionnDim rrs AAs RRecoordssetPrivaate Subb Coommaand11_Cllickk()If Trrim(Texxt1.Texxt) = TThenn MMsgBBox 请输输入完整整！, vbbOKOOnlyy + vbEExcllamaatioonElse IIf rrs.SStatte = addStaateOOpenn Thhen rs.Cloose rrs.OOpenn sseleect * ffromm 登录录 whheree 用户户名= & Teext11.Tee