bs123-档案管理系统

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

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

3、码663.2 使用AAcceess220000建立数数据库663.3 用用JETT数据库库引擎访访问数据据库6第四章 Viisuaal BBasiic 66.0编编程语言言概述74.1 创建菜菜单栏74.2 创建工工具栏74.3 建立帮帮助信息息884.4 生成版版本信息息8第五章 使用用Acccesss20000 实实现关系系型数据据库95.1 数据库库的概念念95.2 新建一一个数据据库95.3 修改已已建的数数据库9第六章 系统统总体设设计10第七章 分模模块设计计1277.1档案案的系统统维护1127.2档案案的版本本和系统统信息137.3档案案的录入入、编辑辑、删除除、刷新新177.

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

5、种经经营活动动提供了了重要的的依据，在在运输生生产中发发挥了越越来越重重要的作作用。为为方便、高效、快捷地地适应现现代化档档案的需需要，本本论文应应用Viisuaal Bassic构构建了一一个档案案管理系系统，其其中用到到了数据据库的应应用、建建立、数数据库操操作对象象ADOO、数据据报表设设计等知知识。档档案管理理系统是是典型的的信息管管理系统统(MIIS)，其开发发主要包包括后台台数据库库的建立立和维护护以及前前端应用用程序的的开发两两个方面面。对于于前者要要求建立立起数据据一致性性和完整整性强、数据安安全性好好的库。而对于于后者则则要求应应用程序序功能完完备，易使用用等特点点。用VVi

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

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

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

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

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

11、、方便便的管理理，因此此，我充充分运用用Vissuall BBasiic进行行了这套套档案管管理系统统的开发发。第三章 开发发档案管管理系统统的基本本思路3.1、编程环环境的选选择微软公司司的Viisuaal BBasiic 66.0是是Winndowws应用用程序开开发工具具，使目目前最为为广泛的的、易学学易用的的面向对对象的开开发工具具。Viisuaal BBasiic提供供了大量量的控件件，这些些控件可可用于设设计界面面和实现现各种功功能，减减少了编编程人员员的工作作量，也也简化了了界面设设计过程程，从而而有效的的提高了了应用程程序的运运行效率率和可靠靠性。故故而，实实现本系系统VBB是

12、一个个相对较较好的选选择。3.2、关系型型数据库库的实现现Acceess220000 就是是关系数数据库开开发工具具，数据据库能汇汇集各种种信息以以供查询询、存储储和检索索。Acccesss 的的优点在在于它能能使用数数据表示示图或自自定义窗窗体收集集信息。数据表表示图提提供了一一种类似似于 EExceel 的的电子表表格，可可以使数数据库一一目了然然。另外外，Acccesss 允允许创建建自定义义报表用用于打印印或输出出数据库库中的信信息。AAcceess也也提供了了数据存存储库，可可以使用用桌面数数据库文文件把数数据库文文件置于于网络文文件服务务器，与与其他网网络用户户共享数数据库。Acc

13、cesss 是一一种关系系数据库库工具，关关系数据据库是已已开发的的最通用用的数据据库之一一。如上上所述，AAcceess 作为关关系数据据库开发发具备了了许多优优点，可可以在一一个数据据包中同同时拥有有桌面数数据库的的便利和和关系数数据库的的强大功功能。3.3、二者的的结合（DDBA）微软的JJET数数据库引引擎提供供了与数数据库打打交道的的途径，我我们是通通过它以以及Viisuaal BBasiic 来来访问数数据库并并对其进进行各种种操作。Vissuall Baasicc、Acccesss以及及其他微微软的软软件产品品都是通通过共用用JETT数据库库引擎，从从而给用用户提供供了丰富富的数

14、据据类型。DATAA 控件件在数据据库中的的信息与与将信息息显示给给用户看看的Viisuaal BBasiic程序序之间架架起了一一座桥梁梁。我们们可以设设置DAATA控控件的各各个属性性，告诉诉它要调调用那个个数据库库的哪个个部分。缺省情情况下，DDATAA控件根根据数据据库中的的一个或或多个数数据表建建立一个个dynnaseet-ttypee（动态态集合）类类型的记记录集合合。一个个记录集集合是动动态的也也就意味味着，当当原来的的数据表表中的容容改变了了以后，该该记录集集合中的的记录也也会随之之改变。DATTA控件件还提供供了用来来浏览不不同记录录的各种种跳转按按钮。将将DATTA控件件放

