【正文】 () DO FORM LOGO ELSE IF 3 amp。如果次數(shù)小于 3 MESSAGEBOX(帳號(hào)或密碼錯(cuò)誤 ,請(qǐng)重新輸入 ,48,系統(tǒng)警告 ) .VALUE= .VALUE= .SETFOCUS() ELSE amp。如果已登錄三次 MESSAGEBOX( 密碼錯(cuò)誤三次 ,系統(tǒng)無(wú)法啟動(dòng) ,48,系統(tǒng)警告 ) () amp。退出表單、退出系統(tǒng) CLEAR QUIT ENDIF ENDIF SET EXACT OFF amp。改為模糊比較 。 YN=MESSAGEBOX(確定退出 ,4+32,系統(tǒng)信息 ) IF YN=6 () amp。退出表單、退出系統(tǒng) CLEAR QUIT ENDIF 。 3． 2 進(jìn)入系統(tǒng)歡迎界面 3． 3“學(xué)生資料”模塊 “學(xué)生資料管理”模塊包括學(xué)生資料的分條瀏覽，添加，修改，刪除，查詢和打印功能。單擊“命令按鈕工具欄”中的按鈕可以 對(duì)“學(xué)生資料”頁(yè)框中的記錄進(jìn)行相應(yīng)的操作。通過(guò)所輸入的查詢條件來(lái)查詢學(xué)生的資料。amp。+ALLTRIM( .Value)+39。amp。+ALLTRIM( .VALUE)+39。amp。+ALLTRIM( .VALUE)+39。amp。+ALLTRIM( .VALUE)+39。然后保存就可以了，同時(shí)，可以通過(guò)快捷鍵選擇“上一個(gè)”，“下一個(gè)”，“末記錄”。 “ 增加”按鈕 的 click事件代碼如下： SELECT Student =RECNO() GO BOTTOM APPEND BLANK () =“ cadd” 。 圖 修改學(xué)生資料 “ 修改”按鈕的 click事件代碼如下： =“ cmod” =RECNO() () () 3． 3． 4 學(xué)生資料的刪除 “ 命令按鈕工具欄”中“刪除”按鈕的作用是首先彈出確認(rèn)對(duì)話框，如果確認(rèn)則進(jìn)行刪除操作。 圖 刪除學(xué)生資料 “ 刪除”按鈕的 click事件代碼如下： YN=MESSAGEBOX(“確定刪除”， 4+32，“圖書(shū)管理系統(tǒng)” ) amp。確認(rèn)對(duì)話框 IF YN=6 amp。如果確認(rèn) =RECNO() amp。保存記錄指針位置 SET EXACT ON amp。嚴(yán)格比較 SELECT JyRec LOCATE FOR 學(xué)號(hào) =ALLTRIM（ .VALUE） AND EMPTY(歸還日期 ) amp。查找是否有未還圖書(shū) IF FOUND（） amp。如果有 MESSAGEBOX（“該學(xué)生有未還書(shū)，不能刪除”， 48，“圖書(shū)借閱管理系統(tǒng)”） amp。彈出對(duì)話框 SELECT Student amp?；氐皆涗? SET FILTER TO GO ELSE amp。如果沒(méi)有未還書(shū) SELECT JyRec amp。如果沒(méi)有未還書(shū) GO TOP amp。選擇“讀者借書(shū)記錄”工作區(qū) DO WHILE NOT EOTO amp。到數(shù)據(jù)表頂部 IF 學(xué)號(hào) = ALLTRIM（ .VALUE） DELETE PACK ENDIF SKIP ENDDO SELECT Student amp。在“學(xué)生信息”數(shù)據(jù)表中刪除記錄 GO DELETE PACK MESSAGEBOX（“刪除成功”， 64，“圖書(shū)借閱管理系統(tǒng)”） amp?！皠h除成功”對(duì)話框 SELECT Student GO TOP ENDIF （） SET EXACT OFF ENDIF 3． 3． 5 學(xué)生資料的保存 “ 命令按鈕工具欄”中“保存”按鈕的作用是檢查表單中個(gè)數(shù)據(jù)欄中的數(shù)據(jù)輸入完整情況，如果無(wú)誤，則保存記錄。amp。amp。amp。amp。amp。amp。amp。amp。 “ 取消”按鈕的 click事件代碼如下： YN=MESSAGEBOX（“確定取消”， 4+32，“系統(tǒng)消息”） TF YN=6 TABLEREVERT（ .F.） TF =“ cadd” GO ENDIF () 。 “ 取消”按鈕的 click事件代碼如下： DbfName=“ StuDbf” DO FORM 圖 學(xué)生資料的打印 3． 3． 8 借還書(shū) 讀者可以通過(guò)“借還書(shū)”按扭來(lái)實(shí)現(xiàn)借書(shū)和還書(shū)。 SELECT Student = RECNO() amp。將記錄編號(hào)儲(chǔ)存 DO FORM Input WITH 輸入書(shū)號(hào) ,AA9999 TO BookNO amp。調(diào)用輸入表單 SET EXACT ON amp。改為精確比較 IF BookNO amp。表示有輸入圖書(shū)編號(hào) SELECT Book LOCATE FOR 圖書(shū)編號(hào) =BookNO IF NOT FOUND() amp。表示找不到時(shí) MESSAGEBOX(無(wú)此書(shū)號(hào) ,48,信息窗口 ) SELECT Student GO amp。回到原記錄 ELSE IF 是否借出 =.T. MESSAGEBOX(書(shū)已借出 ,48,信息窗口 ) SELECT Student GO amp?；氐皆涗? ELSE SELECT JyRec COUNT FOR 學(xué)號(hào) =ALLTRIM( .VALUE) AND EMPTY(歸還日期 ) TO YjNO IF YjNO=7 MESSAGEBOX(可借書(shū)數(shù)據(jù)目己滿 ,48,信息窗口 ) SELECT Student GO amp。回到原記錄 ELSE SELECT BOOK REPLACE 是否借出 WITH .T.,借閱次數(shù) WITH 借閱次數(shù) +1 FOR 圖書(shū)編號(hào)=BookNO INSERT INTO JyRec ( 學(xué)號(hào) , 圖 書(shū) 編 號(hào) , 借閱日期 ) VALUES (ALLTRIM( .VALUE),BookNO,DATE()) MESSAGEBOX(借出成功 ,64,信息窗口 ) SELECT Student GO amp。回到原記錄 ENDIF ENDIF ENDIF ENDIF () amp。重新顯示表單上各對(duì)象的數(shù)據(jù) SET EXACT OFF amp。改回模糊比較 圖 讀者借還書(shū) 表單中“過(guò)期”按扭的作用是調(diào)用“過(guò)期圖書(shū)”表單，其 Click 事件代碼如下： DO FORM Outdate 圖 過(guò)期圖書(shū)列表 表單中“排行”按扭的作用是調(diào)用“圖書(shū)借閱排行榜”表單，其 Click 事件代碼如下： DO FORM Topten 圖 書(shū)籍借閱排行榜 3． 3． 9 退出 “退出”（ Cmdexti）按扭的 Click 事件代碼如下： YN=MESSAGEBOX(“確定退出”， 4+32，“圖書(shū)借閱管理系統(tǒng)” ) IF YN=6 () CLEAR EVENTS QUIT ENDIF “學(xué)生信息”頁(yè)面中“借還書(shū)”（ Cmdjh）按扭的作用是將頁(yè)面中當(dāng)前記錄的“學(xué)號(hào)”值賦給全局變量“ StudentNO”， 并調(diào)用“讀者借書(shū)記錄”表單。 添加該頁(yè)面的“ Activate”事件代碼如下： SELECT BOOK SET FILTER TO GO TOP =“ cbrowse” （） （） 由于該頁(yè)面要在刷新表單時(shí)，顯示表單中當(dāng)前記錄的書(shū)籍是否借出，故添加該頁(yè)面的Refresh 事件代碼 如下： SELECT BOOK IF 是否借出 =.F. =“在館中” ELSE =“借出中” ENDIF 在“書(shū)籍信息”（ BookPage）頁(yè)面在可通過(guò)添加的 MonthView 控件（ SjOleRq）來(lái)輸入圖書(shū)的購(gòu)買日期，在該頁(yè)面處于非瀏覽狀態(tài)時(shí)單擊“。 添加“。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。這樣才能讓管理者提高工作效率 。 經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，圖書(shū)借閱管理系統(tǒng)基本開(kāi)發(fā)完畢。并提供部分系統(tǒng)維護(hù)功能，使管理員方便進(jìn)行數(shù)據(jù)的添加和修改。這些都有待進(jìn)一步改善。他認(rèn)真的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論知識(shí)使我受益非淺。衷心感謝他的耐心輔導(dǎo)。 參考文獻(xiàn) 1．魏紹謙，陳萬(wàn)里 .Visul FoxPro .高等教育出版社 .2020年 5月 2．丁愛(ài)萍 .Visul FoxPro .西安電子科技大學(xué)出版社 .1999年 1月 3．伍俊良 .Visul FoxPro 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例 .清華大學(xué)出版社 .2020年 3月 4．王大可 .數(shù)字圖書(shū)館 .海天出版社 .2020年 4月 5．霍國(guó)慶 .現(xiàn)代圖書(shū)館理論 .北京圖書(shū)館出版社 .2020年 8月 ABSTRACT Nowadays, Opening Shelves— Borrow is trend for university?s library. It?s convenience for readers, and greatly improve development and using of library resource. Meanwhile, it could prehensively embody integrated service function of library. However, there are many aspects of fact disbennifit management of opening shelvesborrow system in most university library. This issue make a management designment for this borrowing system based on reader, it could make more pra