Visual FoxPro 程序设计实验报告

1、.vf程序设计实验报告图书馆管理系统 专业： 学号： 姓名： 指导教师： 2010年12月31日精品.目录第一部分 系统概述-2第二部分 系统功能模块设计-2第三部分 系统数据库及表设计-2第四部分 系统菜单设计-5第五部分 系统界面设计-6第六部分 系统相关程序代码-13第七部分 实验报告小结-22第八部分 参考资料-22精品.一、系统概述近年来，随着图书馆规模的不断扩大，图书数量相应的增加，有关图书的各种信息量也成倍增加，面对庞大的信息量，传统的人工管理户导致图书管理的混乱，人力与物力过多的浪费，图书管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理。因此，为了充分发挥

2、了图书馆的功效，最大限度地为读者服务，必须制定一套合理、有效，规范和实用的图书馆管理系统，对图书资料进行集中统一的管理。根据上述需要，我们建立本图书馆管理系统。根据图书、读者和管理员三者之间的关系，本系统主要实现读者对图书的查询、个人信息的修改和管理员对读者、图书的管理。本系统采用vf6.0作为开发工具。二、系统功能模块设计本系统可以完成一般图书馆关于图书查询、借阅及书库管理的主要功能。其中：图书查询模块可以查询所需要的图书；读者管理模块中，读者可以查看自己的信息，对登陆密码进行修改，管理员可以对读者进行添加和删除；图书管理模块中，管理员可以为读者进行图书的借阅和归还操作，以及对图书的信息进行

3、修改，如加入新书、删除不能使用的图书和更新图书的信息；报表打印模块中，实现对需要的信息进行打印输出。系统结构下图所示。精品.图书馆管理系统主界面系统登陆图书查询读者管理图书管理报表打印退出读者信息查看登陆密码修改读者增添删除图书借阅图书归还图书信息修改三、数据库及表设计经分析，图书馆管理系统主要涉及了学生、管理员和图书三部分。因此需要建立的实体就是学生、管理员和图书三个。根据系统模块的设计，可以的到本系统需要建立的基本表为：读者信息表、管理员信息表、图书信息表、图书借阅信息表、图书信息表。数据库的相关设计如下：其中，读者信息表中证号为主索引，图书信息表中总编号为主索引，图书借阅表中对总编号和证

4、号建立普通索引。精品.表单设计（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四、系统菜单

5、设计依据上述系统功能模块的设计，可以得到图书馆主界面菜单：主要包括图书查询、读者管理、图书管理、报表打印和退出。其中，精品.图书查询执行命do form 图书查询.scx；退出执行命令_vfp.activeform.release；读者管理和图书管理包含子菜单；另外，报表打印的相关设计未能实现。相关设计如下图： 读者管理菜单主要包含读者信息查看、登陆密码修改、读者增添删除三个子菜单。其中，读者信息查看执行命令do form 读者信息.scx；登陆密码修改执行命令do form 密码修改.scx；读者增添删除执行命令do form读者增删.scx。相关设计结果如下图：精品.图书管理菜单包含图书借

6、阅、图书归还、图书信息修改三个子菜单。其中，图书归还执行命令do form 图书借阅.scx；图书归还执行命令do form 图书归还.scx；图书信息修改执行命令do form 图书信息修改.scx。相关设计结果如下图：五、系统界面设计（1） 登陆界面设计 用户通过登陆界面进行登陆，选择自己的用户类型，输入证号和密码，如果输入的信息与所连接的表中的数据相符，则进入图书馆的主界面，否则提示错误，直到输入正确信息方能进入系统。精品.（2）系统主界面设计 当用户登陆证号和密码通过验证后，进入图书管理系统的主界面，该界面由一表单及菜单组成。其中，表单上的”欢迎使用图书馆管理系统！”是一向左移动的动画

7、，以增强界面的友好感。另外，用户可通过菜单上的各种操作对图书进行管理。图书馆管理系统的主界面如下：精品.（3）图书查询界面设计 用户可以选择查询条件，根据书名、作者、主题词、出版社、总编号其中的一种方式对图书进行查询，查询的结果显示在下边一个表格中。精品.（4）读者信息查看界面设计 管理员可以再次查看读者的信息，点击commandgroup组中的各个图标可以查看任意一个读者的信息。（5）读者密码修改界面设计 读者可以在此修改自己的密码，修改后的新密码同时在读者信息表中对相应密码进行更新。精品.（6）读者增添删除界面设计 管理员可以在此添加和删除用户，添加和删除的用户信息同时在读者信息表中进行更

8、新。精品.（7）图书借阅界面设计 管理员对读者需要借阅的图书进行借阅操作，输入图书总编号及读者的证号完成图书的借阅流程。将此借阅的信息保存到图书借阅信息表中。（8）图书归还界面设计 管理员对读者需要需要归还的图书进行归还操作，输入要归还的图书编号及读者证号，在图书借阅信息中进行查找并删除，完成图书归还的操作。精品.（9）图书信息修改界面设计本界面使用了一个pagecount为3的页框，主要完成图书的添加、删除及信息更新的功能。下图中，管理员可以对图书进行登记，新书信息将添加到图书信息表中，读者可查阅到。精品. 在本界面中，管理员可以对需要删除的图书从图书信息表中删除，输入要删除的图书的总编号，