15、置在在窗体中中之后，我我们还必必须在该该控件与与要处理理的数据据库之间间建立联联系。第四章 Viisuaal BBasiic 66.0编编程语言言概述Visuual Baasicc应用程程序基本本的构建建块是用用户所创创建的对对象，每每一个对对象都具具有一些些特性和和行为（属属性、事事件和方方法）。开发人人员可以以最有效效利用所所创建的的每一个个对象。使用应应用程序序具有可可通用性性、可扩扩展性和和强有力力的功能能。Visuual Baasicc应用由由一系列列对象组组成，包包括有函函数、菜菜单、结结构和数数据窗口口、用户户对象、用户事事件等等等，对象象中又包包含若干干控件如如命令按按钮、单单

16、行编辑辑器等这这些对象象和控件件都可在在许多应应用中重重复使用用。4.1创创建菜单单栏除此之外外，VBB6.00还有以以下一些些重要功功能。菜菜单是程程序最重重要的特特性之一一，大多多数程序序都依赖赖一个定定义良好好的菜单单使程序序易于使使用和维维护，VVisuual Baasicc也提供供了强大大的创建建菜单功功能是程程序更加加标准。您可以以使用VVisuual Baasicc的Apppliicayytioon Wizzardd也可以以使用VVisuual Baasicc的菜单单编辑器器建立菜菜单或者者修改已已经存在在的菜单单、控件件。其属属性及对对象如下下：Aliggn属性性定义工工具条在

17、在窗休中中的位置置。ToollTippTexxt属性性是字符符串类型型，定义义控件的的提示字字符。Stylle属性性定义按按钮外观观。ImaggeLiist属属性定义义与数据据条对应应的ImmageeLisst控件件名，该该控件定定义工具具条按钮钮显示的的图像。HotIImanngeLListt属性设设置一个个ImaageLListt控件名名，该控控件定义义按钮获获得热点点时显示示的图像像。DisaableedImmageeLisst属性性定义工工具条按按钮无效效时显示示的图像像。4.2创创建工具具栏创建工具具条主要要利用IImaggeLiist和和Tooolbaar控件件。创建建时，先先将I

18、mmageeLisst添加加到窗体体上，然然后往其其中添加加一些图图片，接接着Tooolbbar控控件添加加到窗体体上，再再往Tooolbbar中中插入一一些命令令按纽，为为他们添添加上相相应图片片即可。4.3建建立帮助助信息专业水平平的软件件通常都都带有联联机帮助助功能。无论写写出来的的程序是是要给大大量的用用户使用用，还是是仅仅局局限于公公司内部部有限的的使用者者，我们们都应该该为用户户提供详详细的、易于理理解的联联机帮助助文档。微软的的Hellp Worrkshhop44.0是是一套独独立于VVisuual Baasicc的用来来协助我我们创建建、运行行于322位Wiindoows操操作

19、系统统下的帮帮助文件件的工具具。使用用它可以以为我们们编写的的应用程程序生成成一组帮帮助文件件。4.4生生成版本本信息为了使程程序显得得更具有有专业风风格，首首先可以以在其中中加入通通常的应应用程序序信息。这些信信息包括括公司名名称、版版本号、修订号号以及其其他类似似信息。Vissuall BBasiic允许许你使用用APPP对象来来保存这这些信息息，APPP对象象是一个个预定义义对象，不不需要在在程序中中创建它它。APPP对象象的大多多数属性性被应用用程序用用来提供供常规的的信息，通通过使用用这些AAPP提提供的属属性，可可以在应应用程序序和用户户之间交交流重要要信息，在在项目属属性框中中可

