vfp图书管理系统Word格式文档下载.docx

vfp图书管理系统Word格式文档下载.docx

《vfp图书管理系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vfp图书管理系统Word格式文档下载.docx（11页珍藏版）》请在冰豆网上搜索。

字段六

字段七

图书

书号

作者编号

书名

价格

数量

出版社

借阅次数

作者

作者姓名

职称

联系电话

备注

照片

读者

读者编号

读者姓名

性别

籍贯

出生日期

借阅

借书日期

还书日期

用户

用户名

密码

（2）在项目中创建一个数据库，并把五个表添加到数据库中。

在图书表中，为书号建立主索引，为作者编号建立普通索引，通过该索引和作者表之间创建关联。

在作者表中，为作者编号设置主索引。

在读者表中，读者编号为主索引。

在借阅表中，为读者编号、书号字段创建普通索引，通过书号和图书表之间关联；

通过读者编号和读者表之间关联。

在用户表中，为读者编号建立索引，通过读者编号和读者表建立关联。

最终形成如下图所示的数据库。

3、界面设计

（1）系统启动表单

在项目中创建一个表单，命名为启动。

如下图，添加一个标签控件，两个命令按钮，按照自己的喜好分别设置他们的属性。

在登录按钮的Click事件下写入如下代码：

ThisForm.Release

Doform请选择用户

双击退出按钮，并在它的Click事件写下如下代码：

Clearevent

（2）创建请选择用户表单

在项目中创建，一个表单，保存为“请选择用户”并按以下图添加控件，设置属性。

打开他的数据工作环境，把“用户”表添加到其中，在进入的click事件写入如下代码：

locatefor用户名=thisform.Combo1.value

ifalltrim（thisform.Text1.value）<

>

alltrim（密码）

messagebox（"

读不起，密码有误！

你不能进入本系统"

0,"

请注意：

"

）

else

thisform.release

doform主表单

endif

在退出的click事件下写如下代码：

thisform.release

clearevent

（3）创建主表单

创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2——作为顶层表单”

如图设置它的其他控件属性。

设置Form1对象的init事件代码为：

do主菜单.mprwiththis,"

menux"

设置form1对象的destroy事件代码为

releasemenumenuxextended

设置form1对象的activate事件代码为

thisform.Label1.left=（thisform.width-thisform.Label1.width）/2

thisform.Label2.left=（thisform.width-thisform.Label2.width）/2

thisform.Label3.left=（thisform.width-thisform.Label3.width）/2

thisform.Label1.top=thisform.height/6

thisform.Label2.top=thisform.height*2/6

thisform.Label3.top=thisform.height*3/6

thisform.refresh

设置form1对象的Resize事件代码为：

（4）创建主菜单

如下图创建主菜单表单，并且选择“显示”“常规选项”“顶层表单”

分别设置各个子菜单如下：

信息录入

读者服务

信息维护

信息查询

报表打印

然后分别在各自的过程中写入相应的调用表单的命令。

例如在读者登记菜单的过程中写入：

Doform读者信息

（5）创建主程序文件

创建主程序文件，将其保存为“主程序”在代码编辑窗口中，输入以下代码：

clearall

settalkoff

setdefaulttoc:

\综合设计

doform启动

modifywindowsscreentitle"

图书管理系统"

readevent

quit

4、表单设计

（1）图书管理表单

如下图，创建一个名为图书管理的表单，在他的数据环境中添加表作者和图书。

然后拖动相应的字段到表单中，按如图所示的位置放好。

添加一个按钮组如图。

设置按钮组的Click事件的代码为：

docase

casethis.value=1

gotop

casethis.value=2

ifnotbof（）

skip-1

endif

casethis.value=3

skip

ifeof（）

casethis.value=4

gobottom

casethis.value=5

sure=messagebox（"

需要增加图书信息吗？

4+32+256,"

确认"

ifsure=6

appendblank

casethis.value=6

需要删除当前图书信息吗？

delete

pack

casethis.value=7

thisform.release

endcase

（2）读者信息维护表单

创建一个表单，在其数据环境设计器中添加读者表，在表单上添加一个表格对象，一个命令按钮组对象，如图设置他们的属性。

设置按钮的Click事件代码为：

需要添加读者信息吗？

确定要删除当前读者信息吗？

delete

thisform.Grid1.refresh

（3）读者借书信息查询表单

创建一个表单，如下图设置各个控件的属性。

在他的数据环境中添加，读者表和借阅表。

在他的查询按钮的click事件下输入如下代码：

setexacton

thisform.Grid1.recordsource="

select读者编号,读者姓名,书号,借书日期,还书日期,from借阅wherealltrim（读者编号）==alltrim（bo1.value）"

setexactoff

5、连编程序

三、总结

这次课程设计用了近两个星期的时间，由于之前对这门课不是很懂，所以课程设计遇到了不少的麻烦，还好同学和老师给我讲了。

前期主要是建立数据库，并输入数据。

然后做了类，这里主要是写代码，代码基本上不会写，上课的时候记了一点，老师又给我们发了几条，这样，改改就差不多了，可是，里面仍有错的，基本上可以执行了。

课程设计的时间比较短，再加上要准备考试，所以做得不是很理想，没有添加背景什么的。

不过，经过这一个多星期的课程设计，真的学到了很多。

在课程设计过程中，我做了一次又一次，改了一次又一次，可是，还是有很多不懂的地方。

我问了同学，也上网查了，基本上弄懂了，做完之后，一种满足感油然而生。

这次的课程设计做的不是很好，所以，我想把总结写的好一点，可是，似乎还是不大好。

可是，我已经努力了，也尽力了，这就够了，我想，这也就达到了课程设计的目的。

　经过近两个星期的学习，我进一步掌握有关表、数据库、项目、类的基本概念及基本操作，并在此基础上进行查询设计、菜单设计、表单设计，并掌握常用的属性、事件及方法的使用。

也许，有很多地方我做的不够好，但我已经尽了我最大的努力，同时也学会了很多以前不懂的知识。