《Visual FoxPro 程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告.doc》由會(huì)員分享，可在線閱讀，更多相關(guān)《Visual FoxPro 程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告.doc（23頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、VF程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告圖書館管理系統(tǒng) 專業(yè)： 學(xué)號： 姓名： 指導(dǎo)教師： 2010年12月31日目錄第一部分 系統(tǒng)概述-2第二部分 系統(tǒng)功能模塊設(shè)計(jì)-2第三部分 系統(tǒng)數(shù)據(jù)庫及表設(shè)計(jì)-2第四部分 系統(tǒng)菜單設(shè)計(jì)-5第五部分 系統(tǒng)界面設(shè)計(jì)-6第六部分 系統(tǒng)相關(guān)程序代碼-13第七部分 實(shí)驗(yàn)報(bào)告小結(jié)-22第八部分 參考資料-22一、系統(tǒng)概述近年來，隨著圖書館規(guī)模的不斷擴(kuò)大，圖書數(shù)量相應(yīng)的增加，有關(guān)圖書的各種信息量也成倍增加，面對龐大的信息量，傳統(tǒng)的人工管理戶導(dǎo)致圖書管理的混亂，人力與物力過多的浪費(fèi)，圖書管理費(fèi)用的增加，從而使圖書館的負(fù)擔(dān)過重，影響整個(gè)圖書館的運(yùn)作和控制管理。因此，為了充分發(fā)揮了圖書館的功效

2、，最大限度地為讀者服務(wù)，必須制定一套合理、有效，規(guī)范和實(shí)用的圖書館管理系統(tǒng)，對圖書資料進(jìn)行集中統(tǒng)一的管理。根據(jù)上述需要，我們建立本圖書館管理系統(tǒng)。根據(jù)圖書、讀者和管理員三者之間的關(guān)系，本系統(tǒng)主要實(shí)現(xiàn)讀者對圖書的查詢、個(gè)人信息的修改和管理員對讀者、圖書的管理。本系統(tǒng)采用VF6.0作為開發(fā)工具。二、系統(tǒng)功能模塊設(shè)計(jì)本系統(tǒng)可以完成一般圖書館關(guān)于圖書查詢、借閱及書庫管理的主要功能。其中：圖書查詢模塊可以查詢所需要的圖書；讀者管理模塊中，讀者可以查看自己的信息，對登陸密碼進(jìn)行修改，管理員可以對讀者進(jìn)行添加和刪除；圖書管理模塊中，管理員可以為讀者進(jìn)行圖書的借閱和歸還操作，以及對圖書的信息進(jìn)行修改，如加入新

3、書、刪除不能使用的圖書和更新圖書的信息；報(bào)表打印模塊中，實(shí)現(xiàn)對需要的信息進(jìn)行打印輸出。系統(tǒng)結(jié)構(gòu)下圖所示。圖書館管理系統(tǒng)主界面系統(tǒng)登陸圖書查詢讀者管理圖書管理報(bào)表打印退出讀者信息查看登陸密碼修改讀者增添刪除圖書借閱圖書歸還圖書信息修改三、數(shù)據(jù)庫及表設(shè)計(jì)經(jīng)分析，圖書館管理系統(tǒng)主要涉及了學(xué)生、管理員和圖書三部分。因此需要建立的實(shí)體就是學(xué)生、管理員和圖書三個(gè)。根據(jù)系統(tǒng)模塊的設(shè)計(jì)，可以的到本系統(tǒng)需要建立的基本表為：讀者信息表、管理員信息表、圖書信息表、圖書借閱信息表、圖書信息表。數(shù)據(jù)庫的相關(guān)設(shè)計(jì)如下：其中，讀者信息表中證號為主索引，圖書信息表中總編號為主索引，圖書借閱表中對總編號和證號建立普通索引。表單

