图书管理系统论文1

1、摘 要随着科学技术的突飞猛进，知识经济的日益发展，许多图书资料管理系统已经慢慢走向了老化。本论文所述的系统正是针对这一现象设计了具有新颖功能的图书资料管理系统。设计该系统时使用了Visual Basic6.0开发工具，结合Access数据库，VB的coolbar,toolbar控件，tabstrip控件等来实现对数据库的操作。本文主要针对图书馆日常工作中遇到的实际问题进行分析，因此需要对读者信息、书籍信息、借书情况、还书情况进行详细记录，及时了解各个环节中信息的变更，有利于提高工作效率。本系统主要设计了信息查询管理、读者管理、图书借阅管理、图书管理、打印管理、系统管理六个大的功能模块，每个功能

2、下又有若干个小的子功能模块，层次分明,在功能上基本能满足图书馆资料管理的日常需求。关键词：数据库系统 图书管理 VB6.0 Access数据库AbstractWith the rapid development of technology and knowledge economy, a great number of library management systems have become aging gradually. The thesis put forward a library management system for middle school in order

3、to solve this problem. When designing, the exploring tools of Visual Basic6.0 are applied to the system combining with database of Access, coolbar, toolbar and tabstrip controls in VB and data visiting objects of VB to operate the database. The thesis mainly analyzes the practical problems faced in

4、the daily grind of middle school library; therefore there must be the detailed records of the information about readers, books, borrowing and returning and knowing the changes of each tache in time so as to improve the work efficiency. The system discussed in the thesis includes five big functioning

5、 modules like system management, reader's management, books' management, information of borrowing and returning management and help information. Each module contains many submodules with distinct levels. The system could basically meet the daily needs of library management .Keywords: Databas

6、e system Books management VB6,0 Access Database目 录摘 要IABSTRACTII引 言11 绪论211 开发背景及研究意义212 系统概述213 系统有关技术工具3131 Microsoft Visual Basic简介3132 Microsoft Access简介4133 系统数据访问接口简介514 系统的运行环境5141 硬件要求5142 软件要求615个人承担的任务62 需求分析721 用户需求分析722 技术可行性分析723 系统功能分析73 系统设计831 系统主功能模块的设计832 数据库的建立933 系统功能模块图114 系统实现1

7、341 登录实现1342 主界面的实现1543 信息查询的实现17431 查询图书的实现17432 查询读者的实现2044 读者管理的实现22441 读者类别管理22442 读者信息管理2645 图书借阅的实现32451 借书信息32452还书信息365 系统测试4051 测试方法4052 测试内容4053 测试结果40结束语41参考文献42致 谢43外文原文44中文翻译48引 言随着社会发展，人类的生产、生活越来越离不开信息。谁拥有了更多更有效的信息，谁就将在竞争中处于有利地位。信息产业正在成为一个国家的支柱。数据作为信息的载体，其管理工具数据库对于信息技术的重要性，正日益得到人们的重视。只

8、有拥有了先进的数据库技术，才能有效地管理好浩如烟海的数据，并从中提取出对自己有用的信息来加以利用，以此来获得更多更先进的信息。图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。我们开发的图书管理系统是为方便各大高校对图书信息管理而设计的。该系统具有对图书信息的管理和对读者信息的管理，并且根据用户的身份设置了不同的权限，从而更合理的使此系统应与于实际生活。论文着重从系统的概述、系统工具及具体的实现等方面进行详细阐述。1 绪论11

9、开发背景及研究意义当今时代是飞速发展的信息时代。在各行各业中离不开数据信息处理，这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行大量的数据信息处理。使用计算机进行数据信息控制，不仅提高了工作效率，而且大大提高了其安全性。尤其对于复杂的数据信息计算机能够充分发挥它的优越性。利用计算机进行数据信息管理与数据信息操作是比较快捷、方便的，这是开发本系统的目的。一个现代化的图书资料管理系统在正常运营中总是面对大量的读者信息，书籍信息以及两者相互作用产生的借书、还书信息。面对图书馆数以万计的图书资料，纷繁复杂的读者信息，频繁更替的借、还书数据信息，传统的手工管理办法不能满足需

