Visual FoxPro 程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告

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

1、真誠為您提供優(yōu)質(zhì)參考資料，若有不當(dāng)之處，請指正。 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、-------------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)圖書的各種信息量

3、也成倍增加，面對龐大的信息量，傳統(tǒng)的人工管理戶導(dǎo)致圖書管理的混亂，人力與物力過多的浪費(fèi)，圖書管理費(fèi)用的增加，從而使圖書館的負(fù)擔(dān)過重，影響整個(gè)圖書館的運(yùn)作和控制管理。因此，為了充分發(fā)揮了圖書館的功效，最大限度地為讀者服務(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)于圖書查詢、借閱及書庫管理的主要功能。其中

4、：圖書查詢模塊可以查詢所需要的圖書；讀者管理模塊中，讀者可以查看自己的信息，對登陸密碼進(jìn)行修改，管理員可以對讀者進(jìn)行添加和刪除；圖書管理模塊中，管理員可以為讀者進(jìn)行圖書的借閱和歸還操作，以及對圖書的信息進(jìn)行修改，如加入新書、刪除不能使用的圖書和更新圖書的信息；報(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é)生、管理員和圖書三部分。因此

5、需要建立的實(shí)體就是學(xué)生、管理員和圖書三個(gè)。 根據(jù)系統(tǒng)模塊的設(shè)計(jì)，可以的到本系統(tǒng)需要建立的基本表為：讀者信息表、管理員信息表、圖書信息表、圖書借閱信息表、圖書信息表。 數(shù)據(jù)庫的相關(guān)設(shè)計(jì)如下： 其中，讀者信息表中證號為主索引，圖書信息表中總編號為主索引，圖書借閱表中對總編號和證號建立普通索引。 表單設(shè)計(jì) （1）、讀者信息表.dbf 讀者信息表結(jié)構(gòu)設(shè)計(jì) 字段名 類型 寬度 索引 證號 字符型 6 主索引 密碼 字符型 6 姓名 字符型 8 專業(yè) 字符型 10 性別 字符型 2 年級 字符型 2 院系 字

6、符型 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ì) 字

7、段名 類型 寬度 索引 總編號 字符型 6 普通索引 證號 字符型 6 普通索引 借出日期 日期型 8 四、系統(tǒng)菜單設(shè)計(jì) 依據(jù)上述系統(tǒng)功能模塊的設(shè)計(jì)，可以得到圖書館主界面菜單：主要包括圖書查詢、讀者管理、圖書管理、報(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 讀者信息

8、.scx；登陸密碼修改執(zhí)行命令do form 密碼修改.scx；讀者增添刪除執(zhí)行命令do form讀者增刪.scx。 相關(guān)設(shè)計(jì)結(jié)果如下圖： 圖書管理菜單包含圖書借閱、圖書歸還、圖書信息修改三個(gè)子菜單。其中，圖書歸還執(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ò)誤

9、，直到輸入正確信息方能進(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)界面的友好感。另外，用戶可通過菜單上的各種操作對圖書進(jìn)行管理。圖書館管理系統(tǒng)的主界面如下： （3）圖書查詢界面設(shè)計(jì) 用戶可以選擇查詢條件，根據(jù)書名、作者、主題詞、出版社、總編號其中的一種方式對圖書進(jìn)行查詢，查詢的結(jié)果顯示在下邊一個(gè)表格中。 （4）讀者信息查看界面設(shè)計(jì) 管理員可以再次查看讀者的信息，點(diǎn)擊CommandGroup組中的各個(gè)圖標(biāo)可以

10、查看任意一個(gè)讀者的信息。 （5）讀者密碼修改界面設(shè)計(jì) 讀者可以在此修改自己的密碼，修改后的新密碼同時(shí)在讀者信息表中對相應(yīng)密碼進(jìn)行更新。 （6）讀者增添刪除界面設(shè)計(jì) 管理員可以在此添加和刪除用戶，添加和刪除的用戶信息同時(shí)在讀者信息表中進(jìn)行更新。 （7）圖書借閱界面設(shè)計(jì) 管理員對讀者需要借閱的圖書進(jìn)行借閱操作，輸入圖書總編號及讀者的證號完成圖書的借閱流程。將此借閱的信息保存到圖書借閱信息表中。 （8）圖書歸還界面設(shè)計(jì) 管理員對讀者需要需要?dú)w還的圖書進(jìn)行歸還操作，輸入要?dú)w還的圖書編號及讀者證號，在圖書借閱信息中進(jìn)行查找并刪除，完成圖

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

