数据库课程设计报告--图书管理系统

1、数据库课程设计报告 学 院： 信息科学与工程学院 专 业： 计算机科学与技术 班 级： 学 号： 姓 名： 指导老师： 目目 录录 第一章 课程设计概述.- 1 - 1.1 课程设计的性质与任务 .- 1 - 1.2 课程设计的基本要求 .- 1 - 1.3 课程设计的内容 .- 1 - 第二章 设计方案论证.- 4 - 2.1 所选择的开发工具DELPHI介绍 .- 4 - 2.2 面向对象编程的概念 .- 4 - 2.3 PASCAL语言介绍.- 5 - 2.4 SQL 语言.- 5 - 2.5 SQLSEVER 2000 的应用 .- 6 - 2.6 数据库访问技术 .- 7 - 2.7

2、 概要设计 .- 7 - 2.8 模块分析 .- 8 - 第三章 设计过程详细论述.- 10 - 3.1 DELPHI设计软件组件分析.- 10 - 3.2 数据库详细设计 .- 11 - 3.2.1 系统 ER 图.- 11 - 3.2.2 数据库表截图分析.- 12 - 3.2.3 数据字典.- 13 - 3.2.4 文件字典.- 13 - 3.3 系统界面详细设计： .- 14 - 3.3.1 系统登陆界面设计分析:.- 14 - 3.3.2 系统主界面设计分析.- 15 - 3.3.3 图书管理系统界面分析:.- 16 - 3.3.4 图书查询界面设计分析:.- 17 - 3.3.5

3、新书登记界面设计分析：.- 18 - 3.3.6 图书下架界面设计分析:.- 19 - 3.3.7 读者办卡界面设计分析:.- 21 - 3.3.8 读者信息界面设计分析:.- 22 - 3.3.9 读者挂失界面设计分析:.- 23 - 3.3.10 读者注销界面设计分析:.- 24 - 3.3.11 读者冻结界面设计分析:.- 25 - 3.3.12 借阅管理系统界面设计分析:.- 26 - 3.3.13 借书(还书)界面设计分析: .- 27 - 3.3.14 借阅信息界面设计分析:.- 30 - 第四章 设计总结.- 32 - 4.1 课程小结 .- 32 - 4.2 个人小结 .- 3

4、3 - 参考文献.- 34 - 第一章第一章 课课程程设计设计概述概述 1.1 课课程程设计设计的性的性质质与任与任务务 1.掌握计算机管理信息系统设计的一般方法，主要包括系统分析、系统设计的组织和实施。 2.掌握关系型数据库管理系统的编程技术，并能独立完成一般小系统的程序设计、调试运 行等工作。 3.培养学生学以致用，根据具体问题设计方案并解决该问题的能力。 1.2 课课程程设计设计的基本要求的基本要求 1.完成系统的需求分析、总体设计与详细设计。 2.编写相关数据库的脚本，建立后台数据库程序，包括表、视图、过程、触发器等，其中 可以采用 ORACLE 或 SQL SERVER，一定要有过程

5、与触发器的编写与调试以及有关数据字段、 程序功能模块、主要变量的说明。 3.完成技术方案选型研究，确定开发工具及其主要理由，选用动态网页技术及主要理由， 完成 10 项主要功能中的 5 项功能的编制、调试及验收，其中主要包含有前两项基础数据的 维护、中心的借阅、还书功能及基于 WEB 的网上查询等功能。 4书写课程设计报告。 1.3 课课程程设计设计的内容的内容 1引言 图书借阅是学生在大学学习中经常实际经历的活动，而在此过程中所涉及信息与行为 可以较好地作为一个数据库系统的典型实例。在该实例中，需要管理的信息包括图书信息、 管理员信息、学生信息、教师信息、借阅信息、图书分类信息、出版社信息等

6、能表现出关 系数据库中一对一、一对多、多对多等实体关系与规范化设计属性依赖关系，基本满足学 习关系数据库的示例需要。系统中的行为所涉及的活动包括适合采用 C/S 模式处理的一系 列图书管理活动，也包括适合 B/S 模式处理的新书推荐、书目查询、网上续借、借阅查询、 归还提醒等功能，基本满足学习实例系统开发的需要。下面分别说明其中系统功能需求与 数据关系需求。 2系统功能需求描述 在该系统中，主要包括图书管理、借阅、续借、查询等功能，下面分别就其系统主要 功能与业务规则描述如下。 1） 图书维护 （1）图书的书目信息新增、编辑、删除等； （2）某一书目记录的删除只有其所有图书复本都在库的情况下才