10、求而且在管理上出现漏洞，造成损失。因此开发一个智能化、系统化、信息化的图书资料管理系统是十分必要的。目前针对各大高校的发展速度，以及学校图书资料管理的散乱，开发一个功能齐全、操作比较简单的图书资料管理系统迫在眉梢，充分利用计算机的功能实现对图书馆的各种管理是上选。读者管理、图书资料管理，借阅信息管理等自动化控制，将会使图书馆管理员的工作大大减弱。方便友好的图形界面、简便的操作、完善的数据库管理。将会使得图书资料管理系统大幅度的应用于高校图书馆中。图书资料管理系统作为一所高校的信息资源集散地，图书资料和学生用户借阅资料繁多，包含很多的信息数据的管理。以前管理图书资料的数据信息主要方式是基于文本、

11、表格等的手工处理，错误繁多，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找，在这种情况下开发一个新型图书资料管理系统刻不容缓，所以我就选择了这个题目来作为我的毕业设计题目。总的来说，没有一个先进的、便捷的管理软件都是一个不完善的中学图书馆。尽管有的图书馆有计算机，但是尚未用于数据信息处理，没有利用好计算机资源，资源闲置比较突出，这就是图书资料管理信息系统的开发的基本环境和研究意义。12 系统概述本人设计的是一个关于图书资

12、料管理的数据库系统，通过这个系统管理员可以简捷、方便的对图书资料的借书查阅、增加、删除等功能，而用户也可以通过这个系统对进行图书资料查询、借阅、归还等功能。该图书资料管理系统按用户权限和实现功能的不同分为两部分:外部学生对数据库的查询访问和内部管理人员对数据记录的管理维护.每一部分中包含各自实现的各项功能,对各项功能的实现,将按照窗体设计以及运行情况的顺序进行设计。本系统采用Access技术建立数据库，使用VB技术建立数据源1的链接,并且生成图书资料管理的数据库应用程序从而实现该系统的管理功能。该图书资料管理系统包括信息查询管理、读者管理、图书借阅管理、图书管理、打印管理、系统管理六个大的功能

13、模块。每个独立的功能模块下面又有若干子功能模块，给书籍资料的查询、修改、删除等操作带来的一定的方便 本人所设计的图书资料管理系统采用的是Visual Basic控件和按钮,操作起来比其它开发工具开发的软件简单,又具备了Visual Basic开发工具所特有的美观、大方等优势,并且在开发时做了大量的调查工作,系统基本上能够满足学校的要求,功能完善,给图书馆的管理工作带来了方便。13 系统有关技术工具131 Microsoft Visual Basic简介Microsoft Visual Basic，它提供了开发 Microsoft Windows(R) 应用程序最迅速、最简捷的方法。不论是 Mi

14、crosoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic 都为他们提供了整套工具，以方便开发应用程序。“Visual”指的是开发图形用户界面2 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。“Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言，一种在计算技术发展史上应用得最为广泛的语言。Visual Basic 在原有BA

15、SIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统,Microsoft Excel 的Applications Edition, Microsoft Access和Windows的许多其他应用程序都使用这一语言。Visual Basic Scripting Edition (VBScrip

16、t) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。从开发个人使用或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。1.数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。2.有了ActiveX 3技术就可使用其它应用程序提供的功能，例如 Microsoft Word 字处理器，Microsoft E

17、xcel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或 VBE 创建的应用程序和对象。3.Internet 功能强大，使得您很容易在应用程序内通过 Internet 或 Intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。4.已完成的应用程序是使用Visual Basic 虚拟机的真正 .exe 文件，您可以自由发布。 Visual Basic 有三种版本，可以满足不同的开发需要。1.Visual Basic 学习版使编程人员轻松开发 Windows 和 Windows NT(r)的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑

18、定控件。 2.专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括学习版的全部功能以及ActiveX控件、Internet Information Server Application Designer、集成的Visual Database Tools 和 DataEnvironment、Active Data Objects和Dynamic HTML Page Designer。专业版提供的文档有Visual Studio Professional Features手册和包含全部联机文档的Microsoft Developer Network CD。3.企业版使得专业编程人员能够开

