第10章图书管理系统方案

第10章图书管理系统

■数据库应用系统开发的基本思想和步骤

■创建关于图书管理系统的表和数据库

■创建借书表单

■创建还书表单

■创建资料查询表单

■创建图书管理表单

■创建读者管理表单

■创建图书管理系统的报表

■创建报表打印表单

■创建一个自定义工具栏类

■设计图书管理系统的主表单

■初始化表单的制作

■制作数据备份表单

■创建数据恢复表单

■创建数据清空表单

■制作密码验证表单

■制作密码修改表单

■创建系统封面表单

■图书管理系统菜单的制作

■图书管理系统主程序的制作

■创建项目组织系统结构

■应用系统的发布

案例1:数据库应用系统开发的基本思想和步骤

学习VisualFoxPro最终的目的是开发一个数据库应用系统，本章通过制作图书管理

系统集中介绍数据库开发的全过程，以与开发数据库应用系统的制作方法和步骤。

一■、需求分析

1、开发目的：

这个图书管理系统主要为小型图书馆、图书社设计，根据这些图书馆、图书社图书管

理的需求，经过分析后要实现的功能有：

(1)能浏览图书的资料信息和读者的资料信息。

(2)能够按一定条件查询相关资料的信息。

(3)能够修改、增加和删除相关资料信息。

(4)能按条件打印相关资料信息。

(5)有安全性较强的系统入口。

(6)应用系统自身的维护功能。

2、数据需求：

作者经过数据需求的分析，这个系统需要建立关于图书资料信息、读者资料信息、借书

登记和管理的四个表，创建一个数据库，并且实现图书资料信息、读者资料信息和借书登记

表之间的关联，详细的设计在案例二中讲述。

3、功能分析：

(1)浏览

能浏览图书的资料信息和读者的资料信息。

(2)查询

能对图书资料、读者资料和借阅登记的信息按照一定的条件进行查询或者模糊查

询。

(3)数据维护

对图书资料、读者资料和借书登记的相关数据进行修改、添加、删除等的数据维护。

(4)撤消/保存

能撤消错误的操作，能保存用户更改的信息。

(5)资料打印

对图书资料、读者资料和借书登记的相关数据信息按照指定的条件进行打印。

(6)数据备份、恢复和清除

能随时对数据进行备份，也能对数据进行恢复，还可以对整个数据库和表进行初始化

和清除操作。

(7)密码的管理

可以修改密码

二、模块分析

1、系统维护模块

系统维护模块包括了系统初始化、数据表的清空、数据备份、数据恢复、密码修改和

系统退出等的功能。这些功能是通过独立的表单实现的。

2、借还书模块

这个模块包括两个表单，分别实现借书和还书功能，在这两个表单上我们可以查看要

借或者要还图书的信息资料和读者的信息资料，并且利用“借书”和“还书”两个按钮实现

借书和还书登记。

3、资料查询模块

这个模块通过一个拥有两个页框的表单实现图书资料和读者资料的查询，并且可以是

模糊查询，也可以是精确查询。

4、资料管理模块

这个模块包括两个表单，分别实现图书资料的管理和读者资料的管理，管理包括：查

看资料、修改资料、删除资料以与添加资料等等功能。

5、打印资料模块

通过一个表单实现有条件打印，在这个表单里我们可以选择要打印的数据，实现按条

件打印的目标。

三、开发步骤：

1、创建数据表和数据库。表和数据库是数据库应用系统操作的基础和核心，所以经过

需求分析后接着要做的就是设计表和数据库。表的设计要合理，要建立关联的表必须有一样

的字段名，关于表和数据库的设计知识我想大家一定知道，这里就不详述了。

2、应用程序的设计。一个应用系统包含多种类型的文件，比如表单、菜单、报表、子

类等等，每一种文件又有好多个，这些种类数量繁多的应用程序必须有一个清晰的设计思路，

同一个系统不同的设计者有不同的设计思路，比如有人设计是从整体到局部、从大到小，先

建立项目管理器，接着创建主程序，然后是主界面，最后才是某个具体功能的表单、报表等