7、可以。 2） 借阅人/卡维护 （1）借阅人信息的新增、编辑、删除等； （2）借阅人信息的删除只有所借图书都已归还的情况下才可以； （3）借阅卡与借阅人一一对应，每一新增借阅人记录的同时与之对应的新增借阅 卡记录； （4）借阅卡由于遗失等原因可能重新办理：即删除旧卡，新增新卡与该借阅人的 对应信息； （5）删除借阅人记录的同时删除该借阅卡记录。 3） 出版社维护 （1）出版社的书目信息新增、编辑、删除等； （2）出版社的删除只有其所属图书都已删除的情况下才可以。 4） 图书借阅 （1）新增一条借阅记录； （2）只有该图书在库复本数大于 1 才能进行借阅； （3）借阅完成后，该图书在库复本数减 1

8、； （4）学生：最多借 5 本书，每本书借阅期限为 3 个月，在此期限内可续借一次， 从续借之日起延长 3 个月； （5）教师：最多借 10 本书，每本书借阅期限为 6 个月，在此期限内可续借一次， 从续借之日起延长 6 个月； （6）有书超期未还，或已借书数量超过规定者，不可再借书； （7）借书时需要出示借阅卡，并正确输入密码，方可借书。 5） 图书归还 （1）修改该借阅记录的归还字段； （2）图书归还完成后，该图书在库复本数加 1； （3）延期归还者按规定交纳罚款； （4）还书时需要出示借阅卡，并正确输入密码，方可还书。 6） 新书推荐：列出所有标记为新书的图书记录（图书记录的相应字段表示

9、） 。 7） 书目查询 （1）可以按书名、作者、分类、出版社模糊查询； （2）只有输入借阅卡号与密码，才可进入相应网页。 8） 已借图书 （1）列出该借阅人所有已借阅图书； （2）只有输入借阅卡号与密码，才可进入相应网页。 9） 图书催还 （1）对列出该借阅人所有已借阅图书中还书日期在 10 天之内的提示归还； （2）只有输入借阅卡号与密码，才可进入相应网页。 10）图书续借 （1）借阅人可以对已借阅图书中未续借的续借一次； （2）只有输入借阅卡号与密码，才可进入相应网页。 3系统数据需求描述 对上述系统功能需求，可以分析、归纳出其相应必须管理的信息包括图书、借阅人、 借阅卡、借阅关系、出版社

10、等，其主要数据及其属性需求分析如下： 1）图书信息包括：图书编号，书名，作者，图书分类，出版社，单价（元） ，复本数 量，库存量，日罚金（元） ，是否新书； 2）借阅卡信息包括：借阅卡编号，读者编号； 3）借阅人信息包括：借阅人编号，姓名，是否学生，密码，已借数量，Email 地址， 电话号码； 4）借阅信息包括：流水号，借阅人编号，图书编号，借阅日期，是否续借，续借日期， 是否已归还，归还日期； 5）出版社信息包括：编号，出版社名； 6）图书分类信息包括：编号，分类名。 第二章第二章 设计设计方案方案论证论证 2.1 所所选择选择的开的开发发工具工具 delphi 介介绍绍 Delphi 基

11、本概念介绍 Delphi 是全新的可视化编程环境，为我们提供了一种方便、快捷的 Windows 应用程 序开发工具。它使用了 Microsoft Windows 图形用户界面的许多先进特性和设计思想，采 用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界 上最快的编辑器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用 Delphi 开 发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是 枯燥无味的工作Delphi 的每一个设计细节，都将带给您一份欣喜。 Delphi 的基本形式 Delphi 实际上是 P

12、ascal 语言的一种版本，但它与传统的 Pascal 语言有天壤之别。 一个 Delphi 程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即 使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的 程序。缺省的应用程序是一个空白的窗体(Form)，您可以运行它，结果得到一个空白的窗 口。这个窗口具有 Windows 窗口的全部性质：可以被放大缩小、移动、最大最小化等，但 您却没有编写一行程序。因此，可以说应用程序框架通过提供所有应用程序共有的东西， 为用户应用程序的开发打下了良好的基础。Delphi 已经为您做好了一切基础工作程序 框架就是一个已经

