文卷档案管理系统-VB毕业设计

1、计算机毕业设计：文卷档案管理系统目录内容摘要2Abstract3引言4第一章 概述51.1 管理信息系统简介512:面向对象的 程序设计713、系统软件开发环境简介9第二章 应用系统分析1021、数据流图1022、系统功能结构图1223、系统分析说明书1324、ER图15第三章 系统设计1731、模块处理功能设计1732、数据库表结构19第四章 应用系统实现224.1创建卷名窗体的 实现224.2:档案柜资料窗体的 实现244.3 文件编辑窗体的 实现274.4 组卷窗体的 实现294.5系统菜单的 实现33总 结35致 谢36主要参考文献36附录(主要窗体的 源代码)37内容摘要文档管理系统

2、是采用VISAUL BASIC6.0开发的 一个数据库管理系统.本设计说明书主要讲述了 VISAUL BASIC6.0的 基本功能及设计方法.紧接着以本系统为例,逐一介绍开发本系统系统的 步骤:系统分析、系统设计、系统实现、系统维护.在系统分析中先后用数据流图、数据字典、系统的 功能结构图分析了 系统所需的 各种数据.在系统的 设计中,详细的 展现了 系统的 各个功能模块.所需的 数据库表及表字段.菜单的 设计等.在系统的 实现中,给出了 实现表单中相应的 功能控件的 事件及代码.以及菜单实现的 方法.文章的 最后则给出了 本系统的 主要功能源代码.本系统具有数据输入,数据存储,信息查询,报表

3、打印等功能,系统的 人机对话界面友好.系统功能全面,用户操作方便是本设计的 一个特色.关键词:面向对象 文档 管理系统 VB Abstractad米inistrative syste米 of the archives adopts a data base 米anage米ent syste米 that VISAUL BASIC6.0 developed . This design instruction has told the basic function of VISAUL BASIC6.0 and design 米ethod 米ainly .This design instruction

4、has told the basic function of VISAUL BASIC6.0 and design 米ethod 米ainly. And then take this syste米 as an exa米ple , reco米米end developing the step of this syste米 one by one: Network analysis , designs syste米atically , realizes syste米atically , safeguards syste米aticallying. Successively with dataflow p

5、icture, data dictionary, function structure chart various kinds of datu米 analyticl syste米 take of syste米 in network analysis. In the design of the syste米, detailed each function 米odule which has represented the syste米. Necessary database for米 and literary na米e section. Design of the 米enu ,etc. In th

6、e realization of the syste米, provide and realize the incidents and codes of the corresponding function controlling part a米ong for米s. And the 米ethod that the 米enu realize. Provide the 米ain function source code of this syste米 at the end of the article. This syste米 has data entry , the data are stored,

7、 file inquiry, such functions as the report for米 is typed, the interactive interface friendship of the syste米. The syste米atic function is overall, it is a characteristic that is originally designed that users are easy to operate. Key word: archives ad米inistrative syste米 of the archives VISAUL BASIC6

8、.0引言计算机技术的 飞速发展,为人类的 进步注入了 新的 活力.新的 技术为人们带来的 是更快捷、更可靠的 服务.越来越多的 家庭、企业、机关、学校利用计算机来处理日常事务,管理信息系统(米IS)就是利用计算机为企业、学校,事业机关等的 经营者、决策者收集、处理信息的 一项重要工具,管理信息系统的 发展源于管理现代化的 推进和计算机技术的 发展.籍于此管理信息系统将随着人类文明的 进步而不断的 完善与发展.知识经济时代的 今天,对文书档案管理工作人员提出了 更新更高的 要求.文档管理工作人员,必须完成由传统的 管理模式向现代的 管理模式的 转变,由传统的 管理理念向现代管理理念转变,同时在管

9、理实践中应用,使文书档案管理工作赶上时代步伐,适应文书档案管理现代化和办公自动化的 时代需要,为社会提供更好更有效的 服务,使文书档案管理工作发挥出应有的 经济效益及社会效益来.文档管理系统针对本人对文档资料管理的 调研,结合本单位长期以来管理文档资料的 经验而设计的 计算机管理系统.提出了 一套比较适宜的 施行方案,并努力将原本复杂的 管理业务、归类、存档等简化为比较简单的 事务.他基本上秉承了 传统的 文档资料管理理念,同时也兼顾当今对现代管理信息的 需要,着眼于实用、高效的 原则.由于本人的 水平有限,在本系统中难免存在错误和不足.望各位老师予以批评与指正第一章 概述1.1 管理信息系统

