图书馆管理系统 定稿

1、软件工程实验报告课题题目： 图书馆管理系统_ 专 业： 计算机信息科学 班 级： 计算机089专本 学 号： 姓 名： 指导教师： 摘 要本课题针对当前我国图书借阅管理多数采用人工管理的现状以及即使采用了计算机图书管理系统却不能完全满足本单位图书管理的需要的实际情况出发，对图书管理业务经过详细的系统调查，开发出的操作简单而且方便实用的一个图书借阅管理系统，以适应新时代发展的需要。本系统使用Visual Basic6.0开发工具，结合SQL Server 2000数据库管理系统，SQL Server 2000 桌面引擎数据库服务器，来实现数据库的操作。图书借阅管理系统主要对图书管理日常工作中遇到

2、的实际问题，例如书籍信息、读者信息、借阅信息、能够实现以下任务：借还图书操作、书库维护操作等。【关键词】图书；Visualbasic6.0；读者；借阅目 录前 言1第一章 系统概述21.1 系统开发背景和意义21.2 开发环境3第二章 系统需求分析42.1 任务概述42.2 数据描述(数据流图+数据字典)62.3 功能需求182.4性能需求18第三章 系统总体设计203.1 新的业务流程203.2 系统功能模块图203.3 系统的流程图21第四章 详细设计234.1 程序流程图234.2 程序输入输出描述254.2.1 主模块254.2.1 学生管理模块254.2.2 图书管理模块254.2.

3、3 借阅管理模块254.2.4 归还管理模块254.2.5 管理措施设置模块254.3 程序接口描述264.3.1 外部接口264.3.2 内部接口264.4 数据库的设计264.4.1 数据库的逻辑设计264.4.2 数据库的物理设计28第五章 编码实现315.1 程序编码31第六章 测试分析报告506.1 测试计划和要点516.1.1 主模块测试要点516.1.2 借阅模块测试要点516.1.3 学生查询模块测试要点526.1.4 图书查询模块测试要点526.1.5 图书归还模块测试要点526.2 测试用例526.2.1 主模块测试用例536.2.2 借阅模块测试用例536.2.3 学生查

4、询模块测试用例546.2.4 图书查询模块测试用例546.2.5 图书归还模块测试用例556.3 测试结果及结论556.3.1 测试的结果556.3.2 缺陷分析及改进576.3.3 测试结论57总 结58参考文献59致 谢60 前 言 随着计算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。目前，我国的科技水平高速发展，计算机作为今天使用最广的现代化工具已深入到各个领域，并且正在成为未来社会信息社会的重要支柱。在这样的大背景下，现代图书馆的管理方式，资源建设等方面都发生了重大变化，这种变化表现在图书馆工作，管理和服务平台发生的变化，图书馆不再是传统的手工操作

5、，人工管理，而是全面实行计算机管理。图书馆的正常运营中总是面对大量的读者信息，图书信息以及两者相互作用产生的借书信息，因此要对读者资源，图书资源，借书信息进行管理。本系统的开发就是在于提高图书管理的工作效率，加强图书馆的管理，全面实行计算机管理。第一章 系统概述1.1 系统开发背景和意义图书管理是高校内每一个系部或院部都必须切实面对的工作，但一直以来人们使用传统的人工方式管理图书资料。这种方式存在着许多缺点，如效率低、保密性差且较为繁琐。工作效率很低，并且不能及时了解图书馆各类图书的存库，读者比较需求的图书难以在短时间找到、图书的入库和更新比较麻烦等等，不便于动态及时调整图书结构。同时由于不可

6、避免的人为因素，造成数据的遗漏、误报等。另外，随着图书资料数量的增加，其工作量也将大大增加，这必将增加图书资料管理者的工作量和劳动强度，这将给图书资料信息的查找、更新和维护都带来了很多困难。经过详细的调查，目前我国各类高等学校中有相当一部分单位图书资料管理还停留在人工管理的基础上。这样的管理机制已经不能适应时代的发展，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，这种传统的手工管理方法必然被以计算机为基础的信息管理方法所取代。图书管理作为计算机应用的一个分支，有着手工管理无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高图书管