12、）登陸按鈕click事件代碼： if alltrim(thisform.container1.text1.value)=="" messagebox("請輸入用戶名！") return endif if alltrim(thisform.container1.text2.value)=="" messagebox("請輸入密碼！") return endif a=thisform.container1.optiongroup1.value if a=1 use 讀者信息 locate for alltrim(證號)=alltrim(t

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

14、("讀者號不存在！",16,"錯(cuò)誤提示") endif else use 管理員 locate 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

15、 else messagebox("密碼輸入錯(cuò)誤！",16,"錯(cuò)誤提示") endif else messagebox("用戶名不存在！",16,"錯(cuò)誤提示") endif endif （2） 退出按鈕click事件代碼： answer=messagebox("你決定退出系統(tǒng)嗎？",4,"提示") do case case answer=6 thisform.release case answer=7 messagebox("請輸入用戶名和密碼",0,"提示") endcase 2、

16、系統(tǒng)主界面 （1）表單的int事件代碼： do 圖書館主界面.MPR with this,.T. THISFORM.Timer1.Enabled = .T. （2）time1的time事件代碼： IF thisform.Label1.Left+thisform.label1.width>0 thisform.Label1.Left = THIS.Parent.Label1.Left-10 ELSE thisform.Label1.Left = thisform.Width ENDIF 3、圖書查詢界面 （1）查詢按鈕的click事件代碼： OPEN DATA

17、BASE 圖書館數(shù)據(jù)庫.dbc SHARED thisform.grid1.recordsource="" m=allt(thisform.text1.value) n=thisform.optiongroup1.value do case case n=1 select * from 圖書信息 where 書名==m into cursor temp thisform.grid1.recordsource="temp" case n=2 select * from 圖書信息 where alltrim(作者)==m into cursor temp thi

18、sform.grid1.recordsource="temp" case n=3 select * from 圖書信息 where alltrim(書名) like "%"+m+"%" into cursor temp thisform.grid1.recordsource="temp" case n=4 select * from 圖書信息 where alltrim(出版社)==m into cursor temp thisform.grid1.recordsource="temp" case n=5 select * from 圖書信息 where all

19、trim(總編號)==m into cursor temp thisform.grid1.recordsource="temp" endcase thisform.refresh （2）返回按鈕的click事件代碼：thisform.release 4、讀者信息查看界面 Commandgroup組的click事件代碼： n=this.value do case case n=1 go top mandgroup1.buttons(1).enabled=.f. mandgroup1.buttons(2).enabled=.f. mandgroup1.butt

20、ons(3).enabled=.t. mandgroup1.buttons(4).enabled=.t. case n=2 skip-1 if bof() go top mandgroup1.buttons(1).enabled=.f. mandgroup1.buttons(2).enabled=.f. endif mandgroup1.buttons(3).enabled=.t. mandgroup1.buttons(4).enabled=.t. case n=3 skip 1 if eof() go bottom mand

21、group1.buttons(3).enabled=.f. mandgroup1.buttons(4).enabled=.f. endif mandgroup1.buttons(1).enabled=.t. mandgroup1.buttons(2).enabled=.t. case n=4 go bottom mandgroup1.buttons(4).enabled=.f. mandgroup1.buttons(3).enabled=.f. mandgroup1.buttons(1).enabled=.t. mandgroup1.buttons(2)

22、.enabled=.t. case n=5 thisform.release endcase thisform.refresh 5、密碼修改界面： （1）修改按鈕的click事件密碼： a=thisform.text4.value b=thisform.text1.value c=thisform.text2.value d=thisform.text3.value if alltrim(a)=="" messagebox("請輸入賬號！") thisform.text4.setfocus return endif if alltrim(

23、b)=="" messagebox("請輸入密碼！") thisform.text1.setfocus return endif if alltrim(c)=="" messagebox("請輸入新密碼！") thisform.text2.setfocus return endif if alltrim(d)=="" messagebox("請?jiān)俅屋斎胄旅艽a！") thisform.text3.setfocus return endif use 讀者信息 locate for alltrim(證號)==alltrim(a)

24、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)密碼不正確！請重新輸入！")

25、 thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus endif else messagebox("密碼輸入錯(cuò)誤！請重新輸入密碼！",16,"錯(cuò)誤提示") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text1.setfocus endif

26、 else messagebox("證號不存在！",16,"錯(cuò)誤提示") thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" endif （2）返回按鈕的click事件代碼：release thisform 6、讀者增刪界面 (1)command1按鈕的click事件代碼： open database 圖書館數(shù)據(jù)庫.dbc shared a=allt(thisform.text1.value) b=

27、allt(thisform.text2.value) if a=="" messagebox("證號不能為空！",0,"提示") thisform.text1.setfocus return endif if b=="" messagebox("密碼不能為空！",0,"提示") thisform.text2.setfocus return endif use 讀者信息 locate for 證號=a if found() messagebox("該用戶已經(jīng)存在！",0,"提示") thisform.text1

28、.value="" thisform.text2.value="" thisform.text1.setfocus else insert into 讀者信息(證號,密碼) values (a,b) thisform.text1.value="" thisform.text2.value="" messagebox("恭喜你注冊成功！",0,"提示") thisform.text1.setfocus endif use （2）command2的click事件代碼： open database 圖書館