19、发功能强大的组内分布式应用程序10。该版本包括专业版的全部功能以及 Back Office 工具，例如 SQL Server、Microsoft Transaction Server、Internet Information Server、Visual SourceSafe、SNA Server等。企业版包括的印刷文档包括 Visual StudioEnterprise Features 手册以及包含全部联机文档的 Microsoft DeveloperNetwork CD。132 Microsoft Access简介Microsoft Access 是Windows环境下最流行的桌面型数据库

20、管理软件之一。提供了可视化的开发工具，无须编程就可以完成大部分的数据管理系统。它是Microsoft Office中一个极为重要的组成部分，提供了大量的输入、分析和展示数据的工具，Access 还支持OLE。在数据库中嵌入和链接声音、图像等多媒体数据。不仅可以用于小型数据库管理，而且还可用于客户机/服务器应用程序中的工作站部分，它已经不是单一的桌面数据库管理软件，而是综合性数据库管理及应用集成一体化系统了。 Access的组成部分：·表表是Access应用程序的人机交互界面，基本上是所建数据库中的表加上各种可视化的组件元素。·查询 查询的本质就是SQL的数据操纵语句，利用查

21、询可以通过不同的方法来查看更改和分析数据，对表、记录、字段的多数据操作都可通过查询来完成。·报表报表对象实际上就是一些制定好的特殊查询，不过这是只具有一个查询结果的显示界面，便于打印分析。·宏宏是指一个或多个操作的集合，其中每个操作实现特定的功能。宏可以使某些普通的任务自动完成。·模块模块就是数据库程序中的程序文件和过程文件。每一个模块可以包含一个或多个子程序、函数或属性。Access数据库窗口 子数据表用户可以使用表、查询窗体和子窗体数据表来查看子数据表。子数据表可以绑定表、查询或窗体。共同的报表数据访问页数据访问页是一个Web页，可以用来添加、编辑、查看或处理

22、Microsoft Access数据库或SQL Server数据库中的当前数据。不再局限于使用Jet数据库引擎11，支持的更多的内置数据源。在早期版本的 Microsoft Access（Microsoft Access 2000 以前）中，有关安全性的知识有时被认为是无法为任何人所掌握和应用的。需要加密的文件执行按顺序执行很多步骤，一旦遗漏某个步骤或者颠倒了顺序就会带来灾难性的后果。随着 Microsoft Access for Microsoft Windows 95 的 Security Wizard 出现，以及 Microsoft Access 2000 的 Security Wiza

23、rd 的不断改进，在 Access 中实现安全性已变得非常简单。133 系统数据访问接口简介Visual Basic中可用的数据访问对象接口有三种：ODBC（Open Database Connectity,开发数据库连接）、DAO(Data Access Objects,数据访问对象)及ADO (Active Data Object，ActiveX数据对象)。 1、ODBC（Open Database Connectity,开发数据库连接） ODBC提供了应用程序接口（API），使得任何一个数据库都可以通过ODBC驱动器与指定DBMC相联，用户的程序就可以通过调用ODBC7驱动管理

24、器中相应的驱动程序达到管理数据库的目的。作为Microsoft Windows Open Standards Architecture(WOSA,Windows开放式服务体系结构)的主要组成部分，ODBC一直沿用至今。 2.DAO(Data Access Objects,数据访问对象)DAO 提供了一种通过程序代码创建和操纵数据库的机制。多个DAO 对象构成了一个体系结构，在这个结构里，各个DAO 对象协同工作，通过 Microsoft Jet 数据库访问数据库中的数据和数据库的结构定义。可以访问的数据库类型主要有：Microsoft Jet 数据库、ODBC 数据源、可安装的ISAM数据库。

25、DAO 是我们可以通过程序访问和操纵本地的或远程的数据和数据定义，管理数据库中的对象或结构。DAO 支持两种不同的数据库环境称为工作区（Workspace）. Microsoft Jet Workspace 这是一种使用Microsoft Jet 数据库引擎来访问数据源的工作区。3ADO（Active Data Object,ActiveX数据对象）ADO 是微软最新的数据访问技术。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问8（Universal Data Access）。OLE DB是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关