7、理的效率。因此，开发一套能够为用户提供充足的信息和快捷的查询手段的图书管理系统，将是非常必要的，也是十分及时的。为了更好的适应当前读者的借阅需求，缓解手工管理存在的各种弊端，我们开发了图书馆查询管理系统，图书查询管理系统向用户提供的服务将传统的“采编借查”基础上，进一步提供全方位的信息服务。具有以下几个特点：可以存储所有馆中图书的资料以及借阅人员的情况，具有安 全，高效的特性。只需一至二名档案录入人员即可操作系统，节省大量人力。可以迅速查到所需信息。用户的需求可分为如下4个方面：第一是图书馆人员通过计算机来管理各种图书、编号、增加图书库存、适应读者的需求；第二是读者能通过计算机来查询浏览图书馆

8、中的图书，来确定自己需要的书籍，为借阅做好准备；第三是管理员可以对管理者和操作员及读者进行增删改；第四是工作人员对读者的借书情况能做好全面掌握，对图书的借阅进行管理。在软硬件方面对系统的需求，软件要求易学，容易掌握，可以很方便地管理各种图书信息。硬件的配置要求不能太高，这样可以很好的适应当前的学校图书馆。在开发过程中，采用了SQL Server 2000网络数据库，使得本系统可以方便的和其他子系统进行数据交换。同时，注意从软件的图形应用界面上优化软件质量，使得本系统具有较强的可操作性。总之，图书管理系统旨在提供一个可以操作的，查询的，易于修改的辅助管理系统。同时提供了系统智能辅助与用户自主选择

9、的两种方式，提高查询效率。1.2 开发环境开发环境的选择会影响到数据库的设计，所以在这里给出图书管理系统开发与运行环境的选择如下：开发环境：Windows 2000开发工具：Visual Basic 6.0数据库管理系统： SQL Server 2000数据库服务器： SQL Server 2000 桌面引擎第二章 系统需求分析2.1 任务概述我所在的学校，在三年的时间里，我经常光顾我校图书馆借阅图书，发现我校图书馆的借阅操作仍使用手工管理。在本系统被批准立项之后，我实地去我校图书馆进行了参观和学习，现对该单位图书馆的整体情况进行调研，调研分两步进行，一是初步调研，二是详细调研。由于该图书馆职

10、工人数较少，因此在调研时采用了会议讨论法和个人访谈法两种方法，通过会议讨论法了解图书馆的整体情况，对开发新系统的态度等。通过个人访谈法了解各个部门的主要职能及具体运作方式、过程等。经过详细调查，并多次与负责图书管理的老师进行研讨后，加深了对现行图书管理业务的深刻了解，与此同时，将整个图书管理的业务流程抽象描述如下：1.新的图书购进后，分门别类地进行归并并汇总，加以编号。2.新书编号后，上到书架以备学生借阅。3.如某学生需要借阅图书，则在其本人的借阅登记表上进行登记，记录相关借阅信息与借阅日期。4.学生借阅图书后，应及时归还图书，并在本人的借阅登记表上注明还书日期和时间。根据以上调查分析，可以给

11、出其现行业务流程图如图2.1所示。图2.1 现行图书管理业务流程图图书馆系统实体-关系图维护功能（第一步）DFD维护功能（修改） DFD2.2 数据描述(数据流图+数据字典)经过详细的调查，我们已经清楚了解了现行的业务流程，接下来给出系统的逻辑模型。构造系统逻辑模型的工具是数据流图和数据字典。根据现行图书管理的业务流程，首先把数据流图中的源点和终点都选定为学生，因此可以得到图书管理系统的基本系统模型，如图2.2所示。图2.2 图书管理系统的基本系统模型根据基本系统模型，对其逐步细化，得到描述逻辑系统细化后的数据流图，如图2.3所示。图2.3 图书管理系统数据流图（顶层DFD图）对顶层DFD图中