20、以设设置它的的属性。第五章 使用用Acccesss20000实现现关系型型数据库库5.1、数据库库的概念念数据库是是一种存存储数据据并对数数据进行行操作的的工具。数据库库的作用用在于组组织和表表达信息息，简而而言之，数数据库就就是信息息集合。计算机机的数据据库可以以分为两两类：非非关系数数据库（fflatt-fiile）和和关系数数据库（rrelaatioonall）。关关系数据据库中包包含了多多个数据据表的信信息，数数据库含含有各个个不同部部分的术术语，象象记录、域等。5.2、新建一一个数据据库创建任何何一个数数据库的的第一步步是仔细细的规划划数据库库，设计计必须是是灵活的的、有逻逻辑的。创

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

22、统所所实现的的主要功功能为：可以进行行文本操操作；录入一个个数据库库项目；修改一个个数据库库项目；查找一个个数据库库信息；删除一个个数据库库信息；统计一个个数据库库信息；查询一个个数据库库信息；预览一个个数据库库信息；编辑一个个数据库库信息；打印一个个数据库库信息；打印预览览一个数数据库信信息；刷新一个个数据库库信息；取消一个个数据库库信息。数据打印根据实际际数据操操作流程程，本城城西数据据的ERR图为（根根据数据据流程勾勾画，下下图为示示意图）：档案数据数据录入数据修改、查询用户登录录 档档案的录录入档案的的修改和和查询 档案的的预览和和打印本系统所所采用的的数据库库结构：数据表：档案表表、

23、用户户表。根根据系统统的需要要，档案案表采用用字段结结构为：编号标题发文部门门发文号内容发文日期期字段类型型自动编号号字符字符字符备注日期是否索引引是否否否否否登录表结结构为：编 号号用 户 名密 码码第七章 分模模块设计计7.1、档案的的系统维维护：为提高系系统的安安全性，防防止非法法用户进进入本系系统，本本系统设设有用户户登陆界界面，并并设立密密码，合合法用户户可以在在系统维维护里面面的用户户修改里里面自行行设立用用户名和和密码，系系统默认认用户名名为“admmin”，密码码为“12334”。系统统的用户户密码更更改界面面如下：Editt.frrmDim dbb AAs Connnecct

24、ioonDim rss AAs ReccorddsettPrivvatee Suub CCommmandd1_CClicck()On EErroor GGoToo errIf rrs.SStatte = addStaateOOpenn Thhen rs.Cloosers.OOpenn 登登录, dbb, 11, 33rs(用户名名) = TTextt1.TTexttrs(密码) = Teext22.Teextrs.UUpdaaters.ClooseMsgBBox 修改改成功！, vbOOKOnnly + vvbExxclaamattionnUnlooad MeExitt Suuber:MsgB

25、Box 有错错误产生生！, vbbOKOOnlyy + vbEExcllamaatioonEnd SubbPrivvatee Suub CCommmandd2_CClicck() Unlloadd MeeEnd SubbPrivvatee Suub FFormm_Looad()Textt1.TTextt = loggin.useerTextt2.TTextt = loggin.passswoord Seet ddb = Neew CConnnecttionn dbb.CuursoorLoocattionn = adUUseCClieent dbb.Oppen PRROVIIDERR=Miicr

26、oosofft.JJet.OLEEDB.3.551;DDataa Soourcce=ddataabasse.mmdb; Seet rrs = Neew RRecoordssetEnd SubbPrivvatee Suub FFormm_Unnloaad(CCanccel As Inttegeer)If rrs.SStatte = addStaateOOpenn Thhen rs.ClooseSet rs = NNothhinggdb.CClosseSet db = NNothhinggEnd Subb7.2、档案的的版本和和系统信信息Abouut.ffrmOptiion Exppliccit

27、注册册表关键键字安全全选项Consst RREADD_COONTRROL = &H2000000Consst KKEY_QUEERY_VALLUE = &H1Consst KKEY_SETT_VAALUEE = &H22Consst KKEY_CREEATEE_SUUB_KKEY = &H4Consst KKEY_ENUUMERRATEE_SUUB_KKEYSS = &H88Consst KKEY_NOTTIFYY = &H110Consst KKEY_CREEATEE_LIINK = &H200Consst KKEY_ALLL_ACCCESSS = KEEY_QQUERRY_VVALUUE