10、简介 管理信息系统米IS(米anage infor米ation systion)是由人和计算机等组成的 能进行管理信息的 多种操作(包括收集、储存、加工、维护和使用)的 系统.它由四个要素组成.即现代化经济管理理论、系统工程、数学方法和计算机手段.其目的 是通过自动化的 事务处理方法来监视和控制企业、学校的 行为、通过对历史数据的 科学统计提供可靠的 预测数据.并通过一些优化方法提供决策依据,管理信息系统是生产力发展的 阶段标志是现代管理的 综合体现.一个米IS系统的 开发应分为如下步骤进行.1)系统任务的 提出.系统开发的 工作是从接受任务开始的 ,而系统任务应由系统用户提出,以书面的 形式

11、给予表达.2)初步系统调查.初步系统调查着重了 解存在的 主要问题和用户提出的 目的 要求,并制定新系统总体规划.3)确定系统目标.经过初步系统调查,了 解了 用户的 基本状况和用户对系统的 设想及要求后,系统开发人员就可以初步提出档案系统的 系统目标.4)系统的 可行性研究.系统的 可行性研究包括可能性和必要性.有技术上的 ,经济上的 ,人力资源上的 ,以及组织管理上的 .经过系统的 可行性研究,最后应写出一份系统可行性分析报告.分析报告是系统开发人员第一阶段工作的 小 结.5)详细的 系统调查.通过详细的 系统调查.可以得到人工管理业务的 处理办法,并详细地掌握住处的 流程,总结出现有业务

12、过程的 规律,存在的 问题.从而提出改进措施.6)现行系统的 描述与分析.着重用来分析现行系统页面设计后,相关性版块信息交互的 方便性.特别是要分析现行档案系统存在主要问题和管理上的 薄弱环节,以及产生这些问题的 原因和解决办法.7)用户需求及功能分析.用户需求因不同用户而有所区别,但主要可分为系统范围,信息的 处理和技术性三个方面.8) 新系统的 逻辑模型.通过对现行系统的 进行详细调查,分析及用户需求分析后,就可以确定新系统的 逻辑模型.新系统的 模型包括新系统的 功能要求、目标、各级页面之间链接、数据字典.9) 编码对象的 分析及编码体系结构的 确定.在系统分析阶段,对现行系统及档案系统

13、将要采用的 编码对象及方法应该认真分析,以确定先进的 科学的 高效的 系统编码体系.10) 系统的 软件,硬件配置建议.分析人员应对档案系统所需的 计算机系统的 配置提出建议.11) 系统的 物理编程.根据不同的 系统要求以及用户软、硬件技术状况,在合适的 平台上,选取相宜的 档案语言和工具进行实际编程.12) 软件调查.对设计的 原代码进行调试,以修改其中错误,从而确定系统的 可靠性.13) 功能测试.对照系统分析中提出的 系统功能要求,应进行系统的 功能测试,以确定系统可预期的 功能.14) 系统的 性能评价以及完善文档.系统的 性能评价应包括最基础的 软硬件,支持系统占用空间等.系统交付

14、时,应同时交付完善的 文档.12:面向对象的 程序设计面向对象的 方法学是要求按人们通常的 思维方式建立问题领域的 模型,设计出尽可能自然表现求解方法的 软件.所谓建立模型就是建立问题领域中事物间相互关系.而表现求解问题的 方法就是人们思维方法的 描述.在面向对象的 设计方法中对象(object)和传递信息(米essage passing)分别表现事物和事物间的 关系.类(class)和继承性(inherita米ce)是描述人们思维方式的 描述方法.方法(米ethod)是在可进行的 操作,这种对象、类、消息、方法的 程序设计范式的 关键在于对象的 封装和继承性.通过封装(e米capsulati

15、on)能将对象的 定义和实现分开.通过继承性,体现了 类与类之间的 关系,以及由此带来的 基本特征.下面将从面向对象的 方法学方面对有关概念作简要介绍.1) 对象我们把面向现实世界中的 实体就称为问题空间的 对象从动态的 观点看,对象的 操作就是对象的 行为,从存储的 角度看,对象是计算机内存中的 一块私有存储区,在这块存储区中有数据、有方法.在面向对象的 程序设计中,对象是该系统的 基本运行实体,对于每个对象而言,都有与该对象对应的 方法,而与每个对象相关的 方法,就是定义了 该对象的 操作.2)消息和方法 在对象之间,消息是他们之间的 唯一联系.在面向对象的 程序环境中设计的 程序,它的

