【正文】 能由“輸入查詢條件”表單和“圖書信息查詢結(jié)果”表單組成。（1） 創(chuàng)建“輸入查詢條件”表單此“輸入查詢條件”表單也是用來向用戶收集查詢條件。在“表單設(shè)計器”中創(chuàng)建一個表單作為“輸入查詢條件”表單，命名為“BookSer”，創(chuàng)建好的表單效果如右圖所示。向表單中添加4個標(biāo)簽控件、4個文本框控件和兩個按鈕控件。表單的屬性以及控件的屬性與“學(xué)生信息”頁面的查詢模塊中的“輸入查詢條件”表單基本相同，這里不再重復(fù)介紹。表單的功能主要由“查詢”（CmdSer）按鈕完成，當(dāng)在表單中單擊“查詢”（CmdSer）按鈕時，該按鈕將檢查表單中文本框中數(shù)據(jù)存在情況，如果某個文本框中存在數(shù)據(jù)則將該數(shù)據(jù)作為1個查詢條件，如果多個文本框中都有數(shù)據(jù)則形成1個聯(lián)合查詢條件，這個聯(lián)合查詢條件將各個查詢條件用“AND”連接起來進行查詢?！安樵儭保–mdSer）按鈕的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è)計器”中創(chuàng)建一個表單作為“圖書信息查詢結(jié)果”表單，命名為BookSerout。創(chuàng)建好的表單效果如右圖所示。在表單中添加1個標(biāo)簽控件、2個按鈕控件和1個表格控件。表格控件可以使用“表格控件生成器”采用可視化的方法生成一個表格控件。要使表單中的表格控件中只顯示符合查詢條件的記錄，需要對表單的數(shù)據(jù)環(huán)境進行設(shè)置，并且如果符合查詢條件的記錄數(shù)如果為0則“打印”按鈕不可用。表單中“打印”按鈕的作用是將表單中查詢結(jié)果以報表的形式輸出，并且以瀏覽的方式查看打印結(jié)果。添加“打印”按鈕的Click事件代碼如下：REPORT FORM BookInfo FOR amp。BookTJ PREVIEW表單中“退出”按鈕的作用是彈出確認對話框，如果確認則退出當(dāng)前表單并且將在表單初始化時設(shè)置的過慮條件取消?！巴顺觥卑粹oClick事件代碼如下： YN=MESSAGEBOX(確定退出,4+32,考勤系統(tǒng)信息)IF YN=6 SELECT BOOK SET FILTER TO ()ENDIF 創(chuàng)建“選擇打印類型”表單“選擇打印類型”表單用在當(dāng)在系統(tǒng)主表單中單擊“打印”按鈕時。彈出來供用戶選擇是打印全部記錄還是只打印當(dāng)前記錄，用戶選擇后單擊“打印”按鈕可以用預(yù)覽的方式查看打印結(jié)果。在“表單設(shè)計器”中創(chuàng)建一個表單作為“選擇打印類型”表單，命名為“PrintLX”，創(chuàng)建好的表單效果如右圖所示。該表單比較簡單，僅由1個選項按鈕控件和2個按鈕控件組成。表單中“打印”（Cmdpri）按鈕的作用是根據(jù)全局變量“DbfName”傳遞的數(shù)據(jù)和表單中選項按鈕組的值進行報表打印。添加“打印”（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個主表單——“讀者借書記錄”表單和3個輔助表單——“輸入”表單、“過期圖書”表單和“圖書借閱排行榜”表單組成。 主表單的功能“讀者借書記錄”表單首先用來顯示讀者借書的情況，可以顯示讀者當(dāng)前已經(jīng)借出并且尚未歸還的圖書的記錄，還可以顯示讀者所有的借書記錄。單擊“學(xué)號”后面的“...”按鈕可以調(diào)用“輸入”表單輸入學(xué)號來改變表單中顯示的讀者。單擊“借書”按鈕,可以調(diào)用“輸入”表單用來輸入要借的圖書編號,如果該圖書在庫中 , 而且當(dāng)前讀者所借的圖書的數(shù)目沒有到達規(guī)定的數(shù)目（這里設(shè)定為7本）,則借書成功，否則借書失敗。 單擊“還書”按鈕 ,可以調(diào)用“輸入”表單用來輸入要歸還的圖書編號，如果該圖書由當(dāng)前讀者借出,則還書成功，否則失敗。另外，當(dāng)表單中的表格控件中顯示的是當(dāng)前讀者的“已借出”圖書記錄時，可以通過雙擊列表中的某本書的“圖書編號”欄來快速還書。 單擊“過期”按鈕可以查看系統(tǒng)中的逾期未歸還的圖書的列表。單擊“排行”按鈕可以查看系統(tǒng)中借出次數(shù)最多的 10 本書的列表。 單擊“打印”按鈕可以將表單中的表格控件中數(shù)據(jù)打印出來 , 并且以預(yù)覽的方式查看打印結(jié)果。 創(chuàng)建主表單界面在“表單設(shè)計器”中創(chuàng)建一個表單作為“讀者借書記錄”表單 , 命名為“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）?！　白x者借書記錄”（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模式利用“表格生成器”在表單中添加一個表格控件。利用“表格生成器”時要注意，用“表格生成器”生成的表格控件中只能出現(xiàn)一個數(shù)據(jù)表中數(shù)據(jù)，而本表單中的表格控件要求出現(xiàn)兩個表中數(shù)據(jù)，所以在經(jīng)過“表格控件”生成后還要采用手工的方式向表格控件中添加列。在某種意義上來說，“表格生成器”在此只是充當(dāng)了一種設(shè)計外觀的作用。首先利用“表格生成器”將“讀者借書記錄”數(shù)據(jù)表中除了“學(xué)號”外的3個字段添加到表格控件中，并在“表格生成器”的“關(guān)系”選項卡中，將在“父表中的關(guān)鍵字段”下拉列表中選擇“”?；氐奖韱卧O(shè)計中將表格控件的“ClumnCount”設(shè)為6，這樣在表格控件中就會在原有列的右側(cè)增加3列，然后更改增加的列的Header的Caption屬性和ControlSource屬性。調(diào)整列的排列順序，然后再打開“表格生成器”，應(yīng)用其中的某一種樣式即可將表格中的所有列應(yīng)用VFP提供的某一種樣式，達到風(fēng)格的統(tǒng)一。但是要注意的是，在表格控件中增加了列并設(shè)定好表格控件的數(shù)據(jù)源屬性后再利用“表格生成器”可能會造成某些列ControlSource屬性變化，所以在應(yīng)用某一種風(fēng)格后，需要再檢查每一列的ControlSource屬性。設(shè)置好表格控件后在表單中添加1個標(biāo)簽控件、1個按鈕控件、1個選項按鈕組控件、1個命令按鈕組控件。其中選項按鈕組控件和命令按鈕組控件可以采用先用生成器生成其大體外觀，再手工調(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借書記錄 添加主表單代碼向表單中添加一個表單屬性O(shè)ldRecord來保存數(shù)據(jù)表的記錄指針的位置，并將其初始值設(shè)置為0。在進入表單時，要顯示全局變量“StudentNO”傳遞過來的學(xué)號的學(xué)生的借書記錄，而且表單設(shè)定進入時顯示已經(jīng)借出的圖書的列表。表單中的選項按鈕組（Optgrp）是用來讓用戶選擇表單中顯示的記錄的類型的，應(yīng)該在做出選擇后立即在表單中顯示出來。當(dāng)用戶單擊“已借出”按鈕時，表單中只是顯示當(dāng)前讀者的未歸還的圖書的列表。表單中的“txt學(xué)號”文本框后面的“...”按鈕是用來調(diào)用“輸入”表單來向主表單中更新表單中顯示的讀者的數(shù)據(jù)。這其中用另外一種在兩個表單中傳遞參數(shù)的方法。在此，“讀者借書記錄”表單向“輸入”表單傳遞兩個參數(shù)作為“輸入”表單中標(biāo)簽的標(biāo)題和文本框的輸入掩碼，而在“輸入”表單退出后要向“讀者借書記錄”表單返回一個值。添加“...”（Cmddown）按鈕的Click事件代碼如下： SELECT StudentSET FILTER TO= RECNO() amp。amp。將記錄編號儲存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。 表示找不到時 MESSAGEBOX(無此學(xué)號,16,信息窗口) GO amp。amp。 回到原記錄 ENDIFENDIF() amp。amp。 重新顯示表單上各對象的數(shù)據(jù)SET EXACT OFF當(dāng)在表單中的選項按鈕組中選擇的“已借出”按鈕時雙擊表格控件中某條記錄的“圖書編號”列就可以還書，所以還需添加“圖書編號”列的DblClick事件代碼。一本書的還入需要進行的操作是在“圖書信息”（Book）數(shù)據(jù)表中將所還圖書的“是否借出”字段更改為“.F.”，將“讀者借書記錄”（JyRec）數(shù)據(jù)表中該條記錄的“還書日期”更改為當(dāng)前日期。添加“圖書編號”列的“Text1”的DblClick事件代碼如下：（見附表）表單中的“借書”按鈕的作用是調(diào)用并向“輸入”表單傳遞兩個參數(shù)，使“輸入”表單退出時向“讀者借書記錄”表單返回一值，然后單擊“借書”按鈕，在“圖書信息”（Book）數(shù)據(jù)表中查找“輸入”表單返回的數(shù)據(jù)值，如果沒有找到則彈出出錯信息對話框，如果找到則判斷圖書的狀態(tài)，如果沒有借出再判斷當(dāng)前讀者的已經(jīng)借出的圖書數(shù)目（系統(tǒng)中設(shè)為7本），如果借出將