【正文】 圖 沈陽理工大學(xué)課程 實(shí)踐（論文） 31 圖書管理表單的頁面設(shè)定 該圖書管理表單頁面設(shè)定如圖 所示： 圖 圖書管理表單的代碼實(shí)現(xiàn) (1)Form的 init 事件 Public bookno endproc (2)Form的 stubrowse 事件 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.f. =.f. =.t. 圖書編號 .readonly=.t. 圖書名稱 .readonly=.t. 沈陽理工大學(xué)課程 實(shí)踐（論文） 32 圖書類別 .readonly=.t. 入庫日期 .readonly=.t. 出版社 .readonly=.t. 定價(jià) .readonly=.t. 備注 .readonly=.t. endproc (3)Form的 stumodify事件 =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.t. =.t. =.f. =.t. 圖書編號 .readonly=.f. 圖書名稱 .readonly=.f. 圖書類別 .readonly=.f. 入庫日期 .readonly=.f. 出版社 .readonly=.f. 定價(jià) .readonly=.f. 備注 .readonly=.f. endproc (4)Form的 Active 事件 Select book Set filter to 沈陽理工大學(xué)課程 實(shí)踐（論文） 33 Go top () endproc (5)Form的 refresh事 件 Select book If 是否借出 =.f. =RGB(0,0,255) =”此書未借出 ” Else =RGB(0,0,255) =”此書已借出 ” Endif endproc (6)“添加 ”按鈕的 click事件 Select book =reo() Go bottom Append blank () () endproc (7)“編輯 ”按鈕的 click事件 =reo() () 圖書編號 .readonly=.t. () Endproc (8)“刪除 ”按鈕的 click事件 If messagebox(“確定刪除 ”,4+32,“圖書借閱管理系統(tǒng) ”) If x=6 沈陽理工大學(xué)課程 實(shí)踐（論文） 34 =reo() If =”此書已借出 ” Messagebox(“該書未還 ”,48,”圖書借閱管理系統(tǒng) ”) Else Set exact on Selece borrow Go top Do while not eof() If 圖書編號 =alltrim( 圖書編號 .value) Delete Pack Endif Skip Enddo Select student Delete Pack Messagebox(“刪除成功 ”,64,“圖書借閱管理系統(tǒng) ”) Endif () Set exact off Endif Endproc (9)“查找 ”按鈕的 click事件 Do form forms\bookinput endproc (10)“取消 ”按鈕的 click事件 If messagebox(“確定取消 ”,4+32,“系統(tǒng)消息 ”)=6 Tablerevert(.f.) Go () 沈陽理工大學(xué)課程 實(shí)踐（論文） 35 學(xué) 號 .readonly=.t. () Endif endproc (11)“打印 ”按鈕的 click事件 Stuno= 學(xué)號 .value Pname=”stu” Do form forms\printout Endproc (12)“保存 ”按鈕的 click事件 Local x X=.t. Do case Case empty(alltrim( 圖書編號 .value)) Messagebox(“圖書編號不能為空 ”,48,“圖書借閱管理系統(tǒng) ”) 學(xué)號 .setfocus() X=.f. Case empty(alltrim( 圖書名稱 .value)) Messagebox（ “圖書名稱不能為空 ”,48,“圖書借閱管理系統(tǒng) ”） Case empty( 圖書類別 .value) Messagebox（ “圖書類別不能為空 ”,48,“圖書借閱管理系統(tǒng) ”） 圖書作者 .setfocus() X=.f. Endcase If x=.t. If messagebox（ “確定 保存 ”,4+32,“圖書借閱管理系統(tǒng) ”） =6 Messagebox（ “保存成功 ”,64,“圖書借閱管理系統(tǒng) ”） () () Endif Endif 沈陽理工大學(xué)課程 實(shí)踐（論文） 36 Endproc 圖書查詢條件表單實(shí)現(xiàn) 圖書查詢條件表單界面設(shè)定 本表單被 Book表單調(diào)用，其設(shè)計(jì)界面如 圖 所示 ： 圖書查詢條件 表單代碼實(shí)現(xiàn) （ 1） “查詢 ”按鈕的 click事件 Bfind=”.t.” If not empty(alltrim( 圖書編號 .value)) Bfind=”’”+alltrim( value)+”’and編號 ” Endif If not empty(alltrim( 圖書名稱 .value)) Bfind=Bfind+”and 書名 ”+”’”+alltrim( .value)+”’” Endif If not empty(alltrim( 圖書類別 .value)) Bfind=Bfind+”.and.”+”’”+alltrim( .value)+”’” Endif () 沈陽理工大學(xué)課程 實(shí)踐（論文） 37 Do form forms\stufind Endproc (2)“退出 ”按鈕的 click事件 Procedure () Endproc 借閱管理表單實(shí)現(xiàn) 借閱管理表單數(shù)據(jù)環(huán)境 該表單用于圖書借閱管理，其數(shù)據(jù)環(huán)境如 圖 所示 ： 圖 借閱管理表單界面設(shè)定 借閱管理表單界面設(shè)定如圖 所示： 圖 沈陽理工大學(xué)課程 實(shí)踐（論文） 38 借閱管理表單代碼實(shí)現(xiàn) 圖書借閱排行榜表單實(shí)現(xiàn) 圖書借閱排行榜表單數(shù)據(jù)環(huán)境 該表單用于顯示圖書借閱前 10 位排行，其數(shù)據(jù)環(huán)境 如圖 所示 ： 圖 圖書借閱排行榜表單頁面設(shè)定 圖書借閱排行榜表單的設(shè)定界面如圖 所示： 圖 沈陽理工大學(xué)課程 實(shí)踐（論文） 39 圖書借閱排行榜表單代碼實(shí)現(xiàn) （ 1） Form表單的 load 事件 Select top 10 , , , , 。 From 圖書管理！ book book order by 數(shù) desc into cursor TMP endproc （ 2） “打印 ”按鈕的 click事件 Select TMP Report form reports\booklist preview endproc （ 3） “退出 ”按鈕的 click事件 endproc 沈陽理工大學(xué)課程 實(shí)踐（論文） 40 6 程序的調(diào)試 輸入模塊調(diào)試 輸入模塊調(diào)試采用 Pass 表單進(jìn)行調(diào)試，在 Pass 表單的 “TXT用戶 ”、 “TXT口令 ”兩個(gè) TXT 控件中輸入文字 ，如圖 所示 。 圖 輸入 “用戶名 ”和 “密碼 ”之后，單擊 “確定 ”按鈕，進(jìn)入一下界面 ，如圖 所示 ： 圖 輸入模塊調(diào)試成功。 沈陽理工大學(xué)課程 實(shí)踐（論文） 41 查詢模塊調(diào)試 查詢模塊采用學(xué)生信息查詢表單進(jìn)行調(diào)試，通過在 “學(xué)號 ”中輸入 “0904010327”，在 “姓名 ”中輸入 “張智昊 ”，單擊查詢按鈕 ，如圖 所示 ： 圖 圖 成功進(jìn)入 “學(xué)生信息查詢結(jié)果 ”界面，在表單中顯示出查詢結(jié)果 ，結(jié)果如圖 所示 ： 圖 查詢模塊調(diào)試成功 沈陽理工大學(xué)課程 實(shí)踐（論文） 42 統(tǒng)計(jì)模塊調(diào)試 統(tǒng)計(jì)模塊調(diào)試采用 “圖書借閱排行榜 ”進(jìn)行調(diào)試，點(diǎn)擊 “排行 ”，彈出 “圖書借閱排行榜 ”界面， 如圖 所示， 統(tǒng)計(jì)模塊調(diào)試成功 圖 沈陽理工大學(xué)課程 實(shí)踐（論文） 43 結(jié)束語 經(jīng)過數(shù)據(jù)庫的設(shè)計(jì)和開發(fā)，圖書管理系統(tǒng)基本開發(fā)完畢。其功 能基本符合用戶需求，能夠完成圖書資料管理、學(xué)生資料管理和借還書操作。提供了部分系統(tǒng)維護(hù)功能，使用戶方便進(jìn)行數(shù)據(jù)添加、修改和刪除。同時(shí)也考慮到了單位編碼以減少冗余的問題，對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。可是在運(yùn)用和進(jìn)一步了解VFP 的同時(shí)遇到的困難是開始時(shí)沒有想象到的，從中我學(xué)到的寶貴知識是對 VFP 的了解和運(yùn)用都有了很大的提高。其中數(shù)據(jù)庫語言的共享與嚴(yán)謹(jǐn)思維對我的生活和工作產(chǎn)生了較大的影響。在數(shù)據(jù)庫開發(fā)與設(shè)計(jì)的過程中，遇到的困難和解決后的喜悅現(xiàn)在回想起來還是那么的有滋味，這對我今后的學(xué)習(xí)和工作 都有著很大的幫助。 沈陽理工大學(xué)課程 實(shí)踐（論文） 44 參考文獻(xiàn) [1][7302028834].史濟(jì)民． FoxPro 及其應(yīng)用系統(tǒng)開發(fā)． [M]北京： 清華大學(xué)出版社 , 1998 :338 頁 [2][7302027994].張海潘．軟件工程導(dǎo)論． [M]北京：清華大學(xué)出版社 , 1998:356 頁 [3][9787030209429 ].湯志偉．信息系統(tǒng)開發(fā)與管理． [M]北京 : 科學(xué)出版社 , 2021:296 頁 [4][730203009X ]王珊 陳紅 ．?dāng)?shù)據(jù)庫系統(tǒng)原理教程． [M]北京：清華大 學(xué)出版社 . [5][9787030208804 ].任小康，茍平章． Visual FoxPro 程序設(shè)計(jì)． [M]北京 : 科學(xué)出版社 , 2021:292 頁 [6][9787563515974 ].曾慶森，王宇． Visual FoxPro 程序設(shè)計(jì)基礎(chǔ)． [M]北京 : 北京郵電學(xué)院出版社 , 2021:292 頁 [7][9787040243925 ].何振林，張選芳． Visual FoxPro 程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo)教程． [M]北京 : 高等教育出版社 , 2021:184 頁