【文章內(nèi)容簡(jiǎn)介】 SKIP ENDDO SELECT Student amp。amp。在“學(xué)生信息”數(shù)據(jù)表中刪除記錄 GO DELETE PACK MESSAGEBOX（“刪除成功”， 64，“圖書(shū)借閱管理系統(tǒng)”） amp。amp?！皠h除成功”對(duì)話(huà)框 SELECT Student GO TOP ENDIF （） SET EXACT OFF ENDIF 3． 3． 5 學(xué)生資料的保存 “ 命令按鈕工具欄”中“保存”按鈕的作用是檢查表單中個(gè)數(shù)據(jù)欄中的數(shù)據(jù)輸入完整情況，如果無(wú)誤，則保存記錄。 “ 保存”按鈕的 click事件代碼如下： LOCAL OK amp。amp。聲明一個(gè)本地變量 OK=.T. amp。amp。假設(shè)個(gè)數(shù)據(jù)欄中無(wú)數(shù)據(jù) 無(wú)誤 DO ASE CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“學(xué)號(hào)不能為空”， 48，“圖書(shū)借閱管理系統(tǒng)”） .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( 姓名 .VALUE) MESSAGEBOX（“姓名不能為空”， 48，“圖書(shū)借閱管理系統(tǒng)”） .SETFOCUS() OK=.F. CASE EMPTY( .VALUE) MESSAGEBOX（“系別不能為空”， 48，“圖書(shū)借閱管理系統(tǒng)”） . Cmb學(xué)號(hào) .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“地址不能為空”， 48，“圖書(shū)借閱管理系統(tǒng)”） .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“電話(huà)不能為空”， 48，“圖書(shū)借閱管理系統(tǒng)”） .SETFOCUS() OK=.F. ENDCASE IF OK=.T. amp。amp。如果各數(shù)據(jù)欄無(wú)誤為空 YN=MESSAGEBOX(“確定保存”， 4+32，“圖書(shū)借閱管理系統(tǒng)” ) amp。amp。彈出確認(rèn)對(duì)話(huà)框 IF YN=6 amp。amp。如果確認(rèn) CanSave=.F. amp。amp。試圖保存 MESSAGEBOX(“學(xué)號(hào)錯(cuò)誤”， 48，“圖書(shū)借閱管理系統(tǒng)” ) amp。amp。如果保存失敗 . SETFOCUS() ELSE MESSAGEBOX(“保存成功”， 64，“圖書(shū)借閱管理系統(tǒng)” ) amp。amp。如果保存成功 () IF =“ cmod” GO ELSE .READONLY=.T. ENDIF ENDIF () ENDIF ENDIF 3． 3． 6 取消 “ 命令按鈕工具欄”中“取消”按鈕的作用是刪除表單的數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)，并且使當(dāng)前頁(yè)面回到瀏覽狀態(tài)。 “ 取消”按鈕的 click事件代碼如下： YN=MESSAGEBOX（“確定取消”， 4+32，“系統(tǒng)消息”） TF YN=6 TABLEREVERT（ .F.） TF =“ cadd” GO ENDIF () 。 READONLY=.T. () ENDIF 3． 3． 7 學(xué)生資料的打印 “ 命令按鈕工具欄”中“打印”按鈕的作用是將“ DbfName”全局變量賦值，表明要進(jìn)行打印的是“學(xué)生信息表”并調(diào)用“選 擇打印類(lèi)型”表單。 “ 取消”按鈕的 click事件代碼如下： DbfName=“ StuDbf” DO FORM 圖 學(xué)生資料的打印 3． 3． 8 借還書(shū) 讀者可以通過(guò)“借還書(shū)”按扭來(lái)實(shí)現(xiàn)借書(shū)和還書(shū)。并可以在此查看過(guò)期未還的圖書(shū)和圖書(shū)的排行榜。 SELECT Student = RECNO() amp。amp。將記錄編號(hào)儲(chǔ)存 DO FORM Input WITH 輸入書(shū)號(hào) ,AA9999 TO BookNO amp。amp。調(diào)用輸入表單 SET EXACT ON amp。amp。改為精確比較 IF BookNO amp。amp。表示有輸入圖書(shū)編號(hào) SELECT Book LOCATE FOR 圖書(shū)編號(hào) =BookNO IF NOT FOUND() amp。amp。表示找不到時(shí) MESSAGEBOX(無(wú)此書(shū)號(hào) ,48,信息窗口 ) SELECT Student GO amp。amp。回到原記錄 ELSE IF 是否借出 =.T. MESSAGEBOX(書(shū)已借出 ,48,信息窗口 ) SELECT Student GO amp。amp?；氐皆涗? ELSE SELECT JyRec COUNT FOR 學(xué)號(hào) =ALLTRIM( .VALUE) AND EMPTY(歸還日期 ) TO YjNO IF YjNO=7 MESSAGEBOX(可借書(shū)數(shù)據(jù)目己滿(mǎn) ,48,信息窗口 ) SELECT Student GO amp。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。amp。回到原記錄 ENDIF ENDIF ENDIF ENDIF () amp。amp。重新顯示表單上各對(duì)象的數(shù)據(jù) SET EXACT OFF amp。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ū)記錄”表單。 “借還書(shū)”（ Cmdjh）按扭的 Click 事件代碼如下： StudentNO=ALLTRIM（ 學(xué)號(hào) .VALUE） DO FORM JyRec 3． 4“書(shū)籍資料”模塊 3． 4． 1 .添加“書(shū)籍信息” 在“書(shū)籍信息”（ BookPage）頁(yè)面被激 活時(shí)，表單中的當(dāng)前數(shù)據(jù)工作期應(yīng)該變?yōu)椤皥D書(shū)信息”數(shù)據(jù)表所在的工作期，將可能由其他表單對(duì)該數(shù)據(jù)表設(shè)置的過(guò)濾條件去掉，同時(shí)要使該頁(yè)面進(jìn)入瀏覽狀態(tài)。 添加該頁(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)買(mǎi)日期，在該頁(yè)面處于非瀏覽狀態(tài)時(shí)單擊“?！卑磁ぜ纯烧{(diào)用該軟件。 添加“?！保?Cmdrp）按扭的 Click 事件代碼如下： =.T. 如果要從“ SjOleRq”控件中獲得日期值還需要添加“ SjOleRq”的“ DateClick”事件代碼如下： *** ActiveX 控件事件 *** LPARAMETERS dateclicked 購(gòu)買(mǎi)日期 .VALUE=dateclicked 購(gòu)買(mǎi)日期 .REFRESH() =.F. 添加“ SjOleRq”的“ MouseDown 事件代碼如下： *** ActiveX 控件事件 *** LPARAMETERS button, shift, x, y IF button=2 =.F. ENDIF 3． 4． 2 增加書(shū)籍 “增加”（ Cmdadd）按扭的 Click 事件代碼如下： SELECT Book =RECNO() GO BOTTOM APPEND BLANK =cadd () 圖書(shū)編號(hào) .READONLY=.F. () 圖 增加書(shū)籍資料 3． 4． 3 修改書(shū)籍 “修改”（ Cmdmod）按扭的 Click 事件代碼如下： =RECNO() =cmod () () 3． 4． 4 刪除書(shū)籍 “刪除”（ Cmddel）事件代碼如下： YN=MESSAGEBOX(確 定刪除 ,4+32,圖書(shū)借閱管理系統(tǒng) ) amp。amp。確認(rèn)對(duì)話(huà)框 IF YN=6 amp。amp。如果確認(rèn) =RECNO() amp。amp。保存記錄號(hào) IF =借出中 amp。amp。如果該圖書(shū)不在庫(kù)中 MESSAGEBOX(該圖書(shū)尚未歸還 ,48,圖書(shū)借閱管理系統(tǒng) )amp。amp。不能刪除 ELSE amp。amp。如果在庫(kù)中 SELECT JyRec amp。amp。對(duì)圖書(shū)借閱記錄表進(jìn)行修改 SET EXACT ON amp。amp。精確比較 GO TOP amp。amp。到數(shù)據(jù)表的頂部 DO WHILE NOT EOF() amp。amp。刪除所有與要?jiǎng)h除的圖書(shū)有關(guān)的記錄 IF 圖書(shū)編號(hào) =ALLTRIM( 圖書(shū)編號(hào) .VALUE) DELETE PACK ENDIF SKIP ENDDO SELECT Book amp。amp。刪除圖書(shū)記錄 GO DELETE PACK MESSAGEBOX(刪除成功 ,64,圖書(shū)借閱管理系統(tǒng) )amp。amp?！皠h除成功”對(duì)話(huà)框 SET EXACT OFF () ENDIF ENDIF 圖 刪除圖書(shū)資料 3． 4． 5 查詢(xún)書(shū)籍 “查詢(xún)”按扭（ Cmdser）的 Click 事件代碼如下： DO FORM BookSer 圖 查詢(xún)圖書(shū) 圖 查詢(xún)結(jié)果 3． 4． 6 書(shū)籍的保存 “保存”（ Cmdsave）按扭的 Click 事件代碼如下： LOCAL OK OK=.T. DO C