图书信息管理系统的设计与实现

毕业设计论文 图书信息管理系统的设计与实现 摘摘 要要 本文首先阐述了基于.NET Framework 平台的图书馆管理信息系统的开发背 景以及其实践意义，其次说明了图书馆管理信息系统的功能以及相比同类软件 的创新之处。然后就图书馆管理系统开发中所使用的一些的技术进行研究探讨。 主要针对数据库的设计技术、存储过程技术、ADO.NET 技术以及访问 SQL 数据 库技术四个方面进行了研究。最后还附上了图书馆管理信息系统的安装说明、 简单使用说明和一些通用性的经典代码。化了大量的时间用于程序设计，这也 是工作的重点,所开发的软件具有实用价值，所编写的代码对.NET 程序员也有 很好的参考性。在系统的开发过程中，深刻体会到了.NET 平台的强大性、优越 性以及存储过程在提高数据访问性能和增强数据访问安全性上所起到的重要作 用。此外,对于关系代数在数据库科学里的应用，在编程过程中也做了一定的研 究。 , 关键字：图书管理;VB.NET;SQL Abstract In this paper, based on NET Framework platform library management information system development background and the significance of its practice, followed by information on the library management information system function and compared with similar software innovation. Then the library management system used by some technical research. Mainly for database design technology, storage technology, ADO.NET technology and SQL database access technology in four aspects were studied. The last is also attached to the library management information system installation instructions, simple use and some classic code. A lot of time for program design, which is also the focus of the work, the developed software has 第 1 页 共 31 页 practical value, code for NET programmers also has a very good reference. In the development process of the system, realized the . NET platform of the powerful, superiority and stored procedure in improving data access performance and enhanced data access security of the important role played by. In addition, the relational algebra in database science applications, in the programming process can also do some research. , Keywords: library management; VB.NET; SQL 目 录 第一章 引 言.1 1.1 课题背景.1 1.2 国内外研究现状 .1 1.3 本课题研究的意义 .2 1.4 图书管理系统的特点 .3 第二章 系统开发相关技术.5 2.1 理论基础 .5 2.1.1 ASP.NET 的简介 .5 2.2 运行环境 .5 2.2.1 服务器端的配置 .5 2.2.2 客户端配置 .6 第三章图书管理系统的设计.7 3.1 功能设计 .7 3.2 数据库设计 .8 3.2.1 数据库概念模型 .8 3.2.1 数据库表的概念.10 第四章. 图书管理功能的实现.12 4.1 登录功能实现 .12 4.2 系统功能管理.13 4.2.1 书籍查询管理实现.13 4.2.2 书籍添加实现.16 4.2.3 书籍编辑功能的实现.17 4.3 用户删除功能的实现.18 4.4 借书、还书管理的实现.19 总 结 .25 致 谢 .26 参 考 文 献.27 第 1 页 共 22 页 第一章第一章 引引 言言 1.11.1 课题背景 目前随着信息化程度的提高，国内图书馆也日益现代化，为了满足这种需 求，很多软件开发商已经开发出很多交好的商品化的图书管理软件，这些图书 管理软件功能和性能都很完善，他们大多是面向大型专业图书馆而开发的，专 业型强、功能分工较细、操作和使用比较复杂，难以掌握。对那些管理人员不 多且不是图书管理业务的专业人员，业务分工也不是很明确，这样的软件对他 们来说太庞大、太复杂了。本系统开发基于.NET 技术，本着简单、实用的原则， 既在功能上满足用户需求，又力求操作简单，使系统容易掌握和使用。由于采 用.NET 技术构建，本系统既可以在单机运行又可以在网络中运行，具有较高的 适应性。 1.2 国内外研究现状 伴随着科技的进步，社会经济的发展高校人类步入知识社会经济时代。知 识管理理论即是这一时代的产物。作为一种全新的管理方法和管理手段，知识 管理的实践最早诞生于企业，目前也在企业界得以广泛应用。而图书管理系统 一直是这些年来积极探索的问题，并随着这一问题研究的深入和关注，人们逐 渐开始了对图书管理系统新的领域的探索，基于信息化管理的图书知识管理系 统必将成为今后图书馆建设的一个只要内容。但是图书信息话管理还有很多的 不足： 高校图书馆档案管理信息化所需基础设施、设备条件和技术手段还相对 比较落后。然而，由于高校图书馆档案管理信息化所需基础设施、设备条件和 技术手段还相对比较落后，目前高校图书馆档案管理信息化水平还比较低。随 着时代的发展、办公形式的进步，高校的教学、科研及其他活动中越来越多的 依据声像档案。它真实、形象、鲜活地记载了活动、事件的面貌，是一种最直 观、最真实的档案材料， 也是高校及图书馆建设和发展的宝贵资料。但在工作 中往往忽视了对声像档案的收集和利用，使声像档案失去了其应有的作用。因 此，应增加一些高档的声像设备，加强声像档案的管理和利用，同时提高计算 第 2 页 共 22 页 机、局域网和公共网的建设，促进高校图书馆管理信息化水平的不断提高。 高校图书馆档案管理信息化服务层次低。目前，高校图书馆档案管理信 息服务主要还是在对档案资源的登记、保管，只是为部分人提供阅览、简单的 咨询和导读、复印等外部层次上。随着高校基础设施建设的加强，设施设备条 件进一步完善，校园网普遍建立，为高校图书馆档案管理工作提供了很好的平 台。然而，高校图书馆信息化服务网络平台的建设并不理想。在高校图书馆档 案管理中，计算机网络的共享性优势没有得到很好的发挥，高校图书馆档案信 息并没有提供网络信息服务，也没有建立能让读者进行交流网络平台。信息化 服务层次还比较低，网络资料、档案文献报道、专题提供、资源共享等深层次 服务还没有形成。 高校校园网逐步建立，但校园网的利用不够充分，还未建立起高校图书 馆网络远程用户平台。在过去很长一段时间里，由于高校图书馆档案管理传统 工作方式所形成的思维和方法上的定式，使得图书馆档案管理工作者在思想观 念上难以将现代化管理引入到档案工作中来。尽管计算机普及程度已经较高， 校园网已经逐步建立，但是，高校图书馆档案管理中没有充分发挥现代网络技 术的作用。图书馆档案信息基本上是局限于本校，至多就是本地区，基本没有 实现远程存取服务，很少有高校图书馆建设有远程用户也可以非常方便地利用 图书馆档案信息的网络平台。近几年，电子信息技术的迅速发展和对社会生活 的巨大影响，虽然已经让档案工作者认识到计算机、网络等可以大大提高档案 管理工作的效率和信息化水平。但是对于如何构建图书馆档案管理信息化服务 平台，相当多的档案管理工作者并没有站在资源充分共享与利用和学校改革与 发展的高度，从更深层次上认真思考信息化给档案管理带来的机遇！ 1.31.3 本课题研究的意义 随着当今社会的迅猛发展，知识变的越来越重要，终身学习的观念已经深 入人心。而图书馆这一传统的获取知识的场所，它的地位也变的越来越重 要。而图书馆的管理方法也更新了很多次。从最初的手工管理到现在的计算机 管理等等。 经过调查一些图书馆的现状，发现各图书馆使用的管理系统基本都是几年 第 3 页 共 22 页 前的产品，大多使用 VB+ADO 方式，web 平台也主要使用 asp 或 php 开发。开发 技术比较陈旧，功能上也有一些不足。而且以前的 VB 面向对象化编程（OOP） 支持的不是很好,软件维护起来也相当困难。 Microsoft.Net 技术的推出,将计算带入一个新时代。现在.Net 已经引起业 界广泛的关注。.Net 是专门为程序员设计的、功能强大的开发工具，利用该工 具能够构建各类应用程序。.NET 可以说是博大精深，蕴含者丰富的新技术新思 想。 .Net 使应用程序的功能更强大，使系统开发更简单，使系统的部署更轻松。 而.NET 包含的统一的类库，统一的数据结构使得各类编程模型更统一。 个人对.NET 技术非常感兴趣，在这方面也做过大量的研究。又鉴于当前流 行的图书馆管理信息系统技术都比较陈旧，就萌发了用.NET 开发一个新图书馆 管理信息系统的想法。 很高兴它成为为毕业设计研究的课题。 系统的实践意义有两个：1 开发出的系统功能强大，可以应用于各大中型 图书馆使用，可以根据客户的要求添加功能。2 由于.NET 推出的时间不算很长， 所以网上很少有用.NET 开发的公开源代码的大型系统。本系统可以给广大的. NET 编程爱好者一些参考。 本文理论部分主要针对数据库设计技术、存储过程技术、ADO.NET 技术 以及用 SQL Server .NET Framework 数据提供程序访问 SQLserver2000 数据库 技术这四个方面进行了研究和探讨。 图书馆管理信息系统的每一行代码都是精雕细琢出来的，从里面体现出. NET 的强大性以及优越性。在编程过程中查阅了大量的书籍，参考了大量 MSDN 以及各大网站的技术文章，全部代码约有一万两千行左右。为此做了大量的工 作。 在系统的开发过程中，深刻体会到了.NET 平台的强大性以及优越性以 及存储过程在提高数据访问性能和增强数据访问安全性上所起到的重要作用 第 4 页 共 22 页 1.41.4 图书管理系统的特点图书管理系统的特点 准备开发出具有以下特点的管理系统： 页面清晰、功能齐全实用、操作简单。 开发周期短、维护费用低、软件更新速度快。 风格友好化，轻松管理，容易上手，达到一看就懂、一学即会。 目标系统必须具有可靠性、安全性、可维护性、可移植性等。 本系统是针对学校图书馆来开发的管理信息系统，该系统要达到可以对图 书的基本信息进行管理的功能，可以实现基本的查询、录入、修改和借阅功能。 数据集中统一，采用数据库处理数据。使用模块化结构，便于修改，由易增加 新内容。 第 5 页 共 22 页 第二章 系统开发相关技术 2.1 理论基础理论基础 .1 ADO.NETADO.NET 的简介的简介 ADO.NET 的名称起源于 ADO(ActiveX Data Objects),这是一个广泛的 类组,用于在以往的 Microsoft 技术中访问数据 .之所以使用 ADO.NET 名称,是 因为 Microsoft 希望表明,这是在.NET 编程环境中优先使用的数据访问接口 。 它提供了平台互用性和可伸缩的数据访问。 ADO.NET 增强了对非连接编 程模式的支持 ,并支持 RICH XML.由于传送的数据都是 XML 格式的，因此任 何能够读取 XML 格式的应用程序都可以进行数据处理。事实上，接受数据的 组件不一定要是 ADO .NET 组件，它可以是基于一个 Microsoft Visual Studio 的解决方案，也可以是任何运行在其它平台上的任何应用程序。 ADO.NET 是一组用于和数据源进行交互的面向对象类库。通常情况下, 数据源是数据库，但它同样也能够是文本文件、 Excel 表格或者 XML 文件。 ADO.NET 允许和不同类型的数据源以及数据库进行交互。然而并没有与 此相关的一系列类来完成这样的工作。因为不同的数据源采用不同的协议， 所以对于不同的数据源必须采用相应的协议。一些老式的数据源使用ODBC 协议，许多新的数据源使用 OleDb 协议，并且现在还不断出现更多的数据源， 这些数据源都可以通过 .NET 的 ADO.NET 类库来进行连接。 ADO.NET 提供与数据源进行交互的相关的公共方法，但是对于不同的数 据源采用一组不同的类库。这些类库称为Data Providers，并且通常是以 与之交互的协议和数据源的类型来命名的。表1 列处了一些常见的 data providers，以及它们所使用的 API 前缀，和允许进行交互的数据源类型。 2.22.2 运行环境 2.2.1 服务器端的配置服务器端的配置 硬件环境： 第 6 页 共 22 页 (1) CPU:AMD 2500+ (2)内存：512MB (3)硬盘：80G 软件环境： Windows XP(含 IIS ),Microsoft SQL Server .2 客户端配置客户端配置 硬件环境： (1)CPU:赛扬 2.0GHZ 以上 (2)内存：256MB 以上 (3)硬盘：20G 以上 软件环境： Windows 2000/NT/XP/2003, IE6.0 第 7 页 共 22 页 第三章 图书管理系统的设计 3.1 功能设计 本程序采用 C/S 模式，可以实现图书查询，借/还，用户管理等功能。该系 统的用户分不同角色：分别为用户和管理员。 用户除了可以对系统的一般功能进行使用，可以浏览大部分的信息，主要 是不能使用管理用户信息，这主要是防止用户胡乱的使用，扰乱整个系统的管 理 管理员可以进行所有图书信息和用户信息的添加、删除和编辑操作，可以 查看读者的借书和还书信息，做出相应的反映。 图书管理系统可以实现用户查询图书信息和读者信息，可以对图书进行借 阅或归还。管理员可以实现对各种图书的录入、编辑和删除工作，可以统计读 者的借还书信息，解决一些用户的疑问。 管理员模块功能: (1)系统管理员信息模块 系统管理员信息模块显示示：把所有数据库里面有的信息显示出来。详细 的信息有助于管理员对书籍和用进行添加、编辑、删除操作。 (2)书籍信息模块 书籍信息显示：把所有的书籍信息公布出来，为管理员管理书籍提供帮助。 (3)读者信息模块 读者信息显示：把所有的读者信息公布出来，为管理员管理读者提供帮助。 (5)退出信息模块 退出信息显示：登录用户完成退出登录操作。 第 8 页 共 22 页 3.23.2 数据库设计 数据库技术是 20 世纪 60 年代后期产生何发展起来的一项计算机数据管理 技术，现广泛运用与各种信息处理以及科学研究上。数据库技术已经成为当今 时代非常重要的技术。 当今流行的数据库系统主要是以关系数据库为代表的第二代数据库系统。 当今流行的大型数据库管理系统主要有 SQL Server、Oracle、Sybase 等。 图书馆管理信息系统选用的是 SQL 数据库管理系统。 选择它的原因有：SQL 简单，实用，功能强大，能完整实现数据库系统的 所有功能。 .1 数据库概念模型 E-R（Entity-Relationship Approach）图是最常用的概念模型表示方法， 也是数据库的核心和基础，它是按用户的观点来对数据和信息建模，依据概念 模型设计应具的特点，图书管理系统的 E-R 图，如 3-1 到 3-4 所示。 第 9 页 共 22 页 管理员 用户图书 借书 密码 姓 名 作者 类型 状态 出版 社 单价 名字 用户名 地 址 邮 编 电 话 email 身份 证 书名用户地址 日期 单价 用户电 话 用户 名 书号 密码类型 email 电话 帐 号 图 3-2 图书信息 E-R 图 图 3-4 管理员信息 E-R图 图 3-3 预订单信息 E-R图 图 3-1 用户信息 E-R 图 出版 日期 第 10 页 共 22 页 .1 数据库表的概念数据库表的概念 用户信息表（如表 3-1）是记录用户信息的，包括基本的用户名、用户密 码和用户权限，在添加用户时需要使用该表。 表 3-1 用户信息表 用户信息表 名称类型长度说明 Man_idnvarchar50 用户帐号 Man_pwdnvarchar12 用户密码 Man_purviewNvarchar10 用户权限 图书信息表（如表 3-2）是图书的基本信息。在用户查看图书及管理员操 作图书信息时需要使用该表。 表 3-2 图书信息表 图书信息表 字段名称类型长度说明 Book_idInt4 图书编号 Book_code nvarchar50 条码号 Book_name nvarchar50 图书题名( Book_pub nvarchar50 出版社 Book_isbn nvarchar50 ISBN 号 Book_pubdatesmalldatetime4 出版日期 Book_adddatesmalldatetime4 入馆日期 Book_sortnvarchar50 图书分类 读者信息表（如表 3-3）是读者的基本信息。在用户查看读者信息及管理 员操作读者信息时需要使用该表。 表 3-3 读者信息表 读者信息表 字段名称类型长度说明 Au_serialint4 读者编号 第 11 页 共 22 页 Au_namenvarchar50 读者姓名 Au_adddatesmalldatetime4 添加日期 Au_adrnvarchar50 读者地址 Au_emailnvarchar50 读者 email Au_remarksnvarchar50 读者详细资料 借阅情况信息表（如表 3-4）是图书借阅的基本信息。在用户查看借阅情 况及管理员操作借阅信息信息时需要使用该表。 表 3-4 借阅情况信息表 借阅情况信息表 字段名称类型长度说明 Numberint4 借阅号 Au_idnvarchar50 读者编号 book_codenvarchar50 图书编号 Borrow_datesmalldatetime4 借阅日期 Should_datesmalldatetime4 应归还日期 Return_datesmalldatetime4 归还日期 forfeitmoney4 罚款金额 图书分类信息表（如表 3-5）是图书分类的基本信息。在用户查看图书分 类信息及管理员操作图书分类信息时需要使用该表。 表 3-5 图书分类信息表 图书分类信息表 字段名称类型长度说明 Book_sortnvarchar50nvarchar Sort_remarksnvarchar5000 分类具体说明 第 12 页 共 22 页 第四章第四章. . 图书管理功能的实现图书管理功能的实现 4.14.1 登录功能实现登录功能实现 在图书管理系统实现中首先介绍用户登录、管理员登录。 用户在登录时将用户帐号（userID）和密码（password）输入到相应的 TEXT 控件中去，点击提交后系统把刚才获取的 userID 和 password 赋值给新定 义的 2 个字符串 name 和 pwd，然后使用 OleDbCommand 连接本地数据库。使用 OleDbDataReader 进行读操作，如果输入的帐号和密码是与数据库中的值是匹 配的，那么 Session 中的值就等于该帐号，即登录成功，跳转到首页 MainInterface.vb。如果用户名不存在或输入错误，那么使用 Response 对象的 Write 方法显示出提示信息，同时 Session 中的值为空。在首页中判断是否登 录就是看 Session 里的值。如果登录三次未成功，那么“显示你的帐号已被冻 结，请与管理员联系”。如果其中的值为管理员名，那么该用户为管理员，可 以点击登录按钮进入管理页面。如图 4-1 图 4-1 登录界面 用户登录系统后的界面，如图 4-2 所示 第 13 页 共 22 页 图 4-2 登录界面 getUserRights()过程可以实现登录用户权限的选择。 其 getUserRights()过程实现代码如下： Function getUserRights() MyConnection.Open() MyCommand = New OleDbCommand(SELECT * FROM SystemUsers WHERE UserID = & TxtUserID.Text & , MyConnection) MyReader = MyCommand.ExecuteReader() While MyReader.Read AdminStatus = MyReader(AdminRights) LibStatus = MyReader(LibRights) ReaderStatus = MyReader(ReaderRights) End While MyConnection.Close() MyReader.Close() MyCommand.Dispose() End Function 4.2 系统功能管理系统功能管理 .1 书籍查询管理实现书籍查询管理实现 登录进入该系统的用户或管理员都可以看到书籍信息，可以根据自己的需 要进行查询如图 4-3 所示 第 14 页 共 22 页 图 4-3 书籍查询功能 书籍查询可以根据书籍名称、ISDN 号码以及作者查询图书信息。 findByName（）过程可实现通过书籍名称查找书籍；findByAuthorName（）过 程可实现通过作者查找书籍；findByISDN（）过程可实现通过 ISDN 号查找书籍。 其 findByISDN()过程实现代码如下： Sub findByISDN() dbset.Clear() MyConnection.Open() MyCommand = New OleDbCommand(Select * from BookDetails WHERE ISDN = & TxtCondition.Text & , MyConnection) dataA = New OleDbDataAdapter(MyCommand) dataA.fill(dbset, BookDetails) DGResult.ReadOnly = True DGResult.DataSource = dbset.Tables(BookDetails) MyReader = MyCommand.ExecuteReader() While MyReader.Read End While MyConnection.Close() MyReader.Close() MyCommand.dispose() 第 15 页 共 22 页 End Sub 其findByAuthorName()过程实现代码如下： Sub findByAuthorName() dbset.Clear() MyConnection.Open() MyCommand = New OleDbCommand(Select * from BookDetails WHERE AuthorName LIKE & TxtCondition.Text & %, MyConnection) dataA = New OleDbDataAdapter(MyCommand) dataA.fill(dbset, BookDetails) DGResult.ReadOnly = True DGResult.DataSource = dbset.Tables(BookDetails) MyReader = MyCommand.ExecuteReader() While MyReader.Read End While MyConnection.Close() MyReader.Close() MyCommand.dispose() End Sub 其findByName()过程实现代码如下： Sub findByName() dbset.Clear() MyConnection.Open() MyCommand = New OleDbCommand(Select * from BookDetails WHERE BookName LIKE & TxtCondition.Text & %, MyConnection) dataA = New OleDbDataAdapter(MyCommand) dataA.fill(dbset, BookDetails) DGResult.ReadOnly = True DGResult.DataSource = dbset.Tables(BookDetails) MyReader = MyCommand.ExecuteReader() 第 16 页 共 22 页 While MyReader.Read End While MyConnection.Close() MyReader.Close() MyCommand.Dispose() End Sub .2 书籍添加实现书籍添加实现 管理员根据读者的需要添加新的图书信息，如图 4-4 所示 图 4-4 添加图书信息 checkSpecificFields（）过程可查询添加的书籍编号是否存在，如不存在 则编辑好图书信息，add_BookIntoDatabase（）过程可将书籍信息提交及保存。 其 add_BookIntoDatabase（）过程实现的代码如下： Function add_BookIntoDatabase() MyConnection.Open() MyCommand = New OleDbCommand(INSERT INTO BookDetails VALUES( & TxtSN.Text & , & TxtISBN.Text & , & TxtBookName.Text & , & ComboBookCode.Text & , & ComboBookType.Text & , & TxtBookDes.Text & , & TxtBookAuthor.Text & , & TxtPublishdate.Text & , & TxtEdition.Text & , & ComboStatus.Text & , & picPath & , 第 17 页 共 22 页 & TxtAdditionDate.Text & ), MyConnection) MyCommand.ExecuteNonQuery() MyConnection.Close() MyCommand.Dispose() End Function .3 书籍编辑功能的实现书籍编辑功能的实现 管理员根据现实情况编辑图书现有的图书。如图 4-5 图 4-5 编辑图书信息 通过书籍编号，连接数据库查看书籍信息。updateBook（）过程可完成对 于编辑后信息的提交及保存。 其 updateBook（）过程实现代码如下： Function updateBook() MyConnection.Open() Try MyCommand = New OleDbCommand(UPDATE BookDetails SET BookName = & TxtBookName.Text & ,AuthorName = & TxtBookAuthor.Text & ,BookType = & ComboBookType.Text & ,BookCode = & ComboBookCode.Text & , BookDes = & TxtBookDes.Text & , PublishDate = & TxtPublishdate.Text & , LibDate = & TxtAdditionDate.Text & ,Picture = & picPath & WHERE SN = & TxtSN.Text & , MyConnection) 第 18 页 共 22 页 MyCommand.ExecuteNonQuery() Catch c As Exception MsgBox(c.ToString) End Try MyConnection.Close() MyCommand.Dispose() End Function 4 4.3.3 用户删除功能的实现用户删除功能的实现 管理员对违规操作的用户进行删除，如图 4-6 所示： 图4-6 用户删除界面 LoadUser()过程可显示数据库中的所以用户信息。 其 LoadUser()过程实现代码如下： Sub LoadUser() LvUser.Items.Clear() Dim LItem As ListViewItem Dim SQLString As String = SELECT * FROM SystemUsers SQL查询语句 MyConnection.Open() MyCommand = New OleDbCommand(SQLString, MyConnection) MyReader = MyCommand.ExecuteReader() While MyReader.Read LItem = New ListViewItem(MyReader(UserID).ToString) 第 19 页 共 22 页 LItem.SubItems.Add(MyReader(UserName).ToString) LItem.SubItems.Add(MyReader(Password).ToString) LItem.SubItems.Add(MyReader(Status).ToString) LItem.SubItems.Add(MyReader(Address).ToString) LItem.SubItems.Add(MyReader(Phone).ToString) LItem.SubItems.Add(MyReader(CellPhone).ToString) LItem.SubItems.Add(MyReader(Email).ToString) LItem.SubItems.Add(MyReader(AdminRights).ToString) LItem.SubItems.Add(MyReader(LibRights).ToString) LItem.SubItems.Add(MyReader(ReaderRights).ToString) LvUser.Items.Add(LItem) End While MyConnection.Close() MyReader.Close() MyCommand.Dispose() End Sub 4.4 借书、还书管理的实现借书、还书管理的实现 借书、还书功能是图书管理系统必不可少的功能之一。用户可以登录系统， 对图书进行借阅或者对于自己借阅的书籍进行还书操作。如图 4-13 和图 4- 14： 登录用户写入书籍编号进行图书信息确认，写入读者编号，确认读者信息， 确认无误后进行借书操作。如图 4-8： 第 20 页 共 22 页 图 4-8 借阅书籍 checkStatus（）过程可查询书籍是否存在或是否被借阅。 checkIssueTag（）过程可查询该读者是否可以借阅书籍。issueBook（）过程 可将书籍借阅信息提交及保存。 其 issueBook（）过程实现代码如下： Sub issueBook() MyConnection.Open() MyCommand = New OleDbCommand(INSERT INTO IssueBook VALUES( & TxtIssueNo.Text & , & TxtSN.Text & , & TxtBookName.Text & , & TxtAuthorName.Text & , & TxtReaderNo.Text & , & TxtReaderName.Text & , & TxtIssueDate.Text & , & TxtReturnDate.Text & , & ComboChargeType.Text & ), MyConnection) MyCommand.ExecuteNonQuery() MyConnection.Close() MyCommand.dispose() End Sub 其 checkStatus（）过程实现代码如下： Function checkStatus() As Boolean Dim oStatus As String MyConnection.Open() 第 21 页 共 22 页 MyCommand = New OleDbCommand(SELECT * FROM BookDetails WHERE SN = & TxtSN.Text & , MyConnection) MyReader = MyCommand.ExecuteReader() While MyReader.Read oStatus = MyReader(BookStatus) End While MyConnection.Close() MyReader.Close() MyCommand.dispose() If oStatus = 正常 Then Return True Else If oStatus = 被借 Then Return False End If End If End Function 其 checkIssueTag（）过程实现代码如下： Function checkIssueTag() As Boolean Dim oTag As String MyConnection.Open() MyCommand = New OleDbCommand(SELECT * FROM ReaderDetails WHERE ReaderNo = & TxtReaderNo.Text & , MyConnection) MyReader = MyCommand.ExecuteReader() While MyReader.Read oTag = MyReader(IssueTagUsed) End While MyConnection.Close() MyReader.Close() 第 22 页 共 22 页 MyCommand.dispose() If oTag = 3 Then Return False Else If oTag 3 Then Return True End If End If End Function 登录用户对自己已借的图书进行图书信息和读者信息确认，确认无误后进 行还书操作。如图 4-9 图 4-9 归还图书 checkIfAlreadyExists（）查询是否存在该书籍， updateReaderIssueTag（）过程可将书籍归还并保存。 其 checkIfAlreadyExists（）过程实现代码如下： Function checkIfAlreadyExists() As Boolean MyConnection.Open() MyCommand = New OleDbCommand(SELECT * FROM IssueBook WHERE IssueNo = & TxtIssueNo.Text & , MyConnection) Try MyReader = MyCommand.ExecuteReader() While MyReader.Read 第 23 页 共 22 页 TextBox10.Text = MyReader(IssueNo) End While Catch c As Exception MsgBox(c.ToString) End Try MyConnection.Close() MyReader.Close() MyCommand.dispose() If TxtIssueNo.Text = TextBox10.Text Then Return True Else If TxtIssueNo.Text TextBox10.Text Then Return False End If End If End Function 其updateReaderIssueTag()过程实现代码如下： Sub updateReaderIssueTag() Dim CurrentIssueTag As String Dim CurrentIssueTagUsed As String Dim itag As Integer Dim itagused As Integer CurrentIssueTag = getCu