13、完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在 程序中加入完成您所需功能的代码而已。 在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到 用户输入后作何反应，窗口除了响应 Windows 的基本操作(移动、缩放等)外，它只是接受 用户的输入，然后再忽略。Delphi 把 Windows 编程的回调、句柄处理等繁复过程都放在一 个不可见的 Romulam 覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进 行编程。 2.2 面向面向对对象象编编程的概念程的概念 面向对象的程序设计(Object-Oriented Programming，简记为 O

14、OP)是 Delphi 诞生 的基础。OOP 立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被 公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进 Windows 编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容 易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不 与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环 境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而 Delphi 是完全面向对象 的，这就使得 Delphi 成为一种触手可及的促进软件重用的开发工具，

15、从而具有强大的吸引 力。 一些早期的具有 OOP 性能的程序语言如 C+,Pascal,Smalltalk 等，虽然具有面向 对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大 量的代码。Delphi 的推出，填补了这项空白。您不必自己建立对象，只要在提供的程序框 架中加入完成功能的代码，其余的都交给 Delphi 去做。欲生成漂亮的界面和结构良好的程 序丝毫不必绞尽脑汁，Delphi 将帮助您轻松地完成。它允许在一个具有真正 OOP 扩展的 可视化编程环境中，使用它的 Object Pascal 语言。这种革命性的组合，使得可视化编程 与面向对象的开发框架紧密地结

16、合起来。 2.3 Pascal 语语言介言介绍绍 Delphi 的编程语言是以 Pascal 为基础的。Pascal 语言具有可读性好、编写容易的特点， 这使得它很适合作为基础的开发语言。同时，使用编译器创建的应用程序只生成单个可执 行文件(.EXE)，正是这种结合，使得 Pascal 成为 Delphi 这种先进开发环境的编程语言。 在编写自己的 Object Pascal 程序时，要注意程序的可读性。Pascal 语言是英式结构语 言，在程序中选择合适的缩排、大小写风格，并在需要时将程序代码分行，会使得程序代 码能够很容易地被自己和他人读懂。一般的程序员都有这样的体验：如果不给程序加上适

17、当的注解，一段时间后，自己也难以理清程序的流程。给程序及时地加上注释是良好的编 程习惯。Delphi 的注释需要加注在之间，编辑器会把它们处理成为空白。Delphi 保留了 Borland Pascal 编辑器的风格，关键字采用黑体字，被注释的部分会变暗，这使得编程风格 良好，易读易写。 在事件处理过程中，最常用到的工作就是把一个新值赋给一个属性或变量。在设计用 户界面时，可以使用 Object Inspector(Object Inspector)来改变其属性；但有时需要在程序执 行时改变属性的值，而且有些属性只能在执行时改变，这些属性在 Delphi 的在线帮助的 “Proprety”主题

18、中被标为执行期属性。 过程与函数是程序中执行特定工作的模块化部分。Delphi 的运行库包含许多过程与函 数以供您的应用程序调用。您不必了解过程与函数的逻辑，但要知道过程与函数的用途。 在对象中说明的过程和函数称为方法(Method)。所有的事件处理过程都是过程，以保留字 procedure 开头。每一个事件处理过程只包含了当这一事件发生时需要执行的程序代码。在 事件处理过程中使用 Delphi 已经存在的过程与函数，只需在程序代码中调用它们即可。 2.4 SQL 语语言言 1. SQL 语言简介 SQL 语言作为关系数据库管理系统中的一种通用的结构查询语言，已经被众多的数据 库管理系统所采用

19、，如 ORACLE、Sybase、Informix 等数据库管理系统，它们都支持 SQL 语言。Delphi 与使用 SQL 语言的数据库管理系统兼容，在使用 Delphi 开发数据库应用程 序时，我们可以使用 SQL 语言编程，支持 SQL 编程是 Delphi 的一个重要特征，这也是体现 Delphi 作为一个强大的数据库应用开发工具的一个重要标志。 2. SQL 的优点 SQL 广泛地被采用正说明了它的优点。它使全部用户，包括应用程序员、DBA 管理员和 终端用户受益非浅。 1) 非过程化语言 SQL 是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL 允 许用户在