4、設(shè)計(jì)（1）、讀者信息表.dbf讀者信息表結(jié)構(gòu)設(shè)計(jì)字段名類型寬度索引證號字符型6主索引密碼字符型6姓名字符型8專業(yè)字符型10性別字符型2年級字符型2院系字符型8照片通用性30備注備注型4（2）管理員信息表.dbf管理員信息表設(shè)計(jì)字段名類型寬度索引證號字符型4密碼字符型6（3）、圖書信息表.dbf圖書信息表設(shè)計(jì)字段名類型寬度索引總編號字符型6主索引分類名字符型6書名字符型12作者字符型8出版社字符型20狀態(tài)字符型4照片通用型4（4）、圖書借閱信息表.dbf圖書借閱信息表設(shè)計(jì)字段名類型寬度索引總編號字符型6普通索引證號字符型6普通索引借出日期日期型8四、系統(tǒng)菜單設(shè)計(jì)依據(jù)上述系統(tǒng)功能模塊的設(shè)計(jì)，可以得

5、到圖書館主界面菜單：主要包括圖書查詢、讀者管理、圖書管理、報(bào)表打印和退出。其中，圖書查詢執(zhí)行命do form 圖書查詢.scx；退出執(zhí)行命令_vfp.activeform.release；讀者管理和圖書管理包含子菜單；另外，報(bào)表打印的相關(guān)設(shè)計(jì)未能實(shí)現(xiàn)。相關(guān)設(shè)計(jì)如下圖： 讀者管理菜單主要包含讀者信息查看、登陸密碼修改、讀者增添刪除三個(gè)子菜單。其中，讀者信息查看執(zhí)行命令do form 讀者信息.scx；登陸密碼修改執(zhí)行命令do form 密碼修改.scx；讀者增添刪除執(zhí)行命令do form讀者增刪.scx。相關(guān)設(shè)計(jì)結(jié)果如下圖：圖書管理菜單包含圖書借閱、圖書歸還、圖書信息修改三個(gè)子菜單。其中，圖書歸

6、還執(zhí)行命令do form 圖書借閱.scx；圖書歸還執(zhí)行命令do form 圖書歸還.scx；圖書信息修改執(zhí)行命令do form 圖書信息修改.scx。相關(guān)設(shè)計(jì)結(jié)果如下圖：五、系統(tǒng)界面設(shè)計(jì)（1） 登陸界面設(shè)計(jì) 用戶通過登陸界面進(jìn)行登陸，選擇自己的用戶類型，輸入證號和密碼，如果輸入的信息與所連接的表中的數(shù)據(jù)相符，則進(jìn)入圖書館的主界面，否則提示錯(cuò)誤，直到輸入正確信息方能進(jìn)入系統(tǒng)。（2）系統(tǒng)主界面設(shè)計(jì) 當(dāng)用戶登陸證號和密碼通過驗(yàn)證后，進(jìn)入圖書管理系統(tǒng)的主界面，該界面由一表單及菜單組成。其中，表單上的”歡迎使用圖書館管理系統(tǒng)！”是一向左移動(dòng)的動(dòng)畫，以增強(qiáng)界面的友好感。另外，用戶可通過菜單上的各種操作對

7、圖書進(jìn)行管理。圖書館管理系統(tǒng)的主界面如下：（3）圖書查詢界面設(shè)計(jì) 用戶可以選擇查詢條件，根據(jù)書名、作者、主題詞、出版社、總編號其中的一種方式對圖書進(jìn)行查詢，查詢的結(jié)果顯示在下邊一個(gè)表格中。（4）讀者信息查看界面設(shè)計(jì) 管理員可以再次查看讀者的信息，點(diǎn)擊CommandGroup組中的各個(gè)圖標(biāo)可以查看任意一個(gè)讀者的信息。（5）讀者密碼修改界面設(shè)計(jì) 讀者可以在此修改自己的密碼，修改后的新密碼同時(shí)在讀者信息表中對相應(yīng)密碼進(jìn)行更新。（6）讀者增添刪除界面設(shè)計(jì) 管理員可以在此添加和刪除用戶，添加和刪除的用戶信息同時(shí)在讀者信息表中進(jìn)行更新。（7）圖書借閱界面設(shè)計(jì) 管理員對讀者需要借閱的圖書進(jìn)行借閱操作，輸入圖