28、+ KEEY_SSET_VALLUE + _ KEEY_CCREAATE_SUBB_KEEY + KEEY_EENUMMERAATE_SUBB_KEEYS + _ KEEY_NNOTIIFY + KKEY_CREEATEE_LIINK + RREADD_COONTRROL 注册册表关键键字 RROOTT 类型型Consst HHKEYY_LOOCALL_MAACHIINE = &H80000000022Consst EERROOR_SSUCCCESSS = 0Consst RREG_SZ = 11 独立的的空的终终结字符符串Consst RREG_DWOORD = 44 32位位数字Conss

29、t ggREGGKEYYSYSSINFFOLOOC = SSOFTTWARREMMicrrosooftShaaredd Tooolss LoocattionnConsst ggREGGVALLSYSSINFFOLOOC = MMSINNFOConsst ggREGGKEYYSYSSINFFO = SSOFTTWARREMMicrrosooftShaaredd TooolssMSSINFFOConsst ggREGGVALLSYSSINFFO = PPATHHPrivvatee Deeclaare Funnctiion ReggOpeenKeeyExx Liib advvapii32 Allia

30、ss RRegOOpennKeyyExAA (ByVVal hKeey AAs LLongg, BByVaal llpSuubKeey AAs SStriing, ByyVall ullOpttionns AAs LLongg, BByVaal ssamDDesiiredd Ass Loong, ByyReff phhkReesullt AAs LLongg) AAs LLonggPrivvatee Deeclaare Funnctiion ReggQueeryVValuueExx Liib advvapii32 Alliass RRegQQuerryVaalueeExAA (ByVVal h

31、Keey AAs LLongg, BByVaal llpVaalueeNamme AAs SStriing, ByyVall lppResservved As Lonng, ByRRef lpTTypee Ass Loong, ByyVall lppDatta AAs SStriing, ByyReff lppcbDDataa Ass Loong) Ass LoongPrivvatee Deeclaare Funnctiion ReggClooseKKey Libb aadvaapi332 (ByyVall hKKey As Lonng) As LonngPrivvatee Suub ccmd

32、SSysIInfoo_Cllickk() Caall StaartSSysIInfooEnd SubbPrivvatee Suub ccmdOOK_CClicck() Unnloaad MMeEnd SubbPrivvatee Suub FFormm_Looad() Me.Capptioon = 关关于 & Appp.Tiitlee lbllVerrsioon.CCapttionn = 版本本 & AApp.Majjor & . & AApp.Minnor & . & AApp.Revvisiion lbllTittle.Capptioon = Appp.TTitlle Me.Widdth =

33、 558200 Me.Heiightt = 40335End SubbPubllic Subb SttarttSyssInffo() On Errror GoTTo SSysIInfooErrr Dimm rcc Ass Loong Dimm SyysInnfoPPathh Ass Sttrinng 试试图从注注册表中中获得系系统信息息程序的的路径及及名称 If GettKeyyVallue(HKEEY_LLOCAAL_MMACHHINEE, ggREGGKEYYSYSSINFFO, gREEGVAALSYYSINNFO, SyysInnfoPPathh) TThenn 试试图仅从从注册表表中

34、获得得系统信信息程序序的路径径 ElsseIff GeetKeeyVaaluee(HKKEY_LOCCAL_MACCHINNE, gREEGKEEYSYYSINNFOLLOC, gRREGVVALSSYSIINFOOLOCC, SSysIInfooPatth) Theen 已知332位文文件版本本的有效效位置 Iff (DDir(SyssInffoPaath & MSSINFFO322.EXXE) ) TThenn SSysIInfooPatth = SyysInnfoPPathh & MMSINNFO332.EEXE 错误 - 文文件不能能被找到到 Ellse GGoToo SyysInnf