26、系型数据库，以及电子邮件系统及自定义的商业对象。 ADO向我们提供了一个熟悉的，高层的对OLE DB的Automation封装接口。对那些熟悉RDO的程序员来说，你可以把OLE DB比作是ODBC驱动程序。如同RDO对象是ODBC驱动程序接口一样，ADO对象是OLE DB的接口；如同不同的数据库系统需要它们自己的ODBC驱动程序一样，不同的数据源要求它们自己的OLE DB提供者（OLE DB provider）。目前，虽然OLE DB提供者比较少，但微软正积极推广该技术，并打算用OLE DB取代ODBC。 ADO向VB程序员提供了很多好处。包括易于使用，熟悉的界面，高速度以及较低的内存占用。同

27、传统的数据对象层次（DAO和RDO）不同，ADO可以独立创建。因此你可以只创建一个"Connection"对象9，但是可以有多个，独立的"Recordset"对象来使用它。ADO针对客户服务器以及WEB应用程序作了优化。14 系统的运行环境141 硬件要求每台计算机都必须具有以下的最低配置。所有硬件都必须是Microsoft Windows XP 或 Microsoft Windows 2000兼容硬件列表中的硬件。Pentium 级处理器，450MHZ。256MB物理内存。安装硬盘上要有4GB可用磁盘空间，包括系统驱动器的500MB可用磁盘空间。142

28、 软件要求Microsoft Windows 95/98/Me/2000 / XP /.NetServer2003。Microsoft officeMicrosoft Visual Basic6.0 。15个人承担的任务图书管理系统分为两大模块：前台学生信息管理系统和后台数据库管理系统。整个系统分为以下几个功能模块：登录、信息查询、图书管理、读者管理、图书借阅管理、打印管理、系统管理。整个系统的设计中，我负责系统的信息管理、读者管理、图书借阅管理的建设。2 需求分析21 用户需求分析开发该系统的一个目的是针对各大高小图书资料管理系统落后的现状，图书资料管理系统存在的功能不全，操作复杂，系统要求

29、高等一系列问题，设想的一个具有个性化的、操作比较简便的图书资料管理系统。这个图书资料管理系统与MIS系统相联系，在图书资料管理内部构成可靠，方便，并且功能齐全的MIS系统6。从而增强了图书资料管理系统对新旧书的反应；对书籍资料借阅的管理能力；减轻的了对读者对书籍繁琐的查阅和图书资料管理的工作人员的工作量；当然对该系统的态度是渴望获得显著的社会效益。通过需求分析阶段对图书资料管理系统的整个应用情况作全面的、详细的调查，基本上确定图书资料管理的目的，收集关于本系统设计的一些数据，和明白了设计本系统的目标。并且对收集到的基础数据和对这些数据的需求操作做了相应的分析，确定了图书资料管理的需求情况，并把

30、这些写成了学生和数据库设计者都能够接受的书面报告。22 技术可行性分析Windows XP操作系统在当今社会比较流行，大多数系统软件均运行于其上，实践证明该操作系统的稳定性、安全性等性能基本上能满足用户的需要。而本系统正是运行在该操作系统上的应用系统。系统开发使用Visual Basic6.0开发软件和Access数据库系统。该图书资料管理系统是在拥有丰富编程实践经验的老师直接参与和指导下实现的；聚集了图书资料管理系统的查询、修改、删除功能为一体的、先进的图书信息管理系统，在为学校进行书籍管理的工作中提供优质的、高效的书籍查询和读者信息查询，能给管理人员带来方便、快捷的操作。采用了Visual