8、書總編號及讀者的證號完成圖書的借閱流程。將此借閱的信息保存到圖書借閱信息表中。（8）圖書歸還界面設(shè)計(jì) 管理員對讀者需要需要?dú)w還的圖書進(jìn)行歸還操作，輸入要?dú)w還的圖書編號及讀者證號，在圖書借閱信息中進(jìn)行查找并刪除，完成圖書歸還的操作。（9）圖書信息修改界面設(shè)計(jì)本界面使用了一個(gè)PageCount為3的頁框，主要完成圖書的添加、刪除及信息更新的功能。下圖中，管理員可以對圖書進(jìn)行登記，新書信息將添加到圖書信息表中，讀者可查閱到。 在本界面中，管理員可以對需要?jiǎng)h除的圖書從圖書信息表中刪除，輸入要?jiǎng)h除的圖書的總編號，系統(tǒng)進(jìn)行查找，若找到則刪除，找不到則提示錯(cuò)誤。 在本界面中，管理員可以通過輸入圖書的總編號，

9、查找到需要更新的圖書，進(jìn)入圖書更新界面中。當(dāng)系統(tǒng)找到對應(yīng)的圖書編號時(shí)，進(jìn)入如下界面。在此，管理員可以更改圖書的各種信息。六、程序代碼1、登陸界面（1）登陸按鈕click事件代碼：if alltrim(thisform.container1.text1.value)= messagebox(請輸入用戶名！) returnendifif alltrim(thisform.container1.text2.value)= messagebox(請輸入密碼！) returnendifa=thisform.container1.optiongroup1.valueif a=1 use 讀者信息 loca

10、te for alltrim(證號)=alltrim(thisform.container1.text1.value) if found() if alltrim(密碼)=alltrim(thisform.container1.text2.value) messagebox(登錄成功,64,身份驗(yàn)證通過) do form 圖書館主界面.scx release thisform else messagebox(密碼輸入錯(cuò)誤！,16,錯(cuò)誤提示) endif else messagebox(讀者號不存在！,16,錯(cuò)誤提示) endifelse use 管理員 locate for alltrim(證

11、號)= alltrim(thisform.container1.text1.value) if found() if alltrim(密碼)=alltrim(thisform.container1.text2.value) messagebox(登錄成功！,64,身份驗(yàn)證通過) do form 圖書館主界面.scx release thisform else messagebox(密碼輸入錯(cuò)誤！,16,錯(cuò)誤提示) endif else messagebox(用戶名不存在！,16,錯(cuò)誤提示) endifendif（2） 退出按鈕click事件代碼：answer=messagebox(你決定退出系

12、統(tǒng)嗎？,4,提示)do case case answer=6 thisform.release case answer=7messagebox(請輸入用戶名和密碼,0,提示)endcase2、系統(tǒng)主界面（1）表單的int事件代碼：do 圖書館主界面.MPR with this,.T.THISFORM.Timer1.Enabled = .T.（2）time1的time事件代碼：IF thisform.Label1.Left+thisform.label1.width0 thisform.Label1.Left = THIS.Parent.Label1.Left-10ELSE thisform.L

13、abel1.Left = thisform.WidthENDIF3、圖書查詢界面（1）查詢按鈕的click事件代碼：OPEN DATABASE 圖書館數(shù)據(jù)庫.dbc SHAREDthisform.grid1.recordsource=m=allt(thisform.text1.value)n=thisform.optiongroup1.valuedo casecase n=1 select * from 圖書信息 where 書名=m into cursor temp thisform.grid1.recordsource=tempcase n=2 select * from 圖書信息 whe

14、re 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 thisform.grid1.recordsource=tempcase n=5 select * from 圖書信息 whe

15、re alltrim(總編號)=m into cursor temp thisform.grid1.recordsource=tempendcasethisform.refresh（2）返回按鈕的click事件代碼：thisform.release4、讀者信息查看界面Commandgroup組的click事件代碼：n=this.valuedo casecase n=1go topmandgroup1.buttons(1).enabled=.f.mandgroup1.buttons(2).enabled=.f.mandgroup1.buttons(3).enabled=.t.mandgroup1

