毕业论文图书馆管理系统

《毕业论文图书馆管理系统》由会员分享，可在线阅读，更多相关《毕业论文图书馆管理系统（31页珍藏版）》请在装配图网上搜索。

1、呼伦贝尔学院本科生毕业论文（设计） 题 目: 图书馆管理系统 专 业: 科学与技术 姓 名: 温都日娜 学 号: 200412006 指导教师: 木林 2008年6月5日摘要：图书管理信息系统是应用计算机与信息技术，图书馆的图书资源进行综合管理的工具。它具有手工管理所无法比拟的优点。本系统主要是面向中、小型图书馆进行统一、综合管理的管理信息系统。系统应用VISUAL BASIC开发工具和Access数据库管理系统，利用其提供的各种面向对象的开发工具，采用原型法的系统开发方法建立。论文从数据库开发角度对图书管理系统所完成的添加、修改、删除、查询、图书借阅等主要功能进行了需求分析与设计，编写代码进

2、行调试测试，实现了系统的应用。关键词：图书管理 ；管理信息系统；数据库；Visual Basic；Access database The Database Development in the Library Management Information SystemAbstract: The library management information system is the tool of the synthesis management to the library books resources, applied the current formidable computer an

3、d the information technology method. It has the merit which the manual management is unable to compare. This system mainly faces the small library. The system was established and exploited using the prototype method and system method, applying each kind of object-oriented development kit of VISUAL B

4、ASIC and the Access database management system. From the database development angle, the paper carried on the demand analysis and the design to the main function which the increase, the revision, the deletion, the inquiry, books borrowing and so on, designed the code that has carried on the debuggin

5、g test, realized the system application.Key word: management information system; database development; the prototype method; Visual Basic; Access database目录第一章 绪论11.1 课题背景11.2 课题来源和意义11.3 国内外发展概况21.4 开发语言的介绍21.5运行环境和操作系统的介绍4第二章 图书管理系统设计分析42.1 应用需求分析4（1）需求描述与分析4（2）需求分析的步骤42.2 系统功能分析5（1）系统功能分析5（2）系统功能

6、模块设计52.3数据库设计6（1）数据库需要分析6（2）数据库概念结构设计72.4 系统功能概述8（1）图书管理8（2）图书种类管理9（3）读者管理9（4）读者种类管理9（5）图书借阅管理9（6）系统管理10第三章 图书管理系统的界面和代码103.1登录功能的实现103.2 模块功能的实现103.3 图书管理功能的实现11（1）图书种类管理11（2）图书种类的添加11（3）图书种类的编辑113.4 图书信息管理11(1) 添加图书信息11(2) 编辑图书信11(3) 删除图书信息12(4) 查询图书信息123.5 读者管理功能的实现12(1) 读者种类管理12(2) 添加读者种类12(3) 编

7、辑读者种类123.6 读者信息管理12(1) 添加读者信息12(2) 编辑读者信息12(3) 删除读者信息12(4) 查看读者信息123.7 图书借阅管理功能的实现.13(1) 借书管理13(2) 还书信息15(3) 查看还书信息213.8 系统管理功能的实现25(1) 添加管理员25(2) 修改密码25结束语25致谢25参考文献25第一章 绪论1.1 课题背景随着电子计算机和通信技术的发展，人类已经逐渐地进入信息化社会。信息和材料、能源一样成为一种社会的基本生产资料，在人类的社会生产活动中发挥着重要的作用。同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，因此，开发相关的

8、管理信息系统已经成为各行各业的必要和必需了，管理信息系统作为一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体，可以解决企业或组织所面临的问题，对内来看，可以提高工作效率；对外来看，获得竞争优势。管理信息系统的开发方法有生命周期法、原型法和面向对象的开发方法等。在这个大的指导方针下，我的毕业论文选择了计算机管理信息系统，我选择了一个较为贴近我生活的，和我比较了解的图书管理系统。时代的进步，计算机越来越广泛的运用，使很多原本由手工操作的管理，慢慢由计算机代替，而且日加完善。图书管理系统就是其中一个典型的例子，由早先的手工操作管理，提升为计算机管理，大大的节约了人力物