12、的一个加工“学生管理”进行展开，如图2.4。图2.4 细化后数据流图对顶层DFD图中的一个加工“图书管理”进行展开，如图2.5。图2.5 “图书管理”展开对第1层DFD图中的加工进一步进行展开，如图2.6。(1)(2)图2.6 进一步细化数据流图有了系统的数据流图后，还有相当多的数据信息如图书、借阅、归还等信息需要进一步描述，这就是需要定义数据字典，才能把现有的系统描述清楚。图2.7列出了系统的主要数据字典。图2.7 系统主要数据字典数据字典文字描述图书管理系统数据流图中，数据信息和处理过程需要通过数据字典才能描述清楚。在定义的图书管理系统数据字典中，主要对数据流图中的数据项、数据流、数据存储

13、和处理过程进行说明。（1） 数据项描述 1）数据项名称：借书证号 含义说明：惟一标识一个借书证 类型：字符型 长度：50 逻辑关系：不允许为空 2）数据项名称：用户名 含义说明：读者的名称 类型：字符型 长度：20 逻辑关系：不允许为空 3）数据项名称：密码 含义说明：对用户名和操作员管理员进行加密 类型；字符型 长度：10 逻辑关系：允许为空 4）数据项名称：性别 类型：字符型 长度：10 逻辑关系：允许为空 5）数据项名称：所在系别 类型；字符型 长度：10 逻辑关系：允许为空 6）数据项名称：所在班级 类型：字符型 长度：10 逻辑关系：允许为空 7）数据项名称：操作员名称 类型：字符型

14、 长度：30 逻辑关系：不允许为空 8）数据项名称：操作员简称 含义说明：惟一标识一个操作员 类型：字符型 长度：10 逻辑关系：不允许为空 9）数据项名称：操作员级别 含义说明：对操作员和管理员进行区分 类型：字符型 长度：10 逻辑关系：不允许为空 10）数据项名称：图书编号 含义说明：惟一标识一个图书 类型：字符型 长度：10 逻辑关系：不允许为空 11）数据项名称：图书名称 类型：字符型 长度：50 逻辑关系：不允许为空 12）数据项名称：作者 类型：字符型 长度：50 逻辑关系：不允许为空 13）数据项名称：作者 类型：字符型 长度：50 逻辑关系：不允许为空 14）数据项名称：作者

15、 类型：字符型 长度：50 逻辑关系：不允许为空 15）数据项名称：出版社 类型：字符型 长度：50 逻辑关系：不允许为空 16）数据项名称：出版时间 类型：日期时间型 长度：8 逻辑关系：不允许为空 17）数据项名称：价格 类型：整型 长度：4 逻辑关系：不允许为空 18）数据项名称：备注 类型：字符型 长度：200 逻辑关系：允许为空 19）数据项名称：借书日期 类型：日期时间 长度：8 逻辑关系：不允许为空 20）数据项名称：还书日期 类型：日期时间 长度：8 逻辑关系：不允许为空（2）数据结构描述 1）数据流名称：用户情况 含义说明：定义了一个读者的有关信息组成结构：用户情况=用户名+

16、借书证号+密码+性别+所在系别+所在班级 2）数据流名称：操作员情况 含义说明：定义了一个操作员的有关信息 组成结构:操作员情况=操作员名称+操作员简称+操作员级别+操作员密码3） 数据流名称：图书情况 含义说明：定义了一个图书的有关信息 组成结构：图书情况=图书编号+图书名称+作者+出版社+出版时间+价格+备注（3） 数据流（非数据项）说明 1）数据流名称：借书单 含义：读者借书时要填写的单据 来源：读者 去向：审核借书 数据流量：250份/天 组成：借书单=借书证号+图书编号+借书日期 2）数据流名称：还书单 含义：读者还书时要填写的单据 来源：读者 去向：审核还书 数据流量：250份/天