等，也有人是正好相反的步骤。而作者本人喜欢先设计小的、局部的，然后再设计大的、整

体的，我认为这样对编程等方面是有利的。

3、连编生成应用程序或可执行文件。当一个项目建立好后，在项目运行前还必须对它

们“连编”。主要目的是生成可执行文件，同时可以设置项目信息，比如等，还可以测试和

校验项目，测试程序组件是否可用。

4、测试并发布应用程序。以上步骤完成后，剩下的就是发布程序了。

案例2：创建关于图书管理系统的表和数据库

制作要点：

1、创建表

2、建立主索引和普通索引

3、创建数据库

4、实现两个表之间的关联

步骤详解：

刚才已经说过表和数据库是数据库应用系统操作的基础和核心，设计的时候要充分考虑

到表之间的关联，同时注意数据库设计的合理性，以免造成数据冗余。下面列出图书管理系

统的所有表的结构与必须的索引，表中的记录大家可以自己加几个，在这个案例中我们需要

这样四个表：

1、读者信息表(读者信息.DBF)

结构：

读者信息(读者编号c(10)primarykey,读者c(10),证件号c(20),性别c(2),单位部

门c(20),住址c(40),职业c(20),联系c(12),备注c(40),未还书目c(2))

2、图书资料表(图书资料.DBF)

结构：

图书资料(图书编号c(10)primarykey,图书类别c(10),图书名称c(50),作者c(20),

c(30),出版日期d,入馆日期d,购买价格y(8),借阅次数n(4),备注c(50))

3、借书登记表(借书登记.DBF)

结构：

借书登记(读者编号c(10),图书编号c(10),读者c(10),读者证件号c(20),借阅日期

d,归还日期d,借书标志c(4),foreignkey读者编号tag读者编号references读者信

息，foreignkey图书编号tag图书编号references图书资料)

4、系统表(系统账号.DBF)

结构：

系统账号(账号c(20),密码c(20))

接着再创建一个名为“读者管理”的数据库，把图书资料.DBF、读者资料.DBF和借书

登记.DBF三个表添加到数据库里面并按表结构要求建立关联。如图10-1所示：

品数据库设计器-读者管理

因

昌字段:~

读者编号读者编号

读者姓名图书编号

证件号读者姓名

读者证件号

单位部门借阅日期

归还日期

借书标志

联系电话

13点引：

读者编号

未还书目图书编号

僚引：

质卖者编号

・II

图10-1“读者管理”数据库

案例3:创建借书表单

案例运行效果与操作

在这个表单中，我们可以通过输入读者的读者编号来了解读者的信息，也可以输入图书

编号来了解要借图书的信息，当读者确定要借出时，单击“借出”按钮就可以把信息记录在

借书登记表里面。借书表单的运行效果如图10-2。

图10-2“js”表单运行效果

其中单击“清空”按钮会将表单上所有的文本框容清除，退出表单时，单击“退出”按

钮就可以。

制作要点

1、SQL查询语言

2、文本框属性设置

步骤详解

1、新建一个表单，保存文件名为js,打开“数据环境设计器”窗口，向其中添加读者

信息表、图书资料表以与借书登记表。如图10-3添加对象，分别添加十六个标签、十四个

文本框、五个按钮和两个形状。

图10-3“js”表单

2、这些控件的属设置如表10-1：

表10-1“js”属性设置

对象属性属性值说明

FormlAutoCenter.t.一真设置这个表单在首次显

示时自动在VisuaIFoxPro

主窗口中自动居中

BorderSty1e2-固定对话框指定边框样式

Caption书籍借阅标题

1conmonitor,ico（自表单的图标，大家可以

己选择）使用自己喜欢的图标

MaxButton.F.-假关闭最大化按钮

NameForml表单名

ShowTips.T.-真显示工具提示

ShowWindow1-在顶层表单中指定在创建过程中表单

窗口显示表单

WindowType1-模式表单在显示或运行时的

动作模式

Labe11Caption读者信息

AutoSize.T.一真Label2到Label16的

AutoSize属性都照此设置