9、力资源。实行电子化的图书管理，让人力资源管理人员从繁重琐碎的案头工作解脱出来，完成更重要的工作。图书管理系统就是为了解决和减轻繁琐的手工管理，使图书馆可以上升到一个完善的电子话，信息话管理。在经过长时间的调研，和资料累积后，并参考了相关的图书管理软件，和查阅了大量的资料以后，我基本上搞清楚了图书馆对系统的需求，以及其图书管理系统，需要的功能，模块，和借阅者与管理人员的需要之后设计了这个软件。 在和指导老师多次交流后，确定实现方案的要点和工作计划。本系统的实现的主要功能有：读者信息管理、书籍信息管理，借阅信息管理，以及读者和书籍的查询和修改等等的功能，是一个可以满足借阅者和图书馆工作人员的需要的

10、数据库。1.2 课题来源和意义1. 当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。 2. 图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们

11、以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。3. 数据处理手工操作，工作量大，出错率高，出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又复杂；

12、一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能及时、准确、有效的查询和修改图书情况。1.3 国内外发展概况自20世纪70年代以来,数据库技术得到迅速发展.目前世界上已经有数百万个数据库系统在运行,其应用已经深入到社会生活的各个领域,从企业管理,银行管理,资源管理,经济预测一直

13、到信息检索,档案管理,普查统计等.我国20世纪90年代初在全国范围内装备了12个以数据库为基础的大型计算机系统,这些系统分布在邮电,计委,银行,电力,铁路,气象,民航,情报,公安,军事,航天和财税等行业. 现在,数据库技术还在不断发展,并且不断的与其它计算机技术相互渗透.数据库技术与网络通信技术相结合,产生了分布式数据库系统.数据库技术与面象对象技术相结合,产生了面向对象数据库系统等各种数据库系统. 在人类迈向21世纪知识经济的时候,信息变为经济发展的战略资源,信息技术已成为社会生产力重要的组成部分.人们充分认识到,数据库是信息化社会中信息资源管理与开发利用的基础.对于一个国家,数据库的建设规

14、模,使用水平已成为衡量该国信息化程度的重要标志.因此,数据库的学习是非常重要的.现在我国的绝大多数农村中小学校中图书管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为这种管理方式存在着许多缺点,如:效率低下、保密性差,另外时间一长,将产生大量的文件和数据,这对于数据的查找、更新和维护都带来了不少的困难，并且浪费了许多人力和物力。1.4 开发语言的介绍1.Visual Basic6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言。1) 可视化编程：VB自动产生界面设计代码，可以提高程序设计的效率。传统的程序设计方法需要程序员自己编写代码设计界面，在设计时，

15、界面不可见。Visual Basic6.0可以实现“所见即所得” ，即可视化(Visual)。2) 面向对象的程序设计：VB6应用面向对象的程序设计方法OOP，把程序和数据封装起来作为一个对象（Object），并为每个对象赋予相应的属性，使对象称为实在的东西。（第2章介绍对象及其操作）3) 结构化程序设计语言：具有高级语言的语句结构（顺序、选择、循环）。VB是解释型语言，也可以编译生成可执行文件（.EXE文件），脱离VB，直接在Windows环境下运行。4) 事件驱动编程机制：每个事件通过一段程序（过程）来响应。在VB中，不必建立具有明显开始和结束的程序，即运行VB程序时，过程的执行顺序可以不

16、同。事件驱动是VB最主要的特点。5)Visual Basic6.0的版本 VB 6.0分为：学习版、专业版、企业版（功能最强）。VB是32位的程序设计语言。2. Access2003 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office2003系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 Access2003是一种关系型数据库管理

17、系统，其主要特点如下： （1）存储方式单一 Access2003管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。 （2）面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便

18、。 （3）界面友好、易操作 Access2003是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （4）集成环境、处理多种数据信息 Access2003基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）Access2003支持ODBC（开发数据库互连

19、，Open Data Base Connectivity），利用Access2003强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。1.5运行环境和操作系统的介绍本系统在Windows 9X、Windows NT、Windows2000、 Windows XP下的一个应用程序，本身对软硬件没有特殊要求。也就是说，它对环境的要求与 W