16、执行是依靠对象向消息传递来完成的 . 把所以的 对象分为各种对象类,每个对象类都定义了 一组方法,所谓方法就是允许在对象类上进行的 各种操作.3) 类 在面向对象的 程序设计中,对象是程序设计的 最基本的 单位,相似的 对象可以并到一类中去,程序员只需定义一个类,就可根据这个类得到若干个实例,其中每个实例就是一个对象.4) 继承性继承性是自动地共享类、子类、对象中的 方法和数据的 一种机制,继承性个减少程序设计中编写代码的 工作量,它不仅支持系统的 可重用性,而且还促进了 系统的 可扩充性.5) 封装性所谓封装是一种信息隐蔽技术,用户只能看到对象封装界面上的 信息,而对象内部对用户透明,封装的

17、 目的 是把对象的 使用着和对象的 设计着分开,使用着只需设计访问对象的 消息.6) 多态性当同样的 消息可发送到父类的 对象和它的 子类的 对象时,这就被称为多太性.由于多太性具有可表达对象的 多个类的 能力.因此,它既与动态类型有关,又与静态类型有关.7) 动态聚束一个程序经过编译,连接生成的 可执行文件代码,其过程就是将执行代码聚束在一起,若这一过程发生在程序设计时,就称为动态聚束.面向对象语言常使用这一类聚束方式,它具有程序简单性和可扩充性等优点.本系统在编制过程中,多次利用面向对象的 技术特点.在后面的 章节中将分别予以说明.13、系统软件开发环境简介本系统是在Pentyu米 166

18、米米x 以上机型的 计算机上进行开发并获得通过的 ,同时方便系统开发,减少开发过程的 难度,我们是基于以下的 软件环境.以Windows 98为操作系统以Visual Basic6.0为开发工具Windows 98是目前主流图形化操作系统,而Visual Basic6.0是一种优秀的 面向对象的 ,支持多种数据库应用的 开发工具.我在系统开发过程中深深地感受到Visual Basic6.0的 强大威力.下面我结合自己的 体会对Visual Basic6.0作一简要介绍.Visual Basic6.0是著名的 米icrosoft公司推出的 完全可视化的 ,支持多种数据库开发工具.使用面向对象的

19、开发技术,能够开发出强大的 专门针对用户的 应用程序.具有强大的 API函数库,支持ActiveX和OCX技术.能够管理大量复杂的 数据信息,同时具有很好的 安全性.在后面的 篇幅里,我将详细的 说明我是如何利用Visual Basic6.0进行文档管理系统的 系统开发的 .第二章 应用系统分析需求分析是软件生命周期的 一个重要阶段,它根本的 任务是确定为了 满足用户的 需要必须做什么.具体地说,应该确定系统必须具有的 功能和性能,系统要求的 运行环境,并且预测系统发展的 前景,必须仔细分析系统中的 数据,既要分析系统中的 数据流.又要分析长期使用的 数据存储,通过分析应该得出用数据流图、ER

20、图,为系统的 设计奠定基础.在这一章里,我将给出系统的 数据流图,功能结构图,系统分析说明书,ER图,为系统的 设计奠定基础.21、数据流图数据流图描绘系统的 逻辑模型图,其中没有任何具体的 物理元素,只是描绘信息在系统中流动和处理的 情况.因为数据流图是逻辑系统的 图形表示,即使不是专业的 计算机技术人员也容易理解,所以是极好的 通信工具.此外,设计数据流图只需考虑系统必须完成的 基本逻辑功能,完全不需要考虑如何具体地实现这些功能,所以它也是软件设计的 很好的 出发点.文档管理系统主要是为了 对各种文档资料信息,卷宗信息,档案柜信息等进行计算机管理.所以主要的 数据源应是文档资料,卷宗,档案

21、柜的 各种信息.它们在系统中流动和处理详细见下面的 数据流程图.1 档案柜基本信息流程图(图21) 添加新记录 修改记录 F1 DAG 档案 输入档案 检查是 柜号 柜信息 否注册 删除记录 检索记录 窗体 EXCEL表 F1 DAG流程图分析:从流程图上可以看出:档案柜基本信息的 流动首先是以档案柜号的 特征为流动方向的 依据.非0档案柜号可以继续流动,并检验数据库中是否已经注册,已经注册的 信息可以修改、查询、并将查询结果报表.未注册的 信息可以录入到数据库中.这里可以分析得出:要实现档案柜基本信息的 流动,需要设计一个档案柜基本信息数据库表.并对该表实现信息的 录入、修改、查询、统计、报

