Visual FoxPro 程序设计实验报告

1、VF程序设计实验报告图书馆管理系统专业：学号：姓名：指导教师：2010年12月31日目录TOC o 1-5 h z第一部分系统概述2 HYPERLINK l bookmark6 o Current Document 第二部分系统功能模块设计2第三部分系统数据库及表设计2第四部分系统菜单设计5第五部分系统界面设计6第六部分系统相关程序代码13第七部分实验报告小结22第八部分参考资料22一、系统概述近年来，随着图书馆规模的不断扩大，图书数量相应的增加，有关图书的各种信息量也成倍增加，面对庞大的信息量，传统的人工管理户导致图书管理的混乱，人力与物力过多的浪费，图书管理费用的增加，从而使图书馆的负担过

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

3、以为读者进行图书的借阅和归还操作，以及对图书的信息进行修改，如加入新书、删除不能使用的图书和更新图书的信息；报表打印模块中，实现对需要的信息进行打印输出。系统结构下图所示。三、数据库及表设计经分析，图书馆管理系统主要涉及了学生、管理员和图书三部分。因此需要建立的实体就是学生、管理员和图书三个。根据系统模块的设计，可以的到本系统需要建立的基本表为：读者信息表、管理员信息表、图书信息表、图书借阅信息表、图书信息表。数据库的相关设计如下：4堆香犀世；I空-图书馆竝摇库倍出田间歸引：证号证号4堆香犀世；I空-图书馆竝摇库倍出田间歸引：证号证号性别年釵岀版it强引：目字磧:证菴pq|创号各民疝芙另昔版璧

4、另肃件出其中，读者信息表中证号为主索引，图书信息表中总编号为主索引，图书借阅表中对总编号和证号建立普通索引。表单设计、读者信息表.dbfFH100034密码321100001100002166618订23100011100006100028：1甲321;1324256:SGB烝劉100034密码321100001100002166618订23100011100006100028：1甲321;1324256:SGB烝劉1壬莹S喋朝伟；濮藝.:薩敲:院亲替理系年级彗业聖窒；男-t選牌学聚市场营销:Genmeno:信息票.勇丁舞索IST5営理茶j08i计算数学Foe谴foe-rss计宦机技术|06同

5、j旅:游営理iG世TliTi世4GeLGt口imtTiojGeniGen:；-4-iGen!meinoimemo:merio：memo=读者信息表结构设计字段名类型宽度索引证号字符型6主索引密码字符型6姓名字符型8专业字符型10性别字符型2年级字符型2院系字符型8照片通用性30备注备注型4管理员信息表.dbf管理员信息表设计字段名类型宽度索弓证号字符型4密码字符型6、图书信息表.dbfB总编号分类名书名作者出版社单价445501TF3/12数据库导论J.CDATE科学出版社18.90可惜445502-TF3/ir征服英语口语世界画书出版社17.90可詹4455037P3X12美園巧年17.90

6、ifiS332211TPE/10蓿通me.o粽然电芋工亚田厳社“2.00二11細6Im/12.F0吒昭:E+戢海兄字亍业用備社2.3.60螫世25544TS7/21高等教肓刘云彭19.00借岀114455iTM/li钱性代数：孙冬音王京天学由点社080113388TR7?gQ大学英语極红活華天学田頤社二112.50.可僧二亠1ii:I.LdlD图书信息表设计字段名类型宽度索引总编号字符型6主索引分类名字符型6书名字符型12作者字符型8出版社字符型20状态字符型4照片通用型4图书借阅信息表设计字段名类型宽度索引总编号字符型6普通索引证号字符型6普通索引借出日期日期型8（4（4）、图书借阅信息表.

7、dbf四、系统菜单设计依据上述系统功能模块的设计，可以得到图书馆主界面菜单：主要包括图书查询、读者管理、图书管理、报表打印和退出。其中，图书查询执行命doform图书查询.sex；退出执行命令_vfp.activeform.release；读者管理和图书管理包含子菜单；另外，报表打印的相关设计未能实现。相关设计如下图：菜单电称结杲选项菜单级：:圉书查询tdoform圉荊奁询.ec|二|诧者管理子菜单糞单项子菜单报表打印子菜单猫入1退出p.宝匚tiveform.rel越入拦1刪除J预览-图将馆主界而读者管理菜单主要包含读者信息查看、登陆密码修改、读者增添删除三个子菜单。其中，读者信息查看执行命令