20、高层的数据结构上工作，而不对单个记录进行操作，可操作记录集。所有 SQL 语 句接受集合作为输入，返回集合作为输出。SQL 的集合特性允许一条 SQL 语句的结果作为 另一条 SQL 语句的输入。 SQL 不要求用户指定对数据的存放方法。这种特性使用户更易集中精力于要得到的结 果。所有 SQL 语句使用查询优化器，它是 RDBMS 的一部分，由它决定对指定数据存取的最 快速度的手段。查询优化器知道存在什么索引，哪儿使用合适，而用户从不需要知道表是 否有索引，表有什么类型的索引。 2) 统一的语言 SQL 可用于所有用户的 DB 活动模型，包括系统管理员、数据库管理员、应用程序员、 决策支持系统

21、人员及许多其它类型的终端用户。基本的 SQL 命令只需很少时间就能学会， 最高级的命令在几天内便可掌握。 SQL 为许多任务提供了命令，包括： 查询数据 在表中插入、修改和删除记录 建立、修改和删除数据对象 控制对数据和数据对象的存取 保证数据库一致性和完整性 以前的数据库管理系统为上述各类操作提供单独的语言，而 SQL 将全部任务统一在一 种语言中。 3) 是所有关系数据库的公共语言 由于所有主要的关系数据库管理系统都支持 SQL 语言，用户可将使用 SQL 的技能从一 个 RDBMS 转到另一个。所有用 SQL 编写的程序都是可以移植的。 2.5 SQLSever 2000 的的应应用用

22、在 Windows 操作系统中，Access 和 SQL Server 是最常见的网络后台数据库。在比较 大的网络应用系统中，还是选择 SQL Server；在局域网站上，使用 ASPSQL Server 2000 开发网络应用系统是十分经典的组合。SQL Server 2000 的版本包括企业版，标准版，个人 版，开发版和评估版。企业版是功能最强大的版本，它具有强大的可伸缩性和可靠性。对 于中小规模的企业，标准版是一个比较经济的选择。个人版是在标准版的基础上，为个人 用户量身定做的。其最大的特点是可以在非服务器操作系统上运行。例如 Windows2000 专 业版，Windows NTWor

23、kstation4.0,Windows Me 和 Windows 98。开发版是为开发者提供的 版本，它可以在 SQL Server 基础上编译生成任何类型的应用程序。它包括企业版的所有特 性，但不能用于产品发布。SQL Server 是一个关系型数据库管理系统，其主要特性包括： 1）存储过程（Stored Procedures） ，即一种预编译的事务 SQL 语句组。2）扩展存储过程 （Extended Stored Procedures） ，动态装载和执行 DLL 中的函数功能。3)在线事务处理 （Online Transaction Processing, OLTP）4)在线分析处理（O

24、nline Analytical Processing,OLAP）5）提供大量的向导工具，协助完成各种操作。在本课题的设计过程中， 我选择了 SQL Server2000 作为后台数据库系统，在开发的过程中使用的是 SQL Server 2000，开发完成后使用 SQLServer2000 企业版进行了联机测试。 2.6 数据数据库访问库访问技技术术 直到目前为止，计算机软件的开发分为两个不同的体系，其中一个体系是使用传统的 程序设计语言（如 Pascal、Basic 和 C 等）开发数值控制、数值运算等软件，围绕它们的 重点是算术、数据结构以及近年产生的面向对象技术。另一个体系则是通用的数据

25、库管理 软件领域（数据库应用程序的开发）。这两个体系的发展都极为迅猛，但是二者并没出现 混合渗透迹象。如果使用数据库语言进行传统的算术编程，虽然也能完成相应的功能，但 是其编程过程可能极为复杂。如果使用传统的编程语言进行数据库编程，通过调用专用的 数据库应用程序接口函数和过程，利用这些函数和过程提供的功能，可能也能做得比较完 善，但这做起来大多是极其困难的。而 Delphi 结合了两个体系的优点，它结合了传统的编 程语言 Object Pascal 和数据库语言的强大功能，它即可以用于传统的算术编程又可以用 于数据库编程，特别是 Delphi 具有强大的数据库功能，利用 Delphi 的数据库

26、工具，我们 根本不需要编写任何 Object Pascal 代码便可以创建一个简单的数据库应用。 Delphi 是 Borland 公司于 1994 年底发布的用于开发数据库应用程序的工具，它 是面向对象的，它是目前开发客户/服务器数据库应用程序的强有力的工具。Delphi 在 Window3.1 以上版本的系统环境下运行，目前具有两个版本：Delphi 的标准版本和客户/服 务器版本。标准版本包含一个 Borland Database Engine 的局部拷贝，它允许用户创建能 访问 dBASE、Paradox 和 Local InterBase 服务器的数据库应用， 它还支持具有 ODBC