17、 组成：还书单=图书编号+还书日期（4） 数据存储说明1） 数据存储名称：图书数据表 含义说明：存放图书的有关信息 组成结构：图书编号+图书名称+作者+出版社+出版时间+价格+备注 说明；书号具有惟一性和非空性 2） 数据存储名称：用户信息表 含义说明：存放读者的注册信息 组成结构：用户名+借书证号+密码+性别+所在系别+所在班级 说明：证号具有惟一性和非空性，性别只能是男和女 3） 数据存储名称：借书记录 含义说明：存放读者的借书，还书信息 组成结构：借书证号+图书编号+借书日期+还书日期 说明：要求能够立即查询（5） 处理过程说明 1）处理过程名称：图书管理 输入：图书情况， 输出：图书记

18、录 处理说明：对馆内所有图书按图书编号进行管理，将图书数据数据化，存储图书数据表中。 2）处理过程名称：读者管理 输入：读者情况， 输出：读者记录 处理说明：建立读者信息表，对读者进行统一编号，实现读者记录 表的增删改维护功能。 3）处理过程名称：查看数目 输入：借书请求，读者， 输出：借书记录，图书信息 处理说明：实现根据图书编号等查询图书。 4）处理过程名称：借书处理 输入：图书情况，读者，借书记录 输出：借书记录 处理说明：确认读者符合借书条件，办理借书手续。 5）处理过程名称：还书处理 输入：图书情况， 输出：借书记录 处理说明：对照相应的图书编号可办理还书手续。 6）处理过程名称：安

19、全管理 输入：操作员情况，用户情况 输出：操作员级别，操作员记录，用户记录 处理说明：通过用户名和口令，确认用户身份，保证系统的安全型。2.3 功能需求经过以上详细的用户调查，在现行业务流程和数据分析的基础上，基本可以确定系统设计必须达到的目标。 以下是图书管理系统必须具备的功能：1.新进图书的登记功能：对于购进的新书，系统必须具备图书信息资料的录入功能。2.图书的查询修改功能：当图书资料发生变化，如图书丢失或有错误信息输入时，则应能够及时对数据进行修改和补充。3.借阅的登记，归还的登记功能：系统的主要功能之一，供本校学生借阅图书、归还图书，并进行登记。4.学生信息的增加、删除和修改功能：系统

20、主要功能之一，建立学生信息，并对其进行维护。图书馆系统的问题描述 一个图书馆藏有图书和期刊杂志两大类书籍，每种图书/杂志可以有多册。 图书馆可以维护（注册、更新和删除）图书资料。 图书馆管理员负责与借书者打交道。 借书者可以预约目前借不到的书或杂志。 系统应具有良好的可扩展性。 所有人员都可以浏览图书馆的图书信息和各种告示。 系统能在流行的技术环境下运行，有一个良好的图形交互界面。2.4性能需求为了保证系统能够长期、安全、稳定、可靠、高效的运行，图书管理系统应该满足以下的性能需求：1、系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和

21、将来可能承受的工作量，使系统的处理能力和响应时间能够满足学校对信息处理的需求。2、系统的开放性和系统的可扩充性图书管理系统在开发过程中，应该充分考虑以后的可扩充性。例如用户查询的需求也会不断的更新和完善。所有这些，都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，既系统应是一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置系统的硬件。通过软件的修补、替换完成系统的升级和更新换代。3、系统的易用性和易维护性图书管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现

22、这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。4、系统的标准性系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。5、系统的先进性目前计算系统的技术发展相当快，做为图书管理系统工程，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。6、系统的响应速度图书管理系统系统在日常处