31、 Basic6.0开发软件和Access数据库，采用了安全可靠的现代化信息处理和控制软件4，能及时、准确、可靠地采集和传输信息，为实现图书资料信息管理提供服务。23 系统功能分析系统功能分析是在系统开发总体任务的基础上完成的,开发出来的图书资料管理系统应具备以下所分析到的功能，经过分析后功能主要有：1、能够实现图书的入库信息管理和旧书信息的修改。2、能够实现新读者的添加管理和旧有读者信息的修改。3、能够实现图书的借书和还书管理。4、能够让一般用户查看一些基本信息。5、能够实现对用户信息的修改。3 系统设计31 系统主功能模块的设计 根据对上述各项功能进行集中、分块，按照结构化程序设计的要求，得

32、到如图3-1所示的系统主功能模块图： 欢迎界面登录界面MDI主界面信息查询图书管理读者管理图书借阅管理打印借阅信息系统管理图 3-1 系统主功能模块图32 数据库的建立本系统用到的数据库是用Microsoft Office Access 创建。名为book.mdb。用到的表包括：读者类别表，读者信息表，借阅信息表，书籍信息表，图书类别表，系统管理表。1 读者类别表的设计 读者类别表用来存取读者类别的基本信息，包括的字段：种类名称，借书数量，借书期限，有效期限。设计如表3-1：表3-1 读者类别字段名类型种类名称文本借书数量长整型借书期限长整型有效期限长整型2 借阅信息表的设计 借阅信息表用来存

33、放借出去的图书与读者的关系，包括的字段：借阅编号，读者编号，读者姓名，书籍编号，书籍名称，出借日期，还书日期。设计如表3-2：表3-2 借阅信息字段名类型借阅编号自动编号读者编号文本读者姓名文本书籍编号文本书籍名称文本出借日期日期/时间还书日期日期/时间3.图书类别表的设计图书类别表用来存取图书类别的基本信息，包括的字段：类别名称和类别编号。设计如表3-3：表3-3 图书类别字段名类型类别名称文本类别编号文本4读者信息表的设计读者信息表存放的是读者的基本信息和他的借书量，包括的字段：读者姓名，读者编号，性别，读者类别，工作单位，家庭地址，电话号码，登记日期，已借书数量。设计如下表示3-4：表3

34、-4读者信息字段名类型读者姓名文本读者编号文本性别文本读者类别文本工作单位文本家庭地址文本电话号码文本登记日期日期/时间已借书数量数字5书籍信息表的设计书籍信息表存放的是图书的基本信息和这本书是否被借出。包括的字段：书籍编号，书名，类别，作者，出版社，出版日期，登记日期，是否被借出。设计如表3-5：表3-5 书籍信息字段名类型书籍编号文本书名文本类别文本作者文本出版社文本出版日期日期/时间登记日期日期/时间是否被借出文本6系统管理表的设计系统管理表用来存放管理员登录的名字和密码。包括的字段：用户名，密码，权限。设计如表3-6：表3-6 系统管理字段名类型用户名文本密码长整型权限长整型33 系统

35、功能模块图对上述各项功能进行集中、分块、按照结构化程序设计的要求，由于本系统主要是为定制开发的，因此针对学校图书资料管理的实际工作而言，再加上我们上边所设计出的系统主功能模块图，经过我反复地论证，最终确定了图书管理系统的设计方案。该图书管理系统的主要功能为：1 信息查询管理功能；2 读者管理功能；3 图书借阅管理功能；4 图书管理功能；5 打印管理功能；6 系统管理功能根据中学图书资料管理系统对技术人员和管理人员的要求，数据采集和管理工作以及借阅者的计算机素质水平的高低和数据库技术对计算机系统的软硬件的要求；决定把图书资料管理系统的数据库设计成为一个综合的数据库。该数据库包括所有操作人员的操作

36、功能。因为，该图书资料管理系统应用界面较简单、功能齐全。所以，用一个综合的数据库能满足学校图书资料的管理要求，而且实现容易。因此，图书资料管理系统可以按照用户权限和实现的功能不同分为两部分：外部学生对数据库的查阅访问和内部管理人员对图书资料的记录、管理和维护。但是，这两部分都调用的是同一数据库，只不过内部管理人员能实现所有管理功能，而外部学生访问数据库时，一些功能被屏蔽，只能进行查阅。有了上面的设计思路后,我们就可以给本系统做详细的设计了。得到如图3.3所示和系统功能模块图：欢迎界面登录界面MDI主界面信息查询图书管理读者管理图书借阅管理打印借阅信息系统管理查询读者查询图书图书类别管理图书信息

