真誠為您提供優(yōu)質(zhì)參考資料，若有不當之處，請指正。VF程序設計實驗報告圖書館管理系統(tǒng) 專業(yè)： 學號： 姓名： 指導教師： 2010年12月31日目錄第一部分 系統(tǒng)概述-2第二部分 系統(tǒng)功能模塊設計-2第三部分 系統(tǒng)數(shù)據(jù)庫及表設計-2第四部分 系統(tǒng)菜單設計-5第五部分 系統(tǒng)界面設計-6第六部分 系統(tǒng)相關程序代碼-13第七部分 實驗報告小結-22第八部分 參考資料-22一、系統(tǒng)概述近年來，隨著圖書館規(guī)模的不斷擴大，圖書數(shù)量相應的增加，有關圖書的各種信息量也成倍增加，面對龐大的信息量，傳統(tǒng)的人工管理戶導致圖書管理的混亂，人力與物力過多的浪費，圖書管理費用的增加，從而使圖書館的負擔過重，影響整個圖書館的運作和控制管理。因此，為了充分發(fā)揮了圖書館的功效，最大限度地為讀者服務，必須制定一套合理、有效，規(guī)范和實用的圖書館管理系統(tǒng)，對圖書資料進行集中統(tǒng)一的管理。根據(jù)上述需要，我們建立本圖書館管理系統(tǒng)。根據(jù)圖書、讀者和管理員三者之間的關系，本系統(tǒng)主要實現(xiàn)讀者對圖書的查詢、個人信息的修改和管理員對讀者、圖書的管理。本系統(tǒng)采用VF6.0作為開發(fā)工具。二、系統(tǒng)功能模塊設計本系統(tǒng)可以完成一般圖書館關于圖書查詢、借閱及書庫管理的主要功能。其中：圖書查詢模塊可以查詢所需要的圖書；讀者管理模塊中，讀者可以查看自己的信息，對登陸密碼進行修改，管理員可以對讀者進行添加和刪除；圖書管理模塊中，管理員可以為讀者進行圖書的借閱和歸還操作，以及對圖書的信息進行修改，如加入新書、刪除不能使用的圖書和更新圖書的信息；報表打印模塊中，實現(xiàn)對需要的信息進行打印輸出。系統(tǒng)結構下圖所示。圖書館管理系統(tǒng)主界面系統(tǒng)登陸圖書查詢讀者管理圖書管理報表打印退出讀者信息查看登陸密碼修改讀者增添刪除圖書借閱圖書歸還圖書信息修改三、數(shù)據(jù)庫及表設計經(jīng)分析，圖書館管理系統(tǒng)主要涉及了學生、管理員和圖書三部分。因此需要建立的實體就是學生、管理員和圖書三個。根據(jù)系統(tǒng)模塊的設計，可以的到本系統(tǒng)需要建立的基本表為：讀者信息表、管理員信息表、圖書信息表、圖書借閱信息表、圖書信息表。數(shù)據(jù)庫的相關設計如下：其中，讀者信息表中證號為主索引，圖書信息表中總編號為主索引，圖書借閱表中對總編號和證號建立普通索引。表單設計（1）、讀者信息表.dbf讀者信息表結構設計字段名類型寬度索引證號字符型6主索引密碼字符型6姓名字符型8專業(yè)字符型10性別字符型2年級字符型2院系字符型8照片通用性30備注備注型4（2）管理員信息表.dbf管理員信息表設計字段名類型寬度索引證號字符型4密碼字符型6（3）、圖書信息表.dbf圖書信息表設計字段名類型寬度索引總編號字符型6主索引分類名字符型6書名字符型12作者字符型8出版社字符型20狀態(tài)字符型4照片通用型4（4）、圖書借閱信息表.dbf圖書借閱信息表設計字段名類型寬度索引總編號字符型6普通索引證號字符型6普通索引借出日期日期型8四、系統(tǒng)菜單設計依據(jù)上述系統(tǒng)功能模塊的設計，可以得到圖書館主界面菜單：主要包括圖書查詢、讀者管理、圖書管理、報表打印和退出。其中，圖書查詢執(zhí)行命do form 圖書查詢.scx；退出執(zhí)行命令_vfp.activeform.release；讀者管理和圖書管理包含子菜單；另外，報表打印的相關設計未能實現(xiàn)。相關設計如下圖： 讀者管理菜單主要包含讀者信息查看、登陸密碼修改、讀者增添刪除三個子菜單。其中，讀者信息查看執(zhí)行命令do form 讀者信息.scx；登陸密碼修改執(zhí)行命令do form 密碼修改.scx；讀者增添刪除執(zhí)行命令do form讀者增刪.scx。相關設計結果如下圖：圖書管理菜單包含圖書借閱、圖書歸還、圖書信息修改三個子菜單。其中，圖書歸還執(zhí)行命令do form 圖書借閱.scx；圖書歸還執(zhí)行命令do form 圖書歸還.scx；圖書信息修改執(zhí)行命令do form 圖書信息修改.scx。相關設計結果如下圖：五、系統(tǒng)界面設計（1） 登陸界面設計 用戶通過登陸界面進行登陸，選擇自己的用戶類型，輸入證號和密碼，如果輸入的信息與所連接的表中的數(shù)據(jù)相符，則進入圖書館的主界面，否則提示錯誤，直到輸入正確信息方能進入系統(tǒng)。（2）系統(tǒng)主界面設計 當用戶登陸證號和密碼通過驗證后，進入圖書管理系統(tǒng)的主界面，該界面由一表單及菜單組成。其中，表單上的”歡迎使用圖書館管理系統(tǒng)！”是一向左移動的動畫，以增強界面的友好感。另外，用戶可通過菜單上的各種操作對圖書進行管理。圖書館管理系統(tǒng)的主界面如下：（3）圖書查詢界面設計 用戶可以選擇查詢條件，根據(jù)書名、作者、主題詞、出版社、總編號其中的一種方式對圖書進行查詢，查詢的結果顯示在下邊一個表格中。（4）讀者信息查看界面設計 管理員可以再次查看讀者的信息，點擊CommandGroup組中的各個圖標可以查看任意一個讀者的信息。（5）讀者密碼修改界面設計 讀者可以在此修改自己的密碼，修改后的新密碼同時在讀者信息表中對相應密碼進行更新。（6）讀者增添刪除界面設計 管理員可以在此添加和刪除用戶，添加和刪除的用戶信息同時在讀者信息表中進行更新。（7）圖書借閱界面設計 管理員對讀者需要借閱的圖書進行借閱操作，輸入圖書總編號及讀者的證號完成圖書的借閱流程。將此借閱的信息保存到圖書借閱信息表中。（8）圖書歸還界面設計 管理員對讀者需要需要歸還的圖書進行歸還操作，輸入要歸還的圖書編號及讀者證號，在圖書借閱信息中進行查找并刪除，完成圖書歸還的操作。（9）圖書信息修改界面設計本界面使用了一個PageCount為3的頁框，主要完成圖書的添加、刪除及信息更新的功能。下圖中，管理員可以對圖書進行登記，新書信息將添加到圖書信息表中，讀者可查閱到。 在本界面中，管理員可以對需要刪除的圖書從圖書信息表中刪除，輸入要刪除的圖書的總編號，系統(tǒng)進行查找，若找到則刪除，找不到則提示錯誤。 在本界面中，管理員可以通過輸入圖書的總編號，查找到需要更新的圖書，進入圖書更新界面中。當系統(tǒng)找到對應的圖書編號時，進入如下界面。在此，管理員可以更改圖書的各種信息。六、程序代碼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 讀者信息 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,"錯誤提示") 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,"錯誤提示") endifendif（2） 退出按鈕click事件代碼：answer=messagebox("你決定退出系統(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.width>0 thisform.Label1.Left = THIS.Parent.Label1.Left-10ELSE thisform.Label1.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="temp"case n=2 select * from 圖書信息 where alltrim(作者)=m into cursor temp thisform.grid1.recordsource="temp"case n=3select * 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 alltrim(總編號)=m into cursor temp thisform.grid1.recordsource="temp"endcasethisform.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.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.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.valueb=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)="" messagebox("請再次輸入新密碼！") 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("確認密碼不正確！請重新輸入！") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus 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事件代碼：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 讀者信息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 圖書館數(shù)據(jù)庫.dbc shareda=allt(thisform.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.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=messagebox("沒有該書！是否繼續(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 總編號=a and 證號=bif found() 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 圖書館數(shù)據(jù)庫.dbc 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(thisform.pageframe1.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.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.page2.text1.value)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 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）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(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 endif if !empty(sm_new) replace 書名 with sm_new endif if !empty(zz_new) replace 作者 with zz_new endif if !empty(cbs_new) replace 出版社 with cbs_new endif if !empty(dj_new) replace 單價 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七、實驗報告小結經(jīng)過近兩周的設計和開發(fā)，本圖書館管理系統(tǒng)基本實現(xiàn)了一個圖書館所必須的簡單功能。讀者可以進行圖書查詢、密碼修改、信息查看；管理員可以對圖書進行借閱、歸還及更新操作，對讀者進行添加和刪除。由于我個人的水平及時間所限，本系統(tǒng)的各項功能都比較簡單，數(shù)據(jù)庫設計還有很多缺陷，如數(shù)據(jù)表的索引、視圖的應用等等，其中原先設想的報表打印這一功能由于時間限制未能予以實現(xiàn)。下面簡單談一下，這此實驗報告給我的感想：首先，通過本次實驗報告，我深切的認識到了開發(fā)一個系統(tǒng)原來是這么的不簡單：大到整個系統(tǒng)的整體規(guī)劃，如各項功能上的設計、所需數(shù)據(jù)庫的設計，小到一個細節(jié)的具體設計，如編寫相應代碼實現(xiàn)某一功能，甚至為美化界面調(diào)整字體的字號大小，或者插入一些圖片等等都凝聚了設計人員的心血。其次，我充分的認識到了我所學的東西，用來設計一個系統(tǒng)是多么的微不足道，設計一個相對好一些的系統(tǒng)，我都還有很東西需要學習。最后，通過這次實驗，我對所學到的知識有了一個系統(tǒng)的梳理，將所學的理論用于最終的實踐，進行了一次有益的嘗試，還有，這次實驗讓我對開發(fā)系統(tǒng)有了更進一步的認識。雖然有很多遺憾和不足，但畢竟讓我認識到自己的真實水平和實際應用中的差距，這必將督促著我更加努力學習。 八、參考資料1 Visual FoxPro程序設計教程 第二版 劉瑞新 汪遠征 曹歡歡 等編著 機械工業(yè)出版社2 Visual FoxPro 項目開發(fā)案例教程 李政 趙瑞 李穎 王海燕 等編著 中國水利水電出版社3 Visual FoxPro 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)實例導航 求是科技編著 人民郵電出版社4 Visual FoxPro 數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐 韓中孝 王凌志主編 科學出版社5 一些網(wǎng)絡上的關于圖書管理的論文報告- 22 - / 23