【正文】 資料”頁(yè)框中可以通過(guò)“移動(dòng)記錄工具欄”分條查看系統(tǒng)內(nèi)所有的圖書的詳細(xì)資料，包括圖書的名稱、類別、作者、出版社、購(gòu)買日期等。單擊“命令按鈕工具欄”中的按鈕可以對(duì)“學(xué)生資料”頁(yè)框中的記錄進(jìn)行相應(yīng)的操作。“讀者借書記錄”表單中單擊“還書”按鈕 , 在打開(kāi)的“輸入”表單中輸入要?dú)w還的圖書的圖書編號(hào) ,如果該圖書是被當(dāng)前讀者借出 ,則還書成功。3 詳細(xì)設(shè)計(jì) 設(shè)計(jì)創(chuàng)建數(shù)據(jù)庫(kù) 設(shè)計(jì)數(shù)據(jù)庫(kù)本系統(tǒng)實(shí)現(xiàn)了系統(tǒng)登錄功能 , 而系統(tǒng)登錄需要賬號(hào)和密碼 , 這就需要 創(chuàng)建一個(gè)“系統(tǒng)帳號(hào)”(Accounts) 數(shù)據(jù)表 , 用來(lái)存儲(chǔ)系統(tǒng)登錄用的賬號(hào)和密碼。 創(chuàng)建數(shù)據(jù)庫(kù)“圖書借閱管理系統(tǒng)”作為一個(gè)完整的數(shù)據(jù)庫(kù)管理系統(tǒng) , 在創(chuàng)建階段利用項(xiàng)目管理器可以更好組織管理各種格式的文件 , 因此首先需要?jiǎng)?chuàng)建一個(gè)項(xiàng)目 , 然后在項(xiàng)目管理器創(chuàng)建其他格式的文件。本系統(tǒng)中要用到的數(shù)據(jù)表的字段的屬性設(shè)置分別設(shè)置如下。　“學(xué)生信息”（Student）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說(shuō)明學(xué)號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“999999”姓名字符型字段寬度20性別字符型字段寬度2系別字符型字段寬度4，為普通索引班級(jí)字符型字段寬度10電話字符型字段寬度12，輸入掩碼為“9999999999”郵件字符型字段寬度30地址字符型字段寬度30“系別信息”（Xibie）　“系別信息”（Xibie）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說(shuō)明系別號(hào)字符型字段寬度4，主索引字段，輸入掩碼為“9999”名稱字符型字段寬度20“圖書信息”（Book）　“圖書信息”（Tushu）數(shù)據(jù)表字段屬性設(shè)置字段名數(shù)據(jù)類型說(shuō)明圖書編號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“AA9999”圖書類別字符型字段寬度10圖書名稱字符型字段寬度40圖書作者字符型字段寬度20出版社字符型字段寬度40購(gòu)買日期日期型字段寬度8購(gòu)買價(jià)格貨幣型字段寬度8借閱次數(shù)數(shù)值型字段寬度4，默認(rèn)值0是否借出邏輯型字段寬度1，默認(rèn)值“.F.”對(duì)“圖書信息”（Book）數(shù)據(jù)表的字段屬性設(shè)置需要說(shuō)明的是“借閱次數(shù)”和“是否借出”字段的默認(rèn)值一定要設(shè)置，因?yàn)閷?duì)于新添加的圖書，其一定是沒(méi)有被借出的，而且其借閱次數(shù)一定是0，所以在表單中向數(shù)據(jù)表添加記錄時(shí)，這兩個(gè)字段應(yīng)該是不需要添加的，可以由默認(rèn)值生成。將一個(gè)文件設(shè)為項(xiàng)目主文件的方法是在項(xiàng)目管理器中選中該文件 , 然后在右鍵快捷菜單中選擇“設(shè)為主文件”子菜單或者選擇“項(xiàng)目”菜單下“設(shè)為主文件”子菜單即可。amp。amp。 創(chuàng)建“移動(dòng)記錄工具欄”類“移動(dòng)記錄工具欄”類基于“CommandGroup”基類，存儲(chǔ)于“AdminButton”可視類庫(kù)中，命名為“MoveRecord”?！懊畎粹o工具欄”類中包含“增加”（CmdAdd）、“修改”（Cmdmod）、“刪除”（Cmddel）、“查詢”（CmdSer）、“打印”（Cmdpri）、“保存”（CmdSave）、“取消”（CmdCancel）和“退出”（CmdExit）8個(gè)按鈕。 創(chuàng)建系統(tǒng)主表單系統(tǒng)主表單由兩個(gè)選項(xiàng)卡組成，下面分別介紹這兩個(gè)選項(xiàng)卡的創(chuàng)建。創(chuàng)建好的表單效果中有兩個(gè)頁(yè)框，其中“學(xué)生資料”頁(yè)面效果如右圖所示。設(shè)置“學(xué)生資料”（StuPage）。設(shè)置“書籍資料”(BookPage)。添加4個(gè)表單的方法屬性“StuModeBrse”、“StuModeMody”、“BookModeBrse”和“BookModeMody”，分別用來(lái)使“學(xué)生信息”（StuPage）和“書籍信息”（BookPage）頁(yè)面進(jìn)入瀏覽和非瀏覽狀態(tài)。“StuModeMody”方法屬性的代碼如下：*以下代碼使“移動(dòng)記錄工具欄”不可用=.F.*以下代碼控制“命令按鈕工具欄”中按鈕的可用狀態(tài)=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.F.*以下代碼用來(lái)控制“學(xué)生信息”頁(yè)面與數(shù)據(jù)綁定的控件狀態(tài)=.T.=.F.=.T.=.F.=.F.=.F.=.F.*以下代碼用來(lái)控制“借還書”按按鈕的可用狀態(tài)=.F.*以下代碼用來(lái)控制表單中頁(yè)面的可用狀態(tài)=.F.=.T.“BookModeBrse”方法屬性用來(lái)使“書籍信息”（BookPage）頁(yè)面進(jìn)入瀏覽狀態(tài)。添加表單的Init事件代碼如下： PUBLIC StudentNO,StuTj,BookTj,DbName這幾個(gè)全局變量的作用分別如下：“StudentNO”是當(dāng)系統(tǒng)主表單調(diào)用“讀者借書記錄”表單時(shí)，向該表單傳遞系統(tǒng)主表單的“學(xué)生信息”頁(yè)面中記錄的學(xué)號(hào)值，以便讓“讀者借書記錄”表單顯示該學(xué)號(hào)的資料。添加“學(xué)生信息”頁(yè)面的Activate事件代碼如下：“學(xué)生信息”頁(yè)面中的“系別”組合框中選擇某一個(gè)系編號(hào)后，要在“名稱”欄顯示系統(tǒng)編號(hào)所代碼的系別名稱，由于在數(shù)據(jù)環(huán)境中將兩者做了關(guān)連，所以在選擇了某個(gè)系編號(hào)后只需要刷新表單即可?！靶薷摹保–mdmod）按鈕的Click事件代碼如下： =cmod=RECNO()()() “命令按鈕工具欄”中“刪除”（Cmddel）按鈕的作用首先彈出確認(rèn)對(duì)話框，如果確認(rèn)則進(jìn)行刪除操作。確認(rèn)對(duì)話框IF YN=6 amp。保存記錄指針位置 SET EXACT ON amp。查找是否有未還圖書 IF FOUND() amp。彈出對(duì)話框 SELECT Student amp。如果沒(méi)有未還書 SELECT JyRec amp。到數(shù)據(jù)表頂部 DO WHILE NOT EOF() amp。在“學(xué)生信息”數(shù)據(jù)表中刪除記錄 DELETE PACK MESSAGEBOX(刪除成功,64,圖書管理系統(tǒng)) amp。amp。amp。amp。amp。amp。amp。amp。“退出”（Cmdexti）按鈕的Click事件代碼如下YN=MESSAGEBOX(確定退出,4+32,圖書管理系統(tǒng))IF YN=6 () CLEAR EVENTS QUITENDIF “學(xué)生信息”頁(yè)面中“借還書”（Cmdjh）按鈕的作用是將頁(yè)面中當(dāng)前記錄的“學(xué)號(hào)”值賦給全局變量“StudentNO”，并調(diào)用“讀者借書記錄”表單?！疤砑印保–mdadd）按鈕的Click事件代碼如下： SELECT Book=RECNO()GO BOTTOMAPPEND BLANK=cadd()=.F.() “命令按鈕工具欄”中“刪除”（Cmdadd）按鈕的作用是彈出確認(rèn)對(duì)話框，如果確認(rèn)，則檢查要?jiǎng)h除的圖書是否在庫(kù)中，如查不在則彈出出錯(cuò)對(duì)話框，如果在庫(kù)中則首先刪除“讀者借書記錄”（Jyrec）數(shù)據(jù)表中的與要?jiǎng)h除的圖書有關(guān)的所有記錄，再刪除該圖書記錄，刪除成功后彈出“刪除成功”對(duì)話框。amp。amp。amp。amp。amp。amp。如果圖書編號(hào)為空 MESSAGEBOX(圖書編號(hào)不能為空,48,圖書管理系統(tǒng)) () OK=.F. CASE EMPTY(ALLTRIM()) amp。如果圖書類別為空 MESSAGEBOX(圖書類別不能為空,48,圖書管理系統(tǒng)) () OK=.F. CASE EMPTY(ALLTRIM()) amp。如果購(gòu)買日期為空 MESSAGEBOX(購(gòu)買日期不能為空,48,圖書管理系統(tǒng)) () OK=.F. CASE EMPTY(ALLTRIM()) amp。如果購(gòu)買價(jià)格小于或者為0 MESSAGEBOX(購(gòu)買價(jià)格錯(cuò)誤,48,圖書管理系統(tǒng)) () OK=.F.ENDCASEIF OK=.T. amp。確認(rèn)對(duì)話框 IF YN=6 amp。試圖保存 IF SaveOk=.T. amp。如果保存失敗 MESSAGEBOX(圖書編號(hào)錯(cuò)誤,48,圖書管理系統(tǒng)) () ENDIF ENDIFENDIF “命令按鈕工具欄”中“取消”（CmdCancel）按鈕的作用是將表單的數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)刪除并使表單回到瀏覽狀態(tài)。 創(chuàng)建“學(xué)生信息”頁(yè)面查詢功能“學(xué)生信息”（StuPage）頁(yè)面的查詢功能由“輸入查詢條件”和“學(xué)生信息查詢結(jié)果”表單組成。創(chuàng)建好的“輸入查詢條件”表單效果如右圖所示。amp。amp。amp。amp。在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“學(xué)生信息查詢結(jié)果”表單，命名為StuSerout。其中表格控件可以用“表格生成器”來(lái)創(chuàng)建，利用表格生成器創(chuàng)建完畢后將“系別”列的數(shù)據(jù)源更改為“”。StuTJ TO nNumberIF nNumber=0 =.F.ENDIF表單中的“打印”（Cmdpri）按鈕的作用是將查詢結(jié)果以報(bào)表的形式輸出，并以瀏覽的方式查看打印結(jié)果。（1） 創(chuàng)建“輸入查詢條件”表單此“輸入查詢條件”表單也是用來(lái)向用戶收集查詢條件。表單的功能主要由“查詢”（CmdSer）按鈕完成，當(dāng)在表單中單擊“查詢”（CmdSer）按鈕時(shí)，該按鈕將檢查表單中文本框中數(shù)據(jù)存在情況，如果某個(gè)文本框中存在數(shù)據(jù)則將該數(shù)據(jù)作為1個(gè)查詢條件，如果多個(gè)文本框中都有數(shù)據(jù)則形成1個(gè)聯(lián)合查詢條件，這個(gè)聯(lián)合查詢條件將各個(gè)查詢條件用“AND”連接起來(lái)進(jìn)行查詢。+ALLTRIM()+39。+ALLTRIM()+39。+ALLTRIM()+39。+ALLTRIM()+39。在表單中添加1個(gè)標(biāo)簽控件、2個(gè)按鈕控件和1個(gè)表格控件。添加“打印”按鈕的Click事件代碼如下：REPORT FORM BookInfo FOR amp。在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“選擇打印類型”表單，命名為“PrintLX”，創(chuàng)建好的表單效果如右圖所示。 創(chuàng)建“讀者借書記錄”模塊“讀者借書記錄”模塊由1個(gè)主表單——“讀者借書記錄”表單和3個(gè)輔助表單——“輸入”表單、“過(guò)期圖書”表單和“圖書借閱排行榜”表單組成。 單擊“還書”按鈕 ,可以調(diào)用“輸入”表單用來(lái)輸入要?dú)w還的圖書編號(hào)，如果該圖書由當(dāng)前讀者借出,則還書成功，否則失敗。 單擊“打印”按鈕可以將表單中的表格控件中數(shù)據(jù)打印出來(lái) , 并且以預(yù)覽的方式查看打印結(jié)果。從數(shù)據(jù)環(huán)境中將“顯示信息”（Student）數(shù)據(jù)表的“學(xué)號(hào)”和“姓名”字段、“系別信息”（Xibie）數(shù)據(jù)表的“名稱”字段拖放到表單中。在某種意義上來(lái)說(shuō)，“表格生成器”在此只是充當(dāng)了一種設(shè)計(jì)外觀的作用。但是要注意的是，在表格控件中增加了列并設(shè)定好表格控件的數(shù)據(jù)源屬性后再利用“表格生成器”可能會(huì)造成某些列ControlSource屬性變化，所以在應(yīng)用某一種風(fēng)格后，需要再檢查每一列的ControlSource屬性。表12　“輸入查詢條件”（StuSer）表單控件屬性設(shè)置控件屬性屬性取值標(biāo)簽控件AutoSize.T.BackStyle0透明FontBold.T.FontName楷體GB_2312WordWarp.F.文本框控件FontSize12Hight25Width240按鈕控件FontBold.T.FontSize16FontName楷體GB_2312Hight35Width70控件屬性屬性取值Txt學(xué)號(hào)ControlSouceReadOnly.T.Txt名稱ControlSouceReadOnly.T.Txt姓名ControlSouceReadOnly.T.CmdgrpButtonCount6Height45Width430CmdjsCaption借書ToolTipText借書操作ComdhsCaption還書ToolTipText還書操作CmdgqCaption過(guò)期ToolTipText查看過(guò)期未還圖書CmdphCaption排行ToolTipText查看借書排行榜CmdpriCaption打印ToolTipText打印借書記錄CmdtcCaption退出ToolTipText退出當(dāng)前表單OptgrpAutoSize.F.BackStyle0透明ButtonCount2Option1Caption已借出Option2Caption借書記錄 添加主表單代碼向表單中添加一個(gè)表單屬性O(shè)ldRecord來(lái)保存數(shù)據(jù)表的記錄指針的位置，并將其初始值設(shè)置為0。表單中的“txt學(xué)號(hào)”文本框后面的“...”按鈕是用來(lái)調(diào)用“輸入”表單來(lái)向主表單中更新表單中顯示的讀者的數(shù)據(jù)。amp。amp。amp。amp