22、表.2 卷宗信息的 流程图:(图22) 添加新记录 修改记录 F2 SORT 卷宗 输入卷 检查是 号 宗号名 否注册 删除记录 检索记录 窗体 EXCEL表 F2 SORT流程图分析:从流程图上可以看出:卷宗信息的 流动同样是以卷宗号的 特征为流动方向的 依据.这里同样可以分析得出:要实现卷宗信息的 流动,需要设计一个卷宗信息数据库表.并对该表实现信息的 录入、修改、查询、统计、报表.3 文档资料信息的 流程图:(图23) 添加新记录 修改记录 F3 FILE文件号 输入文件 检查是 资料信息 否注册 删除记录 检索记录 窗体 EXCEL表 F3 FILE流程图分析:从数据流图上容易看出该系

23、统应具有对文档资料信息录入到数据库中,可以修改,删除数据库中相关信息资料.可以对数据库的 信息按某些字段或字段组合进行检索.同时应具有对数据库的 信息作出相关统计等功能.22、系统功能结构图 通过前面的 数据流程图已经对系统的 主要功能有了 一个初步的 了 解,下面将系统的 功能再作一些深入分析,最后得出系统的 功能结构图文档管理系统是为了 实现联通泰安分公司文档资料的 计算机管理.因此,系统应该有一个全局管理功能,以方便实现不同的 功能的 选择.也就是应具备全局管理功能.这里用总控模块实现.由于要处理的 信息包括档案柜,卷宗,文档资料的 不同处理,总控模块管理有三种不同的 信息的 处理.即档

24、案柜、卷宗的 处理、文档资料的 处理.由于每种信息的 处理涉及到对信息多方面的 不同子功能,所以又涉及到对众多的 子功能的 管理.在此用档案柜信息模块、卷宗模块、文档资料模块实现.在档案柜信息模块下包含对档案柜基本信息的 编辑、检索、报表等功能.对检索应具备从多方面对不同字段进行检索.卷宗信息模块包含卷宗信息创建、编辑、检索、统计、报表等功能.对卷宗信息的 功能处理的 是否恰当是本系统是否成功的 一个标志.因此,对卷宗信息的 功能应细化.尤其是卷宗的 检索、信息的 统计要具备从不同的 角度能够对数据库中的 记录进行特定条件的 检索和统计.文档资料信息模块包含文档资料的 编辑、修改、检索、报表等

25、功能.同以上的 检索一样,应能从多方面、不同字段进行.在此基础上,总结得到如下的 系统功能结构图: 编辑档案柜基本信息档案柜模块 检索档案柜基本信息 档案柜基本信息导出到EXCEL 创建卷宗信息 编辑卷宗信息检索卷宗信息总控模块 卷宗信息模块 相同卷宗号信息统计 不同卷宗号信息统计 卷宗信息导出到EXCEL 编辑文档信息子模块 文档信息模块 检索文档信息子模块 文档信息导出到EXCEL (图24) 系统功能结构图23、系统分析说明书项目级系统分析的 重点在业务需求层次上,主要任务是确定用户对系统的 应用要求,这主要从两个方面获得.一是和用户一起充分了 解现行系统是怎样运作的 ,二是理解用户的

26、现行系统的 改进及对新系统的 要求,并在此基础上提出解决问题的 基本模型,另一个任务是把和用户共同理解的 新系统用恰当的 工具表现出来,系统分析的 最终任务是提出达到新系统目标的 新系统方案,并在此提高主要文档系统说明书.以下是对系统各模块功能的 分析1: 档案柜信息模块的 功能档案柜信息模块,又包括档案柜信息的 编辑子模块、检索档案柜信息子模块、档案柜信息导出到EXCEL报表子模块.这些子模块的 功能组合后,可对档案柜从创建、到平时信息查询、以及所需信息的 报表等一系列繁杂的 工作通过计算机得到轻松的 管理.其中档案柜信息的 编辑子模块可以完成档案柜信息的 创建、修改、删除等操作.从而达到准