20、indows 98、Windows NT要求是一致的。 硬件：一般要求586以上的处理器、16MB以上内存、100MB以上的剩余硬盘空间、CDROM驱动器、鼠标等。软件：要求Windows 98或 Windows NT 3.51以上版本。第二章 图书管理系统设计分析2.1 应用需求分析（1）需求描述与分析1.需求信息的收集 需求信息的收集又称为系统调查。为了充分地了解用户可能提出的要求，在调查研究之前，要做好充分的准备工作，要了解调查的目的、调查的内容和调查的方式。2.需求信息的分析整理要想把收集到的信息（如文件、图表、票据、笔记）转化为下一阶段设计工作可用的形式信息，必须对需求信息做分析整理

21、的工作（2）需求分析的步骤1. 调查的目的 首先，要了解组织的机构设置，主要管理活动和职能。其次，要确定组织的目标，大致管理流程和任务范围划分。因此，图书管理系统主要是通过对现有的图书管理系统进行考察、研究。并且通过和图书管理人员、学生交流来完善管理功能。2. 调查的内容外部要求：信息的性质，响应的时间、频度和如何发生的规则，以及图书管理的要求，安全性及完整性要求。管理的现状：即图书管理信息的种类，信息流程，信息的处理方式，各种图书服务工作过程。组织机构：了解图书管理机构的作用、现状、存在的问题，及是否适应计算机管理。3. 调查方式通过对图书管理人员的访问、交谈可获得图书管理高层的、内部的管理

22、需求，以及图书管理的管理目标、未来图书管理发展变化趋势和长远规划的有关信息。并且，还可通过具体借阅活动，了解借阅的流程、借阅的控制方式、日常管理信息，对图书管理系统有一个深刻得了解。2.2 系统功能分析（1）系统功能分析 系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。图书馆管理信息系统需要完成功能主要有： 有关读者种类标准的制定、种类信息的输入，包括种类编号、种类名称、借书数量、备注等。 读者种类信息的添加、修改、查询，包括种类编号、种类名称、借书数量、备注等。 读者基本信息的输入，包括读者编号、读者姓名、读者性别、读者种类、联系电话

23、、班级、电子邮件等 读者基本信息的添加、修改、查询，包括读者编号、读者姓名、读者性别、读者种、联系电话、班级、电子邮件类等 书籍信息的输入，包括书籍编号、书籍名称、书籍作者、书籍种类、出版日期、出版社、是否被借出等。 书籍信息的添加、修改、查询，包括书籍编号、书籍名称、书籍作者、书籍种类、出版日期、出版社、是否被借出等。 借书信息的输入，包括借书编号、读者编号、读者姓名、书籍名称、借书标示。 还书信息的输入，包括还书编号、读者编号、读者姓名、书籍名称、还书标示。 借书还书信息的添加、修改、查询，包括借还编号、读者编号、读者姓名、书籍名称、借还标示。（2）系统功能模块设计 对上述各项功能进行集中

24、、分块，按照结构化程序设计的要求，得到如下系统功能模块图。 （图 2.1） 添加书籍信息查询书籍信息书籍种类添加书籍种类修改添加读者信息查询读者信息添加读者种类查询读者种类修改书籍信息修改读者信息修改读者种类设置借书信息设置还书信息查询借阅信息图书馆管理信息系统书籍信息管理读者信息管理借阅信息管理系统管理设置书籍信息设置书籍种类设置读者信息设置读者种类设置还书信息设置借书信息密码管理用户管理帮助退出图2.12.3数据库设计（1）数据库需要分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份

25、详尽的数据字典，为以后的具体设计打下基础。仔细分析调查有关图书馆管理信息需求的基础上，将得到本系统所处理的数据流程。 数据安全可靠：系统通过对数据库的加密和用户权限的设置保证了系统的安全。加密后的数据库只有本系统才能对其进行维护，任何直接对数据库的操作都将无效，从而保证了数据库入口的唯一性，避免了来自外界的破坏；本系统操作人员进入系统都可进行严格的身份识别和安全审核，每个操作人员只能对自己权限范围内的数据进行维护，可操作的用户和具体的每个操作员的使用对象系统的管理员可以灵活设置，从而避免了来自内部的破坏。（2）数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种