23、理中的响应速度为秒级，达到实时要求，以及时反馈信息。在进行统计分析时，根据所需数据量的不同而从秒级到分钟级,原则是保证操作人员不会因为速度问题而影响工作效率。7、图书馆系统功能分析 浏览功能：所有人员都可以浏览图书馆的图书信息。 借还功能：借书者可以借/续借、还、预约图书。 图书管理功能：图书管理人员可以做录入、更新和销毁等图书信息维护工作。 借书者管理：系统管理人员可以进行注册、更改、注销借书者信息等维护工作。 第三章 系统总体设计3.1 新的业务流程根据需求分析的得到的现行业务处理流程，在用户反复研究后，首先确定目标系统的业务流程，其处理流程如图3.1。图3.1 图书管理系统的业务流程针对

24、新的业务流程，现具体描述其功能如下：1.用户登录：系统对用户合法性进行检查。2.图书入库：对新购进的图书分类进行编号，并把图书基本信息录入计算机。3.图书借阅：对已入库的图书，学生可以借阅，并进行登记。4.图书归还：对学生已归还的图书进行归还登记。 5.信息查询：即对所有图书的借阅情况，或学生的基本情况和借阅情况进行查询。6.管理措施：定义系统规定的借阅图书超期时间、超期处罚办法和丢失赔偿办法。3.2 系统功能模块图依据需求分析阶段得到的数据流图，采用软件工程中软件设计的概念和原理，与用户成分协商后，在保证系统基本功能要求的前提下，结合系统新的业务流程确定系统必须具备的所有功能，由此给出图书管

25、理系统的系统功能模块图如图3.2所示。图3.2 图书管理系统功能模块图3.3 系统的流程图依据软件工程的基本原理，综合以上分析给出系统流程图如图3.4所示。图3.4 系统流程图第四章 详细设计4.1 程序流程图依据软件工程的基本原理，详细设计阶段的根本任务是确定应该怎样具体实现所要求的系统，也就是说，经过这个阶段的设计工作，应该得出对目标系统的精确描述，从而在系统实现阶段可以把这个描述直接翻译成用某种程序设计语言书写的程序。具体来说就是把经过总体设计得到的各个模块详细的加以描述。由于本系统采用支持面向对象的Visual Basic 6.0作为开发工具，而Visual Basic 6.0采用事件

26、驱动的编程机制，所以在此给出软件系统的主程序流程图，如图4.1所示。图4.1 主程序流程图根据以上主程序的流程图，我们可以得出下面的关于各个模块的程序流程图，如图4.2所示。 图4.2 程序流程图4.2 程序输入输出描述4.2.1 主模块1.输入项目：操作系统传递至的各种消息以及用户的输入数据。2.输出项目：用户界面显示。4.2.1 学生管理模块1.输入项目：与学生管理操作子对话框有关的用户输入及系统消息。2.输出项目：操作结果显示。4.2.2 图书管理模块1.输入项目：用户口令。2.输出项目：相应的界面。4.2.3 借阅管理模块1.输入项目：学生学号、图书编号。2.输出项目：学生信息、相关借

27、书信息。4.2.4 归还管理模块1.输入项目：图书编号。2.输出项目：相关学生信息。4.2.5 管理措施设置模块1.输入项目：用户的输入。2.输出项目：根据用户的输入显示相应的对话框。4.3 程序接口描述4.3.1 外部接口按Windows应用软件用户界面的规范来设计，使用以对话框为主的用户界面，便于用户使用。4.3.2 内部接口模块间接口采用数据耦合方式，通过参数表传送数据，交换信息。4.4 数据库的设计4.4.1 数据库的逻辑设计在需求分析阶段已完成该系统所有的数据分析。根据该阶段所建立的概念模型，已经得出满足系统设计要求的几个关系描述，该阶段的主要工作就是把前一阶段的成果转化为具体的数据