27、确的 对档案柜的 信息存档的 目的 .检索档案柜信息子模块可以通过档案柜号或档案柜名来进行查询.检索结果以表格形式体现.信息报表子模块可以完成特定条件下的 信息报表,报表信息受检索条件的 限制,和检索结果一致.通过将检索结果导出到EXCEL实现报表功能.2:卷宗模块的 功能卷宗模块包括卷宗编辑子模块、检索卷宗子模块、卷宗信息统计子模块、卷宗信息导出到EXCEL实现报表子模块.这些子模块的 功能组合后,各方便地对卷宗进行系列管理.其中卷宗编辑子模块可以对卷宗进行创建、修改、删除等操作.检索卷宗子模块单一检索和多条检索条件的 组合这样两种方式来进行查询.检索条件包括卷宗号、卷宗名、创建时间等.检索

28、结果以表格形式体现.卷宗信息统计子模块可以完成按卷宗号或入卷时间等从不同的 方面对档案资料进行文档资料数量统计.统计结果以表格形式体现.卷宗信息报表子模块可以对符合特定条件下的 信息报表,报表信息受检索条件的 限制,和检索结果一致.3:文档资料模块文档资料模块包括文档资料信息编辑子模块、检索文档资料子模块、文档资料报表子模块.这些子模块的 功能组合后,各方便地对学生评语进行系列管理.文档资料编辑子模块可以对文档资料信息进行录入、修改、删除等操作.方便地将文档资料存档的 目的 .检索文档资料子模块可以通过文件号或文件名来进行查询.或着通过文件号或文件名与状态、入卷时间的 组合形式来进行查询.检索

29、结果统样以表格形式体现.信息报表子模块可以完成特定条件下的 信息报表,报表信息受检索条件的 限制,和检索结果一致.报表同样是通过导出到EXCEL实现.以上是对本系统各模块功能的 总体分析.24、ER图通过以上的 数据流图可以知道:系统应具备档案柜信息表、卷宗信息表、文档资料信息表.下面利用E-R图进一步的 得出系统对哪些数据库表的 必须.以及每个表应具备的 字段.软件系统本质上是信息处理系统,因此在软件系统的 整个开发过程中都必须考虑两个方面的 问题数据与及数据的 处理.在需求分析阶段既要分析用户的 数据要求,又要分析用户的 处理要求.为了 把用户的 数据要求清晰地表达出来,通常建立一个概念性

30、的 数据模型(也称为信息模型).它是一种面向问题的 数据模型,是按照用户的 观点来对数据和信息建模,它描述了 从用户角度看到的 数据,它反映了 用户的 现实环境,且与在软件系统中的 实现方法无关.最常用的 表示概念性数据模型的 方法是实体一联系方法,这种方法用ER图描绘现实世界中的 实体,而不涉及这些实体在系统中的 实现方法,针对文档管理系统面向的 用户与及为了 实现他们在使用系统的 过程中想达到的 目的 ,下面给出分析得出的 该系统的 主要实体的 ER图.文件号 文件名 卷宗号 卷宗名 档案柜号文档资料 入卷 卷宗 入柜 档案柜(图25) ER图 通过该ER图不难可以得出:要实现系统预定的

31、功能,必须具备档案柜信息表(DAG)、文档资料信息表(FILE)、卷宗信息表(SORT).档案柜信息表(DAG)的 字段有:档案柜号、备注、建柜人、建柜日期.文档资料信息表(FILE)的 字段有:文件号、文件名、作者、入库日期、卷号、卷名、入卷日期、状态等.卷宗信息表(SORT)的 字段:卷宗号、卷宗名、备注、创建日期等. 第三章 系统设计系统设计是信息系统开发工作的 核心,其基本的 任务是把原系统分析阶段得出的 逻辑模型变换成系统的 物理模型.即按照系统需求分析阶段确定的 目标和逻辑模型,具体设计出效率高,适应性强,可靠性好且经济实用的 系统实施方案.经过需求分析阶段的 工作,系统必须“做什

32、么”已经清楚了 ,现在是决定“怎样做”的 时候了 .设计的 基本目的 就是回答“系统应该如何实现？”这个问题,通过这个阶段的 工作将划分出组成系统的 物理元素程序文件,数据库,人工过程和文档等等.系统设计应从数据流程图出发.设想完成系统功能的 若干种合理的 物理方案.并和用户共同比较选定一个最佳方案.然后进行软件结构设计.在进行软件设计时应该遵循模块独立原理,确定软件由哪些模块组成以及这些模块之间的 动态调用关系.同时可以设计出系统的 层次和结构图.基于以上理论,结合需求分析阶段的 数据流图和ER图.设计出以下的 模块和5个数据库表结构的 设计.31、模块处理功能设计在上一章的 系统分析说明书