BackSty1e0-透明Labe12到Labe116的

BackStyIe属性都照此设置

FontName宋体Labe12到Labe116的

FontName属性都照此设置

FontSize11Labe110的FontSize属

性也是11,其它从Label2

到Labe116的FontSize属性

都是9

Labe12Caption读者编号：

Labe13Caption姓名：

Labe14Caption性别：

Label5Caption证件号：

Labe16Caption单位部门：

LabeI7Caption联系：

Label8Caption备注：

Labe19Caption未还书目：

Labe110Caption图书信息

Labe111Caption图书编号：

Labe112Caption图书名称：

Label13Caption图书类别：

Label14Caption作者：

Label15Caption:

Label16Caption购买价格：

ShapelBackSty1e0-透明指定形状的背景为透明

Specia1Effe0-3维指定形状的格式

ct

Shape2BackSty1e0-透明

Specia1Effe0-3维

ct

TextlBackCo1or224,224,224背景色，自己选择一种

喜欢的颜色就行，Text2到

Text14的BackCoIor属性都

可照此设置

Text2Contro1Sour读者信息.读者指定文本框的数据源是表读

ce者信息中的读者字段

Text3Contro1Sour读者信息.性别

ce

Text4Contro1Sour读者信息.证件号

ce

Text5Contro1Sour读者信息.单位部

ce门

Text6Contro1Sour读者信息.联系

ce

Text7Contro1Sour读者信息.备注

ce

Text8Contro1Sour读者信息.未还书

ce目

TextIOContro1Sour图书资料.图书名

ce称

Textl1Contro1Sour图书资料.图书类

ce别

Textl2Contro1Sour图书资料.作者

ce

Textl3Contro1Sour图书资料.

ce

Text14Contro1Sour图书资料.购买价

ce格

CommandlCaption确定按钮上显示的文字

FontName宋体按钮上显示的文字字体

Command2Caption确定

FontName宋体

CommandsCaption借出

FontName宋体

Command4Caption清空

FontName宋体

Command5Caption退出

FontName宋体

3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码:

Forml的Load事件代码：

seIe1

use读者信息

seIe2

use图书资料

Unload事件代码：use

设置Command1“确定"按钮的01ick事件代码：

seIe1

Iocatefor读者编号二upper(aIIt(thisform.textl.vaIue))

ifnotfound()

二messagebox('没有该读者编号!,,0+64+0,'提示‘)

gotop

eIse

thisformmand3.enabIed=.T.

endif

thisform.refresh

设置Command2“确定"按钮的Click事件代码：

seIe2

Iocatefor图书编号二upper(aI11(thisform.text9.vaIue))

ifnotfound()

