畢業(yè)設(shè)計(jì)——圖書管理系統(tǒng)-資料下載頁

　　

【正文】 能由“輸入查詢條件”表單和“圖書信息查詢結(jié)果”表單組成。（1） 創(chuàng)建“輸入查詢條件”表單此“輸入查詢條件”表單也是用來向用戶收集查詢條件。在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“輸入查詢條件”表單，命名為“BookSer”，創(chuàng)建好的表單效果如右圖所示。向表單中添加4個(gè)標(biāo)簽控件、4個(gè)文本框控件和兩個(gè)按鈕控件。表單的屬性以及控件的屬性與“學(xué)生信息”頁面的查詢模塊中的“輸入查詢條件”表單基本相同，這里不再重復(fù)介紹。表單的功能主要由“查詢”（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”連接起來進(jìn)行查詢。“查詢”（CmdSer）按鈕的Click事件代碼如下： BookTJ=.T.IF NOT EMPTY(ALLTRIM()) amp。amp。如果圖書編號欄非空 BookTJ=BookTJ+AND 圖書編號=39。+ALLTRIM()+39。ENDIFIF NOT EMPTY(ALLTRIM()) amp。amp。如果圖書名稱欄非空 BookTJ=BookTJ+AND 圖書名稱=39。+ALLTRIM()+39。ENDIFIF NOT EMPTY(ALLTRIM()) amp。amp。如果圖書作者欄非空 BookTJ=BookTJ+AND 圖書作者=39。+ALLTRIM()+39。ENDIFIF NOT EMPTY(ALLTRIM()) amp。amp。如果出版社欄非空 BookTJ=BookTJ+AND 圖書作者=39。+ALLTRIM()+39。ENDIF()DO FORM BookSerout “退出”（Cmdext）按鈕的作用是退出當(dāng)前表單，其Click事件代碼如下：()（2） 創(chuàng)建“圖書信息查詢結(jié)果”表單“圖書信息查詢結(jié)果”表單用來顯示“圖書信息”數(shù)據(jù)表中符合查詢條件的記錄。在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“圖書信息查詢結(jié)果”表單，命名為BookSerout。創(chuàng)建好的表單效果如右圖所示。在表單中添加1個(gè)標(biāo)簽控件、2個(gè)按鈕控件和1個(gè)表格控件。表格控件可以使用“表格控件生成器”采用可視化的方法生成一個(gè)表格控件。要使表單中的表格控件中只顯示符合查詢條件的記錄，需要對表單的數(shù)據(jù)環(huán)境進(jìn)行設(shè)置，并且如果符合查詢條件的記錄數(shù)如果為0則“打印”按鈕不可用。表單中“打印”按鈕的作用是將表單中查詢結(jié)果以報(bào)表的形式輸出，并且以瀏覽的方式查看打印結(jié)果。添加“打印”按鈕的Click事件代碼如下：REPORT FORM BookInfo FOR amp。BookTJ PREVIEW表單中“退出”按鈕的作用是彈出確認(rèn)對話框，如果確認(rèn)則退出當(dāng)前表單并且將在表單初始化時(shí)設(shè)置的過慮條件取消。“退出”按鈕Click事件代碼如下： YN=MESSAGEBOX(確定退出,4+32,考勤系統(tǒng)信息)IF YN=6 SELECT BOOK SET FILTER TO ()ENDIF 創(chuàng)建“選擇打印類型”表單“選擇打印類型”表單用在當(dāng)在系統(tǒng)主表單中單擊“打印”按鈕時(shí)。彈出來供用戶選擇是打印全部記錄還是只打印當(dāng)前記錄，用戶選擇后單擊“打印”按鈕可以用預(yù)覽的方式查看打印結(jié)果。在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“選擇打印類型”表單，命名為“PrintLX”，創(chuàng)建好的表單效果如右圖所示。該表單比較簡單，僅由1個(gè)選項(xiàng)按鈕控件和2個(gè)按鈕控件組成。表單中“打印”（Cmdpri）按鈕的作用是根據(jù)全局變量“DbfName”傳遞的數(shù)據(jù)和表單中選項(xiàng)按鈕組的值進(jìn)行報(bào)表打印。添加“打印”（Cmdpri）按鈕的Click事件代碼如下： IF DbfName=StuDbf IF =1 REPORT FORM StuInfo FOR 學(xué)號=StuNO PREVIEW ELSE REPORT FORM StuInfo PREVIEW ENDIFELSE IF =1 REPORT FORM BookInfo FOR 圖書編號=BookNO PREVIEW ELSE REPORT FORM BookInfo PREVIEW ENDIFENDIF() “退出”（CmdExt）按鈕的作用是退出當(dāng)前表單，其Click事件代碼如下：()至此，系統(tǒng)主表單已經(jīng)創(chuàng)建完成。 創(chuàng)建“讀者借書記錄”模塊“讀者借書記錄”模塊由1個(gè)主表單——“讀者借書記錄”表單和3個(gè)輔助表單——“輸入”表單、“過期圖書”表單和“圖書借閱排行榜”表單組成。 主表單的功能“讀者借書記錄”表單首先用來顯示讀者借書的情況，可以顯示讀者當(dāng)前已經(jīng)借出并且尚未歸還的圖書的記錄，還可以顯示讀者所有的借書記錄。單擊“學(xué)號”后面的“...”按鈕可以調(diào)用“輸入”表單輸入學(xué)號來改變表單中顯示的讀者。單擊“借書”按鈕,可以調(diào)用“輸入”表單用來輸入要借的圖書編號,如果該圖書在庫中 , 而且當(dāng)前讀者所借的圖書的數(shù)目沒有到達(dá)規(guī)定的數(shù)目（這里設(shè)定為7本）,則借書成功，否則借書失敗。 單擊“還書”按鈕 ,可以調(diào)用“輸入”表單用來輸入要?dú)w還的圖書編號，如果該圖書由當(dāng)前讀者借出,則還書成功，否則失敗。另外，當(dāng)表單中的表格控件中顯示的是當(dāng)前讀者的“已借出”圖書記錄時(shí)，可以通過雙擊列表中的某本書的“圖書編號”欄來快速還書。 單擊“過期”按鈕可以查看系統(tǒng)中的逾期未歸還的圖書的列表。單擊“排行”按鈕可以查看系統(tǒng)中借出次數(shù)最多的 10 本書的列表。 單擊“打印”按鈕可以將表單中的表格控件中數(shù)據(jù)打印出來 , 并且以預(yù)覽的方式查看打印結(jié)果。 創(chuàng)建主表單界面在“表單設(shè)計(jì)器”中創(chuàng)建一個(gè)表單作為“讀者借書記錄”表單 , 命名為“JyRec”，創(chuàng)建好的表單效果如下圖所示。將“圖書信息”(Book) 數(shù)據(jù)表、“學(xué)生信息”(Student) 數(shù)據(jù)表、“系別信息”（Xibie）數(shù)據(jù)表、“讀者借書記錄”(JyRec) 數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中。用“系別信息”(Xibie)數(shù)據(jù)表的“系編號”字段和“學(xué)生信息”(Student)數(shù)據(jù)表的“系別”索引建立關(guān)系；用“學(xué)生信息”(Student)數(shù)據(jù)表的“學(xué)號”字段和“讀者借書記錄”（JyRec）數(shù)據(jù)表的“學(xué)號”索引建立關(guān)系；用“讀者借書記錄”(JyRec) 數(shù)據(jù)表的“圖書編號”和“圖書信息”(Book) 數(shù)據(jù)表“圖書編號”索引建立關(guān)系。從數(shù)據(jù)環(huán)境中將“顯示信息”（Student）數(shù)據(jù)表的“學(xué)號”和“姓名”字段、“系別信息”（Xibie）數(shù)據(jù)表的“名稱”字段拖放到表單中。“讀者借書記錄”（JyRec）。　“讀者借書記錄”（JyRec）表單屬性設(shè)置表單屬性取值A(chǔ)utoCenter.T.BorderStyle2固定對話框BufferMode0ControBox.F.Caption讀者借書記錄Closable.F.Desktop.F.Hight245Width528NameJyRecMidForm.F.MaxButton.F.PictureMinButton.T.ShowWindow1在頂層表單中ShowTipe.T.TitleBar1打開WindowState0普通WindowType1模式利用“表格生成器”在表單中添加一個(gè)表格控件。利用“表格生成器”時(shí)要注意，用“表格生成器”生成的表格控件中只能出現(xiàn)一個(gè)數(shù)據(jù)表中數(shù)據(jù)，而本表單中的表格控件要求出現(xiàn)兩個(gè)表中數(shù)據(jù)，所以在經(jīng)過“表格控件”生成后還要采用手工的方式向表格控件中添加列。在某種意義上來說，“表格生成器”在此只是充當(dāng)了一種設(shè)計(jì)外觀的作用。首先利用“表格生成器”將“讀者借書記錄”數(shù)據(jù)表中除了“學(xué)號”外的3個(gè)字段添加到表格控件中，并在“表格生成器”的“關(guān)系”選項(xiàng)卡中，將在“父表中的關(guān)鍵字段”下拉列表中選擇“”。回到表單設(shè)計(jì)中將表格控件的“ClumnCount”設(shè)為6，這樣在表格控件中就會(huì)在原有列的右側(cè)增加3列，然后更改增加的列的Header的Caption屬性和ControlSource屬性。調(diào)整列的排列順序，然后再打開“表格生成器”，應(yīng)用其中的某一種樣式即可將表格中的所有列應(yīng)用VFP提供的某一種樣式，達(dá)到風(fēng)格的統(tǒng)一。但是要注意的是，在表格控件中增加了列并設(shè)定好表格控件的數(shù)據(jù)源屬性后再利用“表格生成器”可能會(huì)造成某些列ControlSource屬性變化，所以在應(yīng)用某一種風(fēng)格后，需要再檢查每一列的ControlSource屬性。設(shè)置好表格控件后在表單中添加1個(gè)標(biāo)簽控件、1個(gè)按鈕控件、1個(gè)選項(xiàng)按鈕組控件、1個(gè)命令按鈕組控件。其中選項(xiàng)按鈕組控件和命令按鈕組控件可以采用先用生成器生成其大體外觀，再手工調(diào)整其外觀等屬性的方法。表12　“輸入查詢條件”（StuSer）表單控件屬性設(shè)置控件屬性屬性取值標(biāo)簽控件AutoSize.T.BackStyle0透明FontBold.T.FontName楷體GB_2312WordWarp.F.文本框控件FontSize12Hight25Width240按鈕控件FontBold.T.FontSize16FontName楷體GB_2312Hight35Width70控件屬性屬性取值Txt學(xué)號ControlSouceReadOnly.T.Txt名稱ControlSouceReadOnly.T.Txt姓名ControlSouceReadOnly.T.CmdgrpButtonCount6Height45Width430CmdjsCaption借書ToolTipText借書操作ComdhsCaption還書ToolTipText還書操作CmdgqCaption過期ToolTipText查看過期未還圖書CmdphCaption排行ToolTipText查看借書排行榜CmdpriCaption打印ToolTipText打印借書記錄CmdtcCaption退出ToolTipText退出當(dāng)前表單OptgrpAutoSize.F.BackStyle0透明ButtonCount2Option1Caption已借出Option2Caption借書記錄 添加主表單代碼向表單中添加一個(gè)表單屬性O(shè)ldRecord來保存數(shù)據(jù)表的記錄指針的位置，并將其初始值設(shè)置為0。在進(jìn)入表單時(shí)，要顯示全局變量“StudentNO”傳遞過來的學(xué)號的學(xué)生的借書記錄，而且表單設(shè)定進(jìn)入時(shí)顯示已經(jīng)借出的圖書的列表。表單中的選項(xiàng)按鈕組（Optgrp）是用來讓用戶選擇表單中顯示的記錄的類型的，應(yīng)該在做出選擇后立即在表單中顯示出來。當(dāng)用戶單擊“已借出”按鈕時(shí)，表單中只是顯示當(dāng)前讀者的未歸還的圖書的列表。表單中的“txt學(xué)號”文本框后面的“...”按鈕是用來調(diào)用“輸入”表單來向主表單中更新表單中顯示的讀者的數(shù)據(jù)。這其中用另外一種在兩個(gè)表單中傳遞參數(shù)的方法。在此，“讀者借書記錄”表單向“輸入”表單傳遞兩個(gè)參數(shù)作為“輸入”表單中標(biāo)簽的標(biāo)題和文本框的輸入掩碼，而在“輸入”表單退出后要向“讀者借書記錄”表單返回一個(gè)值。添加“...”（Cmddown）按鈕的Click事件代碼如下： SELECT StudentSET FILTER TO= RECNO() amp。amp。將記錄編號儲(chǔ)存DO FORM Input WITH 輸入學(xué)號,999999 TO StuNO amp。amp。調(diào)用輸入表單SET EXACT ON amp。amp。改為精確比較IF StuNO amp。amp。表示有輸入學(xué)號 SELECT Student LOCATE FOR 學(xué)號=StuNO IF NOT FOUND() amp。amp。 表示找不到時(shí) MESSAGEBOX(無此學(xué)號,16,信息窗口) GO amp。amp。 回到原記錄 ENDIFENDIF() amp。amp。 重新顯示表單上各對象的數(shù)據(jù)SET EXACT OFF當(dāng)在表單中的選項(xiàng)按鈕組中選擇的“已借出”按鈕時(shí)雙擊表格控件中某條記錄的“圖書編號”列就可以還書，所以還需添加“圖書編號”列的DblClick事件代碼。一本書的還入需要進(jìn)行的操作是在“圖書信息”（Book）數(shù)據(jù)表中將所還圖書的“是否借出”字段更改為“.F.”，將“讀者借書記錄”（JyRec）數(shù)據(jù)表中該條記錄的“還書日期”更改為當(dāng)前日期。添加“圖書編號”列的“Text1”的DblClick事件代碼如下：（見附表）表單中的“借書”按鈕的作用是調(diào)用并向“輸入”表單傳遞兩個(gè)參數(shù)，使“輸入”表單退出時(shí)向“讀者借書記錄”表單返回一值，然后單擊“借書”按鈕，在“圖書信息”（Book）數(shù)據(jù)表中查找“輸入”表單返回的數(shù)據(jù)值，如果沒有找到則彈出出錯(cuò)信息對話框，如果找到則判斷圖書的狀態(tài)，如果沒有借出再判斷當(dāng)前讀者的已經(jīng)借出的圖書數(shù)目（系統(tǒng)中設(shè)為7本），如果借出將