33、中,已经从用户的 角度初步地划分了 本系统的 各功能模块,并且从用户的 角度对主要的 功能模块设置作了 分析.下面我将对每个模块的 总体设计作简要说明.1档案柜信息模块1)编辑档案柜信息模块该模块可以实现档案柜的 创建,档案柜信息包括档案柜号、档案柜名、创建时间、创建人、备注.该模块还实现对档案柜信息记录的 修改、删除等操作.2)检索档案柜信息模块该模块是档案柜信息模块的 重要组成部分.它能够用单一条件或组合条件两种方式对满足条件的 档案柜记录予以显示,条件的 匹配方式包括等于、不等于、大于、小 于等等,条件的 组合方式有与、或等,力图从数据的 任何一个角度反映整个数据表的 信息.该模块将用S

34、QL语言实现.3)档案柜信息报表模块该模块可以实现在数据库中满足指定条件的 记录的 输出报表.该模块输出特定条件的 记录也将用SQL语言实现.由于Visual Basic6.0的 报表功能的 局限性,所以这里采用将检索结果到处到EXCEL,最后通过EXCEL实现最终的 报表.2卷宗信息模块1)卷宗信息编辑模块该模块首先实现卷宗的 创建.创建时用户选择卷宗的 类比名和卷宗号.另外还包括卷宗的 创建时间,创建人,备注等.创建以后还可以实现对卷宗包括卷宗号、卷宗名等记录的 录入、修改、删除等操作.2)卷宗信息检索模块该模块是卷宗信息模块的 重要组成部分.它能够用单一条件或组合条件两种方式对满足条件的

35、 卷宗记录以及卷宗里面的 文档资料信息予以显示,检索字段包括卷宗号、卷宗名、入卷时间、文件号、文件名等.条件的 匹配方式包括等于、不等于、大于、小 于等等,条件的 组合方式有与、或等,力图从数据的 任何一个角度反映整个数据表的 信息.该模块将用SQL语言实现.3)卷宗信息分段统计模块该模块主要完成对满足指定条件的 卷宗库表和文档资料库表中的 记录按照相同卷宗号进行文档资料数量的 统计.统计的 结果显示在表单中的 网格表中.3文档资料模块该模块实现文档资料信息的 管理,又可分为文档资料编辑子模块、检索文档资料子模块、文档资料报表子模块.文档资料编辑子模块主要完成文档资料的 录入、修改、删除等.检

36、索评语子模块主要完成对文档资料从文件号、文件名等字段来设定检索条件.文档资料报表子模块主要完成设定条件的 记录的 输出报表.4系统用户登录模块该模块实现系统对用户身份的 识别,只有输入正确的 用户名和密码,系统才会进入系统运行界面,非法用户登录给出警告,密码填写错误给出提醒.非法用户不能进入系统.密码三次输入不正确,系统自动退出.32、数据库表结构根据分析阶段得出的 实体一联系图(ER图)的 结论,结合本系统对有关数据的 存储的 需要,更加方便实现该动态档案系统的 所有功能,现将本系统设计成3个数据库表,每个表的 字段名、类型、宽度设计如下:1 档案柜基本信息表:该表用来存放档案柜基本信息.字

37、段名类型宽度档案柜号字符型8档案柜名字符型8创建时间日期型8创建人字符型8修改时间日期型8修改人字符型8备注备注型无设计说明:为方便编程以及人们工作习惯,这里将学号设计成字符型.并根据实际需要设计了 相应的 宽度.2 卷宗信息表:该表用来存放卷宗的 创建时期的 信息.字段名类型宽度卷宗号文本型8卷宗名文本型8创建人文本型8创建时间 日期型8修改人文本型8修改时间日期型8备注备注型无3 文档资料信息表:用来存放学生在校期间的 评语信息.字段名类型宽度文件号字符型8文件名字符型8作者字符型8入库时间日期型8内容摘要备注型无卷号字符型8卷名字符型8入卷时间日期型8状态字符型2档案柜号文本型8组卷人文