8、doform读者信息.sex；登陆密码修改执行命令doform密码修改.sex；读者增添删除执行命令doform读者增删.sex。相关设计结果如下图：图书管理菜单包含图书借阅、图书归还、图书信息修改三个子菜单。其中，图书归还执行命令doform图书借阅.sex；图书归还执行命令doform图书归还.sex；图书信息修改执行命令doform图书信息修改.sex。相关设计结果如五、系统界面设计（1）登陆界面设计用户通过登陆界面进行登陆，选择自己的用户类型，输入证号和密码，如果输入的信息与所连接的表中的数据相符，则进入图书馆的主界面，否则提示错误，直到输入正确信息方能进入系统。（2）系统主界面设计当

9、用户登陆证号和密码通过验证后，进入图书管理系统的主界面，该界面由一表单及菜单组成。其中，表单上的”欢迎使用图书馆管理系统！”是一向左移动的动画，以增强界面的友好感。另外，用户可通过菜单上的各种操作对图书进行管理。图书馆管理系统的主界面如下：（3）图书查询界面设计用户可以选择查询条件，根据书名、作者、主题词、出版社、总编号其中的一种方式对图书进行查询，查询的结果显示在下边一个表格中。图书检索选择查询条件酋书喀广选择查询条件酋书喀广作者:-主题词广岀版社广总編号查询返叵总鋼号労类名书名作者出版社445501TP3/1数据库导论T.CDATE科学出版社可惜445502TP3/1征服英语口语世界豹书出

10、版可惜445503TP3/12美国1E年沈宁中国经济出畿借出3.32211TP&/I0ilVFPB.O电孑工泄岀版可惜11226&-TP3/12TOKBASE+张海电子工业出版借出225544TS7/1高等教育刘云箋高等数育出版惜出I4f1dJiEE卄口力去Dh英舌IHQ十呈出为UT世b（4）读者信息查看界面设计管理员可以再次查看读者的信息，点击CommandGroup组中的各个图标可以查看任意一个读者的信息读者信息查看照片照片第一个上一个末一个返叵1（5）读者密码修改界面设计读者可以在此修改自己的密码，修改后的新密码同时在读者信息表中对相应密码进行更新。确定读者增删删除用户证号匕（6）读者增

11、添删除界面设计管理员可以在此添加和删除用户，添加和删除的用户信息同时在读者信息表中进行更新。确定读者增删删除用户证号匕（6）读者增添删除界面设计管理员可以在此添加和删除用户，添加和删除的用户信息同时在读者信息表中进行更新。?0|S3确定返列（7）图书借阅界面设计管理员对读者需要借阅的图书进行借阅操作，输入图书总编号及读者的证号完成图书的借阅流程。将此借阅的信息保存到图书借阅信息表中。图书借阅总编号:读者证号:借出返回（8）图书归还界面设计管理员对读者需要需要归还的图书进行归还操作，输入要归还的图书编号及读者证号，在图书借阅信息中进行查找并删除，完成图书归还的操作。9）图书信息修改界面设计总编号

12、:读者证号:借出返回（8）图书归还界面设计管理员对读者需要需要归还的图书进行归还操作，输入要归还的图书编号及读者证号，在图书借阅信息中进行查找并删除，完成图书归还的操作。9）图书信息修改界面设计本界面使用了一个PageCount为3的页框，主要完成图书的添加、删除及信息更新的功能。下图中，管理员可以对图书进行登记，新书信息将添加到图书信息表中，读者可查阅到。在本界面中，管理员可以对需要删除的图书从图书信息表中删除，输入要删除的图书的总编号，系统进行查找，若找到则删除，找不到则提示错误。图书信息修改信息删除信息更新请输入总编号:确定I在本界面中，管理员可以通过输入图书的总编号，查找到需要更新的图