27、 接 口的数据库。Delphi 的客户/服务器版本包括 Borland SQL Link， 它能直接访问 ORACLE 、 SyBase 和 Microsoft SQL Server,Informix 以及 InterBase 数据库服务器。 Delphi 可以访问多种数据库管理系统的数据库，凭借窗体(Forms)和报表 (Reports)，BDE(Borland Database Engine)可以访问诸如 Paradox、dBASE、本地 InterBase 服务器的数据库，也可以访问远程数据库服务器上的数据库(如 ORACLE、SyBase、Informix 等客户/服务器数据库中的数据

28、库)，或任何经 ODBC(Open Database Connecticity) 可访问的数据库管理系统中的数据库。 2.7 概要概要设计设计 根据我设计的图书馆数据库管理系统，我作了如下分析： 图书馆提供图书借阅业务，读者借阅需先办理借书卡(用条码识别身份)，并交纳一定 的押金。不同的书有着不同的借阅期限，比如期刊和某些新书最多只能借阅七天，而另一 些书则可以借阅半个月或最长三个月不等。逾期不还，或丢失、损坏书籍则予以罚款。在 交纳罚款前，借书卡被冻结。不同类别的读者不着不同的借阅数量限制，比如有的一次可 以借阅 7 本，有的只能借阅 5 本等。对逾期不还的，系统给出报警，并打印催还通知单。

29、 读者可以事先从网上查询拟借书刊是否存在，并可查询书刊存放地点。 我设计的图书管理系统，功能包括： 一图书管理系统： 1 图书查询 2 新书登记 3 图书下架 二读者信息管理： 1办卡 2信息 3挂失 4注销 5冻结 三借阅管理系统： 1借书（还书） 2借阅信息 管理系统的框图如下管理系统的框图如下： 系统登陆界面 系统主界面 图书管理系统图书管理系统读者信息管理读者信息管理借阅管理系统借阅管理系统 图书查询 新书登记 图书下架 办卡 信息 挂失 注销 冻结 借书（还书） 借阅信息 2.8 模模块块分析分析 上图是整个图书馆数据库管理系统的逻辑结构，概要设计中各个功能模块的划分就是依据 上图来

30、实现的。 主要分成三个子模块： 一 图书管理系统图书管理系统： 1 图书查询：可以按照书号，书名，作者，出版单位分别单独查询，也可 以结合查询，且均为不完整查询。 2 新书登记：向图书数据库中写入书名，作者，单价，出版单位，库存， 借书时限，另外书的编号会自动生成。 3 图书下架：可以按照书名，书编号分别删除。 二 读者信息管理读者信息管理： 1 办卡：输入读者姓名，和借数限制，写入读者数据库，其中卡号自动生 成，已借数，挂失，冻结采用默认值。 2 信息：根据读者姓名查询读者个人信息。 3 挂失：根据读者姓名挂失，修改读者表的挂失项，同时使该卡不能借阅 图书，若读者找到卡，或者新办了卡，就通过

31、解挂失按钮来解挂失。 4 注销：根据读者姓名永久删除读者表中的该读者信息。 5 冻结：类似挂失，当读者逾期未归还图书时，冻结项自动改变，使该卡 不能节约图书，同时弹出提示信息，催缴图书。 三 借阅管理系统借阅管理系统： 1 借书（还书）：必须同时输入读者卡号和所借书的书编号才能借阅图书， 借书前判断时候该书库存不足，该卡是否有挂失，注销，冻结现象。若 存在，则不将借书信息写入借阅表，否则写入借阅表。 2 借阅信息：根据读者的卡号查询读者的借阅信息，其中还包含到期图书 查询，使管理员方便查询哪本书的借书期限已到。 以上各个模块在结构上是相互独立的，但每一部分在功能上存在相关的部分，具体可以参 考

32、后面的详细设计部分的结构流程图。 第三章第三章 设计过设计过程程详细论详细论述述 3.1 Delphi 设计软设计软件件组组件件分析分析 以下只介绍，我所使用的 Delphi 组件，以及我在程序设计中的应用。 1. Standard 栏的 Lable 组件，Edit 组件，Memo 组件，Button 组件，Panle 组件。 分别简单介绍： Label 部件 Label(标签)一般放在对象的旁边，用来标记这些对象，从而对用户的操作进行提 示，也可以用来显示其它信息。您可以在标签中设置热键，也即在 Caption 属性值段中输 入含有“ begin if (edit2.Text=yutian)