28、库。下面给出概念结构设计得E-R图如图4.3所示。(1) 分E-R图(2) 总E-R图图4.3 概念结构设计E-R图实体：图书（图书编号，书名，作者，出版社，定价，图书类别，图书ISBN号，图书数量） 学生（学生学号，学生姓名，性别，入校时间，毕业时间） 管理员（编号，名字，密码，加入时间）联系：学生管理（图书管理员，学生姓名，学生密码） 图书管理（图书管理员，借阅号，归还号） 查询（图书编号，借阅证号，图书管理员，学生）4.4.2 数据库的物理设计依据数据库的原理，并结合以上E-R图，经过转化，即可进行数据库的物理设计。基于以上数据库的逻辑设计，考虑程序设计的简易性，同时考虑题目的时间，该系

29、统的数据库采用Microsoft SQL Server 2000。本系统决定采用一个数据库，在其下创建5个数据表，其结构分别如下：1.图书信息表（tBook），其字段列表如表4-1所示。表4-1 图书信息表的结构序号字段名称字段说明类型位数属性备注1cBooksID图书编号文本7必须非空2cBooksName图书名称文本20必须非空3cBooksISBN图书ISBN号文本15可为空4cBooksAuthor图书作者文本10可为空5cBooksPublisher图书出版社文本20可为空6cBooksType图书类型文本16可为空7smBooksPrice图书价格货币可为空8iBooksStore

30、Quan图书库存量整数可为空9iBooksLeftQuant图书副本数量整数可为空10iBooksTotalQuan图书总数整数可为空2.图书借阅登记表（tBorrow），其字段列表如表4-2所示。表4-2 图书借阅登记表的结构序号字段名称字段说明类型位数属性备注1cBorrowID借书编号文本6必须非空2cVipID学生编号文本6必须非空3cBooksID图书编号文本7必须非空4cBorrwTime借书时间时间日期可为空5cReturnTime还书时间时间日期可为空6cReturn是否归还文本1可为空3.图书归还登记表（tReturn），其字段列表如表4-3所示。表4-3 图书归还登记表的结

31、构序号字段名称字段说明类型位数属性备注1cBorrowID借书编号文本6必须非空2cVipID学生编号文本6必须非空3cBooksID图书编号文本7必须非空4cBorrwTime借书时间时间日期可为空5cReturnTime还书时间时间日期必须非空6cReturn是否归还文本1必须非空7cNoReturn归还异常文本8可为空4.学生信息表（tVip），其字段列表如表4-4所示。表4-4 学生信息表的结构序号字段名称字段说明类型位数属性备注1cVipID学生编号文本6必须非空2cVipName学生姓名文本10必须非空4cVipSex学生性别文本1可为空5vipAddTime学生入学时间时间日期必