9、系统进行查找，若找到则删除，找不到则提示错误。精品. 在本界面中，管理员可以通过输入图书的总编号，查找到需要更新的图书，进入图书更新界面中。当系统找到对应的图书编号时，进入如下界面。在此，管理员可以更改图书的各种信息。精品.六、程序代码1、登陆界面（1）登陆按钮click事件代码：if alltrim(thisform.container1.text1.value)= messagebox(请输入用户名！) returnendifif alltrim(thisform.container1.text2.value)= messagebox(请输入密码！) returnendifa=thisfo

10、rm.container1.optiongroup1.valueif a=1精品. use 读者信息 locate for alltrim(证号)=alltrim(thisform.container1.text1.value) if found() if alltrim(密码)=alltrim(thisform.container1.text2.value) messagebox(登录成功,64,身份验证通过) do form 图书馆主界面.scx release thisform else messagebox(密码输入错误！,16,错误提示) endif else messagebox(

11、读者号不存在！,16,错误提示) endifelse use 管理员 locate for alltrim(证号)= alltrim(thisform.container1.text1.value) if found() if alltrim(密码)=alltrim(thisform.container1.text2.value) messagebox(登录成功！,64,身份验证通过) do form 图书馆主界面.scx release thisform else精品. messagebox(密码输入错误！,16,错误提示) endif else messagebox(用户名不存在！,16,

12、错误提示) endifendif（2） 退出按钮click事件代码：answer=messagebox(你决定退出系统吗？,4,提示)do case case answer=6 thisform.release case answer=7messagebox(请输入用户名和密码,0,提示)endcase2、系统主界面（1）表单的int事件代码：do 图书馆主界面.mpr with this,.t.thisform.timer1.enabled = .t.（2）time1的time事件代码：if thisform.label1.left+thisform.label1.width0 thisfo

13、rm.label1.left = this.parent.label1.left-10else精品. thisform.label1.left = thisform.widthendif3、图书查询界面（1）查询按钮的click事件代码：open database 图书馆数据库.dbc sharedthisform.grid1.recordsource=m=allt(thisform.text1.value)n=thisform.optiongroup1.valuedo casecase n=1 select * from 图书信息 where 书名=m into cursor temp th

14、isform.grid1.recordsource=tempcase n=2 select * from 图书信息 where alltrim(作者)=m into cursor temp thisform.grid1.recordsource=tempcase n=3select * from 图书信息 where alltrim(书名) like %+m+% into cursor temp thisform.grid1.recordsource=tempcase n=4 select * from 图书信息 where alltrim(出版社)=m into cursor temp th

15、isform.grid1.recordsource=tempcase n=5精品. select * from 图书信息 where alltrim(总编号)=m into cursor temp thisform.grid1.recordsource=tempendcasethisform.refresh（2）返回按钮的click事件代码：thisform.release4、读者信息查看界面commandgroup组的click事件代码：n=this.valuedo casecase n=1go mandgroup1.buttons(1).enabled=.f.

16、mandgroup1.buttons(2).enabled=.mandgroup1.buttons(3).enabled=.mandgroup1.buttons(4).enabled=.t.case n=2skip-1if bof()go mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.f.endif精品.mandgroup1.buttons(3).enabl

17、ed=.mandgroup1.buttons(4).enabled=.t.case n=3skip 1if eof()go mandgroup1.buttons(3).enabled=.mandgroup1.buttons(4).enabled=.mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.t.case n=4go mand

18、group1.buttons(4).enabled=.mandgroup1.buttons(3).enabled=.mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.t.case n=5 thisform.releaseendcasethisform.refresh5、密码修改界面：精品.（1）修改按钮的click事件密码：a=thisform.text4.valueb=thisform.text1.valuec=thisform.tex

19、t2.valued=thisform.text3.valueif alltrim(a)= messagebox(请输入账号！) thisform.text4.setfocus returnendifif alltrim(b)= messagebox(请输入密码！) thisform.text1.setfocus returnendifif alltrim(c)= messagebox(请输入新密码！) thisform.text2.setfocus returnendifif alltrim(d)= messagebox(请再次输入新密码！)精品. thisform.text3.setfocu

20、s returnendifuse 读者信息locate for alltrim(证号)=alltrim(a)if found() if alltrim(密码)=alltrim(b) if c=d e=messagebox(确定要修改吗？,32+1+0,提示) if e=1 replace 密码 with c for alltrim(证号)=alltrim(a) messagebox(密码修改成功！) endif else messagebox(确认密码不正确！请重新输入！) thisform.text2.value= thisform.text3.value= thisform.text2.s