33、 then begin form2.show; form1.hide; end else showmessage(这个密码有问题！) end; 3.3.23.3.2 系统主界面设计分析系统主界面设计分析 图图 2 系系统统主要界面截主要界面截图图 系统主界面说明：系统主界面说明： 1 说明按钮弹出版本，个人信息，和制作日期。 2 图书，读者，借阅，三个按钮分别用了快捷键。 系统主界面程序：系统主界面程序： 说明按钮程序： procedure TForm2.FormPaint(Sender: TObject); begin canvas.TextOut(100,300,作者：阿罗); canva

34、s.TextOut(100,330,版本 1.01); canvas.TextOut(100,360,与 2009-1-5 制作); end; 退出按钮程序：退出按钮程序： procedure TForm2.Button4Click(Sender: TObject); begin close; end; 图书按钮程序图书按钮程序： procedure TForm2.Button1Click(Sender: TObject); begin Form3.show; Form2.hide; end; 读者按钮与借阅按钮类似图书按钮。读者按钮与借阅按钮类似图书按钮。 3.3.33.3.3 图书管理系统

35、界面分析图书管理系统界面分析: : 图图 3 图书图书管理系管理系统统界面截界面截图图 图书管理系统界面说明：图书管理系统界面说明： 1其中用了 Timer 部件，使界面呈现淡入淡出形式。 2以上所有按钮都只用了跳转语句，没有特殊程序，不再赘述。 3由于返回和退出按钮在各界面中程序基本相同，所以只说明一遍，以后不再重复。 Timer 部件程序：部件程序： procedure TForm3.Timer1Timer(Sender: TObject); var tmp:Integer; begin tmp:=AlphaBlendValue; if tmp=255 then begin tmp:=25

36、5; Timer1.Enabled:=false; end; if(tmp=255) then AlphaBlendValue:=tmp; end; 3.3.43.3.4 图书查询界面设计分析图书查询界面设计分析: : 图图 4 图书查询图书查询界面截界面截图图 图书查询界面说明：图书查询界面说明： 1.可以按照书名，书号，出版单位，分别单独查询，也可以结合查询，且都是不完整查 询，在提示按钮中有说明。 2.进入界面是数据库显示框是隐藏的，点击确定才会显示，增加美观。 3.显示 book 表的全部属性内容。 图书查询界面程序：图书查询界面程序： 确定按钮程序： procedure TForm6

37、.Button1Click(Sender: TObject); begin if(edit1.Text=)and(edit2.Text=) and (edit3.Text=)and (edit4.Text=)then showmessage(这就不太方便了！) else begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=select * from book where 书名 like+%+Edit1.Text+%+ and 书 编号 like+%+Edit2.Text+%+ and 出版单位 like+%+Edit3.Text+%+ and 作者 l

38、ike+%+Edit4.Text+%+; ADOQuery1.Open; DBGrid1.show; end; end; 3.3.53.3.5 新书登记界面设计分析：新书登记界面设计分析： 图图 5 新新书书登登记记界面截界面截图图 新书登记界面说明：新书登记界面说明： 1 将书名，作者，单价，出版单位，库存，借书时限插入数据库中 book 表。书编号默 认最大值插入。 2 显示 book 数据库中的全部内容，方便管理。 3 信息清除按钮，用来清除输入的文字，方便连续登记新书。 新书登记界面程序：新书登记界面程序： 确定按钮程序： procedure TForm8.Button1Click(S

39、ender: TObject); var newid: Integer; begin if (Edit1.Text=)or(Edit2.text=)or(edit3.text=)or(edit4.text=)or(edit5.text=)or(edit6.text=) then showmessage(让信息空着这样不礼貌！) else begin DBGrid1.show; ADOQuery1.SQL.Clear; ADOQuery1.Active:=false; ADOQuery1.SQL.Text:=SELECT MAX(书编号)from book; ADOQuery1.open; AD

40、OQuery1.first; newid:=ADOQuery1.Fields.Fields0.AsInteger+1; ADOQuery1.close; ADOQuery1.SQL.Text:=insert into book values(+IntToStr(newid)+,+Edit1.Text+,+Edit2.Text+,+Edit3.Text+,+Edit4.Text+,+ Edit5.Text+,+Edit6.Text+); ADOQuery1.ExecSQL; ADOQuery1.close; ADOQuery1.SQL.Text:=select * from book; ADOQ