29、數(shù)據(jù)庫.dbc shared a=allt(thisform.text3.value) if a=="" messagebox("證號不能為空！",0,"提示") return endif use 讀者信息 locate for 證號=a if found() b=messagebox("確定要?jiǎng)h除該用戶嗎？",1,"提示") if b=1 delete pack thisform.text3.value="" messagebox("刪除成功！",0,"提示") thisform.t

30、ext3.setfocus endif else messagebox("沒有該用戶！請重新輸入！",0,"提示") thisform.text3.value="" thisform.text3.setfocus endif use （3） command3的click事件代碼：thisform.release 7、圖書借閱界面 （1）借出按鈕的click事件代碼： OPEN DATABASE 圖書館數(shù)據(jù)庫.dbc SHARED a=allt(thisform.text1.value) b=allt(thisform.text2.v

31、alue) c=date() use 圖書借閱信息 locate for 總編號=a if found() insert into 借書信息 values (a,b,c) messagebox("借書成功！",0,"提示") else answer=messagebox("沒有該書！是否繼續(xù)？",1,"提示") if answer=1 thisform.text1.value="" thisform.text2.value="" else thisform.release endif

32、 endif use close database （2）返回按鈕的click事件代碼：release thisform 8、圖書歸還界面 （1）歸還按鈕的click事件代碼： OPEN DATABASE 圖書館數(shù)據(jù)庫.dbc SHARED a=allt(thisform.text1.value) b=allt(thisform.text2.value) use 圖書借閱信息 locate for 總編號=a and 證號=b if found() delete answer=messagebox("確認(rèn)是否還書？",1,"提示") if ans

33、wer=1 pack thisform.text1.value="" thisform.text2.value="" else recall endif else messagebox("你輸入的信息不對，請確認(rèn)后重新輸入！",0,"提示") endif close database （2）返回按鈕的click事件代碼：release thisform 9、圖書信息修改界面 （1）page1中的command1按鈕的click事件代碼： open database 圖書館數(shù)據(jù)庫.dbc

34、shared 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

35、)) zt=allt(thisform.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="" thi

36、sform.pageframe1.page1.text3.value="" thisform.pageframe1.page1.text4.value="" thisform.pageframe1.page1.text5.value="" thisform.pageframe1.page1.text6.value="" thisform.pageframe1.page1.text7.value="" endif use close database （2）page1中的command2按鈕的click事件代碼： release thisform （3

37、）page2中的command1按鈕的click事件代碼： open database 圖書館數(shù)據(jù)庫.dbc shared zbh=allt(thisform.pageframe1.page2.text1.value) use 圖書信息 locate for 書名=zbh if found() answer=messagebox("確定要?jiǎng)h除該書嗎？",1,"提示") if answer=1 delete pack thisform.pageframe1.page1.text1.value="" messa

38、gebox("刪除成功！",0,"提示") endif else messagebox("沒有此書！請檢查重新輸入！",0,"提示") thisform.pageframe1.page1.text1.value="" endif use close database （4）page2中的command2按鈕的click事件代碼： release thisform （5）page3中的command1按鈕的click事件代碼： open database 圖書館數(shù)據(jù)庫.dbc shared zbh=allt(thisform.pageframe1

39、.page3.text1.value) use 圖書信息 locate for 總編號=zbh if found() DO FORM 圖書信息更新.scx thisform.release else messagebox("沒有該書！請檢查重新輸入！",0,"提示") thisform.pageframe1.page1.text1.value="" endif use close database （6）page3中的command2按鈕的click事件代碼： release thisform 10、圖書信息更新界面 （1）

40、command1的click事件代碼： open database 圖書館數(shù)據(jù)庫.dbc shared zbh_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.v

41、alue) use 圖書信息 locate for 總編號=zbh if 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 作者

42、with zz_new endif if !empty(cbs_new) replace 出版社 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ù)請

43、輸入完整！",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)行圖書查詢、密碼修改、信息查看；管理員可以對圖書進(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)

44、報(bào)告，我深切的認(rèn)識到了開發(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)識到了我所學(xué)的東西，用來設(shè)計(jì)一個(gè)系統(tǒng)是多么的微不足道，設(shè)計(jì)一個(gè)相對好一些的系統(tǒng)，我都還有很東西需要學(xué)習(xí)。 最后，通過這次實(shí)驗(yàn)，我對所學(xué)到的知識有了一個(gè)系統(tǒng)的梳理，將所學(xué)的理論用于最終的實(shí)踐，進(jìn)行了一次有益的嘗試，還有，這次實(shí)驗(yàn)讓我對開發(fā)系統(tǒng)有了更進(jìn)一步的認(rèn)識。雖然有很多遺憾和不足，但畢竟讓我認(rèn)識到自己的真實(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 - / 23