16、.buttons(4).enabled=.t.case n=2skip-1if bof()go topmandgroup1.buttons(1).enabled=.f.mandgroup1.buttons(2).enabled=.f.endifmandgroup1.buttons(3).enabled=.t.mandgroup1.buttons(4).enabled=.t.case n=3skip 1if eof()go bottommandgroup1.buttons(3).enabled=.f.mandgroup1.buttons(4).enabled=.f.endifmandgroup1

17、.buttons(1).enabled=.t.mandgroup1.buttons(2).enabled=.t.case n=4go bottommandgroup1.buttons(4).enabled=.f.mandgroup1.buttons(3).enabled=.f.mandgroup1.buttons(1).enabled=.t.mandgroup1.buttons(2).enabled=.t.case n=5 thisform.releaseendcasethisform.refresh5、密碼修改界面：（1）修改按鈕的click事件密碼：a=thisform.text4.val

18、ueb=thisform.text1.valuec=thisform.text2.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)= messagebo

19、x(請?jiān)俅屋斎胄旅艽a！) thisform.text3.setfocus 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(確認(rèn)密碼不正確！請重新輸入！) thisform.text2.value= thi

20、sform.text3.value= thisform.text2.setfocus endif else messagebox(密碼輸入錯(cuò)誤！請重新輸入密碼！,16,錯(cuò)誤提示) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus endifelse messagebox(證號不存在！,16,錯(cuò)誤提示) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.va

21、lue=endif（2）返回按鈕的click事件代碼：release thisform6、讀者增刪界面(1)command1按鈕的click事件代碼：open database 圖書館數(shù)據(jù)庫.dbc shareda=allt(thisform.text1.value)b=allt(thisform.text2.value)if a= messagebox(證號不能為空！,0,提示) thisform.text1.setfocus returnendifif b= messagebox(密碼不能為空！,0,提示) thisform.text2.setfocus returnendif use 讀

22、者信息locate for 證號=aif found() messagebox(該用戶已經(jīng)存在！,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

23、 圖書館數(shù)據(jù)庫.dbc shareda=allt(thisform.text3.value)if a= messagebox(證號不能為空！,0,提示) returnendifuse 讀者信息locate for 證號=aif found() b=messagebox(確定要?jiǎng)h除該用戶嗎？,1,提示) if b=1 delete pack thisform.text3.value= messagebox(刪除成功！,0,提示) thisform.text3.setfocus endifelse messagebox(沒有該用戶！請重新輸入！,0,提示) thisform.text3.value

24、= thisform.text3.setfocusendifuse（3） command3的click事件代碼：thisform.release7、圖書借閱界面（1）借出按鈕的click事件代碼：OPEN DATABASE 圖書館數(shù)據(jù)庫.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=mess

25、agebox(沒有該書！是否繼續(xù)？,1,提示) if answer=1 thisform.text1.value= thisform.text2.value= else thisform.release endif endifuseclose database（2）返回按鈕的click事件代碼：release thisform8、圖書歸還界面（1）歸還按鈕的click事件代碼：OPEN DATABASE 圖書館數(shù)據(jù)庫.dbc SHAREDa=allt(thisform.text1.value)b=allt(thisform.text2.value)use 圖書借閱信息locate for 總編

26、號=a and 證號=bif found() delete answer=messagebox(確認(rèn)是否還書？,1,提示) if answer=1 pack thisform.text1.value= thisform.text2.value= else recall endifelse messagebox(你輸入的信息不對，請確認(rèn)后重新輸入！,0,提示) endif close database（2）返回按鈕的click事件代碼：release thisform9、圖書信息修改界面（1）page1中的command1按鈕的click事件代碼：open database 圖書館數(shù)據(jù)庫.dbc