41、uery1.Active:=true; end; end; 信息清除按钮程序：信息清除按钮程序： procedure TForm8.Button3Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; end; 3.3.63.3.6 图书下架界面设计分析图书下架界面设计分析: : 图图 6 图书图书下架界面截下架界面截图图 图书下架界面说明：图书下架界面说明： 1 根据提示信息来删除图书，删除相应图书 Book 表中的相应元组。 图书下

42、架界面程序：图书下架界面程序： 确定按钮程序： procedure TForm7.Button1Click(Sender: TObject); begin DBGrid1.show; ADOQuery1.SQL.Clear; if (Edit1.text=)and (edit2.Text=) then showmessage(那你让我删除什么？：）) else begin ADOQuery1.Active:=false; ADOQuery1.sql.Text:=delete from book where 书名=+edit1.text+ or 书编号 =+edit2.text+; ADOQue

43、ry1.ExecSQL; ADOQuery1.SQL.Clear; ADOQuery1.SQL.text:=select * from book; ADOQuery1.Active:=true; end; end; 3.3.73.3.7 读者办卡界面设计分析读者办卡界面设计分析: : 图图 7 读读者者办办卡界面截卡界面截图图 读者办卡界面说明：读者办卡界面说明： 1 输入读者姓名，和借数限制，将这两项写入数据库中的 Reader 表，其中其他信息采 用默认值插入。 2 显示该读者 Reader 表中全部属性信息。 3 加入了 Panle 部件，使信息在同一窗口显示。 （以下的 Panle 都

44、是覆盖式的 Panle ） 读者办卡界面程序：读者办卡界面程序： 确定按钮程序： procedure TForm4.Button7Click(Sender: TObject); var kahao: Integer; begin if(edit1.Text=)or(edit2.Text=) then showmessage(这个可不应该是空啊！) else begin ADOQuery1.Active:=false; ADOQuery1.SQL.Text:=select max(卡号) from reader; ADOQuery1.Open; ADOQuery1.First; kahao:=A

45、DOQuery1.Fields.Fields0.AsInteger+1; /ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=insert into reader values(+IntToStr(kahao)+,+edit1.Text+,+IntToStr(0)+,+edit2.Text+,+IntToStr(0)+,+ IntToStr(0)+); ADOQuery1.execsql; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=select * from reader where 读者姓名=+edit1.text+;

46、ADOQuery1.active:=true; end; end; 3.3.83.3.8 读者信息界面设计分析读者信息界面设计分析: : 图图 8 读读者信息界面截者信息界面截图图 读者信息界面说明：读者信息界面说明： 1 根据输入的读者姓名来查询读者 Reader 表中的信息。 读者信息界面程序：读者信息界面程序： 确定按钮程序： procedure TForm4.Button8Click(Sender: TObject); begin if (Edit3.text=) then showmessage(不允许输入这么奇怪的名字) else begin ADOQuery1.Active:=f

47、alse; ADOQuery1.SQL.Text:=select * from reader where 读者姓名=+edit3.text+; ADOQuery1.Active:=true; end; end; 3.3.93.3.9 读者挂失界面设计分析读者挂失界面设计分析: : 图图 9 读读者挂失界面截者挂失界面截图图 读者挂失界面说明：读者挂失界面说明： 1 挂失按钮根据输入的读者姓名修改 Reader 表中挂失属性，将属性值 False 改为 True。 解挂失按钮，将 True 改为 False。 2 挂失统计按钮首先显示挂失读者的总数目，然后显示挂失读者的相应信息，方便管理 员管理

48、。 读者挂失界面程序：读者挂失界面程序： 挂失按钮程序： procedure TForm4.Button9Click(Sender: TObject); begin if (Edit4.text=) then showmessage(不允许输入这么奇怪的名字) else begin ADOQuery1.active:=false; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=update reader set 挂失=1 where 读者姓名=+Edit4.Text+; ADOQuery1.SQL.Add(select * from reader); ADOQuery1.ExecSQL; ADOQuery1.Active:=true; end; end; 解挂失按钮与挂失按钮程序基本相同，只一条语句不同，如下：解挂失按钮与挂失按钮程序基本相同，只一条语句不同，如下： ADOQuery1.SQL.Text:=update reader set 挂失=1 where 读者姓名=+Edit4.Text+;