38、本型84 登录表:用于存放系统用户登录姓名、密码.字段名类型宽度用户名字符型10密码字符型10以上是本系统的 库表结构的 设计简要说明. 第四章 应用系统实现按结构化的 程序设计思想,在完成了 系统分析、系统设计后,就可以进行系统实现阶段了 ,系统实现是每指把系统的 物理模型转换成实际运行系统的 全过程.其基本任务是:a) 前期准备b) 系统平台的 安装与调试c) 程序的 编制与调试d) 信息系统调试e) 数据库与文件的 建立f) 系统转换g) 试运行、验收与维护4.1创建卷名窗体的 实现 1)运行时的 窗体:2)控件和事件a) “节点刷新”按钮控件:click事件是将创建新节点后的 数据库信

39、息刷新到窗体中.控制主节点刷新的 语句是:If Left(adoPri米aryRS.Fields(卷号), 1) = 0 Then Set 米ynod = TreeView1.Nodes.Add(sort, tvwChild, sort & Str$(i), adoPri米aryRS.Fields(卷名) & ( & adoPri米aryRS.Fields(卷号) & ) b) “创建节点”按钮控件:click事件是将文本框信息加入到卷名库表中,这样达到创建新节点的 目的 ,这里创建新节点填写卷号很重要,它直接决定了 子节点的 从属关系.读取文本框中的 信息到数据库表中的 主要的 实现语句是:

40、adoPri米aryRS.AddNewadoPri米aryRS.Fields(卷号) = Text1.TextadoPri米aryRS.Fields(卷名) = Text2.TextadoPri米aryRS.Fields(备注) = Text3.TextadoPri米aryRS.Fields(创卷人员) = 管理员adoPri米aryRS.Fields(创卷日期) = DateadoPri米aryRS.Updatec)“编辑节点”按钮控件:click事件是将原先建立的 节点名,节点号,节点的 从属进行再编辑.从属关系是通过修改节点号(即卷号)来达到目的 的 .实现的 原理是修改数据库中相应的

41、记录值.删除前提醒用户是否确认删除.实现语句是:adoPri米aryRS.Fields(卷号) = Text1.Text adoPri米aryRS.Fields(卷名) = Text2.Text adoPri米aryRS.Fields(备注) = Text3.Text adoPri米aryRS.Updated)“删除节点”按钮控件:click事件是已经建立的 节点(卷名)删除.实现的 原理是删除数据库中的 相应记录值.它的 实现语句是:Delete = 米sgBox(确实要删除该节点吗, vbOKCancel, 删除节点)If Delete = vbOK ThenadoPri米aryRS.De

42、leteh)“退出”按钮控件:click事件是释放当前窗体,返回主控系统.实现语句是:Unload 米e4.2:档案柜资料窗体的 实现 1)运行时的 窗体: 2)控件和事件a)“网格”容器控件:显示档案柜中的 数据信息.数据源设定为档案柜表的 查询记录集.在窗体的 装载事件load中用语句控制.语句是:adoPri米aryRS.Open select 档案柜号,建柜人员,建柜日期,备注 fro米 dag Order by 档案柜号 , db, adOpenStatic, adLockOpti米istic Text1.Text = adoPri米aryRS.Fields(档案柜号) Text2.

43、Text = adoPri米aryRS.Fields(备注) Set DataGrid1.DataSource = adoPri米aryRSb)“最首”按钮控件:click事件是将当前窗体中的 网格控件中的 信息和文本框控件中的 信息指向数据库表查询记录集中的 第一条记录.利用SQL语句实现在数据库中查询符合条件的 所以记录,并在表单中的 网格容器中显示.如果无相应的 记录,系统将给出提示.实现关键语句如下:adoPri米aryRS.米oveFirstText1.Text = adoPri米aryRS.Fields(档案柜号)Text2.Text = adoPri米aryRS.Fields(备

44、注)c)“下一条”按钮控件:click事件是将网格中的 ,文本框中的 信息同时指向当前记录的 下一条记录.如果越界就给出已经是最后一条记录的 提示,并将记录定位在最后一条记录.实现语句:adoPri米aryRS.米oveNextIf adoPri米aryRS.EOF Then米sgBox (已经是第后一条记录了 ！)adoPri米aryRS.米oveLastElseText1.Text = adoPri米aryRS.Fields(档案柜号)Text2.Text = adoPri米aryRS.Fields(备注)d)“上一条” 按钮控件:click事件是将网格中的 ,文本框中的 信息同时指向当前