37、管理读者类别管理读者信息管理借书管理还书管理添加用户修改密码退出系统 图3-2 系统功能模块图4 系统实现41 登录实现本论文所述的图书管理系统，在其登录界面里为了保证数据的安全，设计了权限分级使用，系统管理员可以根据自己的用户名和密码登录到系统中。系统自动依据已经有的不同系统管理员的操作类型，使其在不同的功能模块5中执行不同的操作。系统管理员权限的分级在系统中已经被设置，根据登录用户名和密码在系统中的权限判断让该用户使用哪些功能模块。由于图书资料管理系统启动后，需要对用户进行判断，如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块

38、中。首先在VB中新建一个标准工程并起名为工程1，在标准工程中添加一个窗体并起名为huanyin。窗体的设计界面如图4-1所示：图4-1 登陆界面在这里用一个定时器来实现时间上的变化。使用户在等待一定时间以后进入登录界面。或者你可以双击欢迎界面进入等录界面。代码如下：Private Sub Form_Load()lnProcess.X2 = lnProcess.X1End SubPrivate Sub FrameMain_Click()Unload Melogin.ShowEnd SubPrivate Sub Timer1_Timer()lnProcess.X2 = lnProcess.X2 +

39、 20 If (lnProcess.X2 - lnProcess.X1) > 3500 Then Unload Me login.Show End IfEnd Sub在标准工程中添加一个窗体并起名为login。窗体的设计界面如图4-2所示:图4-2 login界面在这里读者的用户名是自己的名字，密码是读者的编号。管理人员用自己相应的用名和密码。如果一个人是读者又是管理员那么他会以管理员的生份进入系统的。代码为：Option ExplicitDim cnt As Integer '记录确定次数Private Sub Command1_Click()Dim rs_login As N

40、ew ADODB.RecordsetIf Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空 MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus If Trim(Combo1.Text) = "" ThenMsgBox "用户类型不能为空", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else If Trim(Co

41、mbo1.Text) = "管理员" Then sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'" Else sql = "select * from 读者信息 where 读者姓名='" & txtuser.Text & "'" End If rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If r

42、s_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me main.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation

43、, "" txtpwd.SetFocus End Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb"conn.Open c

44、onnectionstringcnt = 0Combo1.AddItem "读者"Combo1.AddItem "管理员"End Sub42 主界面的实现在标准工程中添加一个MDI窗体并起名为main。主窗体的设计界面如图4-3所示：图4-3 MDI界面在主窗体中主要应用了菜单栏。下面分别介绍这些组成部分的功能。菜单的设计:菜单是Windows应用程序中的重要组成部分，这里将对我所用到的菜单项及其子菜单的功能进行简单介绍。如表5-1：表4-1 菜单主菜单名子菜单项二级子菜单项菜单功能信息查询查询图书无查询图书情况查询读者查询读者情况读者管理读者类别查询添

45、加读者类别对读者的类别进行添加管理读者类别对读者的类别进行修改删除读者信息查询添加读者信息对读者信息进行添加管理读者信息对读者信息进行修改删除等查询读者信息查询读者的信息图书借阅管理借书信息添加借书信息对读者借书情况进行添加查询借书信息查询读者借书的的信息还书信息添加还书信息对读者还书情况进行记录MID应用程序中，父窗体可以有自己的菜单，子窗体也可以有属于自己的菜单。这些菜单的创建都可以利用Menu Editor来进行创建。代码如下：Private Sub MDIForm_Load()窗体的If userpow = "system" Thenbook_manage.Enab

46、led = Truereader_manage.Enabled = Truebook_lend.Enabled = Trueadd_admin.Enabled = Trueprint_jyxx.Enabled = Truechange_pwd.Enabled = TrueElseIf userpow = "guest" Thenchange_pwd.Enabled = Trueprint_jyxx.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub print_jyxx_Click()打印的DataReport1.ShowEnd Sub

