毕业论文-VB6.0学生档案管理系统设计（含源程序）.docVIP

北京理工大学 现代远程教育 学院毕业设计 (论文) 第 1 页 摘摘 要要 全套源程序，代码，联系 153893706 学生档案管理系统是典型的信息管理系统 (MIS),其开发主要包 括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于 前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于 后者则要求应用程序功能完备 ,易使用等特点。 经过分析,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工 具,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能 方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用 原型,然后,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形 成用户满意的可行系统。 关键词：VISUAL BASIC、控件、窗体、域 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 2 页 ABSTRACT The system of managing student file is a typical application of managing information system （know as MIS）, which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used. By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data- base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it. KeyWord: VISUAL BASIC 、ActiveX , Form , Field 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 3 页 目录 摘摘 要要1 ABSTRACT .2 目目录录 3 前前言言 5 第第一一章章 学学生生档档案案系系统统应应用用分分析析及及实实现现 .6 第第二二章章 开开发发工工具具简简介介 7 2.1 数据库应用 .7 2.2 接口应用.7 第第三三章章 VISUAL BASIC 开开发发方方法法 8 3.1 菜单的实现方法 .8 3.2 工具栏的实现方法 8 3.2.1 CoolBar控件.8 3.2.2 Toolbar控件9 3.3 MSDN9 3.4 APP 对象 .9 第第四四章章 ACCESS2000 数数据据库库应应用用的的实实现现 .10 4.1 数据库基本概念 .10 4.2 如何新建数据库 .10 4.3 如何修改数据库 .11 第第四四章章 学学生生档档案案管管理理系系统统开开发发的的可可行行性性规规则则12 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 4 页 41 学生档案系统开发过程 .12 4.1.1 软件计划12 4.1.2 需求分析12 4.1.3 软件设计12 4.1.4 编程.12 4.1.5 测试.12 第第五五章章 学学生生档档案案管管理理系系统统设设计计 .13 5.1 数据输入 .13 5.2 档案查询 .13 5.3 信息浏览 .13 5.4 报表输出 .13 5.3 系统设计与实现 .13 5.3.1数据库设计.14 5.3.2 登陆界面设计14 5.3.3 主界面设计15 5.4 功能设计 .16 5.4.1 档案管理模块16 5.4.2 目录管理模块17 5.4.3 添加、修改档案模块.17 5.4.4 查询模块18 5.4.5 帮助界面设计19 第第六六章章 总总结结.20 参参考考资资料料.20 附附录录 21 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 5 页 前前言言 学生档案管理系统是一个教育单位不可缺少的部分,它的内容 对于学校的决策者和管理者来说都至关重要 ,所以学生档案管理系 统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人 们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如: 效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对 于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能 已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重 要的作用。 作为计算机应用的一部分 ,使用计算机对学生档案信息进行管理 ,具 有着手工管理所无法比拟的优点 .例如:检索迅速、查找方便、可靠 性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大 地提高学生档案管理的效率 ,也是企业的科学化、正规化管理 ,与世 界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的 各章中我们将以开发一套学生档案管理系统为例 ,谈谈其开发过程 和所涉及到的问题及解决方法。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 6 页 第第一一章章 学学生生档档案案系系统统应应用用分分析析及及实实现现 管理信息系统（ MIS）是进行信息的采集、存储、加工、维护和 使用的系统。它是随着管理科学和技术科学的发展而形成的。学生档 案管理系统是一个教育单位不可缺少的部分 ,它的内容对于学校的 决策者和管理者来说都至关重要 ,所以学生档案管理系统应该能够为 用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人 工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、 保密性差,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、 更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能 已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重 要的作用。 作为计算机应用的一部分 ,使用计算机对学生档案信息进行管理 ,具 有着手工管理所无法比拟的优点 .例如:检索迅速、查找方便、可靠 性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大 地提高学生档案管理的效率 ,也是企业的科学化、正规化管理 ,与世 界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事 情, 。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 7 页 学生档案管理系统是我个人根据所学开发的信息管理系统(MIS), 其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两 个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好 的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析,我使用 MICROSOFT 公司的 VISUAL BASIC 开发工具, 利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便 而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然 后,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户 满意的可行系统。 第第二二章章 开开发发工工具具简简介介 微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具， 使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能， 减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高 了应用程序的运行效率和可靠性。故而，实现本系统VB 是一个相 对较好的选择。 2.1 数数据据库库应应用用 Access2000 就是关系数据库开发工具，数据库能汇集各种信息 以供查询、存储和检索。 Access 的优点在于它能使用数据表示图或 自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电 子表格，可以使数据库一目了然。另外， Access 允许创建自定义 报表用于打印或输出数据库中的信息。 Access 也提供了数据存储库， 可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他 网络用户共享数据库。 Access 是一种关系数据库工具，关系数据库 是已开发的最通用的数据库之一。如上所述， Access 作为关系数 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 8 页 据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库 的便利和关系数据库的强大功能。 2.2 接接口口应应用用 微软的 JET 数据库引擎提供了与数据库打交道的途径，我们是 通过它以及 Visual Basic 来访问数据库并对其进行各种操作。 Visual Basic、Access 以及其他微软的软件产品都是通过共用JET 数据库引擎，从而给用户提供了丰富的数据类型。 DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic 程序之间架起了一座桥梁。我们可以设置DATA 控件的各个属 性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA 控 件根据数据库中的一个或多个数据表建立一个dynaset-type（动 态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原 来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。 DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将DATA 控 件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建 立联系。 第第三三章章 Visual Basic 开开发发方方法法 Visual Basic 应用程序基本的构建块是用户所创建的对象，每 一个对象都具有一些特性和行为（属性、事件和 方法） 。开发人员 可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可 说扩展性和强有力的功能。 Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、 结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 9 页 如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使 用。 3.1 菜菜单单的的实实现现方方法法 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好 的菜单使程序易于使用和维护， Visual Basic 也提供了强大的创建 菜单功能是程序更加标准。 您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 3.2 工工具具栏栏的的实实现现方方法法 3 3. .2 2. .1 1 C Co oo ol lB Ba ar r 控控件件 CoolBar 控件与 Office2000 中看到的 CoolBar 是类似的。 CoolBar 就是一个可以在窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁入其他空间你局可以向用户 提供更好的灵活性和义用性。 3 3. .2 2. .2 2 T To oo ol lb ba ar r 控控件件 Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可 以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠 标停留在其上显示的提示字符。 Toolbar 也是一个控件容器且具有 Style 属性，并可以为其增加下拉按钮和平滑按钮等。 选择“工程”下拉菜单中的 “部件”选项，显示 “部件”对话 框。在“控件”选项卡列表中选择 “Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象如下： Align 属性定义工具条在窗体中的位置 ToolTipText 属性是字符串类型，定义控件的提示字符 Style 属性定义按钮外观。 ImageList 属性定义与数据条对应的 ImageList 控件名，该控 件定义工具条按钮显示的图像。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 10 页 HotImangeList 属性设置一个 ImageList 控件名，该控件定义 按钮获得热点时显示的图像。 DisabledImageList 属性定义工具条按钮无效时显示的图像。 创建工具条包括 ImageList 和 Toolbar 控件 ImageList 用于为其他控件提供图像库，将ImageList 控件加 入到工具箱的操作于前述 Toolbar 控件相同。 3.3 MSDN 专业水平的软件通常都带有联机帮助功能。无论写出来的程序是 要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们 都应该为用户提供详细的、易于理解的联机帮助文档。微软的 MSDN 是一套独立于 Visual Basic 的用来协助我们创建、运行于 32 位 Windows 操作系统下的帮助文件的工具。使用它我们可以为我 们编写的应用程序生成一组帮助文件。 3.4 APP 对对象象 为了是程序显得更具有专业风格，首先可以在其中加入通常的应 用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似 信息。Visual Basic 允许你使用 APP 对象来保存这些信息， APP 对 象是一个预定义对象，不需要在程序中创建它。 APP 对象的大多数 属性被应用程序用来提供常规的信息，通过使用这些APP 提供的属 性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以 设置它的属性。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 11 页 第第四四章章 Access2000 数数据据库库应应用用的的实实现现 4.1 数数据据库库基基本本概概念念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用 在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的 数据库可以分为两类：非关系数据库（ flat-file）和关系数据库 （relational） 。关系数据库中包含了多个数据表的信息，数据库含 有各个不同部分的术语，象记录、域等。 4.2 如如何何新新建建数数据据库库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是 灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设 计。 1标识需要的数据； 2收集被标识的字段到表中； 3标识主关键字字段； 4绘制一个简单的数据图表； 5规范数据； 6标识指定字段的信息； 7创建物理表。 4.3 如如何何修修改改数数据据库库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 12 页 体方法。 4.4 数据库联接共享 数据库之间的关系指明两个库之间共享一个共同的关键字值。一 个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个 不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中 查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指 一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的 组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键 字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在 数据库中如何与其它的库建立关系。 第第四四章章 学学生生档档案案管管理理系系统统开开发发的的可可行行性性规规则则 41 学学生生档档案案系系统统开开发发过过程程 管理信息系统的开发是一个复杂的系统工程。开发过程可划分为 下列六个阶段，每个阶段有明确的开发任务。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 13 页 4 4. .1 1. .1 1 软软件件计计划划 确定系统的总目标、功能、性能、可靠性以及接口等方面。对系 统使用的资源、成本、可取得的效益进行分析，探讨解决问题的方案， 最终完成系统的可行性研究。 4 4. .1 1. .2 2 需需求求分分析析 应确定哪些需求是可以满足的，并对此进行描述，写出软件需求 说明书以及初步制作的系统的草稿。 4 4. .1 1. .3 3 软软件件设设计计 应把已确定的各项需求转换成相应的体系结构。其中包括根据数 据需求抽象为系统概念模式，并进面定义成相应的数年据库；把已确 定的各项功能划分为相应的模块，使每个模块和特定的功能需求相对 应。然后，对模块完成的工作进行具体的描述。 4 4. .1 1. .4 4 编编程程 编写程序是将软件设计转换为程序代码的过程，完成软件设计中 每功能模块程序设计。 4 4. .1 1. .5 5 测测试试 将编程完成的程序代码通过测试检查软件的各个组成部分的正确 性，确定是达了要求。 第第五五章章 学学生生档档案案管管理理系系统统设设计计 设计档案系统，需要运用窗体和控件、过程代码、数据库设计等 许多知识。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 14 页 档案系统包括档案名称、档案说明、档案类型等。 档案管理就是将上述信转变为计算机能接受的数据送入计算机， 系统包括学生档案数据输入、信息查询、信息浏览及报表输出等功能。 5.1 数数据据输输入入 对学生档案信息的管理，包括学生档案信息的输入、添加、删除 和修改。 5.2 档档案案查查询询 通过查询，将满足查询条件的信息显示在窗体上。 5.3 信信息息浏浏览览 将满足分析条件的数据在报表中显示出来。 5.4 报报表表输输出出 可以将查询的结果数据通过报表输出，也可打印输出。 5.3 系系统统设设计计与与实实现现 系统设计包括登陆界面设计、数据库设计、主界面设计、菜单设 计和功能设计。功能设计包括输入设计、查询等设计。原代码见附录。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 15 页 5 5. .3 3. .1 1 数数据据库库设设计计 数据库采用 Access 数据库，使用 VisData 或在 Access 环境中 创建数据库 personal 学生信息表 (File)如下： （图 1） 通过数环境设计器的查询设计窗口，将学生信息表(personal) 中的字段添加到设计器中。 5 5. .3 3. .2 2 登登陆陆界界面面设设计计 登陆界面是用户进入系统前必须要验证身份的一个必要步骤。 此界面由两个标签、两个文本框和两个按钮组成。 登陆界面运行如下： 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 16 页 （图 2） 5 5. .3 3. .3 3 主主界界面面设设计计 主界面是用户打开系统首先见到的界面，也是进入其他模块的入 口。 主界面将常用菜单项设计为工具栏，在工具栏上有输入档案管理、 目录管理、添加档案、修改档案、删除档案、搜索档案、帮助和退出 菜单。 主界面运行如下： 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 17 页 （图 3） 5.4 功功能能设设计计 5 5. .4 4. .1 1 档档案案管管理理模模块块 档案管理模块用来输入档案类别、文件名称、档案说明、参考说 明等。 输入学生信息运行界面如下图所示： 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 18 页 （图 4） 5 5. .4 4. .2 2 目目录录管管理理模模块块 目录管理模块可以实现添加、修改和删除，用户可以方便的 添删和编辑各种档案类型。 运行效果图如下 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 19 页 （图 5） 5 5. .4 4. .3 3 添添加加、修修改改档档案案模模块块 添加模块用于添加新档案，修改模块可以对已经归档的档案进行 编辑。 效果图如下： （图 6） 5 5. .4 4. .4 4 查查询询模模块块 通过主界面进入查询窗体，查询模块用于查询显示满足不同条件 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 20 页 学生的基本情况。 界面设计： 在窗体中有一个标签 (Label)、四个选择框（ Check box） 、一 个按钮(CommandButton)和一个 Adodc 控件。 窗体设计界面运行如下： （图 7） 功能设计： 可以在（Check box）中选择所需要查询的条件 单击“开始搜索”按钮，直接进入到查询结果窗体界面 frmresult 中去。在 frmresult 窗体中可以显示出所要查询信息结 果。 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 21 页 5 5. .4 4. .5 5 帮帮助助界界面面设设计计 界面设计： 一个框架(Frame)、一个标签 (Label) 、两个按钮 (CommandButton)、一个选择框（ Check box） 窗体运行界面如下： （图 8） 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 22 页 第第六六章章 总总结结 经过一段时间的设计和开发，中小学档案管理系统基本开发完 毕。其功能基本符合用户需求，能够完成学生 档案的存储和档案的 查询以及各类相关报表的打印。并提供部分系统维护功能,使用户 方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也 通过程序进行了有效的解决。 但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的 地方，比如联机文档比较少， 网络功能不完善， 用户界面不够美观， 出错处理不够等多方面问题。这些都有待进一步改善。 参参考考资资料料 1. Visual Basic 6.0 中文版实用教程 2. 萨师煊,王珊。数据库系统概论 .北京:高校教育出版社 ,1985 3. 王勇领.计算机数据处理系统分析与设计 .北京:清华大学出版社 ,1986 4. 薛华成.管理信息系统 .北京:清华大学出版社 ,1993 5. 毕庶伟.管理信息系统分析与设计 .北京:机械工业出版社 ,1992 6. 罗晓沛,侯炳辉.系统分析员教程 .北京:清华大学出版社 ,1992 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 23 页 7. 陈景艳.管理信息系统 .北京:北方铁道出版社 ,1991 附附录录 学学生生档档案案管管理理系系统统程程序序及及内内容容 ： 登陆模块 Option Explicit Dim LOGINNO As Integer Dim PassYu(30) As String, strPurView(30) As String Private Declare Function SetActiveWindow Lib “user32“ (ByVal hwnd As Long) As Long Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() 检查密码的正确性 Dim X As Long X = UserTxt.ListIndex 如果有加密，解密方法放此处，将PassYu(X)数组中的值， 转换成原来信息 Dim FindStr As String 将加密口令变回来 Dim shiftStr As String, shiftStrR As Variant, shiftNum As Integer, ili As Integer, SureStr As String shiftStr = Trim(txtPassword.Text) shiftNum = Len(shiftStr) ili = 1 SureStr = “ For ili = 1 To shiftNum shiftStrR = Mid(shiftStr, ili, 1) 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 24 页 shiftStrR = Asc(shiftStrR) shiftStrR = shiftStrR - 3 shiftStrR = Chr(shiftStrR) SureStr = SureStr & shiftStrR Next 密匙 开始查找 sureStr 为解除的口令 If SureStr = PassYu(X) Then UserText = UserTxt.Text PurView = strPurView(X) 密码正确时 frmLogin.MousePointer = 11 Unload Me frmSplash.Show Exit Sub Else MsgBox “无效的密码，再试一次！ “, 32, “登录“ LOGINNO = LOGINNO + 1 If LOGINNO 3 Then MsgBox “对不起，您不能使用该系统！ “, 64, “登录失败 “ Unload Me Exit Sub End If txtPassword.SetFocus SendKeys “Home+End“ End If End Sub Private Sub Form_Load() On Error Resume Next Me.Left = Val(GetSetting(App.EXEName, “Login“, “Left“) Me.Top = Val(GetSetting(App.EXEName, “Login“, “Top“) Dim retValue As Long retValue = SetActiveWindow(Me.hwnd) Browser = CurDir() 设计时定义 temp dir Browser = “D:ProgramStudy文件管理 “ 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 25 页 If Right(Browser, 1) = 1 Then UserTxt.ListIndex = 0 End If LOGINNO = 1 End Sub Private Sub Form_Resize() On Error Resume Next If Me.WindowState = 1 Then Exit Sub Me.Width = 4410 Me.Height = 2040 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 26 页 End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting App.EXEName, “Login“, “Left“, Me.Left SaveSetting App.EXEName, “Login“, “Top“, Me.Top End Sub Private Sub lblLabels_Click(Index As Integer) End Sub Private Sub UserTxt_Click() SendKeys “Tab“ End Sub Private Sub UserTxt_LostFocus() txtPassword.SetFocus End Sub 主界面 * * Function Declarations: From Wenxingyuan Dim MouseD As Boolean, Oldx As Single, Oldy As Single Private Declare Function ShellExecute& Lib “shell32.dll“ Alias “ShellExecuteA“ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) Dim showT As Boolean Private Sub MDIForm_Activate() If showT = True Then Exit Sub Dim Ltp As Long Ltp = GetSetting(App.EXEName, “Options“, “Show Tips at Startup“, 1) 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 27 页 If Ltp = 1 Then frmTip.Show End If showT = True End Sub Private Sub MDIForm_Load() frmMain.MousePointer = 11 Dim Ltp As Long frmMain.WindowState = GetSetting(App.EXEName, “Windows“, “Windows Status“, 1) Me.Left = GetSetting(App.Title, “Settings“, “MainLeft“, 1000) Me.Top = GetSetting(App.Title, “Settings“, “MainTop“, 1000) Me.Width = GetSetting(App.Title, “Settings“, “MainWidth“, 6500) Me.Height = GetSetting(App.Title, “Settings“, “MainHeight“, 6500) 配置图片 StatusBar.Panels.Item(3).Text = “日期:“ & Format(Date, “Long Date“) frmMain.Caption = TempArray(0) + “-档案管理系统 “ frmMain.StatusBar.Panels.Item(6).Text = “制作单位： “ + TempArray(0) frmMain.StatusBar.Panels.Item(6).ToolTipText = “欢迎使用本软件 “ frmMain.MousePointer = 0 On Error Resume Next frmMain.Picture = LoadPicture(TempArray(5) frmMain.StatusBar.Panels.Item(2).Text = “准备就绪 .“ showT = False 权限控制 Select Case PurView Case “只能添加 “ MnuCompany.Enabled = False MnuEmploy.Enabled = False Case “不能修改 “ MnuCompany.Enabled = False MnuEmploy.Enabled = False 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 28 页 Case “可以修改 “ MnuEmploy.Enabled = False Case “超级权限 “ 没有权限限制 End Select 显示路径 MnuDataPathDisplay.Caption = “当前数据库路径： “ & ConData Exit Sub PhotoValible: MsgBox “桌面图片配置有错误 ,请重新配置桌面 !“, vbOKOnly + 16, “警告!“ frmMain.MousePointer = 0 Exit Sub End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 右键按下时 PopupMenu MnuSystem End If End Sub Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If frmMain.StatusBar.Panels.Item(2).Text = “待命状态 .“ Then Exit Sub Else frmMain.StatusBar.Panels.Item(2).Text = “待命状态 .“ End If End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 29 页 Dim SureQ As Integer SureQ = MsgBox(“真的退出该系统吗 (Y/N)？ “, vbYesNo + 32, “请确认.“) If SureQ = 6 Then Cancel = 0 Else Cancel = -1 End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i) Next If Me.WindowState “ Then 查询时 Set rsTitles = mdbFile.OpenRecordset(“Select * from Detail Where Name =“ & rsPublishers!Name & “ & strSearchString) Else Set rsTitles = mdbFile.OpenRecordset(“Select * from Detail Where Name =“ & rsPublishers!Name & “) End If Do Until rsTitles.EOF Set mNode = TreeView.Nodes.Add(IntIndex, tvwChild) mNode.Text = rsTitles!档案号 mNode.Key = rsTitles!档案号 mNode.Tag = “SFile“ mNode.Image = “File“ rsTitles.MoveNext Loop rsPublishers.MoveNext Move to next Publishers record. Loop TreeView.Nodes(1).Sorted = True TreeView.Nodes(1).Expanded = True 释放数据库 rsTitles.Close rsPublishers.Close mdbFile.Close Set mdbFile = Nothing 取消所有档案操作 MnuAddFile.Enabled = False MnuModifyFile.Enabled = False MnuDeleteFile.Enabled = False Me.MousePointer = 0 End Sub Private Sub ListView_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 38 页 If lShow = False Then Exit Sub 已经隐藏时退出 lLeft.Visible = False lRight.Visible = False lTop.Visible = False lBottom.Visible = False lShow = False End Sub Private Sub ListView_Resize() lblFileCaption.Left = (ListView.Width - lblFileCaption.Width) / 2 lblLine.Width = ListView.ScaleWidth lblLine.Left = -20 Label2.Left = -20 Label2.Width = ListView.ScaleWidth End Sub Public Sub MnuAddFile_Click() Me.MousePointer = 11 frmNewForm.Show 1 Me.MousePointer = 0 End Sub Public Sub MnuDeleteFile_Click() If MsgBox(“真的要删除档案吗？ “ & vbCrLf & vbclrf & vbCrLf & strFileID & “ 是/否？ “, vbYesNo + vbCritical + vbDefaultButton2, “档案删除后将 不能恢复 !“) = vbNo Then Exit Sub Dim strTemp As String DBEngine.BeginTrans Set mdbFile = OpenDatabase(ConData, False, False, ConStr) 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 39 页 strTemp = “Delete * From Detail Where Name=“ & strFileType & “ And 档 案号=“ & strFileID & “ mdbFile.Execute strTemp mdbFile.Close Set mdbFile = Nothing DBEngine.CommitTrans 刷新数据 Call cmdLoad_Click frmMain.Toolbar1.Buttons(5).Enabled = False frmMain.Toolbar1.Buttons(6).Enabled = False frmMain.Toolbar1.Buttons(7).Enabled = False MnuAddFile.Enabled = False MnuModifyFile.Enabled = False MnuDeleteFile.Enabled = False End Sub Private Sub MnuExit_Click() Unload frmMain End Sub Private Sub MnuFolder_Click() Me.MousePointer = 11 frmCatalog.Show 1 Me.MousePointer = 0 End Sub Public Sub MnuModifyFile_Click() Me.MousePointer = 11 frmModifyForm.Show 1 Me.MousePointer = 0 End Sub 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 40 页 Private Sub MnuOpenFile_Click() Call picEditFile_Click End Sub Private Sub MnuRefresh_Click() strSearchString = “ 查询条件为空 Call cmdLoad_Click End Sub Private Sub MnuReturn_Click() Unload Me End Sub Public Sub MnuSearchFile_Click() Me.MousePointer = 11 frmSearchForm.Show 1 Me.MousePointer = 0 End Sub Private Sub picEditFile_Click() On Error Resume Next 编辑档案 Dim retVal As Long retVal = ShellExecute(Me.hwnd, “Open“, txtFields(1).Text, “, App.Path + “File“, 1) If retVal = 2 Then 文件不存在 MsgBox “下面文件没有找到： “ & vbCrLf & vbCrLf & txtFields(1).Text 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 41 页 & “ “, vbInformation, “档案管理系统 “ Exit Sub End If If retVal = 31 Then 文件不能打开时 If MsgBox(“系统不能自动打开下面文件： “ & vbCrLf & vbCrLf & txtFields(1).Text & _ vbCrLf & vbCrLf & “是否使用其它 Open 方法试试 ,(是/否)? “, vbYesNo + vbQuestion, “档案管理系统 “) = vbNo Then Exit Sub Else 使用 Explorer 打开文件 retVal = Shell(“Explorer.Exe “ & txtFields(1).Text, vbNormalFocus) End If End If End Sub Private Sub picEditFile_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) lTop.BorderColor = &H808080 lBottom.BorderColor = &HFFFFFF End Sub Private Sub picEditFile_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If lShow = True Then Exit Sub 已经显示时退出 lLeft.Visible = True lRight.Visible = True lTop.Visible = True lBottom.Visible = True lShow = True End Sub 北京理工大学 现代远程教育 学院毕业设计 (论文) 第 42 页 Private Sub picEditFile_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) lTop.BorderColor = &HFFFFFF lBottom.