文卷档案管理系统样本

目录TOC\o"1-3"\h\z内容摘要 2Abstract 3引言 4第一章概述 51.1管理信息系统简介 51·2：面向对象程序设计 71·3、系统软件开发环境简介 9第二章应用系统分析 102·1、数据流图 102·2、系统功能构造图 122·3、系统分析阐明书 132·4、E－R图 15第三章系统设计 173·1、模块解决功能设计 173·2、数据库表构造 19第四章应用系统实现 224.1创立卷名窗体实现 224.2：档案柜资料窗体实现 244.3文献编辑窗体实现 274.4组卷窗体实现 294.5系统菜单实现 33总结 35致谢 36重要参照文献 36附录（重要窗体源代码） 37内容摘要本文重要阐述了VISAULBASIC6.0基本功能及设计办法。并简介了开发本文卷档案管理系统4个环节：系统分析、设计、实现、维护。在系统分析中先后用数据流图、数据字典、系统功能构造图分析了系统所需各种数据。在系统设计中，详细呈现了系统各个功能模块以及菜单设计等。给出了在系统实现中，实现表单中相应功能控件事件及代码以及菜单实现办法。文章最后则给出了本系统重要功能源代码。本系统可以进行数据输入，数据查询、数据存储以及输入报表等功能。核心词：面向对象文档管理系统VBAbstractThisinstructionhastoldthebasicfunctionofVISAULBASIC6.0anddesignmethodmainly.ThisdesigninstructionhastoldthebasicfunctionofVISAULBASIC6.0anddesignmethodmainly.Andthentakethissystemasanexample，recommenddevelopingthestepofthissystemonebyone：Networkanalysis，designssystematically，realizessystematically，safeguardssystematicallying.Successivelywithdataflowpicture，datadictionary，functionstructurechartvariouskindsofdatumanalyticlsystemtakeofsysteminnetworkanalysis.Inthedesignofthesystem，detailedeachfunctionmodulewhichhasrepresentedthesystemandthedesignofthemenu,etc..Intherealizationofthesystem，provideandrealizetheincidentsandcodesofthecorrespondingfunctioncontrollingpartamongforms.Providethemainfunctionsourcecodeofthissystemattheendofthearticle.Thissystemisfordataentry，dataquery，datastorageandinputstatementsandotherfunctions.Keyword：archivesadministrativesystemofthearchivesVISAULBASIC6.0引言计算机技术飞速发展，为人类进步注入了新活力。新技术为人们带来是更快捷、更可靠服务。越来越多家庭、公司、机关、学校运用计算机来解决寻常事务，管理信息系统（MIS）就是运用计算机为公司、学校，事业机关等经营者、决策者收集、解决信息一项重要工具，管理信息系统发展源于管理当代化推动和计算机技术发展。籍于此管理信息系统将随着人类文明进步而不断完善与发展。知识经济时代今天，对文书档案管理工作人员提出了更新更高规定。文档管理工作人员，必要完毕由老式管理模式向当代管理模式转变，由老式管理理念向当代管理理念转变，同步在管理实践中应用，使文书档案管理工作赶上时代步伐，适应文书档案管理当代化和办公自动化时代需要，为社会提供更好更有效服务，使文书档案管理工作发挥出应有经济效益及社会效益来。《文档管理系统》针对本人对文档资料管理调研，结合本单位长期以来管理文档资料经验而设计计算机管理系统。提出了一套比较适当施行方案，并努力将原本复杂管理业务、归类、存档等简化为比较简朴事务。她基本上秉承了老式文档资料管理理念，同步也兼顾当今对当代管理信息需要，着眼于实用、高效原则。由于本人水平有限，在本系统中难免存在错误和局限性。望各位教师予以批评与指正第一章概述1.1管理信息系统简介管理信息系统MIS(manageinformationsystion)是由人和计算机等构成能进行管理信息各种操作(涉及收集、储存、加工、维护和使用)系统。它由四个要素构成。即当代化经济管理理论、系统工程、数学办法和计算机手段。其目是通过自动化事务解决办法来监视和控制公司、学校行为、通过对历史数据科学记录提供可靠预测数据。并通过某些优化办法提供决策根据，管理信息系统是生产力发展阶段标志是当代管理综合体现。一种MIS系统开发应分为如下环节进行。1）系统任务提出。系统开发工作是从接受任务开始，而系统任务应由系统顾客提出，以书面形式予以表达。2）初步系统调查。初步系统调查着重理解存在重要问题和顾客提出目规定，并制定新系统总体规划。3）拟定系统目的。通过初步系统调查，理解了顾客基本状况和顾客对系统设想及规定后，系统开发人员就可以初步提出档案系统系统目的。4）系统可行性研究。系统可行性研究涉及也许性和必要性。有技术上，经济上，人力资源上，以及组织管理上。通过系统可行性研究，最后应写出一份系统可行性分析报告。分析报告是系统开发人员第一阶段工作小结。5）详细系统调查。通过详细系统调查。可以得到人工管理业务解决办法，并详细地掌握住处流程，总结出既有业务过程规律，存在问题。从而提出改进办法。6）现行系统描述与分析。着重用来分析现行系统页面设计后，有关性版块信息交互以便性。特别是要分析现行档案系统存在重要问题和管理上薄弱环节，以及产生这些问题因素和解决办法。7）顾客需求及功能分析。顾客需求因不同顾客而有所区别，但重要可分为系统范畴，信息解决和技术性三个方面。8)新系统逻辑模型。通过对现行系统进行详细调查，分析及顾客需求分析后，就可以拟定新系统逻辑模型。新系统模型涉及新系统功能规定、目的、各级页面之间链接、数据字典。9)编码对象分析及编码体系构造拟定。在系统分析阶段，对现行系统及档案系统将要采用编码对象及办法应当认真分析，以拟定先进科学高效系统编码体系。10)系统软件，硬件配备建议。分析人员应对档案系统所需计算机系统配备提出建议。11)系统物理编程。依照不同系统规定以及顾客软、硬件技术状况，在适当平台上，选用相宜档案语言和工具进行实际编程。12)软件调查。对设计原代码进行调试，以修改其中错误，从而拟定系统可靠性。13)功能测试。对照系统分析中提出系统功能规定，应进行系统功能测试，以拟定系统可预期功能。14)系统性能评价以及完善文档。系统性能评价应涉及最基本软硬件，支持系统占用空间等。系统交付时，应同步交付完善文档。1·2：面向对象程序设计面向对象办法学是规定按人们普通思维方式建立问题领域模型，设计出尽量自然体现求解办法软件。所谓建立模型就是建立问题领域中事物间互有关系。而体现求解问题办法就是人们思维办法描述。在面向对象设计办法中对象(object)和传递信息(messagepassing)分别体现事物和事物间关系。类(class)和继承性(inheritamce)是描述人们思维方式描述办法。办法(method)是在可进行操作，这种对象、类、消息、办法程序设计范式核心在于对象封装和继承性。通过封装(emcapsulation)能将对象定义和实现分开。通过继承性，体现了类与类之间关系，以及由此带来基本特性。下面将从面向对象办法学方面对关于概念作简要简介。1)对象咱们把面向现实世界中实体就称为问题空间对象从动态观点看，对象操作就是对象行为，从存储角度看，对象是计算机内存中一块私有存储区，在这块存储区中有数据、有办法。在面向对象程序设计中，对象是该系统基本运营实体，对于每个对象而言，均有与该对象相应办法，而与每个对象有关办法，就是定义了该对象操作。2)消息和办法在对象之间，消息是她们之间唯一联系。在面向对象程序环境中设计程序，它执行是依托对象向消息传递来完毕。把因此对象分为各种对象类，每个对象类都定义了一组办法,所谓办法就是容许在对象类上进行各种操作。3)类在面向对象程序设计中，对象是程序设计最基本单位，相似对象可以并到一类中去，程序员只需定义一种类，就可依照这个类得到若干个实例，其中每个实例就是一种对象。4)继承性继承性是自动地共享类、子类、对象中办法和数据一种机制，继承性个减少程序设计中编写代码工作量，它不但支持系统可重用性，并且还增进了系统可扩充性。5)封装性所谓封装是一种信息隐蔽技术，顾客只能看到对象封装界面上信息，而对象内部对顾客透明，封装目是把对象使用着和对象设计着分开，使用着只需设计访问对象消息。6)多态性当同样消息可发送到父类对象和它子类对象时，这就被称为多太性。由于多太性具备可表达对象各种类能力。因而，它既与动态类型关于，又与静态类型关于。7)动态聚束一种程序通过编译，连接生成可执行文献代码，其过程就是将执行代码聚束在一起，若这一过程发生在程序设计时，就称为动态聚束。面向对象语言常使用这一类聚束方式，它具备程序简朴性和可扩充性等长处。本系统在编制过程中，多次运用面向对象技术特点。在背面章节中将分别予以阐明。1·3、系统软件开发环境简介本系统是在Pentyum166mmx以上机型计算机上进行开发并获得通过，同步以便系统开发，减少开发过程难度，咱们是基于如下软件环境。·以Windows98为操作系统·以VisualBasic6.0为开发工具Windows98是当前主流图形化操作系统，而VisualBasic6.0是一种先进面向对象，支持各种数据库应用开发工具。我在系统开发过程中深深地感受到VisualBasic6.0强大威力。下面我结合自己体会对VisualBasic6.0作一简要简介。VisualBasic6.0是知名Microsoft公司推出完全可视化，支持各种数据库开发工具。使用面向对象开发技术，可以开发出强大专门针对顾客应用程序。具备强大API函数库，支持ActiveX和OCX技术。可以管理大量复杂数据信息，同步具备较好安全性。在背面篇幅里，我将详细阐明我是如何运用VisualBasic6.0进行《文档管理系统》系统开发。第二章应用系统分析需求分析是软件生命周期一种重要阶段，它主线任务是拟定为了满足顾客需要必要做什么。详细地说，应当拟定系统必要具备功能和性能，系统规定运营环境，并且预测系统发展前景，必要仔细分析系统中数据，既要分析系统中数据流。又要分析长期使用数据存储，通过度析应当得出用数据流图、E－R图，为系统设计奠定基本。在这一章里，我将给出系统数据流图，功能构造图，系统分析阐明书，E－R图，为系统设计奠定基本。2·1、数据流图数据流图描绘系统逻辑模型图，其中没有任何详细物理元素，只是描绘信息在系统中流动和解决状况。由于数据流图是逻辑系统图形表达，虽然不是专业计算机技术人员也容易理解，因此是极好通信工具。此外，设计数据流图只需考虑系统必要完毕基本逻辑功能，完全不需要考虑如何详细地实现这些功能，因此它也是软件设计较好出发点。《文档管理系统》重要是为了对各种文档资料信息，卷宗信息，档案柜信息等进行计算机管理。因此重要数据源应是文档资料，卷宗，档案柜各种信息。它们在系统中流动和解决详细见下面数据流程图。1档案柜基本信息流程图（图2－1）添加新记录修改记录F1DAG档案输入档案检查是柜号柜信息否注册删除记录检索记录窗体EXCEL表F1DAG流程图分析：从流程图上可以看出：档案柜基本信息流动一方面是以档案柜号特性为流动方向根据。非0档案柜号可以继续流动，并检查数据库中与否已经注册，已经注册信息可以修改、查询、并将查询成果报表。未注册信息可以录入到数据库中。这里可以分析得出：要实现档案柜基本信息流动，需要设计一种档案柜基本信息数据库表。并对该表实现信息录入、修改、查询、记录、报表。2卷宗信息流程图：（图2－2）添加新记录修改记录F2SORT卷宗输入卷检查是号宗号名否注册删除记录检索记录窗体EXCEL表F2SORT流程图分析：从流程图上可以看出：卷宗信息流动同样是以卷宗号特性为流动方向根据。这里同样可以分析得出：要实现卷宗信息流动，需要设计一种卷宗信息数据库表。并对该表实现信息录入、修改、查询、记录、报表。3文档资料信息流程图：（图2－3）添加新记录修改记录F3FILE文献号输入文献检查是资料信息否注册删除记录检索记录窗体EXCEL表F3FILE流程图分析：从数据流图上容易看出该系统应具备对文档资料信息录入到数据库中，可以修改，删除数据库中有关信息资料。可以对数据库信息按某些字段或字段组合进行检索。同步应具备对数据库信息作出有关记录等功能。2·2、系统功能构造图通过前面数据流程图已经对系统重要功能有了一种初步理解，下面将系统功能再作某些进一步分析，最后得出系统功能构造图《文档管理系统》是为了实现联通泰安分公司文档资料计算机管理。因而，系统应当有一种全局管理功能，以以便实现不同功能选取。也就是应具备全局管理功能。这里用总控模块实现。由于要解决信息涉及档案柜，卷宗，文档资料不同解决，总控模块管理有三种不同信息解决。即档案柜、卷宗解决、文档资料解决。由于每种信息解决涉及到对信息多方面不同子功能，因此又涉及到对众多子功能管理。在此用档案柜信息模块、卷宗模块、文档资料模块实现。在档案柜信息模块下包括对档案柜基本信息编辑、检索、报表等功能。对检索应具备从多方面对不同字段进行检索。卷宗信息模块包括卷宗信息创立、编辑、检索、记录、报表等功能。对卷宗信息功能解决与否恰当是本系统与否成功一种标志。因而，对卷宗信息功能应细化。特别是卷宗检索、信息记录要具备从不同角度可以对数据库中记录进行特定条件检索和记录。文档资料信息模块包括文档资料编辑、修改、检索、报表等功能。同以上检索同样，应能从多方面、不同字段进行。在此基本上，总结得到如下系统功能构造图：编辑档案柜基本信息档案柜模块检索档案柜基本信息档案柜基本信息导出到EXCEL创立卷宗信息编辑卷宗信息检索卷宗信息总控模块卷宗信息模块相似卷宗号信息记录不同卷宗号信息记录卷宗信息导出到EXCEL编辑文档信息子模块文档信息模块检索文档信息子模块文档信息导出到EXCEL（图2－4）系统功能构造图2·3、系统分析阐明书项目级系统分析重点在业务需求层次上，重要任务是拟定顾客对系统应用规定，这重要从两个方面获得。一是和顾客一起充分理解现行系统是如何运作，二是理解顾客现行系统改进及对新系统规定，并在此基本上提出解决问题基本模型，另一种任务是把和顾客共同理解新系统用恰当工详细现出来，系统分析最后任务是提出达到新系统目的新系统方案，并在此提高重要文档——系统阐明书。如下是对系统各模块功能分析1：档案柜信息模块功能档案柜信息模块，又涉及档案柜信息编辑子模块、检索档案柜信息子模块、档案柜信息导出到EXCEL报表子模块。这些子模块功能组合后，可对档案柜从创立、到平时信息查询、以及所需信息报表等一系列繁杂工作通过计算机得到轻松管理。其中档案柜信息编辑子模块可以完毕档案柜信息创立、修改、删除等操作。从而达到精确对档案柜信息存档目。检索档案柜信息子模块可以通过档案柜号或档案柜名来进行查询。检索成果以表格形式体现。信息报表子模块可以完毕特定条件下信息报表，报表信息受检索条件限制，和检索成果一致。通过将检索成果导出到EXCEL实现报表功能。2：卷宗模块功能卷宗模块涉及卷宗编辑子模块、检索卷宗子模块、卷宗信息记录子模块、卷宗信息导出到EXCEL实现报表子模块。这些子模块功能组合后，各以便地对卷宗进行系列管理。其中卷宗编辑子模块可以对卷宗进行创立、修改、删除等操作。检索卷宗子模块单一检索和多条检索条件组合这样两种方式来进行查询。检索条件涉及卷宗号、卷宗名、创立时间等。检索成果以表格形式体现。卷宗信息记录子模块可以完毕按卷宗号或入卷时间等从不同方面对档案资料进行文档资料数量记录。记录成果以表格形式体现。卷宗信息报表子模块可以对符合特定条件下信息报表，报表信息受检索条件限制，和检索成果一致。3：文档资料模块文档资料模块涉及文档资料信息编辑子模块、检索文档资料子模块、文档资料报表子模块。这些子模块功能组合后，各以便地对学生评语进行系列管理。文档资料编辑子模块可以对文档资料信息进行录入、修改、删除等操作。以便地将文档资料存档目。检索文档资料子模块可以通过文献号或文献名来进行查询。或着通过文献号或文献名与状态、入卷时间组合形式来进行查询。检索成果统样以表格形式体现。信息报表子模块可以完毕特定条件下信息报表，报表信息受检索条件限制，和检索成果一致。报表同样是通过导出到EXCEL实现。以上是对本系统各模块功能总体分析。2·4、E－R图通过以上数据流图可以懂得：系统应具备档案柜信息表、卷宗信息表、文档资料信息表。下面运用E-R图进一步得出系统对哪些数据库表必要。以及每个表应具备字段。软件系统本质上是信息解决系统，因而在软件系统整个开发过程中都必要考虑两个方面问题—数据与及数据解决。在需求分析阶段既要分析顾客数据规定，又要分析顾客解决规定。为了把顾客数据规定清晰地表达出来，普通建立一种概念性数据模型（也称为信息模型）。它是一种面向问题数据模型，是按照顾客观点来对数据和信息建模，它描述了从顾客角度看到数据，它反映了顾客现实环境，且与在软件系统中实现办法无关。最惯用表达概念性数据模型办法是实体一联系办法，这种办法用E－R图描绘现实世界中实体，而不涉及这些实体在系统中实现办法，针对《文档管理系统》面向顾客与及为了实现她们在使用系统过程中想达到目，下面给出分析得出该系统重要实体E－R图。文献号文献名卷宗号卷宗名档案柜号文档资料入卷卷宗入柜档案柜（图2－5）E－R图通过该E－R图不难可以得出：要实现系统预定功能，必要具备档案柜信息表（DAG）、文档资料信息表(FILE)、卷宗信息表(SORT)。档案柜信息表（DAG）字段有：档案柜号、备注、建柜人、建柜日期。文档资料信息表(FILE)字段有：文献号、文献名、作者、入库日期、卷号、卷名、入卷日期、状态等。卷宗信息表(SORT)字段：卷宗号、卷宗名、备注、创立日期等。第三章系统设计系统设计是信息系统开发工作核心，其基本任务是把原系统分析阶段得出逻辑模型变换成系统物理模型。即按照系统需求分析阶段拟定目的和逻辑模型，详细设计出效率高，适应性强，可靠性好且经济实用系统实行方案。通过需求分析阶段工作，系统必要“做什么”已经清晰了，当前是决定“如何做”时候了。设计基本目就是回答“系统应当如何实现？”这个问题，通过这个阶段工作将划分出构成系统物理元素—程序文献，数据库，人工过程和文档等等。系统设计应从数据流程图出发。设想完毕系统功能若干种合理物理方案。并和顾客共同比较选定一种最佳方案。然后进行软件构造设计。在进行软件设计时应当遵循模块独立原理，拟定软件由哪些模块构成以及这些模块之间动态调用关系。同步可以设计出系统层次和构造图。基于以上理论，结合需求分析阶段数据流图和ER图。设计出如下模块和5个数据库表构造设计。3·1、模块解决功能设计在上一章系统分析阐明书中，已经从顾客角度初步地划分了本系统各功能模块，并且从顾客角度对重要功能模块设立作了分析。下面我将对每个模块总体设计作简要阐明。1．档案柜信息模块1）编辑档案柜信息模块该模块可以实现档案柜创立，档案柜信息涉及档案柜号、档案柜名、创立时间、创立人、备注。该模块还实现对档案柜信息记录修改、删除等操作。2）检索档案柜信息模块该模块是档案柜信息模块重要构成某些。它可以用单一条件或组合条件两种方式对满足条件档案柜记录予以显示，条件匹配方式涉及等于、不等于、不不大于、不大于等等，条件组合方式有与、或等，力图从数据任何一种角度反映整个数据表信息。该模块将用SQL语言实现。3）档案柜信息报表模块该模块可以实当前数据库中满足指定条件记录输出报表。该模块输出特定条件记录也将用SQL语言实现。由于VisualBasic6.0报表功能局限性，因此这里采用将检索成果处处到EXCEL，最后通过EXCEL实现最后报表。2．卷宗信息模块1）卷宗信息编辑模块该模块一方面实现卷宗创立。创立时顾客选取卷宗类比名和卷宗号。此外还涉及卷宗创立时间，创立人，备注等。创立后来还可以实现对卷宗涉及卷宗号、卷宗名等记录录入、修改、删除等操作。2）卷宗信息检索模块该模块是卷宗信息模块重要构成某些。它可以用单一条件或组合条件两种方式对满足条件卷宗记录以及卷宗里面文档资料信息予以显示，检索字段涉及卷宗号、卷宗名、入卷时间、文献号、文献名等。条件匹配方式涉及等于、不等于、不不大于、不大于等等，条件组合方式有与、或等，力图从数据任何一种角度反映整个数据表信息。该模块将用SQL语言实现。3）卷宗信息分段记录模块该模块重要完毕对满足指定条件卷宗库表和文档资料库表中记录按照相似卷宗号进行文档资料数量记录。记录成果显示在表单中网格表中。3．文档资料模块该模块实现文档资料信息管理，又可分为文档资料编辑子模块、检索文档资料子模块、文档资料报表子模块。文档资料编辑子模块重要完毕文档资料录入、修改、删除等。检索评语子模块重要完毕对文档资料从文献号、文献名等字段来设定检索条件。文档资料报表子模块重要完毕设定条件记录输出报表。4．系统顾客登录模块该模块实现系统对顾客身份辨认，只有输入对的顾客名和密码，系统才会进入系统运营界面，非法顾客登录给出警告，密码填写错误给出提示。非法顾客不能进入系统。密码三次输入不对的，系统自动退出。3·2、数据库表构造依照分析阶段得出实体一联系图（E－R图）结论，结合本系统对关于数据存储需要，更加以便实现该动态档案系统所有功能，现将本系统设计成3个数据库表，每个表字段名、类型、宽度设计如下：档案柜基本信息表：该表用来存储档案柜基本信息。字段名类型宽度档案柜号字符型8档案柜名字符型8创立时间日期型8创立人字符型8修改时间日期型8修改人字符型8备注备注型无设计阐明：为以便编程以及人们工作习惯，这里将学号设计成字符型。并依照实际需要设计了相应宽度。卷宗信息表：该表用来存储卷宗创立时期信息。字段名类型宽度卷宗号文本型8卷宗名文本型8创立人文本型8创立时间日期型8修改人文本型8修改时间日期型8备注备注型无文档资料信息表：用来存储学生在校期间评语信息。字段名类型宽度文献号字符型8文献名字符型8作者字符型8入库时间日期型8内容摘要备注型无卷号字符型8卷名字符型8入卷时间日期型8状态字符型2档案柜号文本型8组卷人文本型8登录表：用于存储系统顾客登录姓名、密码。字段名类型宽度顾客名字符型10密码字符型10以上是本系统库表构造设计简要阐明。第四章应用系统实现按构造化程序设计思想，在完毕了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统物理模型转换成实际运营系统全过程。其基本任务是：前期准备系统平台安装与调试程序编制与调试信息系统调试数据库与文献建立系统转换试运营、验收与维护4.1创立卷名窗体实现1）运营时窗体：2）控件和事件a)“节点刷新”按钮控件：click事件是将创立新节点后数据库信息刷新到窗体中。控制主节点刷新语句是：IfLeft(adoPrimaryRS.Fields("卷号")，1)=0ThenSetmynod=TreeView1.Nodes.Add("sort"，tvwChild，"sort"&Str$(i)，adoPrimaryRS.Fields("卷名")&"("&adoPrimaryRS.Fields("卷号")&")")b)“创立节点”按钮控件：click事件是将文本框信息加入到卷名库表中，这样达到创立新节点目，这里创立新节点填写卷号很重要，它直接决定了子节点从属关系。读取文本框中信息到数据库表中重要实现语句是：adoPrimaryRS.AddNewadoPrimaryRS.Fields("卷号")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("备注")=Text3.TextadoPrimaryRS.Fields("创卷人员")="管理员"adoPrimaryRS.Fields("创卷日期")=DateadoPrimaryRS.Updatec）“编辑节点”按钮控件：click事件是将原先建立节点名，节点号，节点从属进行再编辑。从属关系是通过修改节点号（即卷号）来达到目。实现原理是修改数据库中相应记录值。删除前提示顾客与否确认删除。实现语句是：adoPrimaryRS.Fields("卷号")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("备注")=Text3.TextadoPrimaryRS.Updated）“删除节点”按钮控件：click事件是已经建立节点（卷名）删除。实现原理是删除数据库中相应记录值。它实现语句是：Delete=MsgBox("的确要删除该节点吗"，vbOKCancel，"删除节点")IfDelete=vbOKThenadoPrimaryRS.Deleteh）“退出”按钮控件：click事件是释放当前窗体，返回主控系统。实现语句是：UnloadMe4.2：档案柜资料窗体实现1）运营时窗体：2）控件和事件a）“网格”容器控件：显示档案柜中数据信息。数据源设定为档案柜表查询记录集。在窗体装载事件load中用语句控制。语句是：adoPrimaryRS.Open"select档案柜号,建柜人员,建柜日期,备注fromdagOrderby档案柜号"，db，adOpenStatic，adLockOptimisticText1.Text=adoPrimaryRS.Fields("档案柜号")Text2.Text=adoPrimaryRS.Fields("备注")SetDataGrid1.DataSource=adoPrimaryRSb）“最首”按钮控件：click事件是将当前窗体中网格控件中信息和文本框控件中信息指向数据库表查询记录集中第一条记录。运用SQL语句实当前数据库中查询符合条件因此记录，并在表单中网格容器中显示。如果无相应记录，系统将给出提示。实现核心语句如下：adoPrimaryRS.MoveFirstText1.Text=adoPrimaryRS.Fields("档案柜号")Text2.Text=adoPrimaryRS.Fields("备注")c）“下一条”按钮控件：click事件是将网格中，文本框中信息同步指向当前记录下一条记录。如果越界就给出已经是最后一条记录提示，并将记录定位在最后一条记录。实现语句：adoPrimaryRS.MoveNextIfadoPrimaryRS.EOFThenMsgBox("已经是第后一条记录了！")adoPrimaryRS.MoveLastElseText1.Text=adoPrimaryRS.Fields("档案柜号")Text2.Text=adoPrimaryRS.Fields("备注")d）“上一条”按钮控件：click事件是将网格中，文本框中信息同步指向当前记录上一条记录。如果越界就给出已经是第一条记录提示，并将记录定位在第一条记录。实现语句：adoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已经是第一条记录了！")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("档案柜号")Text2.Text=adoPrimaryRS.Fields("备注")EndIfd)“退出”按钮控件：click事件、实现语句和前面同样。e)“最末”按钮控件：click事件是将当前窗体中网格控件中信息和文本框控件中信息指向数据库表查询记录集中第后一条记录。运用SQL语句实当前数据库中查询符合条件因此记录，并在表单中网格容器中显示。如果无相应记录，系统将给出提示。实现核心语句如下：adoPrimaryRS.MoveLastText1.Text=adoPrimaryRS.Fields("档案柜号")Text2.Text=adoPrimaryRS.Fields("备注")f)“添加”按钮控件：click事件是创立新档案柜，实现原理是对数据库查询记录集添加一条新记录，然后修给这条空记录值，达到对数据库表中档案柜记录添加目。实现语句如下：IfCommand5.Caption="添加"ThenCommand5.SetFocusCommand5.Caption="保存"Text1.Enabled=TrueText2.Enabled=TrueText1.SetFocusText1.Text=""Text2.Text=""adoPrimaryRS.AddNewElseadoPrimaryRS.Fields("档案柜号")=Text1.TextadoPrimaryRS.Fields("备注")=Text2.TextadoPrimaryRS.Fields("建柜人员")="管理员"adoPrimaryRS.Fields("建柜日期")=DateadoPrimaryRS.UpdateCommand5.Caption="添加"Text1.Enabled=FalseText2.Enabled=FalseEndIfg)“编辑”按钮控件：click事件是将记录集中当前记录在文本框中进行修改，然后更改记录集中相应记录。来达到修改数据库中记录目。实现重要语句是：adoPrimaryRS.Fields("档案柜号")=Text1.TextadoPrimaryRS.Fields("备注")=Text2.TextadoPrimaryRS.Update“查找”按钮控件：click事件是使框架4浮现，而框架1隐藏，框架4中“拟定”按钮控件click事件是查找档案柜数据库中满足文本框1和文本3中查询条件。查询成果显示在网格容器控件中。Frame4.Visible=TrueFrame1.Visible=FalseCommand9.Enabled=Falsea=Combo1.Textb=Text3.TextadoPrimaryRS.Open"select档案柜号,建柜人员,建柜日期,备注fromdagwhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRS查询成果可以通过“导出”按钮导出到EXCEL表中。以实现数据打印报表。导出控制语句是：Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextI运用双重循环实现导出。4.3文献编辑窗体实现1）运营时窗体：2）控件和事件控件涉及最首，上一种，下一种，最末，添加，编辑，删除，查询，导出，退出等按钮和用于输入信息文本框。，其中导出按钮是隐藏在框架4中，点击查询即可显示。这些按钮控件事件和前面档案柜资料窗体相似。下面对编辑，添加这两个按钮事件和实现语句分析如下：a）“编辑”按钮控件：click事件是将按钮名改成“保存”，增长了系统交互性。同步使文本框变得可编辑。“保存”按钮控件click事件是将按钮名改成“编辑”，同步用文本框记录修改数据库中记录。它实现语句是：IfCommand6.Caption="编辑"ThenCommand6.Caption="更新"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueElseadoPrimaryRS.Fields("文献号")=Text1.TextadoPrimaryRS.Fields("文献名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("内容摘要")=Text4.TextadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIf2）“添加”按钮控件：click事件是将按钮名改成“保存”，增长了系统交互性。同步使文本框变得可编辑。“保存”按钮控件click事件是将按钮名改成“添加”，此时使文本框变得不可编辑，同步用文本框记录添加到数据库末尾。添加完毕后，网格容器控件中数据自动更新。它实现语句是：IfCommand5.Caption="添加"ThenCommand5.SetFocusCommand5.Caption="保存"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""adoPrimaryRS.AddNewElseadoPrimaryRS.Fields("文献号")=Text1.TextadoPrimaryRS.Fields("文献名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("内容摘要")=Text4.TextadoPrimaryRS.Fields("入库日期")=DateadoPrimaryRS.Fields("状态")="否"adoPrimaryRS.UpdateCommand5.Caption="添加"Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIf4.4组卷窗体实现1)运营时窗体：2）控件和事件a)treeview控件：nodeclick事件是将treeview控件选中节点值传给文本框，得到卷号和卷名，将此作为网格容器控件中数据源查询条件。并将查询记录集作为网格容器控件中数据源。实现语句如下：DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetText4.Text=Left$(Right$(Node.Text，3)，2)Text1.Text=Text4.TextText2.Text=Left$(Node.Text，Len(Node.Text)-4)IfText4.Text<>"00"ThenSetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select卷号,卷名,文献号,文献名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态fromfilewhere卷号like'%"&Text4.Text&"%'"，db，adOpenStatic，adLockOptimisticElseText1.Text="00"Text2.Text=""EndIfText6.Enabled=TrueText6.SetFocusCommand4.Enabled=TrueSetDataGrid1.DataSource=adoPrimaryRSb）“查询”按钮控件：click事件是依照当前窗体中组合框控件和文本框控件内容，作为查询条件。这个查询是本系统最重要一种功能。它实现核心功能语句与阐明如下：DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordseta=Combo1.Textb=Text7.TextadoPrimaryRS.Open"select卷号,卷名,文献号,文献名,作者,入库日期,内容摘要,档案柜号,入卷日期,组卷人,状态fromfilewhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRSc)导出按钮控件click事件是将当前网格容器控件中查询成果导出到EXCEL表以实现报表打印。导出重要语句如下：Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextiSetxlapp=NothingSetxlbook=Nothing运用双重循环控制导出位置。导出界面如下：阐明：上面是一种对卷号为03卷宗实现查询成果导出到EXCEL成果。为了实现组卷，还需要用到文档资料和档案柜资料2个窗体，它们分别是在添加文档到卷宗来时候，有2个文本号选取和档案柜号选取按钮激发事件成果。这二个窗体运营界面如下：阐明：选取某个档案柜号，然后点击拟定，几种触发它click事件，将当前档案号添加到组卷窗体档案号中，click事件语句是：Form5.Text5.Text=DataGrid1.Text文献资料窗体运营界面：控件有：拟定和关闭按钮二个控件。该窗体装载是load事件自动实现对文献数据库中状态是“否”文献搜索到记录集中，并作为网格容器控件数据源。网格控件click事件是将选中记录添加到组卷窗体中相应文本框中。作为组卷数据信息。load事件代码如下：Setdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select文献号,文献名,状态fromfilewhere状态='否'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRS4.5系统菜单实现设计一种菜单系统，普通要通过几种环节：菜单系统规划，建立菜单与子菜单，把任务分派到菜单系统中，生成菜单程序，测试和运营菜单系统等，VB6.0是通过设计窗体来完毕菜单设计界面，本系统设计菜单运营如下：各个菜单项click事件代码如下：PrivateSubexit_Click()EndEndSubPrivateSubfile_Click()Form2.ShowEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2EndSubPrivateSubjiangui_Click()Form4.ShowEndSubPrivateSubsetup_Click()Form3.ShowEndSubPrivateSubzhujuan_Click()Form5.ShowEndSub其中Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2是控制窗体在屏幕中位置居中。总结通过多日来努力《文档管理系统》终于完毕了。回顾这次毕业设计过程，我觉得收获很大，现借撰写论文总结机会，谈一谈我体会。通过这次毕业设计，我掌握了一种新数据库系统开发工具VisualBasic6.0。我对于它具备可视化编程环境和连接数据库便捷性用感触颇深，VisualBasic6.0这些数据库连接提供了各种办法。例如DATA控件对初学着就非常容易掌握，固然运用语句对数据库连接就可以实现对数据库高档应用。VisualBasic6.0这种面向对象数据库开发工具提供了窗体这种户非常和谐交互方式。运用设计好窗体据库记录进行操作，不但使顾客更清晰记录详细变更状况，也使开发人员工作轻松了许多。同步，在这次毕业设计过程中，我始终遵循软件工程思想，这使我工作进度明显加快，也使我少走了不少弯路。软件工程思想，指引我一步一步从系统分析，到系统设计，再到系统实现，让我对整个系统开发过程有了明显全局观念，也合理地安排了整个设计时间。以上是我在本次毕业设计中体会，也许结识到问题还很肤浅，这也正是我此后要努力提高。致谢在本次毕业设计过程中，我指引教师给了我很大协助。不但使我在规定期间内完毕了系统设计，同步还使我学到了诸多有益经验。在此，我谨向她表达最衷心感谢。同步，学校给了我这次毕业设计机会，使我得到了较好锻炼，在此，我也向学校各位教师表达最诚挚感谢。重要参照文献作者.书名.出版社.出版日期1．张树兵·VisualBasic6.0·北京·清华大学出版社·1999年4月2．翁正科·FoxPro2.5·北京·清华大学出版社·1995年5月3．刘云生·数据库系统概论·武汉·华中理工大学出版社·1996年5月附录（重要窗体源代码）主窗体源代码：PrivateSubexit_Click()EndEndSubPrivateSubfile_Click()Form2.ShowEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2EndSubPrivateSubjiangui_Click()Form4.ShowEndSubPrivateSubsetup_Click()Form3.ShowEndSubPrivateSubzhujuan_Click()Form5.ShowEndSub文献录入窗体源代码：DimWithEventsadoPrimaryRSAsRecordsetPrivateSubCombo1_Click()Text5.Text=""EndSubPrivateSubCommand1_Click()adoPrimaryRS.MoveFirstText1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndSubPrivateSubCommand10_Click()UnloadMeEndSubPrivateSubCommand11_Click()DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordseta=Combo1.Textb=Text5.TextadoPrimaryRS.Open"select文献号,文献名,作者,入库日期,状态,内容摘要fromfilewhere"&a&"like'%"&b&"%'"，db，adOpenStatic，adLockOptimisticSetDataGrid1.DataSource=adoPrimaryRSEndSubPrivateSubCommand12_Click()Frame4.Visible=FalseFrame2.Visible=TrueCommand9.Enabled=TrueEndSubPrivateSubCommand13_Click()DimiAsInteger，jAsIntegerDimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetSetxlapp=CreateObject("excel.application")xlapp.Visible=TrueSetxlbook=xlapp.Workbooks.AddSetxlsheet=xlbook.Worksheets(1)xlsheet.Cells(1，1)="文献号"xlsheet.Cells(1，2)="文献名"xlsheet.Cells(1，3)="作者"xlsheet.Cells(1，4)="入库日期"xlsheet.Cells(1，5)="与否入卷"xlsheet.Cells(1，6)="内容摘要"Fori=0ToadoPrimaryRS.RecordCount-1Forj=0ToadoPrimaryRS.Fields.Count-1DataGrid1.Row=iDataGrid1.Col=jxlsheet.Cells(i+2，j+1)=DataGrid1.TextNextjNextiSetxlapp=NothingSetxlbook=NothingEndSubPrivateSubCommand2_Click()adoPrimaryRS.MoveNextIfadoPrimaryRS.EOFThenMsgBox("已经是第后一条记录了！")adoPrimaryRS.MoveLastElseText1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndIfEndSubPrivateSubCommand3_Click()adoPrimaryRS.MovePreviousIfadoPrimaryRS.BOFThenMsgBox("已经是第一条记录了！")adoPrimaryRS.MoveFirstElseText1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndIfEndSubPrivateSubCommand4_Click()adoPrimaryRS.MoveLastText1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndSubPrivateSubCommand5_Click()IfCommand5.Caption="添加"ThenCommand5.SetFocusCommand5.Caption="保存"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueText1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""adoPrimaryRS.AddNewElseadoPrimaryRS.Fields("文献号")=Text1.TextadoPrimaryRS.Fields("文献名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("内容摘要")=Text4.TextadoPrimaryRS.Fields("入库日期")=DateadoPrimaryRS.Fields("状态")="否"adoPrimaryRS.UpdateCommand5.Caption="添加"Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIfEndSubPrivateSubCommand6_Click()IfCommand6.Caption="编辑"ThenCommand6.Caption="更新"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText4.Enabled=TrueElseadoPrimaryRS.Fields("文献号")=Text1.TextadoPrimaryRS.Fields("文献名")=Text2.TextadoPrimaryRS.Fields("作者")=Text3.TextadoPrimaryRS.Fields("内容摘要")=Text4.TextadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseText4.Enabled=FalseEndIfEndSubPrivateSubCommand7_Click()adoPrimaryRS.DeleteEndSubPrivateSubCommand8_Click()EndSubPrivateSubCommand9_Click()Frame4.Visible=TrueFrame2.Visible=FalseCommand9.Enabled=FalseEndSubPrivateSubDataGrid1_Click()Text1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndSubPrivateSubForm_Load()Left=(Screen.Width-Width)\2Top=(Screen.Height-Height)\2DimdbAsConnectionSetdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select文献号,文献名,作者,入库日期,状态,内容摘要fromfile"，db，adOpenStatic，adLockOptimisticIfadoPrimaryRS.EOFThenText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""ElseText1.Text=adoPrimaryRS.Fields("文献号")Text2.Text=adoPrimaryRS.Fields("文献名")Text3.Text=adoPrimaryRS.Fields("作者")Text4.Text=adoPrimaryRS.Fields("内容摘要")EndIfSetDataGrid1.DataSource=adoPrimaryRSEndSub创立卷名窗体源代码：DimWithEventsadoPrimaryRSAsRecordsetDima(100)AsStringDimdbAsConnectionPrivateSubCommand1_Click()IfCommand1.Caption="创立节点"ThenAppend=MsgBox("节点序号的确无误吗"，vbOKCancel，"核对节点序号")IfAppend=vbOKThenCommand1.Caption="保存节点"Text1.Enabled=TrueText1.SetFocusText2.Enabled=TrueText3.Enabled=TrueCommand1.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseEndIfElseCommand1.Caption="创立节点"adoPrimaryRS.AddNewadoPrimaryRS.Fields("卷号")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("备注")=Text3.TextadoPrimaryRS.Fields("创卷人员")="管理员"adoPrimaryRS.Fields("创卷日期")=DateadoPrimaryRS.UpdateText1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()IfCommand3.Caption="编辑节点"ThenCommand3.Caption="保存节点"Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=TrueText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=FalseCommand5.Enabled=FalseElseCommand3.Caption="编辑节点"Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=FalseadoPrimaryRS.Fields("卷号")=Text1.TextadoPrimaryRS.Fields("卷名")=Text2.TextadoPrimaryRS.Fields("备注")=Text3.TextadoPrimaryRS.UpdateText1.Text=""Text2.Text=""Text3.Text=""Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueCommand5.Enabled=FalseEndIfEndSubPrivateSubCommand4_Click()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueTreeView1.Nodes.ClearSetmynod=TreeView1.Nodes.Add(，，"sort"，"案卷名称及卷号"&"("&"00"&")")Setdb=NewConnectiondb.CursorLocation=adUseClientdb.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"SetadoPrimaryRS=NewRecordsetadoPrimaryRS.Open"select卷号,卷名,备注,创卷人员,创卷日期fromsort"，db，adOpenStatic，adLockOptimisticadoPrimaryRS.MoveFirsti=0DoIfLeft(adoPrimaryRS.Fields("卷