47、Private Sub add_admin_Click()添加管理员frmadduser.ShowEnd SubPrivate Sub change_pwd_Click()修改密码frmchangepwd.ShowEnd SubPrivate Sub exit_sys_Click() 退出系统EndEnd SubPrivate Sub add_book_style_Click()添加图书类别frmaddbookstyle.ShowEnd SubPrivate Sub manager_book_style_Click() 管理图书类别frmmodifybookstyle.ShowEnd SubP

48、rivate Sub add_book_info_Click() 添加图书信息frmaddbookinfo.ShowEnd SubPrivate Sub manager_book_info_Click() 管理图书信息frmmodifybookinfo.ShowEnd SubPrivate Sub find_book_info_Click() 查询图书信息findbook.ShowEnd Sub43 信息查询的实现431 查询图书的实现添加图书类别的实现，在标准工程中添加一个窗体并起名为findbook。窗体的设计界面如图4-4所示：图 4-4查询读者界面代码实现如下：Option Expli

49、citDim panduan As StringPrivate Sub Command1_Click()Dim num As Integer '查找到的个数Dim rs_findbook As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then If Trim(Text1.Text) = "" Then MsgBox "查询条件不能为空", vbOKOnly, "信息提示" Text1.SetFocus Exit Sub Else sql =

50、 "书名='" & Trim(Text1.Text) & "'" End IfEnd IfIf Check2.Value = vbChecked ThenIf Trim(Combo1.Text) = "" Then MsgBox "查询条件不能为空", vbOKOnly, "信息提示" Combo1.SetFocus Exit Sub Else If Trim(sql) = "" Then sql = "类别='"

51、& Trim(Combo1.Text) & "'" Else sql = sql & "and 书名='" & Trim(Combo1.Text) & "'" End If End IfEnd IfIf Check3.Value = vbChecked Then If Trim(Text2.Text) = "" Then MsgBox "查询条件不能为空", vbOKOnly, "信息提示" Text2.SetF

52、ocus Exit Sub Else If Trim(sql) = "" Then sql = "作者='" & Trim(Text2.Text) & "'" Else sql = sql & "and 作者='" & Trim(Text2.Text) & "'" End If End IfEnd IfIf Check4.Value = vbChecked ThenIf Trim(Text3.Text) = "&q

53、uot; Then MsgBox "查询条件不能为空", vbOKOnly, "信息提示" Text3.SetFocus Exit Sub Else If Trim(sql) = "" Then sql = "出版社='" & Trim(Text3.Text) & "'" Else sql = sql & "and 出版社='" & Trim(Text3.Text) & "'" End

54、 If End IfEnd IfIf Check5.Value = vbChecked ThenIf Trim(Text4.Text) = "" Then MsgBox "查询条件不能为空", vbOKOnly, "信息提示" Text4.SetFocus Exit Sub Else If Trim(sql) = "" Then sql = "书籍编号='" & Trim(Text4.Text) & "'" Else sql = sql &am

55、p; "and 书籍编号='" & Trim(Text4.Text) & "'" End If End IfEnd IfIf Trim(sql) = "" Then MsgBox "请选择查询方式！", vbOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 书籍信息 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findboo

56、k.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_findbook.RecordCount <> 0 ThenDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findbookElseMsgBox "没有满足条件的记录", vbOKOnly, "信息提示"Exit SubEnd IfEnd SubPri

57、vate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load()Dim rs_find As New ADODB.RecordsetDim sql As Stringsql = "select * from 图书类别"rs_find.Open sql, conn, adOpenKeyset, adLockPessimisticrs_find.MoveFirstIf Not rs_find.EOF Then Do While Not rs_find.EOF Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop Combo1.ListIndex = 0End Ifrs_find.CloseEnd Sub432 查询读者的实现添加图书类别的实现，在标准工程中添加一个窗体并起名为findbook。窗体的设计界面如图4-5所示： 图4-5 查询读者界面代码如下：Option ExplicitPrivate Sub Command1_Click()Dim rs_findre