32、须非空6vipEndTime学生毕业时间时间日期必须非空5.管理员信息表（tOperators），其字段列表如表4-5所示。表4-5 管理员信息表的结构序号字段名称字段说明类型位数属性备注1cOperatorID管理员编号文本5必须非空2cOperatorName管理员姓名文本10必须非空3cOperatorPassword密码文本6必须非空4cOperatorAddTime管理员加入时间时间日期10必须非空第五章 编码实现5.1 程序编码登陆界面如图5.1所示。图5.1 登陆界面程序代码如下：Function Check_Password(ByVal UserName As String,

33、ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set objRs = New Recordset StrSql = select cOperatorPassword from tOperators where cOperatorName= & Trim(cboName.Text) & GetData StrSql Reference function to get data If objRs.EOF Then Check_Password = 0 This O

34、perator not exist Else If txtPassword.Text Trim(objRs.Fields(cOperatorPassword).Value) Then Check_Password = 1 password error Else Check_Password = 2 password ok CurrentOpname = Trim(cboName.Text) CurrentOppassword = objRs.Fields(cOperatorPassword).Value Here can save a operator grade for expand End

35、 If End If objCon.Close Exit FunctionER2: MsgBox Err.Description Check_Password = 255 End IfEnd FunctionPrivate Sub cmdCancel_Click() Unload Me EndEnd SubPrivate Sub cmdOK_Click() Dim intCheck As Integer Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTi

36、mes + 1 Save login times If intLogTimes MaxLogTimes Then Over allowed login times then list information MsgBox You have over allowed loghin times,login failure !, vbCritical, LoginError Unload Me Else intCheck = Check_Password(Trim(txtPassword), Trim(cboName) Select Case intCheck Case 0 MsgBox Your

37、are not a system user !, vbInformation + vbOKOnly, LoginError Case 1 MsgBox Password error ,please check your password !, vbInformation + vbOKOnly, LoginError Case 2 Unload Me If CurrentOpname = Admin And CurrentOppassword = 1 Then MainWin.mnuOp.Visible = True Else MainWin.mnuOp.Visible = False End

38、If Load MainWin MainWin.Show End Select End IfEnd Sub主界面如图5.2所示。图5.2 程序主界面程序代码如下：Option ExplicitPrivate Sub MDIForm_Activate() If CurrentOpname = Admin Then StatusBar2.Panels(1).Text = 管理员： & CurrentOpname Toolbar1.Buttons(1).Visible = True Toolbar1.Buttons(2).Visible = True Else StatusBar2.Panels(1

39、).Text = 操作员： & CurrentOpname Toolbar1.Buttons(1).Visible = False Toolbar1.Buttons(2).Visible = False End IfEnd SubPrivate Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuOperation Design popup menu End IfEnd SubPrivate

40、 Sub MDIForm_Unload(Cancel As Integer) CheckConnect Reference function to make objcon break if connection is openEnd SubPrivate Sub mnuAbout_Click() frmAbout.ShowEnd SubPrivate Sub mnuBookQuery_Click() CheckConnect Reference function to make objcon break if connection is open Load frmBookQuery frmBo

41、okQuery.ShowEnd SubPrivate Sub mnuBookRegist_Click() CheckConnect Reference function to make objcon break if connection is open Load frmBookReg frmBookReg.ShowEnd SubPrivate Sub mnuBorrowQuery_Click() CheckConnect Reference function to make objcon break if connection is open Load frmReadQuery frmRea

42、dQuery.ShowEnd SubPrivate Sub mnuExit_Click() CheckConnect Reference function to make objcon break if connection is open Unload Me EndEnd SubPrivate Sub mnuReLogin_Click() CheckConnect Reference function to make objcon break if connection is open Unload Me Load frmLogin frmLogin.ShowEnd SubPrivate S

43、ub mnuVipQuery_Click() CheckConnect Reference function to make objcon break if connection is open Load frmVipQuery frmVipQuery.ShowEnd SubPrivate Sub mnuVipRegist_Click() CheckConnect Reference function to make objcon break if connection is open Load frmVipReg frmVipReg.ShowEnd SubPrivate Sub munRea

44、dRegist_Click() CheckConnect Reference function to make objcon break if connection is open Load frmReadRegist frmReadRegist.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case operatorReg CheckConnect Reference function to make objcon break if c

45、onnection is open Load frmAdmin frmAdmin.Show Case vipReg CheckConnect Reference function to make objcon break if connection is open Load frmVipReg frmVipReg.Show Case vipQuery CheckConnect Reference function to make objcon break if connection is open Load frmVipQuery frmVipQuery.Show Case BookReg C

46、heckConnect Reference function to make objcon break if connection is open Load frmBookReg frmBookReg.Show Case bookQuery CheckConnect Reference function to make objcon break if connection is open Load frmBookQuery frmBookQuery.Show Case readReg CheckConnect Reference function to make objcon break if connection is open Load frmReadRegist frmReadRegist.Show Case readQuery CheckConnect Reference function to make objcon break if connection is open Load frmReadQuery frmReadQuery.ShowEnd SelectEnd Sub操作员管