二messagebox('没有该图书编号！',0+64+0,'提示‘)

gotop

eIse

thisformmand3.enabIed=.T.

endif

thisform.refresh

设置Commands”借出“按钮的Click事件代码：

□Answer二MESSAGEBOX('确认所借书目的资料无误吗？’，4+32+0,'重要提示‘)

ifnAnswer=6

insertinto借书登记(图书编号，读者，读者证件号，借阅日期,借书标志)；

vaIues(upper(alIt(thisform.textl0.vaIue)),;

upper(aI11(thisform.text2.vaIue)),;

upper(aI11(thisform.text4.vaIue)),;

datetime。，'借出')

seIe2

repIace借阅次数with借阅次数+1

endif

设置Command4“清空“按钮的Click事件代码：

thisform.textl.vaIue=,,

thisform.text2.value=''

thisform.text3.vaIue=''

thisform.text4.vaIue=''

thisform.text5.value=''

thisform.text6.value=''

thisform.text7.vaIue=''

thisform.text8.vaIue=''

thisform.text9.vaIue=''

thisform.textIO.value=''

thisform.textl1.vaIue=''

thisform.text12.value=''

thisform.text13.value=''

thisform.textl4.vaIue=0.00

thisform.textl.setfocus

设置Commands“退出“按钮的Click事件代码：

thisform.reIease

保存表单，保存文件名为Js。执行表单，看看运行效果如何。

案例4：创建还书表单

案例运行效果与操作

还书表单的运行效果和还书表单运行效果基本上一样，只不过显示的一些信息有变化,

“借出”按钮变成了“还书”按钮，还书表单的运行效果如图10-4所示：

图10-4还书表单的运行效果

我们可以输入已借的图书编号，单击“确定”查看指定的图书信息以与借书登记信息,

单击''还书"按钮，实现还书登记。其他按钮的功能和借书表单中的一样按钮一样。

制作要点

1、SQL查询语言

2、文本框属性设置

3、一些常用函数的使用

步骤详解

1、创建还书表单（hs.scx）,在命令窗口中输入命令：CREATEFORMhs0打开“数据环

境设计器”窗口，向其中添加图书资料表以与借书登记表。

2、如图10-5所示添加控件，控件包括十二个标签、十一个文本框、两个形状和四个按

钮，并且调整它们的位置和大小，合理分布在表单上。

图10-5还书表单

4、设置这些表单控件的属性，见表10-2：

表10-2“hs”属性设置

对象属性属性值说明

FormlAutoCenter.t.-真

BorderStyIe2-固定对话框

Caption还书

Iconmonitor,ico（自己

选择）

MaxButton.F.-假

NameForml

ShowTips.T.-真

ShowWindow1-在顶层表单中

WindowType1-模式

Labe11Caption所还图书信息

AutoSize.T.一真

BackStyIe0-透明

FontName宋体

FontSize11

Labe12Caption图书编号：

AutoSize.T.一真Label2到Label112

的AutoSize属性都照此设

置

BackStyIe0-透明Labe12到Labe112的

BackStyIe属性都照此设

置

FontName宋体Labe12到Labe112的

FontName属性都照此设置

FontSize9Labe12到Labe112的

FontSize属性都照此设置

Labe13Caption图书名称：

Labe14Caption图书类别：

Labe15Caption作者：

Labe16Caption•

Labe17Caption购买价格：

Label8Caption读者编号：

Labe19Caption姓名：

Labe110Caption借书日期：

Label11Caption证件号：

Label12Caption应还日期：

TextlBackCoIor224,224,224

Top59文本框高度，Text2

到Textl1的Top属性准

此

Width168文本框宽度Text2到

Textl1的Width属性准此

Text2ControISour图书资料.图书名称

ce

Text3ControISour图书资料.图书类别

ce

Text4ControISour图书资料.作者

ce

Text5ControISour图书资料.

ce

Text6ControISour图书资料.购买价格

ce

Text7ControISour借书登记.读者编号

ce

Text8ControISour借书登记.读者

ce

Text9ControISour借书登记.借阅日期

ce

TextIOControISour借书登记.读者证件

ce号

Textl1ControISour借书登记.归还日期

ce

ShapelBackSty1e0-透明指定形状的背景为透明

Specia1Effe0-3维指定形状的格式

ct

Shape2BackSty1e0-透明

Specia1Effe0-3维

ct

CommandlCaption还书

FontName宋体

Command2Caption确定

FontName宋体

Command3Caption清空

FontName宋体

Command4Caption退出

FontName宋体

3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码:

Forml的Load事件代码：

opendatabase读者管理

Forml的llnIoad事件代码:

cIosedatabase

设置Command2“确定”按钮的Click事件代码：

seIe2

Iocatefor图书编号二upper（alIt仕hisform.textl.value））

ifnotfound0

二messagebox（'没有该图书编号！',0+64+0,'提示‘）

gotop

eIse

thisformmandl.enabIed=.T.

endif

thisform.refresh

设置Commandl“还书“按钮的CIick事件代码：

□Answer=MESSAGEBOX（'确认你还的书目的资料无误吗？’，4+32+0,'重要提示‘）

ifnAnswer=6

seIe3

repIace借书标志with"还回"，归还日期withdatetime0for图书编号

=aI11（thisform.textl.vaIue）

thisform.refresh

二messagebox（'操作完成，该书已经归档！’，0+64+0,'完成’）

Endif

设置Commands“清空“按钮的Click事件代码：

thisform.textl.vaIue=,,

thisform.text2.value=,,

thisform.text3.value=,,

thisform.text4.vaIue=''

thisform.text5.vaIue=''

thisform.text6.vaIue=0.00

thisform.text7.value=''

thisform.text8.value=''

thisform.text9.value=,,

thisform.textIO.value=''

thisform.textl1.vaIue=''

thisform.textl.setfocus

设置Command4“退出“按钮的Click事件代码：

thisform.reIease

案例5:创建资料查询表单

案例运行效果与操作

这个表单是包含两个选项卡的查询对话框，用于查询读者信息资料和图书信息资料，每

一个选项卡都有查询选项和用于显示查询结果的表格，还可以选择是否用模糊查找。表单上

除了两个选项卡外，还设计了四个按钮辅助查询。表单的运行效果如图10-6和10-7所示，

在查询栏中输入其中的一些信息，可以是一个也可以是几个，并且选择是否模糊查找，然后

单击选项卡上的“确定”或者选项卡外的“确定”按钮，表单中就会显示查询结果。“清空”

按钮用于清除文本框中的数据。另外表单中还有一个“全部显示”按钮，功能是显示图书资

料全部信息或者是读者信息资料，显示那一个由选项卡的活动页决定，也就是说，由你选择

的选项卡决定。“退出”按钮用于释放表单。

O贷料查询⑶叵区

图10-6资料查询一图书资料查询运行效果

图10-7资料查询一读者资料查询运行效果

制作要点

1、页框添加以与页框属性的设置

2、表格添加以与表格属性的设置

3、字符串比较函数

步骤详解

1、新建一个表单，保存文件名为ex,打开“数据环境设计器”窗口，向其中添加读者

信息表、图书资料表。

2、如图10-6和10-7通过“表单控件”添加控件，分别添加一个页框控件(Pageframel)、

和四个按钮控件。然后右击页框，选择“编辑”，在页框的两个页面(Pagel和Page2)上分

别添加其它控件。页面Pagel上有一个形状控件、五个标签控件、四个文本框控件、一个复

选框控件、一个表格控件和两个按钮控件；同样页面Page2上有一个形状控件、五个标签控

件、四个文本框控件、一个复选框控件、一个表格控件和两个按钮控件。这些控件的主要属

性设置如表10-3所示：

表10-3“ex”属性设置

对象属性属性值说明

FormlAutoCenter.t.-真

BorderStyIe2-固定对话框

Caption资料查询

Iconmonitor,ico（自己

选择）

MaxButton.F.-假

NameForml

ShowTips.T.-真

ShowWindow1-在顶层表单中

WindowType1-模式

Command1Caption查询

FontName宋体

Height61

Width73

Picturekfind.ico按钮上显示的图标，

大家可以自己选择合适

的，VFP中自带很多图标，

一•般保存在…\Microsoft

VisuaI

Studio\Common\Graphics

\Icons文件中

TooITipText单击查询控件提示文本

Command2Caption显示全部

FontName宋体

Height61

Width73

Picturefont_type1.ico

TooITipText显示全部资料

Command3Caption清空

FontName宋体

Height61

Width73

Picturetrashcan_empty.i

co

Too1TipText清空数据

Command4Caption退出

FontName宋体

Height61

Width73

Picturexapp.ico

Too1TipText关闭此表单

PageframelNamePageframel

PageCount2页框包含的页数

PagelCaption图书资料查询

ShapelBackSty1e0-透明

Specia1Effe0-3维

ct

Labe11Caption查询

AutoSize.T.一真StandardIabe11到

StandardIabe14的

AutoSize属性都照此设置

BackSty1e0-透明StandardIabe11到

StandardIabe14的

BackStyIe属性都照此设

置

FontName宋体StandardIabe11到

StandardIabe14的

FontName属性都照此设置

FontSize10StandardIabe11到

StandardIabe14的

AutoSize属性都设置为9

StandardIabeICaption图书编号：

1

StandardIabeICaption图书类别：

2

StandardIabeICaption图书名称：

3

StandardIabeICaption作者：

4

ChecklCaption模糊查找

AutoSize.T.一真

Command1Caption查找

Command2Caption清空

GridlCoIumnCount10表格列数

BackCoIor237,237,226表格背景

CoIumn1ControISour图书资料.图书编号表格列数据来源

ce

HeaderlCaption图书编号

Co1umn2ControISour图书资料.图书名称

ce

Header2Caption图书名称

Co1umn3ControISour图书资料.作者

ce

Header3Caption作者

Co1umn4ControISour图书资料.图书类别

ce

Header4Caption图书类别

Co1umn5ControISour图书资料.

ce

Header5Caption

Co1umn6ControISour图书资料.出版日期

ce

Header6Caption出版日期

Co1umn7ControISour图书资料.入馆日期

ce

Header7Caption入馆日期

Co1umn8ControISour图书资料.购买价格

ce

Header8Caption购买价格

Co1umn9ControISour图书资料.借阅次数

ce

Header?Caption借阅次数

Co1umn10ControISour图书资料.备注

ce

Header10Caption备注

Page2Caption读者资料查询

ShapelBackStyIe0-透明

SpeciaIEffe0-3维

ct

Labe11Caption查询

AutoSize.T.一真StandardIabe11到

StandardIabe14的

AutoSize属性都照此设置

BackStyIe0-透明StandardIabe11到

StandardIabe14的

BackStyIe属性都照此设

置

FontName宋体StandardIabe11到

StandardIabe14的

FontName属性都照此设置

FontSize10StandardIabe11到

StandardIabe14的

AutoSize属性都设置为9

Standard1abe1Caption读者编号：

1

StandardIabeICaption证件号：

2

StandardIabeICaption读者：

3

StandardIabeICaption职业：

4

ChecklCaption模糊查找

AutoSize.T.一真

Command1Caption查找

Command2Caption清空

GridlCo1umnCount10表格列数

BackCo1or237,237,226表格背景

CoIumn1Contro1Sour读者信息.读者编号表格列数据来源

ce

HeaderlCaption读者编号

Co1umn2Contro1Sour读者信息.读者

ce

Header2Caption读者

Co1umn3Contro1Sour读者信息.证件号

ce

Header3Caption证件号

Co1umn4Contro1Sour读者信息.性别

ce

Header4Caption性别

Co1umn5Contro1Sour读者信息.单位部门

ce

Header5Caption单位部门

Co1umn6Contro1Sour读者信息.住址

ce

Header6Caption住址

Co1umn7Contro1Sour读者信息.职业

ce

Header7Caption职业

CoIumn8ControISour读者信息.联系

ce

Header8Caption联系

CoIumn9ControISour读者信息.未还书目

ce

Header?Caption未还书目

Column10ControISour图书资料.备注

ce

HeaderWCaption备注

3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码。

首先给表单右边的四个按钮添加代码。

“查询”按钮的Click事件代码：

ifthisform.Pageframel.activepage=1

thisform.pageframel.pagel.Grid1.recordsourceType=4

tsbh=aI11(thisform.Pageframel.pagel.textl.vaIue)

zz=aI11(thisform.pageframel.pagel.text2.vaIue)

tsmc=aI11(thisform.pageframel.pagel.text3.vaIue)

tsIb=aI11(thisform.pageframel.pagel.text4.vaIue)

ifthisform.pageframel.pagel.checkl.vaIue=0

thisform.pageframel.pagel.Grid1.recordsource二；

"select*from图书资料wheretsbh$图书编号；

.or.zz$作者.or.tsmc$图书名称.or.ts16$图书类别intocursora"

eIse

setexacton

thisform.pageframel.pagel.Grid1.recordsource二；

"seIect*from图书资料wheretsbh=图书编号;

.or.zz=作者.or.tsmc二二图书名称.or.tsIb二二图书类别intocursora"

setexactoff

endif

eIse

ifthisform.Pageframel.activepage=2

thisform.pageframel.page2.Grid1.recordsourceType=4

dzbh=aI11(thisform.Pageframel.page2.textl.vaIue)

dzxx=aI11(thisform.Pageframel.page2