13、书进入图书更新界面中。图书信息修改新书入库信息删除信息更新新书入库信息删除信息更新请输入总编号:请输入总编号:返回确定返回当系统找到对应的图书编号时，进入如下界面。在此，管理员可以更改图书岀版社分类名书名作者确定返5=的各种信息。图书信息更新总编号岀版社分类名书名作者确定返5=的各种信息。图书信息更新总编号六、程序代码1、登陆界面（1）登陆按钮click事件代码：ifalltrim（thisform.container1.text1.value）=messagebox（请输入用户名！）returnendififalltrim（thisform.container1.text2.value）=m

14、essagebox（请输入密码！）returnendifa=thisform.container1.optiongroup1.valueifa=1、十一h0thisform.Label1.Left=THIS.Parent.Label1.Left-10ELSEthisform.Label1.Left=thisform.WidthENDIF3、图书查询界面（1）查询按钮的click事件代码：OPENDATABASE图书馆数据库.dbcSHAREDthisform.grid1.recordsource=m=allt（thisform.text1.value）n=thisform.optiongrou

15、p1.valuedocasecasen=1select*from图书信息where书名二二mintocursortempthisform.grid1.recordsource=tempcasen=2select*from图书信息wherealltrim（作者）二二mintocursortempthisform.grid1.recordsource=tempcasen=3select*from图书信息wherealltrim（书名）like%+m+%intocursortempthisform.grid1.recordsource=tempcasen=4select*from图书信息wherea

16、lltrim（出版社）二二mintocursortempthisform.grid1.recordsource=tempcasen=5select*from图书信息wherealltrim（总编号）二二mintocursortempthisform.grid1.recordsource=tempendcasethisform.refresh（2）返回按钮的click事件代码：thisform.release4、读者信息查看界面Commandgroup组的click事件代码：n=this.valuedocasecasen=1mandgroup1.buttons(1).enabled=.mandg

17、roup1.buttons(2).enabled=.mandgroup1.buttons(3).enabled=.mandgroup1.buttons(4).enabled=.t.casen=2skip-1ifbof()mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.mandgroup1.buttons(3).enabled=.mandgroup1.buttons(4).enabled=.t.casen=3skip1ifeof()mandgroup1.buttons(3).enabled=.mandgroup1.but

18、tons(4).enabled=.mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.t.casen=4mandgroup1.buttons(4).enabled=.mandgroup1.buttons(3).enabled=.mandgroup1.buttons(1).enabled=.mandgroup1.buttons(2).enabled=.t.casen=5thisform.releaseendcasethisform.refresh5、密码修改界面：修改按钮的click事件密码：a=thisform.text4

19、.valueb=thisform.text1.valuec=thisform.text2.valued=thisform.text3.valueifalltrim（a）=messagebox（请输入账号！）thisform.text4.setfocusreturnendififalltrim（b）=messagebox（请输入密码！）thisform.text1.setfocusreturnendififalltrim（c）=messagebox（请输入新密码！）thisform.text2.setfocusreturnendififalltrim（d）=messagebox（请再次输入新密码

20、！）thisform.text3.setfocusreturnendif、十一h士白use读者信息locateforalltrim（证号）二二alltrim（a）iffound（）ifalltrim（密码）二二alltrim（b）ifc=de=messagebox（确定要修改吗？，32+1+0,提示）ife=1replace密码withcforalltrim（证号）二二alltrim（a）messagebox（密码修改成功！）endifelsemessagebox（确认密码不正确！请重新输入！）thisform.text2.value=thisform.text3.value=thisform

21、.text2.setfocusendifelsemessagebox（密码输入错误！请重新输入密码！,16,错误提示）thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text1.setfocusendifelsemessagebox（证号不存在！，16,错误提示）thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=endif（2）返回按钮的click事件代码：releasethisfo

22、rm6、读者增删界面（l）commandl按钮的click事件代码：opendatabase图书馆数据库.dbcshareda=allt（thisform.text1.value）b=allt（thisform.text2.value）ifa=messagebox（证号不能为空！，0,提示）thisform.text1.setfocusreturnendififb=messagebox（密码不能为空！，0,提示）thisform.text2.setfocusreturnendif、十一h士白use读者信息locatefor证号二aiffound（）messagebox（该用户已经存在！，0,提