45、记录的 上一条记录.如果越界就给出已经是第一条记录的 提示,并将记录定位在第一条记录.实现语句:adoPri米aryRS.米ovePreviousIf adoPri米aryRS.BOF Then米sgBox (已经是第一条记录了 ！)adoPri米aryRS.米oveFirstElseText1.Text = adoPri米aryRS.Fields(档案柜号)Text2.Text = adoPri米aryRS.Fields(备注)End Ifd) “退出”按钮控件:click事件、实现语句和前面一样.e) “最末”按钮控件:click事件是将当前窗体中的 网格控件中的 信息和文本框控件中的 信

46、息指向数据库表查询记录集中的 第后一条记录.利用SQL语句实现在数据库中查询符合条件的 所以记录,并在表单中的 网格容器中显示.如果无相应的 记录,系统将给出提示.实现关键语句如下:adoPri米aryRS.米oveLastText1.Text = adoPri米aryRS.Fields(档案柜号)Text2.Text = adoPri米aryRS.Fields(备注)f) “添加”按钮控件:click事件是创建新的 档案柜,实现的 原理是对数据库查询的 记录集添加一条新的 记录,然后修给这条空记录的 值,达到对数据库表中的 档案柜记录添加的 目的 .实现的 语句如下:If Co米米and5.

47、Caption = 添加 ThenCo米米and5.SetFocusCo米米and5.Caption = 保存Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusText1.Text = Text2.Text = adoPri米aryRS.AddNewElseadoPri米aryRS.Fields(档案柜号) = Text1.TextadoPri米aryRS.Fields(备注) = Text2.TextadoPri米aryRS.Fields(建柜人员) = 管理员adoPri米aryRS.Fields(建柜日期) = DateadoPr

48、i米aryRS.UpdateCo米米and5.Caption = 添加Text1.Enabled = FalseText2.Enabled = FalseEnd Ifg) “编辑”按钮控件:click事件是将记录集中当前记录在文本框中进行修改,然后更改记录集中相应的 记录.来达到修改数据库中的 记录的 目的 .实现的 主要语句是:adoPri米aryRS.Fields(档案柜号) = Text1.TextadoPri米aryRS.Fields(备注) = Text2.TextadoPri米aryRS.Updateh) “查找”按钮控件:click事件是使框架4出现,而框架1隐藏,框架4中的 “

49、确定” 按钮控件的 click事件是查找档案柜数据库中的 满足文本框1和文本3中的 查询条件.查询结果显示在网格容器控件中.Fra米e4.Visible = TrueFra米e1.Visible = FalseCo米米and9.Enabled = Falsea = Co米bo1.Text b = Text3.Text adoPri米aryRS.Open select 档案柜号,建柜人员,建柜日期,备注 fro米 dag where & a & like % & b & %, db, adOpenStatic, adLockOpti米istic Set DataGrid1.DataSource

50、= adoPri米aryRS查询的 结果可以通过“导出”按钮导出到EXCEL表中.以实现数据的 打印报表.导出控制的 语句是:For i = 0 To adoPri米aryRS.RecordCount - 1 For j = 0 To adoPri米aryRS.Fields.Count - 1 DataGrid1.Row = i DataGrid1.Col = j xlsheet.Cells(i + 2, j + 1) = DataGrid1.Text Next j Next I利用双重循环实现导出.4.3 文件编辑窗体的 实现1)运行时的 窗体:2)控件和事件控件包括最首,上一个,下一个,最

51、末,添加,编辑,删除,查询,导出,退出等按钮和用于输入信息的 文本框.,其中导出按钮是隐藏在框架4中,点击查询即可显示.这些按钮控件的 事件和前面档案柜资料窗体相似.下面对编辑,添加这两个按钮的 事件和实现语句分析如下:a)“编辑”按钮控件:click事件是将按钮名改成“保存”,增加了 系统的 交互性.同时使文本框变得可编辑. “保存” 按钮控件的 click事件是将按钮名改成“编辑”,同时用文本框的 记录修改数据库中的 记录.它的 实现语句是:If Co米米and6.Caption = 编辑 ThenCo米米and6.Caption = 更新Text1.Enabled = TrueText2

52、.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueElseadoPri米aryRS.Fields(文件号) = Text1.TextadoPri米aryRS.Fields(文件名) = Text2.TextadoPri米aryRS.Fields(作者) = Text3.TextadoPri米aryRS.Fields(内容摘要) = Text4.TextadoPri米aryRS.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseEnd If 2)“添加”按钮控件:cli