vfp图书管理系统Word文档下载推荐.docx
- 文档编号:22147837
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:15
- 大小:1.24MB
vfp图书管理系统Word文档下载推荐.docx
《vfp图书管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《vfp图书管理系统Word文档下载推荐.docx(15页珍藏版)》请在冰豆网上搜索。
字段六
字段七
图书
书号
作者编号
书名
价格
数量
出版社
借阅次数
作者
作者姓名
职称
联系电话
备注
照片
读者
读者编号
读者姓名
性别
籍贯
出生日期
借阅
借书日期
还书日期
用户
用户名
密码
(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事件中写入如下代码:
需要增加借书信息吗?
需要删除当前借书信息吗?
设置文本框“txt书号”的lostfocus事件代码为:
select图书
locateforalltrim(书号)=alltrim(thisform.txt书号.text)
iffound()
thisform.txt书名.refresh
书库里无此书,请重输!
256,"
thisform.txt书号.setfocus
(3)读者信息维护表单
创建一个表单,在其数据环境设计器中添加读者表,在表单上添加一个表格对象,一个命令按钮组对象,如图设置他们的属性。
设置按钮的Click事件代码为:
需要添加读者信息吗?
确定要删除当前读者信息吗?
delete
thisform.Grid1.refresh
(4)读者借书信息查询表单
创建一个表单,如下图设置各个控件的属性。
在他的数据环境中添加,读者表和借阅表。
在他的查询按钮的click事件下输入如下代码:
setexacton
thisform.Grid1.recordsource="
select读者编号,读者姓名,书号,借书日期,还书日期,from借阅wherealltrim(读者编号)==alltrim(bo1.value)"
setexactoff
5、连编程序
三、总结
本系统虽然简单,但是可以勉强满足一般学习的需要。
为广大学习vfp的大学生的作业很有帮助。
相信我,我就是做的这个,得了高分。
朋友们下载后别忘了评论啊,有不清楚的地方请联系我,或者由于我的疏忽,有遗漏的地方,请大家指正。
我的QQ号是:
214938296
呵呵,记得加我的时候写明来意哈。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vfp 图书 管理 系统