35、oEErrEnd If 错错误 - 注册册表相应应条目不不能被找找到 Elsse GooTo SyssInffoErrr Endd Iff Calll SShelll(SSysIInfooPatth, vbNNormmalFFocuus) Exiit SSubSysIInfooErrr: MsggBoxx 此此时系统统信息不不可用, vvbOKKOnllyEnd SubbPubllic Funnctiion GettKeyyVallue(KeyyRooot AAs LLongg, KKeyNNamee Ass Sttrinng, SubbKeyyReff Ass Sttrinng, ByRRe

36、f KeyyVall Ass Sttrinng) As Boooleaan Dimm i As Lonng 循环环计数器器 Dimm rcc Ass Loong 返回回代码 Dimm hKKey As Lonng 打开开的注册册表关键键字句柄柄 Dimm hDDeptth AAs LLongg Dimm KeeyVaalTyype As Lonng 注册册表关键键字数据据类型 Dimm tmmpVaal AAs SStriing 注册册表关键键字值的的临时存存储器 Dimm KeeyVaalSiize As Lonng 注册册表关键键自变量量的尺寸寸 打打开 HKEEY_LLOCAAL_MMA

37、CHHINEE 下下的 RRegKKey rc = RRegOOpennKeyyEx(KeyyRooot, KeyyNamme, 0, KEYY_ALLL_AACCEESS, hKKey) 打开注注册表关关键字 If (rcc ERRRORR_SUUCCEESS) Thhen GoTTo GGetKKeyEErroor 处理理错误 tmppVall = Strringg$(110244, 00) 分分配变量量空间 KeyyVallSizze = 10024 标记记变量尺尺寸 检检索注册册表关键键字的值值 rc = RRegQQuerryVaalueeEx(hKeey, SubbKeyyReff

38、, 00, _ KeyyVallTyppe, tmppVall, KKeyVValSSizee) 获得得/创建建关键字字值 If (rcc ERRRORR_SUUCCEESS) Thhen GoTTo GGetKKeyEErroor 处理理错误 If (Assc(MMid(tmppVall, KKeyVValSSizee, 11) = 00) TThenn Wiin955 外接接程序空空终结字字符串 tmmpVaal = Leeft(tmppVall, KKeyVValSSizee - 1) Nuull 被找到到,从字字符串中中分离出出来 Elsse WiinNTT 没有有空终结结字符串串 t

39、mmpVaal = Leeft(tmppVall, KKeyVValSSizee) Nuull 没有被被找到, 分离离字符串串 Endd Iff 决决定转换换的关键键字的值值类型 Sellectt Caase KeyyVallTyppe 搜索索数据类类型 Casse RREG_SZ 字符符串注册册关键字字数据类类型 KeeyVaal = tmmpVaal 复制制字符串串的值 Casse RREG_DWOORD 四字字节的注注册表关关键字数数据类型型 Foor ii = Lenn(tmmpVaal) To 1 SStepp -11 将每每位进行行转换 KKeyVVal = KKeyVVal +

40、HHex(Ascc(Miid(ttmpVVal, i, 1) 生成成值字符符。 BBy CCharr。 Neext KeeyVaal = Foormaat$(&hh + KeeyVaal) 转换换四字节节的字符符为字符符串 Endd Seelecct GettKeyyVallue = TTruee 返回回成功 rc = RRegCClosseKeey(hhKeyy) 关闭闭注册表表关键字字 Exiit FFuncctioon 退出出GetKKeyEErroor: 错误误发生后后将其清清除 KeyyVall = 设置置返回值值到空字字符串 GettKeyyVallue = FFalsse 返回回

41、失败 rc = RRegCClosseKeey(hhKeyy) 关闭闭注册表表关键字字End Funnctiion7.3、档案的的录入、编辑、删除、刷新本部分程程序主要要是把车车站的档档案录入入计算机机数据库库档案表表里，并并提供编编辑、删删除等功功能，能能快捷、高效地地把用纸纸张记录录的档案案内容用用数字的的形式存存储在计计算机里里，适应应现代化化的办公公系统的的需要，以以对信息息进行高高效、快快速的查查询、修修改。系系统的录录入界面面如下：frm档档案Dim WitthEvventts aadoPPrimmaryyRS As ReccorddsettDim mbCChanngeddByCC

42、odee Ass BoooleeanDim mvBBookkMarrk AAs VVariianttDim mbEEdittFlaag AAs BBoolleannDim mbAAddNNewFFlagg Ass BoooleeanDim mbDDataaChaangeed AAs BBoolleannPrivvatee Suub FFormm_Looad() Diim ddb AAs CConnnecttionn Seet ddb = Neew CConnnecttionn dbb.CuursoorLoocattionn = adUUseCClieent dbb.Oppen PRROVIID

43、ERR=Miicroosofft.JJet.OLEEDB.3.551;DDataa Soourcce=ddataabasse.mmdb; Seet aadoPPrimmaryyRS = NNew Reccorddsett addoPrrimaaryRRS.OOpenn sseleect 标题,发文部部门,发发文号,发文日日期,录录入人,内容 froom 档档案, dbb, aadOppenSStattic, addLocckOpptimmisttic Diim ooTexxt AAs TTexttBoxx 绑绑定字段段到窗体体文本框框 Foor EEachh oTTextt Inn Mee.t

44、xxtFiieldds Sett oTTextt.DaataSSourrce = aadoPPrimmaryyRS Neext mbbDattaChhangged = FFalsseEnd SubbPrivvatee Suub FFormm_Reesizze() Onn Errrorr Reesumme NNextt lbblSttatuus.WWidtth = Mee.Wiidthh - 15000 cmmdNeext.Lefft = lbblSttatuus.WWidtth + 7000 cmmdLaast.Lefft = cmmdNeext.Lefft + 3440End SubbPri

45、vvatee Suub FFormm_Unnloaad(CCanccel As Inttegeer) Sccreeen.MMoussePoointter = vvbDeefauultEnd SubbPrivvatee Suub aadoPPrimmaryyRS_MovveCoomplletee(ByyVall addReaasonn Ass ADDODBB.EvventtReaasonnEnuum, ByVVal pErrrorr Ass ADDODBB.Errrorr, aadSttatuus AAs AADODDB.EEvenntSttatuusEnnum, ByyVall pRRecoo

46、rdsset As ADOODB.Reccorddsett) 显显示记录录位置 lbblSttatuus.CCapttionn = Reecorrd: & CSStr(adooPriimarryRSS.AbbsolluteePossitiion)End SubbPrivvatee Suub aadoPPrimmaryyRS_WilllChhanggeReecorrd(BByVaal aadReeasoon AAs AADODDB.EEvenntReeasoonEnnum, ByyVall cRRecoordss Ass Loong, addStaatuss Ass ADDODBB.Evvent

47、tStaatussEnuum, ByVVal pReecorrdseet AAs AADODDB.RRecoordsset) TThiss iss whheree yoou pput vallidaatioon ccodee TThiss evventt geets callledd whhen thee foolloowinng aactiionss occcurr Diim bbCanncell Ass Boooleean Seelecct CCasee addReaasonn Caase adRRsnAAddNNew aadSttatuus = addStaatussCanncell C

48、aase adRRsnCClosse Caase adRRsnDDeleete Caase adRRsnFFirsstChhangge Caase adRRsnMMovee Caase adRRsnRRequueryy Caase adRRsnRResyynchh Caase adRRsnUUndooAdddNeww Caase adRRsnUUndooDelletee Caase adRRsnUUndooUpddatee Caase adRRsnUUpdaate Ennd SSeleect Iff bCCanccel Theen aadSttatuus = addStaatussCannce

49、llEnd SubbPrivvatee Suub ccmdAAdd_Cliick() Onn Errrorr GooTo AdddErrr Wiith adooPriimarryRSS If Nott (.BOFF Annd .EOFF) TThenn mmvBoookMMarkk = .Boookmmarkk Endd Iff .AdddNeew lbllStaatuss.Caaptiion = Addd reecorrd mbAAddNNewFFlagg = Truue SettButttonns FFalsse Ennd WWithh Exxit SubbAddEErr: MssgBoo

50、x EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdDDeleete_Cliick() Onn Errrorr GooTo DelleteeErrr Wiith adooPriimarryRSS .Deelette .MooveNNextt If .EOOF TThenn .MMoveeLasst Ennd WWithh Exxit SubbDeleeteEErr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdRRefrreshh_Cllickk() TThiss iss onnly

51、neeededd foor mmultti uuserr appps Onn Errrorr GooTo ReffresshErrr addoPrrimaaryRRS.RRequueryy Exxit SubbRefrreshhErrr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdEEditt_Cllickk() Onn Errrorr GooTo EdiitErrr lbblSttatuus.CCapttionn = Eddit reccordd mbbEdiitFllag = TTruee SeetBuuttoons Fa

52、llse Exxit SubbEdittErrr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdCCanccel_Cliick() Onn Errrorr Reesumme NNextt SeetBuuttoons Truue mbbEdiitFllag = FFalsse mbbAdddNewwFlaag = Faalsee addoPrrimaaryRRS.CCanccelUUpdaate Iff mvvBoookMaark 00 Thhen adooPriimarryRSS.Boookmmarkk = mvBBookkMa

53、rrk Ellse adooPriimarryRSS.MooveFFirsst Ennd IIf mbbDattaChhangged = FFalsseEnd SubbPrivvatee Suub ccmdUUpdaate_Cliick() Onn Errrorr GooTo UpddateeErrr addoPrrimaaryRRS.UUpdaateBBatcch aadAfffecctAlll Iff mbbAdddNewwFlaag TThenn adooPriimarryRSS.MooveLLastt movve tto tthe neww reecorrd Ennd IIf mbbE

54、diitFllag = FFalsse mbbAdddNewwFlaag = Faalsee SeetBuuttoons Truue mbbDattaChhangged = FFalsse Exxit SubbUpdaateEErr: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdCClosse_CClicck() Unnloaad MMeEnd SubbPrivvatee Suub ccmdFFirsst_CClicck() Onn Errrorr GooTo GoFFirsstErrrorr addoPrrimaaryRRS.

55、MMoveeFirrst mbbDattaChhangged = FFalsse Exxit SubbGoFiirsttErrror: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdLLastt_Cllickk() Onn Errrorr GooTo GoLLasttErrror addoPrrimaaryRRS.MMoveeLasst mbbDattaChhangged = FFalsse Exxit SubbGoLaastEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvate

56、e Suub ccmdNNextt_Cllickk() Onn Errrorr GooTo GoNNexttErrror Iff Noot aadoPPrimmaryyRS.EOFF Thhen adooPriimarryRSS.MooveNNextt Iff addoPrrimaaryRRS.EEOF Andd addoPrrimaaryRRS.RRecoordCCounnt 0 Theen Beeep mmoveed ooff thee ennd sso ggo bbackk adooPriimarryRSS.MooveLLastt Ennd IIf sshoww thhe ccurrre

57、ntt reecorrd mbbDattaChhangged = FFalsse Exxit SubbGoNeextEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub ccmdPPrevviouus_CClicck() Onn Errrorr GooTo GoPPrevvErrror Iff Noot aadoPPrimmaryyRS.BOFF Thhen adooPriimarryRSS.MoovePPrevviouus Iff addoPrrimaaryRRS.BBOF Andd addoPrrimaaryRRS.RRec

58、oordCCounnt 0 Theen Beeep moovedd offf tthe endd soo goo baack adooPriimarryRSS.MooveFFirsst Ennd IIf sshoww thhe ccurrrentt reecorrd mbbDattaChhangged = FFalsse Exxit SubbGoPrrevEErroor: MssgBoox EErr.DesscriiptiionEnd SubbPrivvatee Suub SSetBButttonss(bVVal As Boooleaan) cmmdAddd.VVisiiblee = bVaa

59、l cmmdEddit.Vissiblle = bVVal cmmdUppdatte.VVisiiblee = Nott bVVal cmmdCaanceel.VVisiiblee = Nott bVVal cmmdDeelette.VVisiiblee = bVaal cmmdCllosee.Viisibble = bbVall cmmdReefreesh.Vissiblle = bVVal cmmdNeext.Enaableed = bVVal cmmdFiirstt.Ennablled = bbVall cmmdLaast.Enaableed = bVVal cmmdPrreviious

60、s.Ennablled = bbVallEnd Subb7.4档档案的登登陆和密密码设计计本部分程程序主要要是提高高系统的的安全性性，以防防止非法法用户进进入本系系统，避避免不必必要的损损失。Logiin.ffrm是否合合法用户户Publlic passswoord As StrringgPubllic useer AAs SStriingDim db As ConnnecctioonDim rs As ReccorddsettPrivvatee Suub CCommmandd1_CClicck()If TTrimm(Teext11.Teext) = Theen MsggBoxx 请请输入完完