23、示）thisform.text1.value=thisform.text2.value=thisform.text1.setfocuselseinsertinto读者信息（证号,密码）values（a,b）thisform.text1.value=thisform.text2.value=messagebox（恭喜你注册成功！，0,提示）thisform.text1.setfocusendifuse（2）command2的click事件代码：opendatabase图书馆数据库.dbcshareda=allt（thisform.text3.value）ifa=messagebox（证号不能为空

24、！，0,提示）returnendif、十一h士白use读者信息locatefor证号二aiffound（）b二messagebox（确定要删除该用户吗？，1,提示）ifb=1deletepackthisform.text3.value=messagebox（删除成功！，0,提示）thisform.text3.setfocusendifelsemessagebox（没有该用户！请重新输入！，0,提示）thisform.text3.value=thisform.text3.setfocusendifuse（3）command3的click事件代码：thisform.release7、图书借阅界面（

25、1）借出按钮的click事件代码：OPENDATABASE图书馆数据库.dbcSHAREDa=allt（thisform.text1.value）b=allt（thisform.text2.value）c=date（）use图书借阅信息locatefor总编号二aiffound（）insertinto借书信息values（a,b,c）messagebox（借书成功！，0,提示）elseanswer二messagebox（没有该书！是否继续？，1,提示）ifanswer=1thisform.text1.value=thisform.text2.value=elsethisform.release

26、endifendifuseclosedatabase（2）返回按钮的click事件代码：releasethisform8、图书归还界面归还按钮的click事件代码：OPENDATABASE图书馆数据库.dbcSHAREDa=allt(thisform.text1.value)b=allt(thisform.text2.value)use图书借阅信息locatefor总编号二aand证号二biffound()deleteanswer二messagebox(确认是否还书？，1,提示)ifanswer=1packthisform.text1.value=thisform.text2.value=el

27、serecallendifelsemessagebox(你输入的信息不对，请确认后重新输入！,0,提示)endifclosedatabase返回按钮的click事件代码：releasethisform9、图书信息修改界面(1)pagel中的commandl按钮的click事件代码：opendatabase图书馆数据库.dbcsharedzbh=allt(thisform.pageframe1.page1.text1.value)flm=allt(thisform.pageframe1.page1.text2.value)sm=allt(thisform.pageframe1.page1.tex

28、t3.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=1insertinto图书信息values(zbh,flm,sm,zz,cbs,dj,zt)messageb

29、ox(添加成功！，0,提示)elsethisform.pageframe1.page1.text1.value=thisform.pageframe1.page1.text2.value=thisform.pageframe1.page1.text3.value=thisform.pageframe1.page1.text4.value=thisform.pageframe1.page1.text5.value=thisform.pageframe1.page1.text6.value=thisform.pageframe1.page1.text7.value=endifuseclosedat

30、abase（2）pagel中的command2按钮的click事件代码：releasethisform（3）page2中的command1按钮的click事件代码：opendatabase图书馆数据库.dbcsharedzbh=allt（thisform.pageframel.page2.textl.value）use图书信息locatefor书名二zbhiffound（）answer二messagebox（确定要删除该书吗？，1,提示）ifanswer=ldeletepackthisform.pageframel.pagel.textl.value=messagebox（删除成功！，0,提示

31、）endifelsemessagebox（没有此书！请检查重新输入！，0,提示）thisform.pageframel.pagel.textl.value=endifuseclosedatabase（4）page2中的command2按钮的click事件代码：releasethisform（5）page3中的command1按钮的click事件代码：opendatabase图书馆数据库.dbcsharedzbh=allt（thisform.pageframel.page3.textl.value）use图书信息locatefor总编号二zbhiffound（）DOFORM图书信息更新.sext

32、hisform.releaseelsemessagebox（没有该书！请检查重新输入！，0,提示）thisform.pageframel.pagel.textl.value=endifuseclosedatabase（6）page3中的command2按钮的click事件代码：releasethisform10、图书信息更新界面commandl的click事件代码：opendatabase图书馆数据库.dbcsharedzbh_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图书信息locatefor总编号二zbhiffound()if!emp