21、etfocus endif else messagebox(密码输入错误！请重新输入密码！,16,错误提示) thisform.text1.value=精品. thisform.text2.value= thisform.text3.value= thisform.text1.setfocus endifelse messagebox(证号不存在！,16,错误提示) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value=endif（2）返回按钮的click事件代码：relea

22、se thisform6、读者增删界面(1)command1按钮的click事件代码：open database 图书馆数据库.dbc shareda=allt(thisform.text1.value)b=allt(thisform.text2.value)if a= messagebox(证号不能为空！,0,提示) thisform.text1.setfocus returnendif精品.if b= messagebox(密码不能为空！,0,提示) thisform.text2.setfocus returnendif use 读者信息locate for 证号=aif found()

23、messagebox(该用户已经存在！,0,提示) thisform.text1.value= thisform.text2.value= thisform.text1.setfocuselse insert into 读者信息(证号,密码) values (a,b) thisform.text1.value= thisform.text2.value= messagebox(恭喜你注册成功！,0,提示) thisform.text1.setfocusendifuse（2）command2的click事件代码：open database 图书馆数据库.dbc shared精品.a=allt(t

24、hisform.text3.value)if a= messagebox(证号不能为空！,0,提示) returnendifuse 读者信息locate for 证号=aif found() b=messagebox(确定要删除该用户吗？,1,提示) if b=1 delete pack thisform.text3.value= messagebox(删除成功！,0,提示) thisform.text3.setfocus endifelse messagebox(没有该用户！请重新输入！,0,提示) thisform.text3.value= thisform.text3.setfocuse

25、ndifuse精品.（3） command3的click事件代码：thisform.release7、图书借阅界面（1）借出按钮的click事件代码：open database 图书馆数据库.dbc shareda=allt(thisform.text1.value)b=allt(thisform.text2.value)c=date()use 图书借阅信息locate for 总编号=aif found() insert into 借书信息 values (a,b,c) messagebox(借书成功！,0,提示)else answer=messagebox(没有该书！是否继续？,1,提示)

26、 if answer=1 thisform.text1.value= thisform.text2.value= else thisform.release endif endifuse精品.close database（2）返回按钮的click事件代码：release thisform8、图书归还界面（1）归还按钮的click事件代码：open database 图书馆数据库.dbc shareda=allt(thisform.text1.value)b=allt(thisform.text2.value)use 图书借阅信息locate for 总编号=a and 证号=bif found

27、() delete answer=messagebox(确认是否还书？,1,提示) if answer=1 pack thisform.text1.value= thisform.text2.value= else recall endifelse messagebox(你输入的信息不对，请确认后重新输入！,0,提示) endif 精品.close database（2）返回按钮的click事件代码：release thisform9、图书信息修改界面（1）page1中的command1按钮的click事件代码：open database 图书馆数据库.dbc sharedzbh=allt(t

28、hisform.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

29、.page1.text7.value)use 图书信息answer=messagebox(确认添加新书吗？,1,提示)if answer=1 insert into 图书信息 values (zbh,flm,sm,zz,cbs,dj,zt) messagebox(添加成功！,0,提示)else thisform.pageframe1.page1.text1.value= thisform.pageframe1.page1.text2.value= thisform.pageframe1.page1.text3.value= thisform.pageframe1.page1.text4.val

30、ue=精品. thisform.pageframe1.page1.text5.value= thisform.pageframe1.page1.text6.value= thisform.pageframe1.page1.text7.value=endifuseclose database（2）page1中的command2按钮的click事件代码：release thisform（3）page2中的command1按钮的click事件代码：open database 图书馆数据库.dbc sharedzbh=allt(thisform.pageframe1.page2.text1.value

31、)use 图书信息locate for 书名=zbhif found() answer=messagebox(确定要删除该书吗？,1,提示) if answer=1 delete pack thisform.pageframe1.page1.text1.value= messagebox(删除成功！,0,提示) endifelse 精品. messagebox(没有此书！请检查重新输入！,0,提示) thisform.pageframe1.page1.text1.value=endifuseclose database（4）page2中的command2按钮的click事件代码：release

32、 thisform（5）page3中的command1按钮的click事件代码：open database 图书馆数据库.dbc sharedzbh=allt(thisform.pageframe1.page3.text1.value)use 图书信息locate for 总编号=zbhif found() do form 图书信息更新.scx thisform.release else messagebox(没有该书！请检查重新输入！,0,提示) thisform.pageframe1.page1.text1.value= endifuseclose database（6）page3中的co

33、mmand2按钮的click事件代码：精品.release thisform10、图书信息更新界面（1）command1的click事件代码：open database 图书馆数据库.dbc sharedzbh_new=allt(thisform.text1.value)flm_new=allt(thisform.text2.value)sm_new=val(allt(thisform.text3.value)zz_new=allt(thisform.text4.value)cbs_new=allt(thisform.text5.value)dj_new=allt(thisform.text6.value)zt_new=allt(thisform.text7.value)use 图书信息locate for 总编号=zbhif found() if !empty(zbh_new) replace 总编号 with zbh_new endif if !empty(flm_new) replace 分类名 with flm_new en