Visual FoxPro 程序设计实验报告.docx
《Visual FoxPro 程序设计实验报告.docx》由会员分享，可在线阅读，更多相关《Visual FoxPro 程序设计实验报告.docx（29页珍藏版）》请在冰豆网上搜索。
VisualFoxPro程序设计实验报告
VF程序设计实验报告
图书馆管理系统
专业：
学号：
姓名：
指导教师：
2010年12月31日
第一部分系统概述--------------------------------2
第二部分系统功能模块设计------------------------2
第三部分系统数据库及表设计----------------------2
第四部分系统菜单设计----------------------------5
第五部分系统界面设计----------------------------6
第六部分系统相关程序代码-----------------------13
第七部分实验报告小结---------------------------22
第八部分参考资料-------------------------------22
一、系统概述
近年来，随着图书馆规模的不断扩大，图书数量相应的增加，有关图书的各种信息量也成倍增加，面对庞大的信息量，传统的人工管理户导致图书管理的混乱，人力与物力过多的浪费，图书管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理。
因此，为了充分发挥了图书馆的功效，最大限度地为读者服务，必须制定一套合理、有效，规范和实用的图书馆管理系统，对图书资料进行集中统一的管理。
根据上述需要，我们建立本图书馆管理系统。
根据图书、读者和管理员三者之间的关系，本系统主要实现读者对图书的查询、个人信息的修改和管理员对读者、图书的管理。
本系统采用VF6.0作为开发工具。
二、系统功能模块设计
本系统可以完成一般图书馆关于图书查询、借阅及书库管理的主要功能。
其中：
图书查询模块可以查询所需要的图书；读者管理模块中，读者可以查看自己的信息，对登陆密码进行修改，管理员可以对读者进行添加和删除；图书管理模块中，管理员可以为读者进行图书的借阅和归还操作，以及对图书的信息进行修改，如加入新书、删除不能使用的图书和更新图书的信息；报表打印模块中，实现对需要的信息进行打印输出。
系统结构下图所示。
三、数据库及表设计
经分析，图书馆管理系统主要涉及了学生、管理员和图书三部分。
因此需要建立的实体就是学生、管理员和图书三个。
根据系统模块的设计，可以的到本系统需要建立的基本表为：
读者信息表、管理员信息表、图书信息表、图书借阅信息表、图书信息表。
数据库的相关设计如下：
其中，读者信息表中证号为主索引，图书信息表中总编号为主索引，图书借阅表中对总编号和证号建立普通索引。
表单设计
（1）、读者信息表.dbf
读者信息表结构设计
字段名
类型
宽度
索引
证号
字符型
6
主索引
密码
字符型
6
姓名
字符型
8
专业
字符型
10
性别
字符型
2
年级
字符型
2
院系
字符型
8
照片
通用性
30
备注
备注型
4
（2）管理员信息表.dbf
管理员信息表设计
字段名
类型
宽度
索引
证号
字符型
4
密码
字符型
6
（3）、图书信息表.dbf
图书信息表设计
字段名
类型
宽度
索引
总编号
字符型
6
主索引
分类名
字符型
6
书名
字符型
12
作者
字符型
8
出版社
字符型
20
状态
字符型
4
照片
通用型
4
（4）、图书借阅信息表.dbf
图书借阅信息表设计
字段名
类型
宽度
索引
总编号
字符型
6
普通索引
证号
字符型
6
普通索引
借出日期
日期型
8
四、系统菜单设计
依据上述系统功能模块的设计，可以得到图书馆主界面菜单：
主要包括图书查询、读者管理、图书管理、报表打印和退出。
其中，
图书查询执行命doform图书查询.scx；退出执行命令_vfp.activeform.release；读者管理和图书管理包含子菜单；另外，报表打印的相关设计未能实现。
相关设计如下图：
读者管理菜单主要包含读者信息查看、登陆密码修改、读者增添删除三个子菜单。
其中，读者信息查看执行命令doform读者信息.scx；登陆密码修改执行命令doform密码修改.scx；读者增添删除执行命令doform读者增删.scx。
相关设计结果如下图：
图书管理菜单包含图书借阅、图书归还、图书信息修改三个子菜单。
其中，图书归还执行命令doform图书借阅.scx；图书归还执行命令doform图书归还.scx；图书信息修改执行命令doform图书信息修改.scx。
相关设计结果如下图：
五、系统界面设计
（1）登陆界面设计
用户通过登陆界面进行登陆，选择自己的用户类型，输入证号和密码，如果输入的信息与所连接的表中的数据相符，则进入图书馆的主界面，否则提示错误，直到输入正确信息方能进入系统。
（2）系统主界面设计
当用户登陆证号和密码通过验证后，进入图书管理系统的主界面，该界面由一表单及菜单组成。
其中，表单上的”欢迎使用图书馆管理系统！
”是一向左移动的动画，以增强界面的友好感。
另外，用户可通过菜单上的各种操作对图书进行管理。
图书馆管理系统的主界面如下：
（3）图书查询界面设计
用户可以选择查询条件，根据书名、作者、主题词、出版社、总编号其中的一种方式对图书进行查询，查询的结果显示在下边一个表格中。
（4）读者信息查看界面设计
管理员可以再次查看读者的信息，点击CommandGroup组中的各个图标可以查看任意一个读者的信息。
（5）读者密码修改界面设计
读者可以在此修改自己的密码，修改后的新密码同时在读者信息表中对相应密码进行更新。
（6）读者增添删除界面设计
管理员可以在此添加和删除用户，添加和删除的用户信息同时在读者信息表中进行更新。
（7）图书借阅界面设计
管理员对读者需要借阅的图书进行借阅操作，输入图书总编号及读者的证号完成图书的借阅流程。
将此借阅的信息保存到图书借阅信息表中。
（8）图书归还界面设计
管理员对读者需要需要归还的图书进行归还操作，输入要归还的图书编号及读者证号，在图书借阅信息中进行查找并删除，完成图书归还的操作。
（9）图书信息修改界面设计
本界面使用了一个PageCount为3的页框，主要完成图书的添加、删除及信息更新的功能。
下图中，管理员可以对图书进行登记，新书信息将添加到图书信息表中，读者可查阅到。
在本界面中，管理员可以对需要删除的图书从图书信息表中删除，输入要删除的图书的总编号，系统进行查找，若找到则删除，找不到则提示错误。
在本界面中，管理员可以通过输入图书的总编号，查找到需要更新的图书，进入图书更新界面中。
当系统找到对应的图书编号时，进入如下界面。
在此，管理员可以更改图书的各种信息。
六、程序代码
1、登陆界面
（1）登陆按钮click事件代码：
ifalltrim（thisform.container1.text1.value）==""
messagebox（"请输入用户名！
"）
return
endif
ifalltrim（thisform.container1.text2.value）==""
messagebox（"请输入密码！
"）
return
endif
a=thisform.container1.optiongroup1.value
ifa=1
use读者信息
locateforalltrim（证号）=alltrim（thisform.container1.text1.value）
iffound（）
ifalltrim（密码）=alltrim（thisform.container1.text2.value）
messagebox（"登录成功",64,"身份验证通过"）
doform图书馆主界面.scx
releasethisform
else
messagebox（"密码输入错误！
",16,"错误提示"）
endif
else
messagebox（"读者号不存在！
",16,"错误提示"）
endif
else
use管理员
locateforalltrim（证号）=alltrim（thisform.container1.text1.value）
iffound（）
ifalltrim（密码）=alltrim（thisform.container1.text2.value）
messagebox（"登录成功！
",64,"身份验证通过"）
doform图书馆主界面.scx
releasethisform
else
messagebox（"密码输入错误！
",16,"错误提示"）
endif
else
messagebox（"用户名不存在！
",16,"错误提示"）
endif
endif
（2）退出按钮click事件代码：
answer=messagebox（"你决定退出系统吗？
",4,"提示"）
docase
caseanswer=6
thisform.release
caseanswer=7
messagebox（"请输入用户名和密码",0,"提示"）
endcase
2、系统主界面
（1）表单的int事件代码：
do图书馆主界面.MPRwiththis,.T.
THISFORM.Timer1.Enabled=.T.
（2）time1的time事件代码：
IFthisform.Label1.Left+thisform.label1.width>0
thisform.Label1.Left=THIS.Parent.Label1.Left-10
ELSE
thisform.Label1.Left=thisform.Width
ENDIF
3、图书查询界面
（1）查询按钮的click事件代码：
OPENDATABASE图书馆数据库.dbcSHARED
thisform.grid1.recordsource=""
m=allt（thisform.text1.value）
n=thisform.optiongroup1.value
docase
casen=1
select*from图书信息where书名==mintocursortemp
thisform.grid1.recordsource="temp"
casen=2
select*from图书信息wherealltrim（作者）==mintocursortemp
thisform.grid1.recordsource="temp"
casen=3
select*from图书信息wherealltrim（书名）like"%"+m+"%"intocursortemp
thisform.grid1.recordsource="temp"
casen=4
select*from图书信息wherealltrim（出版社）==mintocursortemp
thisform.grid1.recordsource="temp"
casen=5
select*from图书信息wherealltrim（总编号）==mintocursortemp
thisform.grid1.recordsource="temp"
endcase
thisform.refresh
（2）返回按钮的click事件代码：
thisform.release
4、读者信息查看界面
Commandgroup组的click事件代码：
n=this.value
docase
casen=1
gotop
mandgroup1.buttons
（1）.enabled=.f.
mandgroup1.buttons
（2）.enabled=.f.
mandgroup1.buttons（3）.enabled=.t.
mandgroup1.buttons（4）.enabled=.t.
casen=2
skip-1
ifbof（）
gotop
mandgroup1.buttons
（1）.enabled=.f.
mandgroup1.buttons
（2）.enabled=.f.
endif
mandgroup1.buttons（3）.enabled=.t.
mandgroup1.buttons（4）.enabled=.t.
casen=3
skip1
ifeof（）
gobottom
mandgroup1.buttons（3）.enabled=.f.
mandgroup1.buttons（4）.enabled=.f.
endif
mandgroup1.buttons
（1）.enabled=.t.
mandgroup1.buttons
（2）.enabled=.t.
casen=4
gobottom
mandgroup1.buttons（4）.enabled=.f.
mandgroup1.buttons（3）.enabled=.f.
mandgroup1.buttons
（1）.enabled=.t.
mandgroup1.buttons
（2）.enabled=.t.
casen=5
thisform.release
endcase
thisform.refresh
5、密码修改界面：
（1）修改按钮的click事件密码：
a=thisform.text4.value
b=thisform.text1.value
c=thisform.text2.value
d=thisform.text3.value
ifalltrim（a）==""
messagebox（"请输入账号！
"）
thisform.text4.setfocus
return
endif
ifalltrim（b）==""
messagebox（"请输入密码！
"）
thisform.text1.setfocus
return
endif
ifalltrim（c）==""
messagebox（"请输入新密码！
"）
thisform.text2.setfocus
return
endif
ifalltrim（d）==""
messagebox（"请再次输入新密码！
"）
thisform.text3.setfocus
return
endif
use读者信息
locateforalltrim（证号）==alltrim（a）
iffound（）
ifalltrim（密码）==alltrim（b）
ifc==d
e=messagebox（"确定要修改吗？
",32+1+0,"提示"）
ife=1
replace密码withcforalltrim（证号）==alltrim（a）
messagebox（"密码修改成功！
"）
endif
else
messagebox（"确认密码不正确！
请重新输入！
"）
thisform.text2.value=""
thisform.text3.value=""
thisform.text2.setfocus
endif
else
messagebox（"密码输入错误！
请重新输入密码！
",16,"错误提示"）
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text1.setfocus
endif
else
messagebox（"证号不存在！
",16,"错误提示"）
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
endif
（2）返回按钮的click事件代码：
releasethisform
6、读者增删界面
（1）command1按钮的click事件代码：
opendatabase图书馆数据库.dbcshared
a=allt（thisform.text1.value）
b=allt（thisform.text2.value）
ifa==""
messagebox（"证号不能为空！
",0,"提示"）
thisform.text1.setfocus
return
endif
ifb==""
messagebox（"密码不能为空！
",0,"提示"）
thisform.text2.setfocus
return
endif
use读者信息
locatefor证号=a
iffound（）
messagebox（"该用户已经存在！
",0,"提示"）
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
insertinto读者信息（证号,密码）values（a,b）
thisform.text1.value=""
thisform.text2.value=""
messagebox（"恭喜你注册成功！
",0,"提示"）
thisform.text1.setfocus
endif
use
（2）command2的click事件代码：
opendatabase图书馆数据库.dbcshared
a=allt（thisform.text3.value）
ifa==""
messagebox（"证号不能为空！
",0,"提示"）
return
endif
use读者信息
locatefor证号=a
iffound（）
b=messagebox（"确定要删除该用户吗？
",1,"提示"）
ifb=1
delete
pack
thisform.text3.value=""
messagebox（"删除成功！
",0,"提示"）
thisform.text3.setfocus
endif
else
messagebox（"没有该用户！
请重新输入！
",0,"提示"）
thisform.text3.value=""
thisform.text3.setfocus
endif
use
（3）command3的click事件代码：
thisform.release
7、图书借阅界面
（1）借出按钮的click事件代码：
OPENDATABASE图书馆数据库.dbcSHARED
a=allt（thisform.text1.value）
b=allt（thisform.text2.value）
c=date（）
use图书借阅信息
locatefor总编号=a
iffound（）
insertinto借书信息values（a,b,c）
messagebox（"借书成功！
",0,"提示"）
else
answer=messagebox（"没有该书！
是否继续？
",1,"提示"）
ifanswer=1
thisform.text1.value=""
thisform.text2.value=""
else
thisform.release
endif
endif
use
closedatabase
（2）返回按钮的click事件代码：
releasethisform
8、图书归还界面
（1）归还按钮的click事件代码：
OPENDATABASE图书馆数据库.dbcSHARED
a=allt（thisform.text1.value）
b=allt（thisform.text2.value）
use图书借阅信息
locatefor总编号=aand证号=b
iffound（）
delete
answer=messagebox（"确认是否还书？
",1,"提示"）
ifanswer=1
pack
thisform.text1.value=""
thisform.text2.value=""
else
recall
endif
else
messagebox（"你输入的信息不对，请确认后重新输入！
",0,"提示"）
endif
closedatabase
（2）返回按钮的click事件代码：
releasethisform
9、图书信息修改界面
（1）page1中的command1按钮的click事件代码：
opendatabase图书馆数据库.dbcshared
zbh=allt（thisform.pageframe1.page1.text1.value）
flm=allt（thisform.pageframe1.page1.text2.value）
sm=allt（thisform.pageframe1.page1.text3.value）
zz=allt（thisform.pageframe1.page1.text4.value）
cbs=allt（thisform.pageframe1.page1.text5.value）
dj=val（allt（thisform.pageframe1.page1.text6.value））
zt=allt（thisform.pageframe1.page1.text7.value）
use图书信息
answer=messagebox（"确认添加新书吗？
",1,"提示"）
ifanswer=1
insertinto图书信息values（zbh,flm,sm,zz,cbs,dj,zt）
messagebox（"添加成功！
",0,"提示"）
else
thisform.pageframe1.page1.text1.value=""
thisform.pageframe1.page1.text2.value=""
thisform
升级会员 