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