26、实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。 本实例根据上面的设计规划出的实体有：读者种类信息实体、读者信息实体、书籍信息实体、借阅信息实体。各个实体具体的描述E-R 图如下。 读者种类信息实体E-R图读者种类信息实体种类编号种类名称借书数量 图例2.2借阅信息实体E-R图借阅信息实体借阅编号读者编号读者姓名书籍名称借还标示图例2.3读者信息实体E-R图读者信息实体读者编号读者姓名读者种类读者性别图例2.4书籍信息实体E-R图书籍信息实体书籍编号书籍名称书籍作者是否被借出图例2.5读者种类信息e-r图书籍种类信息实体种类编号种类名称图例2.6实体之间相互关系的E-R图读者种类信息书

27、籍信息读者信息登记书籍信息登记读者信息管理书籍信管理借阅书籍借阅信息管理图例2.7 2.4 系统功能概述（1）图书管理 (表2.1)字段名数据类型可否为空说明Book_id文本Not null书籍编号Book_name文本Not null书籍名称Book_auther文本Not null书籍作者Book_type文本Not null书籍种类Book_date日期Not null出版日期Book_addess文本Not null出版社Book_ price文本notnull价格zhuangtai文本Not null状态（2）图书种类管理(表2.2)字段名数据类型可否为空说明Booktype_id

28、文本Not null图书种类编号Bootype_name文本Not null读书种类（3）读者管理(表2.3)字段名数据类型可否为空说明Reader_id文本Not null读者编号Reader_name文本Not null读者姓名Reader_sex文本Not null读者性别Readertype_name文本Not null读者种类Reader_tele数字null读者电话Reader_addess文本null读者地址Rreader_email文本Not null读者邮件（4）读者种类管理(表2.4)字段名文本可否为空说明Readertype_id文本Not null读者种类编号reade

29、rtype_name文本Not null读者种类Book_number数字Not null借书量（5）图书借阅管理(表2.5)字段名数据类型可否为空说明Book_id文本Not null书籍编号Book_name文本Not null书籍名称Reader_id文本Not null读者编号Reader_name文本Not null读者姓名flag文本Not null借还标志（6）系统管理(表2.6)字段名数据类型可否为空说明User_id文本Not null用户编号User_name文本Not null用户姓名User_tele数字 null用户电话User_addess文本 null用户地址Us

30、er_email文本null用户邮件User_system文本Not null系统管理员User_lab文本Not null图书馆管理员User_reader文本Not null普通读者第三章 图书管理系统的界面和代码3.1登录功能的实现 图例3.1 登录界面用户名和密码在数据库里，当登录时，比较登陆的用户名和密码是否在数据库里，如果不出现提示信息，如果在进行登陆。如果连续输入三次密码都不对，那么系统自动退出来。3.2 模块功能的实现 模块里实现数据库的连接，定义数据库对象变量，创建一个实例。3.3 图书管理功能的实现图例 3.2 主窗体界面（1）图书种类管理主要管理图书种类的添加、编辑等功能

31、。（2）图书种类的添加图书的种类有很多，所以添加是时每个书籍都有自己的编号，编号不能重复，种类名称也不能有重复,只有图书馆管理员这个权限。（3）图书种类的编辑图书管理员可以对书籍种类进行修改，但注意的是种类编号不能改成已有的编号。3.4 图书信息管理(1) 添加图书信息图书馆管理员对图书进行添加时编号不能有重复的。注意书籍价格是否数值性。(2) 编辑图书信图例 3.3 编辑图信息界面图书馆管理员通过书籍编号进行查找所要编辑的书籍信息，书籍信息不能改成已有的书籍编号。(3) 删除图书信息删除书籍信息的界面上有四个按钮，通过这四个按钮进行查找你所要删除的信息，图书馆管理员才可以进行删除操作。(4)

32、 查询图书信息图例 3.4 查询图书信息界面通过书籍名称和作者查找图书信息，因为大部分人都知道书籍名称和作者。只要你输入你所查找的书的名称或作者，所有有关该书的信息全部显示出来,读者和管理员都能查找。3.5 读者管理功能的实现(1) 读者种类管理(2) 添加读者种类这个系统主要面对中小学的图书馆设计的所以读者种类有老师、学生、职工等等。添加时，主要添加种类有编号、种类名称和借书量。注意的是种类编号不能有重复的，不同种类编号不能有相同的种类名称。(3) 编辑读者种类编辑读者种类时，不能把当前的编号改称已有的编号。3.6 读者信息管理(1) 添加读者信息添加的读者信息主要有读者的编号、读者的姓名、

