【正文】 ”文本框中輸入數(shù)據(jù)庫的名稱 , 在此輸入“Tushu”作為數(shù)據(jù)庫名 , 單擊“保存“按鈕即創(chuàng)建了一個(gè)空的數(shù)據(jù)庫。本系統(tǒng)中要用到的數(shù)據(jù)表的字段的屬性設(shè)置分別設(shè)置如下?！　跋到y(tǒng)帳號(hào)”（Accounts）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說明帳號(hào)字符型字段寬度20，主索引字段，不能為空密碼字符型字段寬度20姓名字符型字段寬度20創(chuàng)建“系統(tǒng)賬號(hào)”(Accounts) 數(shù)據(jù)表后向數(shù)據(jù)庫中添加一條記錄作為系統(tǒng)的默認(rèn)帳號(hào)，該記錄的各字段的值如下 :“pjs”,“pjs”,“平晉昇”?！　皩W(xué)生信息”（Student）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說明學(xué)號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“999999”姓名字符型字段寬度20性別字符型字段寬度2系別字符型字段寬度4，為普通索引班級(jí)字符型字段寬度10電話字符型字段寬度12，輸入掩碼為“9999999999”郵件字符型字段寬度30地址字符型字段寬度30“系別信息”（Xibie）　“系別信息”（Xibie）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說明系別號(hào)字符型字段寬度4，主索引字段，輸入掩碼為“9999”名稱字符型字段寬度20“圖書信息”（Book）　“圖書信息”（Tushu）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說明圖書編號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“AA9999”圖書類別字符型字段寬度10圖書名稱字符型字段寬度40圖書作者字符型字段寬度20出版社字符型字段寬度40購買日期日期型字段寬度8購買價(jià)格貨幣型字段寬度8借閱次數(shù)數(shù)值型字段寬度4，默認(rèn)值0是否借出邏輯型字段寬度1，默認(rèn)值“.F.”對“圖書信息”（Book）數(shù)據(jù)表的字段屬性設(shè)置需要說明的是“借閱次數(shù)”和“是否借出”字段的默認(rèn)值一定要設(shè)置，因?yàn)閷τ谛绿砑拥膱D書，其一定是沒有被借出的，而且其借閱次數(shù)一定是0，所以在表單中向數(shù)據(jù)表添加記錄時(shí)，這兩個(gè)字段應(yīng)該是不需要添加的，可以由默認(rèn)值生成?！　白x者借書記錄”（JyRec）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說明學(xué)號(hào)字符型字段寬度6，普通索引字段，輸入掩碼為“999999”圖書編號(hào)字符型字段寬度6，普通索引字段，輸入掩碼為“AA9999”借閱日期日期型字段寬度8歸還日期日期型字段寬度8數(shù)據(jù)表之間的關(guān)系，將在具體表單的數(shù)據(jù)環(huán)境中設(shè)置。將一個(gè)文件設(shè)為項(xiàng)目主文件的方法是在項(xiàng)目管理器中選中該文件 , 然后在右鍵快捷菜單中選擇“設(shè)為主文件”子菜單或者選擇“項(xiàng)目”菜單下“設(shè)為主文件”子菜單即可。amp。amp。amp。amp。amp。 創(chuàng)建“移動(dòng)記錄工具欄”類“移動(dòng)記錄工具欄”類基于“CommandGroup”基類，存儲(chǔ)于“AdminButton”可視類庫中，命名為“MoveRecord”。創(chuàng)建好的 移動(dòng)記錄工具欄 類效果如下圖所示?！懊畎粹o工具欄”類中包含“增加”（CmdAdd）、“修改”（Cmdmod）、“刪除”（Cmddel）、“查詢”（CmdSer）、“打印”（Cmdpri）、“保存”（CmdSave）、“取消”（CmdCancel）和“退出”（CmdExit）8個(gè)按鈕。設(shè)置“命令按鈕工具欄”。 創(chuàng)建系統(tǒng)主表單系統(tǒng)主表單由兩個(gè)選項(xiàng)卡組成，下面分別介紹這兩個(gè)選項(xiàng)卡的創(chuàng)建。同時(shí) ,系統(tǒng)主表單還將用來調(diào)用系統(tǒng)的借還書模塊。創(chuàng)建好的表單效果中有兩個(gè)頁框，其中“學(xué)生資料”頁面效果如右圖所示。將“學(xué)生信息”（Student）數(shù)據(jù)表、“系別信息”（Xibie）數(shù)據(jù)表、“圖書信息”（Book）數(shù)據(jù)表、“讀者借書記錄”（JyRec）數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，用“系別信息”（Xibie）數(shù)據(jù)表的“系別號(hào)”字段和“學(xué)生信息”（Student）數(shù)據(jù)表的“系別”索引建立關(guān)聯(lián)。將“移動(dòng)記錄工具欄”（MoveRecord）和“命令按鈕工具欄”（CmdButGrp）類在“學(xué)生資料”（StuPage）頁面中實(shí)例化，并命名為“StuAbg”和“StuMr”。設(shè)置“學(xué)生資料”（StuPage）。將“移動(dòng)記錄工具欄”類和“命令按鈕工具欄”類在“書籍資料”(BookPage)頁面中實(shí)例化 ,并重新命名為“BookMr”和“BookAbg”。設(shè)置“書籍資料”(BookPage)。 添加表單中的代碼 需要在系統(tǒng)主表單中添加4個(gè)屬性“StuFM”、“StuOR”、“BookFM”和“BookOR”，分別用來識(shí)別表單中“學(xué)生信息”（StuPage）頁面的狀態(tài)，頁面中的數(shù)據(jù)記錄的指針的位置，“書籍信息”（BookPage）頁面的狀態(tài)和頁面中數(shù)據(jù)記錄指針的位置。添加4個(gè)表單的方法屬性“StuModeBrse”、“StuModeMody”、“BookModeBrse”和“BookModeMody”，分別用來使“學(xué)生信息”（StuPage）和“書籍信息”（BookPage）頁面進(jìn)入瀏覽和非瀏覽狀態(tài)?！皩W(xué)生信息”（StuPage）頁面的瀏覽狀態(tài)是指頁面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處于不可編輯狀態(tài)，“移動(dòng)記錄工具欄”處于可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外都處于可用狀態(tài)，“借還書”按鈕處于可用狀態(tài)?！癝tuModeMody”方法屬性的代碼如下：*以下代碼使“移動(dòng)記錄工具欄”不可用=.F.*以下代碼控制“命令按鈕工具欄”中按鈕的可用狀態(tài)=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.F.*以下代碼用來控制“學(xué)生信息”頁面與數(shù)據(jù)綁定的控件狀態(tài)=.T.=.F.=.T.=.F.=.F.=.F.=.F.*以下代碼用來控制“借還書”按按鈕的可用狀態(tài)=.F.*以下代碼用來控制表單中頁面的可用狀態(tài)=.F.=.T.“BookModeBrse”方法屬性用來使“書籍信息”（BookPage）頁面進(jìn)入瀏覽狀態(tài)。“BookModeBrse”方法屬性的代碼： *以下代碼使“移動(dòng)記錄工具欄”可用=.T.*以下代碼使“...”按鈕不可用=.F.*以下代碼控制“命令按鈕工具欄”中按鈕的狀態(tài)=.T.=.T.=.T.=.T.=.T.=.F.=.F.=.T.*以下代碼控制頁面中與數(shù)綁定的控件中數(shù)據(jù)的可編輯狀態(tài)=.T.=.T.=.T.=.T.=.T.=.T.=.T.*以下代碼用來控制表單中頁面的可用狀態(tài)=.T.=.T.“BookModeMody”方法屬性用來使“書籍信息”（BookPage）頁面進(jìn)入非瀏覽狀態(tài)，“書籍信息”（BookPage）頁的非瀏覽狀態(tài)是指頁面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處于可修改狀態(tài)，“移動(dòng)記錄工具欄”處于不可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外其他按鈕都處于不可用狀態(tài)，“購買日期”欄后的“...”按鈕處于可用狀態(tài)，“學(xué)生信息”頁面處于不可用狀態(tài)。添加表單的Init事件代碼如下： PUBLIC StudentNO,StuTj,BookTj,DbName這幾個(gè)全局變量的作用分別如下：“StudentNO”是當(dāng)系統(tǒng)主表單調(diào)用“讀者借書記錄”表單時(shí)，向該表單傳遞系統(tǒng)主表單的“學(xué)生信息”頁面中記錄的學(xué)號(hào)值，以便讓“讀者借書記錄”表單顯示該學(xué)號(hào)的資料?！癉bName”用在“學(xué)生信息”和“書籍信息”兩個(gè)頁面共用一個(gè)“選擇打印類型”表單時(shí)，用于區(qū)分該全局變量是應(yīng)該打印那一張報(bào)表。添加“學(xué)生信息”頁面的Activate事件代碼如下：“學(xué)生信息”頁面中的“系別”組合框中選擇某一個(gè)系編號(hào)后，要在“名稱”欄顯示系統(tǒng)編號(hào)所代碼的系別名稱，由于在數(shù)據(jù)環(huán)境中將兩者做了關(guān)連，所以在選擇了某個(gè)系編號(hào)后只需要刷新表單即可。“命令按鈕工具欄”中“增加”（Cmdadd）按鈕的作用是先保存頁中當(dāng)前的記錄號(hào)，標(biāo)記表單的狀態(tài)為新增狀態(tài)，然后在表單的數(shù)據(jù)緩沖區(qū)新建一條記錄，并且使當(dāng)前頁面進(jìn)入非瀏覽狀態(tài)。“修改”（Cmdmod）按鈕的Click事件代碼如下： =cmod=RECNO()()() “命令按鈕工具欄”中“刪除”（Cmddel）按鈕的作用首先彈出確認(rèn)對話框，如果確認(rèn)則進(jìn)行刪除操作?！皠h除”（Cmddel）按鈕的Click事件代碼如下： YN=MESSAGEBOX(確定刪除,4+32,圖書管理系統(tǒng)) amp。確認(rèn)對話框IF YN=6 amp。如果確認(rèn) =RECNO() amp。保存記錄指針位置 SET EXACT ON amp。嚴(yán)格比較 SELECT JyRec LOCATE FOR 學(xué)號(hào)=ALLTRIM() AND EMPTY(歸還日期) amp。查找是否有未還圖書 IF FOUND() amp。如果有 MESSAGEBOX(該學(xué)生有未還書，不能刪除,48,圖書管理系統(tǒng)) amp。彈出對話框 SELECT Student amp?；氐皆涗? SET FILTER TO GO ELSE amp。如果沒有未還書 SELECT JyRec amp。選擇“讀者借閱記錄”所在的工作區(qū) GO TOP amp。到數(shù)據(jù)表頂部 DO WHILE NOT EOF() amp。刪除與要?jiǎng)h除的學(xué)生有關(guān)的借閱記錄 IF 學(xué)號(hào)=ALLTRIM() DELETE PACK ENDIF SKIP ENDDO SELECT Student amp。在“學(xué)生信息”數(shù)據(jù)表中刪除記錄 DELETE PACK MESSAGEBOX(刪除成功,64,圖書管理系統(tǒng)) amp?！皠h除成功”對話框 SELECT Student GO TOP ENDIF () SET EXACT OFFENDIF “命令按鈕工具欄”中“查詢”（CmdSer）按鈕的作用是調(diào)用“輸入查詢條件”表單，其Click事件代碼如下：DO FORM StuSer“命令按鈕工具欄”中“保存”（CmdSave）按鈕的作用是檢查表單中各數(shù)據(jù)欄中數(shù)據(jù)的輸入完整情況，如果無誤，則保存記錄。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp?！叭∠保–mdCancel）按鈕的Click事件代碼如下： YN=MESSAGEBOX(確定取消,4+32,系統(tǒng)消息)IF YN=6 TABLEREVERT(.F.) IF =cadd GO ENDIF () =.T. ()ENDIF“命令按鈕工具欄”中“打印”（Cmdpri）按鈕的作用是將“DbfName”全局變量賦值，表明要進(jìn)行打印的是“學(xué)生信息”數(shù)據(jù)表，并調(diào)用“選擇打印類型”表單?！巴顺觥保–mdexti）按鈕的Click事件代碼如下YN=MESSAGEBOX(確定退出,4+32,圖書管理系統(tǒng))IF YN=6 () CLEAR EVENTS QUITENDIF “學(xué)生信息”頁面中“借還書”（Cmdjh）按鈕的作用是將頁面中當(dāng)前記錄的“學(xué)號(hào)”值賦給全局變量“StudentNO”，并調(diào)用“讀者借書記錄”表單。添加該頁面的“Activate”事件代碼由于該頁面要在刷新表單時(shí)，顯示表單中當(dāng)前記錄的書籍是否借出，故添加該頁面的Refresh事件代碼在“書籍信息”（BookPage）頁面在通過添加的MonthView控件（SjOleRq）來輸入圖書的購買日期，在該頁面處于非瀏覽狀態(tài)時(shí)單擊“...”按鈕即可調(diào)用該控件。“添加”（Cmdadd）按鈕的Click事件代碼如下： SELECT Book=RECNO()GO BOTTOMAPPEND BLANK=cadd()=.F.() “命令按鈕工具欄”中“刪除”（Cmdadd）按鈕的作用是彈出確認(rèn)對話框，如果確認(rèn)，則檢查要?jiǎng)h除的圖書是否在庫中，如查不在則彈出出錯(cuò)對話框，如果在庫中則首先刪除“讀者借書記錄”（Jyrec）數(shù)據(jù)表中的與要?jiǎng)h除的圖書有關(guān)的所有記錄，再刪除該圖書記錄，刪除成功后彈出“刪除成功”對話框。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp?！氨４妗保–mdSave）按鈕的Click事件代碼如下： LOCAL OKOK=.T.DO CASE CASE EMPTY(ALLTRIM()) amp。如果圖書編號(hào)為空 MESSAGEBOX(圖書編號(hào)不能為空,48,圖書管理系統(tǒng))