27、 sharedzbh=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(th

28、isform.pageframe1.page1.text7.value)use 圖書信息answer=messagebox(確認(rèn)添加新書嗎？,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.pageframe

29、1.page1.text4.value= 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 圖書館數(shù)據(jù)庫.dbc sharedzbh=allt(thisform.pageframe1.pag

30、e2.text1.value)use 圖書信息locate for 書名=zbhif found() answer=messagebox(確定要?jiǎng)h除該書嗎？,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事件

31、代碼：release thisform（5）page3中的command1按鈕的click事件代碼：open database 圖書館數(shù)據(jù)庫.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

32、）page3中的command2按鈕的click事件代碼：release thisform10、圖書信息更新界面（1）command1的click事件代碼：open database 圖書館數(shù)據(jù)庫.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(thisfor

33、m.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 endif if !empty(sm_new) replace 書名 with sm_new endif if !empty(zz_new) replace 作者 with zz_new endif if !empty(cbs_new) rep

34、lace 出版社 with cbs_new endif if !empty(dj_new) replace 單價(jià) with val(dj_new) endif if !empty(zt_new) replace 狀態(tài) with zt_new endif messagebox(更新成功！,0,提示)else messagebox(數(shù)據(jù)請輸入完整！,0,提示)endif use（2）command2的click事件代碼：release thisform七、實(shí)驗(yàn)報(bào)告小結(jié)經(jīng)過近兩周的設(shè)計(jì)和開發(fā)，本圖書館管理系統(tǒng)基本實(shí)現(xiàn)了一個(gè)圖書館所必須的簡單功能。讀者可以進(jìn)行圖書查詢、密碼修改、信息查看；管理員可以對

35、圖書進(jìn)行借閱、歸還及更新操作，對讀者進(jìn)行添加和刪除。由于我個(gè)人的水平及時(shí)間所限，本系統(tǒng)的各項(xiàng)功能都比較簡單，數(shù)據(jù)庫設(shè)計(jì)還有很多缺陷，如數(shù)據(jù)表的索引、視圖的應(yīng)用等等，其中原先設(shè)想的報(bào)表打印這一功能由于時(shí)間限制未能予以實(shí)現(xiàn)。下面簡單談一下，這此實(shí)驗(yàn)報(bào)告給我的感想：首先，通過本次實(shí)驗(yàn)報(bào)告，我深切的認(rèn)識(shí)到了開發(fā)一個(gè)系統(tǒng)原來是這么的不簡單：大到整個(gè)系統(tǒng)的整體規(guī)劃，如各項(xiàng)功能上的設(shè)計(jì)、所需數(shù)據(jù)庫的設(shè)計(jì)，小到一個(gè)細(xì)節(jié)的具體設(shè)計(jì)，如編寫相應(yīng)代碼實(shí)現(xiàn)某一功能，甚至為美化界面調(diào)整字體的字號大小，或者插入一些圖片等等都凝聚了設(shè)計(jì)人員的心血。其次，我充分的認(rèn)識(shí)到了我所學(xué)的東西，用來設(shè)計(jì)一個(gè)系統(tǒng)是多么的微不足道，設(shè)計(jì)一

36、個(gè)相對好一些的系統(tǒng)，我都還有很東西需要學(xué)習(xí)。最后，通過這次實(shí)驗(yàn)，我對所學(xué)到的知識(shí)有了一個(gè)系統(tǒng)的梳理，將所學(xué)的理論用于最終的實(shí)踐，進(jìn)行了一次有益的嘗試，還有，這次實(shí)驗(yàn)讓我對開發(fā)系統(tǒng)有了更進(jìn)一步的認(rèn)識(shí)。雖然有很多遺憾和不足，但畢竟讓我認(rèn)識(shí)到自己的真實(shí)水平和實(shí)際應(yīng)用中的差距，這必將督促著我更加努力學(xué)習(xí)。 八、參考資料1 Visual FoxPro程序設(shè)計(jì)教程 第二版 劉瑞新 汪遠(yuǎn)征 曹歡歡 等編著 機(jī)械工業(yè)出版社2 Visual FoxPro 項(xiàng)目開發(fā)案例教程 李政 趙瑞 李穎 王海燕 等編著 中國水利水電出版社3 Visual FoxPro 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)實(shí)例導(dǎo)航 求是科技編著 人民郵電出版社4 Visual FoxPro 數(shù)據(jù)庫系統(tǒng)項(xiàng)目開發(fā)實(shí)踐 韓中孝 王凌志主編 科學(xué)出版社5 一些網(wǎng)絡(luò)上的關(guān)于圖書管理的論文報(bào)告- 22 -