33、读者的性别、读者的种类、读者的联系电话、读者的地址和读者的邮件等等。读者的编号不能有重复的。(2) 编辑读者信息管理员通过读者编号找到要编辑的读者信息后进行编辑。(3) 删除读者信息管理员可以通过上下按钮找到要删除的读者信息后进行删除。(4) 查看读者信息通过读者编号和读者姓名可以查看读者信息，该读者接借了那些书，还了那些书。3.7 图书借阅管理功能的实现.(1) 借书管理图例 3.5 借书信息界面Private Sub Combo1_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim(select * from

34、 books where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Text1.Text = mrc.Fields(1)Text2.Text = mrc.Fields(2)End SubPrivate Sub Combo2_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetDim mrcc As ADODB.Recordsettxtsql = Trim(select * from readers where reader_id= & Combo2.Text & )Set m

35、rc = executesql(txtsql)txtsql = Trim(select * from readers where reader_id= & Combo2.Text & and book_no= & Combo1.Text & )Set mrcc = executesql(txtsql)Text4.Text = mrc.Fields(1)Text5.Text = mrc.Fields(2)End SubPrivate Sub Command1_Click()Dim mrcc As ADODB.RecordsetDim mrctype As ADODB.RecordsetDim m

36、rcbook As ADODB.Recordsettxtsql = Trim(select * from borrow where reader_id= & Combo2.Text & )Set mrcc = executesql(txtsql)txtsql = Trim(select * from readertype where readertype_name= & Text5.Text & )Set mrctype = executesql(txtsql)txtsql = Trim(select * from books where book_no= & Combo1.Text & )S

37、et mrcbook = executesql(txtsql)If Combo1.ListIndex = -1 Then MsgBox 请选择书籍编号！, vbInformation Exit SubElseIf Combo2.ListIndex = -1 Then MsgBox 请选择读者编号！, vbInformation Exit SubElseIf mrcbook.Fields(7) = 是 Then MsgBox 此书已借！, vbInformationElsetxtsql = Trim(select * from borrow where reader_id= & Combo2.T

38、ext & and f = 借)Set mrcc = executesql(txtsql)If mrcc.RecordCount = mrctype.Fields(2) Then MsgBox 借书量已超！, vbInformation Exit SubElse mrcc.AddNew mrcc.Fields(0) = Combo1.Text mrcc.Fields(1) = Text1.Text mrcc.Fields(2) = Combo2.Text mrcc.Fields(3) = Text4.Text mrcc.Fields(4) = 借 mrcc.Update mrcbook.Fie

39、lds(7) = 是 mrcbook.Update MsgBox 借书成功！, vbInformation Combo1.Text = Text1.Text = Text2.Text = Combo2.Text = Text4.Text = Text5.Text = End IfEnd SubPrivate Sub Command2_Click()frmborrowbook.HideEnd SubPrivate Sub Form_Load()frmborrowbook.Height = 3660frmborrowbook.Width = 8580Dim txtsql As StringDim

40、mrc As ADODB.RecordsetDim mrcc As ADODB.Recordsettxtsql = Trim(select * from books)Set mrc = executesql(txtsql)Do While Not mrc.EOF Combo1.AddItem mrc.Fields(0) mrc.MoveNextLooptxtsql = Trim(select * from readers)Set mrcc = executesql(txtsql)Do While Not mrcc.EOF Combo2.AddItem mrcc.Fields(0) mrcc.M

41、oveNextLoopEnd Sub(2) 还书信息图例 3.6 还书信息界面Option ExplicitPrivate Sub Combo1_Click()Dim mrc As ADODB.RecordsetDim txtsql As Stringtxtsql = Trim(select * from borrow where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)m

42、rc.MoveNextLooptxtsql = Trim(select * from books where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim(select * from readers where reader_id= & Combo4.Text & )Set mrc = executesql(txtsql

43、)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo2_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim(select * from books where book_name= & Combo2.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo1.Text = mrc.Fields(0)Combo3

44、.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim(select * from borrow where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)mrc.MoveNextLooptxtsql = Trim(select * from readers where reader_id= & Combo4.Text & )Set

45、mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo3_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim(select * from books where book_auther= & Combo3.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo1.T

46、ext = mrc.Fields(0)Combo2.Text = mrc.Fields(1)mrc.MoveNextLooptxtsql = Trim(select * from borrow where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)mrc.MoveNextLooptxtsql = Trim(select * from readers where reader_

47、id= & Combo4.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo4_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim(select * from borrow where reader_id= & Combo4.Text & )Set mrc = executesql(txtsql)Do While

48、 mrc.EOF = FalseCombo1.Text = mrc.Fields(0)Combo5.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim(select * from books where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim(select * fro

49、m readers where reader_id= & Combo4.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo5_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim(select * from borrow where reader_name= & Combo5.Text & )Set mrc = e

50、xecutesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo1.Text = mrc.Fields(0)mrc.MoveNextLooptxtsql = Trim(select * from books where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLoopt

51、xtsql = Trim(select * from readers where reader_id= & Combo4.Text & )Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Command1_Click()Dim mrc As ADODB.RecordsetDim txtsql As StringDim mrc1 As ADODB.RecordsetDim txtsql1 As Stringtxtsql

52、= Trim(select * from borrow where book_no= & Combo1.Text & )Set mrc = executesql(txtsql)If Combo1.Text = And Combo2.Text = And Combo3.Text = Then MsgBox 请选择您想要还的书!, 0 + 64, 提示 Exit SubElseIf Combo4.Text = And Combo5.Text = And Combo6.Text = Then MsgBox 请输入还书者的信息!, 0 + 64, 提示 Exit SubElse txtsql1 = T

53、rim(select * from books where book_no= & Combo1.Text & ) Set mrc1 = executesql(txtsql1) mrc.Delete mrc.AddNew mrc.Fields(0) = Combo1.Text mrc.Fields(1) = Combo2.Text mrc.Fields(2) = Combo4.Text mrc.Fields(3) = Combo5.Text mrc.Fields(4) = 还 mrc.Update mrc1.Delete mrc1.AddNew mrc1.Fields(0) = Combo1.T

54、ext mrc1.Fields(1) = Combo2.Text mrc1.Fields(2) = Combo3.Text mrc1.Fields(7) = 否 mrc1.Update MsgBox 还书成功！, 0 + 64, 提示 Combo1.RemoveItem Index Combo2.RemoveItem Index Combo3.RemoveItem Index Combo4.RemoveItem Index Combo5.RemoveItem Index Combo1.Text = Combo2.Text = Combo3.Text = Combo4.Text = Combo5

55、.Text = Combo6.Text = End IfEnd SubPrivate Sub Command2_Click()frmgivebook.HideEnd SubPrivate Sub Form_Load()frmgivebook.Height = 3750frmgivebook.Width = 7365Dim mrc As ADODB.RecordsetDim txtsql As Stringtxtsql = Trim(select * from books where pufup=是)Set mrc = executesql(txtsql)Do While mrc.EOF = F

56、alseCombo2.AddItem mrc.Fields(1)Combo3.AddItem mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim(select readertype.* from readertype)Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.AddItem mrc.Fields(1)mrc.MoveNextLooptxtsql = Trim(select * from borrow where flag=借)Set mrc = executesql(txtsql)If

57、 mrc.EOF = True Then MsgBox 没有记录！, vbInformation Exit SubElseDo While mrc.EOF = FalseCombo1.AddItem mrc.Fields(0)Combo4.AddItem mrc.Fields(1)Combo5.AddItem mrc.Fields(2)mrc.MoveNextLoopEnd IfEnd Sub(3) 查看还书信息图例 3.7 图书阅览界面Private Sub Command1_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetIf Ch

58、eck1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 Then If Trim(Text1.Text = ) Then MsgBox 请输入读者姓名！, 0 + 64, 提示 Text1.SetFocus Exit Sub Else txtsql = Trim(select*from borrow where reader_name= & Text1.Text & ) Set mrc = executesql(txtsql) If mrc.EOF = True Then MsgBox 该读者不存在!, 0 + 64, 提示 Text1.Text = Text1.