VisualFoxPro程序设计实验报告文档格式.docx
《VisualFoxPro程序设计实验报告文档格式.docx》由会员分享,可在线阅读,更多相关《VisualFoxPro程序设计实验报告文档格式.docx(28页珍藏版)》请在冰点文库上搜索。
三、数据库及表设计
经分析,图书馆管理系统主要涉及了学生、管理员和图书三部分。
因此需要建立的实体就是学生、管理员和图书三个。
根据系统模块的设计,可以的到本系统需要建立的基本表为:
读者信息表、管理员信息表、图书信息表、图书借阅信息表、图书信息表。
数据库的相关设计如下:
其中,读者信息表中证号为主索引,图书信息表中总编号为主索引,图书借阅表中对总编号和证号建立普通索引。
表单设计
(1)、读者信息表.dbf
读者信息表结构设计
字段名
类型
宽度
索引
证号
字符型
6
主索引
密码
姓名
8
专业
10
性别
2
年级
院系
照片
通用性
30
备注
备注型
4
(2)管理员信息表.dbf
管理员信息表设计
(3)、图书信息表.dbf
图书信息表设计
总编号
分类名
书名
12
作者
出版社
20
状态
通用型
(4)、图书借阅信息表.dbf
图书借阅信息表设计
普通索引
借出日期
日期型
四、系统菜单设计
依据上述系统功能模块的设计,可以得到图书馆主界面菜单:
主要包括图书查询、读者管理、图书管理、报表打印和退出。
其中,图书查询执行命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)=="
请输入密码!
a=thisform.container1.optiongroup1.value
ifa=1
use读者信息
locateforalltrim(证号)=alltrim(thisform.container1.text1.value)
iffound()
ifalltrim(密码)=alltrim(thisform.container1.text2.value)
登录成功"
64,"
身份验证通过"
doform图书馆主界面.scx
releasethisform
else
密码输入错误!
16,"
错误提示"
endif
读者号不存在!
else
use管理员
locateforalltrim(证号)=alltrim(thisform.container1.text1.value)
登录成功!
用户名不存在!
(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>
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
casen=1
select*from图书信息where书名==mintocursortemp
thisform.grid1.recordsource="
temp"
casen=2
select*from图书信息wherealltrim(作者)==mintocursortemp
casen=3
select*from图书信息wherealltrim(书名)like"
%"
+m+"
intocursortemp
casen=4
select*from图书信息wherealltrim(出版社)==mintocursortemp
casen=5
select*from图书信息wherealltrim(总编号)==mintocursortemp
thisform.refresh
(2)返回按钮的click事件代码:
thisform.release
4、读者信息查看界面
Commandgroup组的click事件代码:
n=this.value
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.
skip1
ifeof()
gobottom
mandgroup1.buttons(3).enabled=.f.
mandgroup1.buttons(4).enabled=.f.
mandgroup1.buttons
(1).enabled=.t.
mandgroup1.buttons
(2).enabled=.t.
gobottom
mandgroup1.buttons(4).enabled=.f.
mandgroup1.buttons(3).enabled=.f.
5、密码修改界面:
(1)修改按钮的click事件密码:
a=thisform.text4.value
b=thisform.text1.value
c=thisform.text2.value
d=thisform.text3.value
ifalltrim(a)=="
请输入账号!
thisform.text4.setfocus
ifalltrim(b)=="
thisform.text1.setfocus
ifalltrim(c)=="
请输入新密码!
thisform.text2.setfocus
ifalltrim(d)=="
请再次输入新密码!
thisform.text3.setfocus
use读者信息
locateforalltrim(证号)==alltrim(a)
iffound()
ifalltrim(密码)==alltrim(b)
ifc==d
e=messagebox("
确定要修改吗?
32+1+0,"
ife=1
replace密码withcforalltrim(证号)==alltrim(a)
密码修改成功!
endif
确认密码不正确!
请重新输入!
thisform.text2.value="
thisform.text3.value="
请重新输入密码!
thisform.text1.value="
证号不存在!
thisform.text4.value="
releasethisform
6、读者增删界面
(1)command1按钮的click事件代码:
opendatabase图书馆数据库.dbcshared
a=allt(thisform.text1.value)
b=allt(thisform.text2.value)
ifa=="
证号不能为空!
ifb=="
密码不能为空!
endif
locatefor证号=a
该用户已经存在!
insertinto读者信息(证号,密码)values(a,b)
恭喜你注册成功!
use
(2)command2的click事件代码:
a=allt(thisform.text3.value)
iffound()
b=messagebox("
确定要删除该用户吗?
1,"
ifb=1
delete
pack
thisform.text3.value="
messagebox("
删除成功!
thisform.text3.setfocus
else
没有该用户!
(3)command3的click事件代码:
7、图书借阅界面
(1)借出按钮的click事件代码:
c=date()
use图书借阅信息
locatefor总编号=a
insertinto借书信息values(a,b,c)
借书成功!
answer=messagebox("
没有该书!
是否继续?
ifanswer=1
closedatabase
8、图书归还界面
(1)归还按钮的click事件代码:
locatefor总编号=aand证号=b
delete
确认是否还书?
pack
recall
你输入的信息不对,请确认后重新输入!
)
9、图书信息修改界面
(1)page1中的command1按钮的click事件代码:
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图书信息
确认添加新书吗?
ifanswer=1
insertinto图书信息values(zbh,flm,sm,zz,cbs,dj,zt)
添加成功!
thisform.pageframe1.page1.text1.value="
thisform.pageframe1.page1.text2.value="
thisform.pageframe1.pa