第10章圖書管理系統(tǒng)

1、第10章 圖書管理系統(tǒng)本 章 內(nèi) 容 數(shù)據(jù)庫應用系統(tǒng)開發(fā)的基本思想和步驟 創(chuàng)建關(guān)于圖書管理系統(tǒng)的表和數(shù)據(jù)庫 創(chuàng)建借書表單 創(chuàng)建還書表單 創(chuàng)建資料查詢表單 創(chuàng)建圖書管理表單 創(chuàng)建讀者管理表單 創(chuàng)建圖書管理系統(tǒng)的報表 創(chuàng)建報表打印表單 創(chuàng)建一個自定義工具欄類 設(shè)計圖書管理系統(tǒng)的主表單 初始化表單的制作 制作數(shù)據(jù)備份表單 創(chuàng)建數(shù)據(jù)恢復表單 創(chuàng)建數(shù)據(jù)清空表單 制作密碼驗證表單 制作密碼修改表單 創(chuàng)建系統(tǒng)封面表單 圖書管理系統(tǒng)菜單的制作 圖書管理系統(tǒng)主程序的制作 創(chuàng)建項目組織系統(tǒng)結(jié)構(gòu) 應用系統(tǒng)的發(fā)布 案例1：數(shù)據(jù)庫應用系統(tǒng)開發(fā)的基本思想和步驟學習Visual FoxPro最終的目的是開發(fā)一個數(shù)據(jù)庫應用系

2、統(tǒng)，本章通過制作圖書管理系統(tǒng)集中介紹數(shù)據(jù)庫開發(fā)的全過程，以及開發(fā)數(shù)據(jù)庫應用系統(tǒng)的制作方法和步驟。一、 需求分析1、開發(fā)目的： 這個圖書管理系統(tǒng)主要為小型圖書館、圖書社設(shè)計，根據(jù)這些圖書館、圖書社圖書管理的需求，經(jīng)過分析后要實現(xiàn)的功能有：（） 能瀏覽圖書的資料信息和讀者的資料信息。（） 能夠按一定條件查詢相關(guān)資料的信息。（） 能夠修改、增加和刪除相關(guān)資料信息。（） 能按條件打印相關(guān)資料信息。（） 有安全性較強的系統(tǒng)入口。（） 應用系統(tǒng)自身的維護功能。2、數(shù)據(jù)需求：作者經(jīng)過數(shù)據(jù)需求的分析，這個系統(tǒng)需要建立關(guān)于圖書資料信息、讀者資料信息、借書登記和帳戶管理的四個表，創(chuàng)建一個數(shù)據(jù)庫，并且實現(xiàn)圖書資料信

3、息、讀者資料信息和借書登記表之間的關(guān)聯(lián)，詳細的設(shè)計在案例二中講述。3、功能分析：（） 瀏覽能瀏覽圖書的資料信息和讀者的資料信息。（） 查詢能對圖書資料、讀者資料和借閱登記的信息按照一定的條件進行查詢或者模糊查詢。（） 數(shù)據(jù)維護對圖書資料、讀者資料和借書登記的相關(guān)數(shù)據(jù)進行修改、添加、刪除等的數(shù)據(jù)維護。（） 撤消保存能撤消錯誤的操作，能保存用戶更改的信息。（） 資料打印對圖書資料、讀者資料和借書登記的相關(guān)數(shù)據(jù)信息按照指定的條件進行打印。（） 數(shù)據(jù)備份、恢復和清除能隨時對數(shù)據(jù)進行備份，也能對數(shù)據(jù)進行恢復，還可以對整個數(shù)據(jù)庫和表進行初始化和清除操作。（） 帳戶密碼的管理可以修改帳戶密碼二、 模塊分析1

4、、系統(tǒng)維護模塊系統(tǒng)維護模塊包括了系統(tǒng)初始化、數(shù)據(jù)表的清空、數(shù)據(jù)備份、數(shù)據(jù)恢復、密碼修改和系統(tǒng)退出等的功能。這些功能是通過獨立的表單實現(xiàn)的。2、借還書模塊這個模塊包括兩個表單，分別實現(xiàn)借書和還書功能，在這兩個表單上我們可以查看要借或者要還圖書的信息資料和讀者的信息資料，并且利用“借書”和“還書”兩個按鈕實現(xiàn)借書和還書登記。3、資料查詢模塊這個模塊通過一個擁有兩個頁框的表單實現(xiàn)圖書資料和讀者資料的查詢，并且可以是模糊查詢，也可以是精確查詢。4、資料管理模塊這個模塊包括兩個表單，分別實現(xiàn)圖書資料的管理和讀者資料的管理，管理包括：查看資料、修改資料、刪除資料以及添加資料等等功能。5、打印資料模塊通過一

5、個表單實現(xiàn)有條件打印，在這個表單里我們可以選擇要打印的數(shù)據(jù)，實現(xiàn)按條件打印的目標。三、 開發(fā)步驟：1、創(chuàng)建數(shù)據(jù)表和數(shù)據(jù)庫。表和數(shù)據(jù)庫是數(shù)據(jù)庫應用系統(tǒng)操作的基礎(chǔ)和核心，所以經(jīng)過需求分析后接著要做的就是設(shè)計表和數(shù)據(jù)庫。表的設(shè)計要合理，要建立關(guān)聯(lián)的表必須有相同的字段名，關(guān)于表和數(shù)據(jù)庫的設(shè)計知識我想大家一定知道，這里就不詳述了。2、應用程序的設(shè)計。一個應用系統(tǒng)包含多種類型的文件，比如表單、菜單、報表、子類等等，每一種文件又有好多個，這些種類數(shù)量繁多的應用程序必須有一個清晰的設(shè)計思路，同一個系統(tǒng)不同的設(shè)計者有不同的設(shè)計思路，比如有人設(shè)計是從整體到局部、從大到小，先建立項目管理器，接著創(chuàng)建主程序，然后是主

6、界面，最后才是某個具體功能的表單、報表等等，也有人是正好相反的步驟。而作者本人喜歡先設(shè)計小的、局部的，然后再設(shè)計大的、整體的，我認為這樣對編程等方面是有利的。3、連編生成應用程序或可執(zhí)行文件。當一個項目建立好后，在項目運行前還必須對它們“連編”。主要目的是生成可執(zhí)行文件，同時可以設(shè)置項目信息，比如版權(quán)等，還可以測試和校驗項目，測試程序組件是否可用。4、測試并發(fā)布應用程序。以上步驟完成后，剩下的就是發(fā)布程序了。案例2：創(chuàng)建關(guān)于圖書管理系統(tǒng)的表和數(shù)據(jù)庫制作要點：1、創(chuàng)建表2、建立主索引和普通索引3、創(chuàng)建數(shù)據(jù)庫4、實現(xiàn)兩個表之間的關(guān)聯(lián)步驟詳解：剛才已經(jīng)說過表和數(shù)據(jù)庫是數(shù)據(jù)庫應用系統(tǒng)操作的基礎(chǔ)和核心，

7、設(shè)計的時候要充分考慮到表之間的關(guān)聯(lián)，同時注意數(shù)據(jù)庫設(shè)計的合理性，以免造成數(shù)據(jù)冗余。下面列出圖書管理系統(tǒng)的所有表的結(jié)構(gòu)與必須的索引，表中的記錄大家可以自己加幾個，在這個案例中我們需要這樣四個表：1、讀者信息表（讀者信息.DBF）結(jié)構(gòu)：讀者信息(讀者編號 c(10) primary key,讀者姓名 c(10),證件號 c(20),性別 c(2),單位部門 c(20),住址 c(40),職業(yè) c(20),聯(lián)系電話 c(12),備注 c(40),未還書目 c(2)2、圖書資料表（圖書資料.DBF）結(jié)構(gòu)：圖書資料(圖書編號 c(10) primary key,圖書類別 c(10),圖書名稱 c(50)

8、,作者 c(20),出版社 c(30),出版日期 d,入館日期 d,購買價格 y(8),借閱次數(shù) n(4),備注 c(50)3、借書登記表（借書登記.DBF）結(jié)構(gòu)：借書登記(讀者編號 c(10),圖書編號 c(10),讀者姓名 c(10),讀者證件號 c(20),借閱日期 d,歸還日期 d,借書標志 c(4), foreign key 讀者編號 tag 讀者編號 references 讀者信息,foreign key 圖書編號 tag 圖書編號 references 圖書資料)4、系統(tǒng)帳號表（系統(tǒng)賬號.DBF）結(jié)構(gòu)：系統(tǒng)賬號（賬號 c(20),密碼 c(20)）接著再創(chuàng)建一個名為“讀者管理”的

9、數(shù)據(jù)庫，把圖書資料.DBF、讀者資料.DBF和借書登記.DBF三個表添加到數(shù)據(jù)庫里面并按表結(jié)構(gòu)要求建立關(guān)聯(lián)。如圖10-1所示：圖10-1 “讀者管理”數(shù)據(jù)庫案例3：創(chuàng)建借書表單案例運行效果與操作在這個表單中，我們可以通過輸入讀者的讀者編號來了解讀者的信息，也可以輸入圖書編號來了解要借圖書的信息，當讀者確定要借出時，單擊“借出”按鈕就可以把信息記錄在借書登記表里面。借書表單的運行效果如圖10-2。 圖10-2 “js”表單運行效果其中單擊“清空”按鈕會將表單上所有的文本框內(nèi)容清除，退出表單時，單擊“退出”按鈕就可以。制作要點1、 SQL查詢語言2、 文本框?qū)傩栽O(shè)置步驟詳解1、新建一個表單，保存文

10、件名為js，打開“數(shù)據(jù)環(huán)境設(shè)計器”窗口，向其中添加讀者信息表、圖書資料表以及借書登記表。如圖10-3添加對象，分別添加十六個標簽、十四個文本框、五個按鈕和兩個形狀。 圖10-3 “js”表單 2、這些控件的屬設(shè)置如表10-1： 表10-1“js”屬性設(shè)置對象屬性屬性值說明Form1AutoCenter.t.-真設(shè)置這個表單在首次顯示時自動在Visual FoxPro主窗口中自動居中BorderStyle2-固定對話框指定邊框樣式Caption書籍借閱標題Iconmonitor.ico(自己選擇)表單的圖標，大家可以使用自己喜歡的圖標MaxButton.F.-假關(guān)閉最大化按鈕NameForm1表

11、單名ShowTips.T.-真顯示工具提示ShowWindow1-在頂層表單中指定在創(chuàng)建過程中表單窗口顯示表單WindowType1-模式表單在顯示或運行時的動作模式Label1Caption讀者信息AutoSize.T.-真Label2到Label16的AutoSize屬性都照此設(shè)置BackStyle0-透明Label2到Label16的BackStyle屬性都照此設(shè)置FontName宋體Label2到Label16的FontName屬性都照此設(shè)置FontSize11Label10的FontSize屬性也是11，其它從Label2到Label16的FontSize屬性都是9Label2Cap

12、tion讀者編號：Label3Caption姓 名：Label4Caption性 別：Label5Caption證件號：Label6Caption單位部門：Label7Caption聯(lián)系電話：Label8Caption備注：Label9Caption未還書目：Label10Caption圖書信息Label11Caption圖書編號：Label12Caption圖書名稱：Label13Caption圖書類別：Label14Caption作 者：Label15Caption出版社：Label16Caption購買價格：Shape1BackStyle0-透明指定形狀的背景為透明SpecialEffe

13、ct0-3維指定形狀的格式Shape2BackStyle0-透明SpecialEffect0-3維 Text1BackColor224,224,224背景色，自己選擇一種喜歡的顏色就行，Text2到Text14的BackColor屬性都可照此設(shè)置Text2ControlSource讀者信息.讀者姓名指定文本框的數(shù)據(jù)源是表讀者信息中的讀者姓名字段Text3ControlSource讀者信息.性別Text4ControlSource讀者信息.證件號Text5ControlSource讀者信息.單位部門Text6ControlSource讀者信息.聯(lián)系電話Text7ControlSource讀者信息

14、.備注Text8ControlSource讀者信息.未還書目Text10ControlSource圖書資料.圖書名稱Text11ControlSource圖書資料.圖書類別Text12ControlSource圖書資料.作者Text13ControlSource圖書資料.出版社Text14ControlSource圖書資料.購買價格Command1Caption確 定按鈕上顯示的文字FontName宋體按鈕上顯示的文字字體Command2Caption確 定FontName宋體Command3Caption借 出FontName宋體Command4Caption清 空FontName宋體Com

15、mand5Caption退 出FontName宋體3、按照圖示調(diào)整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼：Form1的Load事件代碼：sele 1use 讀者信息sele 2use 圖書資料Unload事件代碼：use設(shè)置Command1“確定“按鈕的Click事件代碼：sele 1 locate for 讀者編號=upper(allt(thisform.text1.value) if not found() =messagebox(沒有該讀者編號!,0+64+0,提示) go top else mand3.enabled=.T. endif this

16、form.refresh設(shè)置Command2“確定“按鈕的Click事件代碼：sele 2 locate for 圖書編號=upper(allt(thisform.text9.value) if not found() =messagebox(沒有該圖書編號!,0+64+0,提示) go top else mand3.enabled=.T. endif thisform.refresh設(shè)置Command3“借出“按鈕的Click事件代碼：nAnswer = MESSAGEBOX(確認所借書目的資料無誤嗎？,4+32+0,重要提示)if nAnswer = 6insert

17、 into 借書登記(圖書編號,讀者姓名,讀者證件號,借閱日期,借書標志);values(upper(allt(thisform.text10.value),;upper(allt(thisform.text2.value),;upper(allt(thisform.text4.value),; datetime(),借出)sele 2replace 借閱次數(shù) with 借閱次數(shù)+1 endif 設(shè)置Command4“清空“按鈕的Click事件代碼：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisfor

18、m.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value=0.00thisform.text1.setfocus設(shè)置Command5“退出“按鈕的Click事件代碼：thisfor

19、m.release保存表單，保存文件名為js。執(zhí)行表單，看看運行效果如何。案例4：創(chuàng)建還書表單案例運行效果與操作還書表單的運行效果和還書表單運行效果基本上一樣，只不過顯示的一些信息有變化，“借出”按鈕變成了“還書”按鈕，還書表單的運行效果如圖10-4所示：圖10-4 還書表單的運行效果我們可以輸入已借的圖書編號，單擊“確定”查看指定的圖書信息以及借書登記信息，單擊“還書”按鈕，實現(xiàn)還書登記。其他按鈕的功能和借書表單中的相同按鈕一樣。制作要點1、 SQL查詢語言2、 文本框?qū)傩栽O(shè)置3、 一些常用函數(shù)的使用步驟詳解1、創(chuàng)建還書表單（hs.scx），在命令窗口中輸入命令：CREATE FORM hs

20、。打開“數(shù)據(jù)環(huán)境設(shè)計器”窗口，向其中添加圖書資料表以及借書登記表。 2、如圖10-5所示添加控件，控件包括十二個標簽、十一個文本框、兩個形狀和四個按鈕，并且調(diào)整它們的位置和大小，合理分布在表單上。圖10-5 還書表單4、 設(shè)置這些表單控件的屬性，見表10-2：表10-2“hs”屬性設(shè)置對象屬性屬性值說明Form1AutoCenter.t.-真BorderStyle2-固定對話框Caption還書Iconmonitor.ico(自己選擇)MaxButton.F.-假NameForm1ShowTips.T.-真ShowWindow1-在頂層表單中WindowType1-模式Label1Captio

21、n所還圖書信息AutoSize.T.-真BackStyle0-透明FontName宋體FontSize11Label2Caption圖書編號：AutoSize.T.-真Label2到Label112的AutoSize屬性都照此設(shè)置BackStyle0-透明Label2到Label12的BackStyle屬性都照此設(shè)置FontName宋體Label2到Label12的FontName屬性都照此設(shè)置FontSize9Label2到Label12的FontSize屬性都照此設(shè)置Label3Caption圖書名稱：Label4Caption圖書類別：Label5Caption作 者：Label6Cap

22、tion出版社：Label7Caption購買價格：Label8Caption讀者編號：Label9Caption姓 名：Label10Caption借書日期：Label11Caption證件號：Label12Caption應還日期： Text1BackColor224,224,224Top59文本框高度，Text2到 Text11的Top屬性準此Width168文本框?qū)挾萒ext2到 Text11的Width屬性準此Text2ControlSource圖書資料.圖書名稱Text3ControlSource圖書資料.圖書類別Text4ControlSource圖書資料.作者Text5Contr

23、olSource圖書資料.出版社Text6ControlSource圖書資料.購買價格Text7ControlSource借書登記.讀者編號Text8ControlSource借書登記.讀者姓名Text9ControlSource借書登記.借閱日期Text10ControlSource借書登記.讀者證件號Text11ControlSource借書登記.歸還日期Shape1BackStyle0-透明指定形狀的背景為透明SpecialEffect0-3維指定形狀的格式Shape2BackStyle0-透明SpecialEffect0-3維Command1Caption還 書FontName宋體Co

24、mmand2Caption確 定FontName宋體Command3Caption清 空FontName宋體Command4Caption退 出FontName宋體3、按照圖示調(diào)整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼：Form1的Load事件代碼：open database 讀者管理Form1的Unload事件代碼：close database設(shè)置Command2“確定“按鈕的Click事件代碼：sele 2 locate for 圖書編號=upper(allt(thisform.text1.value) if not found() =messagebox(沒有該圖書編號!

25、,0+64+0,提示) go top else mand1.enabled=.T. endif thisform.refresh設(shè)置Command1“還書“按鈕的Click事件代碼：nAnswer = MESSAGEBOX(確認你還的書目的資料無誤嗎？,4+32+0,重要提示)if nAnswer = 6sele 3replace 借書標志 with 還回,歸還日期 with datetime() for 圖書編號=allt(thisform.text1.value)thisform.refresh =messagebox(操作完成，該書已經(jīng)歸檔！,0+64+0,完成)

26、Endif設(shè)置Command3“清空“按鈕的Click事件代碼：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value=0.00thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text1.setfoc

27、us設(shè)置Command4“退出“按鈕的Click事件代碼：thisform.release案例5：創(chuàng)建資料查詢表單案例運行效果與操作這個表單是包含兩個選項卡的查詢對話框，用于查詢讀者信息資料和圖書信息資料，每一個選項卡都有查詢選項和用于顯示查詢結(jié)果的表格，還可以選擇是否用模糊查找。表單上除了兩個選項卡外，還設(shè)計了四個按鈕輔助查詢。表單的運行效果如圖10-6和10-7所示，在查詢欄中輸入其中的一些信息，可以是一個也可以是幾個，并且選擇是否模糊查找，然后單擊選項卡上的“確定”或者選項卡外的“確定”按鈕，表單中就會顯示查詢結(jié)果。“清空”按鈕用于清除文本框中的數(shù)據(jù)。另外表單中還有一個“全部顯示”按鈕，

28、功能是顯示圖書資料全部信息或者是讀者信息資料，顯示那一個由選項卡的活動頁決定，也就是說，由你選擇的選項卡決定?！巴顺觥卑粹o用于釋放表單。 圖10-6 資料查詢圖書資料查詢運行效果 圖10-7 資料查詢讀者資料查詢運行效果制作要點1、 頁框添加以及頁框?qū)傩缘脑O(shè)置2、 表格添加以及表格屬性的設(shè)置3、字符串比較函數(shù)步驟詳解1、新建一個表單，保存文件名為cx，打開“數(shù)據(jù)環(huán)境設(shè)計器”窗口，向其中添加讀者信息表、圖書資料表。2、如圖10-6和10-7通過“表單控件”添加控件，分別添加一個頁框控件（Pageframe1）、和四個按鈕控件。然后右擊頁框，選擇“編輯”，在頁框的兩個頁面（Page1和Page2）

29、上分別添加其它控件。頁面Page1上有一個形狀控件、五個標簽控件、四個文本框控件、一個復選框控件、一個表格控件和兩個按鈕控件；同樣頁面Page2上有一個形狀控件、五個標簽控件、四個文本框控件、一個復選框控件、一個表格控件和兩個按鈕控件。這些控件的主要屬性設(shè)置如表10-3所示：表10-3“cx”屬性設(shè)置對象屬性屬性值說明Form1AutoCenter.t.-真BorderStyle2-固定對話框Caption資料查詢Iconmonitor.ico(自己選擇)MaxButton.F.-假NameForm1ShowTips.T.-真ShowWindow1-在頂層表單中WindowType1-模式Co

30、mmand1Caption查 詢FontName宋體Height61Width73Picturekfind.ico按鈕上顯示的圖標，大家可以自己選擇合適的，VFP中自帶很多圖標，一般保存在Microsoft Visual StudioCommonGraphicsIcons文件中ToolTipText單擊查詢控件提示文本Command2Caption顯示全部FontName宋體Height61Width73Picturefont_type1.icoToolTipText顯示全部資料Command3Caption清 空FontName宋體Height61Width73Picturetrashcan

31、_empty.icoToolTipText清空數(shù)據(jù)Command4Caption退 出FontName宋體Height61Width73Picturexapp.icoToolTipText關(guān)閉此表單Pageframe1NamePageframe1PageCount2頁框包含的頁數(shù)Page1Caption圖書資料查詢Shape1BackStyle0-透明SpecialEffect0-3維Label1Caption查 詢AutoSize.T.-真Standardlabel1到Standardlabel4的AutoSize屬性都照此設(shè)置BackStyle0-透明Standardlabel1到Stan

32、dardlabel4的BackStyle屬性都照此設(shè)置FontName宋體Standardlabel1到Standardlabel4的FontName屬性都照此設(shè)置FontSize10Standardlabel1到Standardlabel4的AutoSize屬性都設(shè)置為9Standardlabel1Caption圖書編號:Standardlabel2Caption圖書類別:Standardlabel3Caption圖書名稱:Standardlabel4Caption作 者:Check1Caption模糊查找AutoSize.T.-真Command1Caption查 找Command2Capt

33、ion清 空 Grid1ColumnCount10表格列數(shù)BackColor237,237,226 表格背景Column1ControlSource圖書資料.圖書編號表格列數(shù)據(jù)來源 Header1Caption圖書編號Column2ControlSource圖書資料.圖書名稱 Header2Caption圖書名稱Column3ControlSource圖書資料.作者 Header3Caption作者Column4ControlSource圖書資料.圖書類別 Header4Caption圖書類別Column5ControlSource圖書資料.出版社 Header5Caption出版社Colum

34、n6ControlSource圖書資料.出版日期 Header6Caption出版日期Column7ControlSource圖書資料.入館日期 Header7Caption入館日期Column8ControlSource圖書資料.購買價格 Header8Caption購買價格Column9ControlSource圖書資料.借閱次數(shù) Header9Caption借閱次數(shù)Column10ControlSource圖書資料.備注 Header10Caption備注Page2Caption讀者資料查詢Shape1BackStyle0-透明SpecialEffect0-3維Label1Caption

35、查 詢AutoSize.T.-真Standardlabel1到Standardlabel4的AutoSize屬性都照此設(shè)置BackStyle0-透明Standardlabel1到Standardlabel4的BackStyle屬性都照此設(shè)置FontName宋體Standardlabel1到Standardlabel4的FontName屬性都照此設(shè)置FontSize10Standardlabel1到Standardlabel4的AutoSize屬性都設(shè)置為9Standardlabel1Caption讀者編號:Standardlabel2Caption證件號：Standardlabel3Capti

36、on讀者姓名：Standardlabel4Caption職 業(yè)：Check1Caption模糊查找AutoSize.T.-真Command1Caption查 找Command2Caption清 空 Grid1ColumnCount10表格列數(shù)BackColor237,237,226 表格背景Column1ControlSource讀者信息.讀者編號表格列數(shù)據(jù)來源 Header1Caption讀者編號Column2ControlSource讀者信息.讀者姓名 Header2Caption讀者姓名Column3ControlSource讀者信息.證件號 Header3Caption證件號Colum

37、n4ControlSource讀者信息.性別 Header4Caption性別Column5ControlSource讀者信息.單位部門 Header5Caption單位部門Column6ControlSource讀者信息. 住址 Header6Caption住址Column7ControlSource讀者信息.職業(yè) Header7Caption職業(yè)Column8ControlSource讀者信息.聯(lián)系電話 Header8Caption聯(lián)系電話Column9ControlSource讀者信息.未還書目 Header9Caption未還書目Column10ControlSource圖書資料.備注

38、 Header10Caption備注3、按照圖示調(diào)整好這些對象的大小和位置，然后雙擊表單給這些對象添加代碼。首先給表單右邊的四個按鈕添加代碼。“查詢”按鈕的Click事件代碼：if thisform.Pageframe1.activepage=1thisform.pageframe1.page1.Grid1.recordsourceType=4tsbh=allt(thisform.Pageframe1.page1.text1.value)zz=allt(thisform.pageframe1.page1.text2.value)tsmc=allt(thisform.pageframe1.pag

39、e1.text3.value)tslb=allt(thisform.pageframe1.page1.text4.value)if thisform.pageframe1.page1.check1.value=0thisform.pageframe1.page1.Grid1.recordsource=;select * from 圖書資料 where tsbh$圖書編號;.or.zz$作者.or.tsmc$圖書名稱.or.tslb$圖書類別 into cursor aelseset exact onthisform.pageframe1.page1.Grid1.recordsource=;se

40、lect * from 圖書資料 where tsbh=圖書編號;.or.zz=作者.or.tsmc=圖書名稱.or.tslb=圖書類別 into cursor aset exact offendifelse if thisform.Pageframe1.activepage=2thisform.pageframe1.page2.Grid1.recordsourceType=4dzbh=allt(thisform.Pageframe1.page2.text1.value)dzxx=allt(thisform.Pageframe1.page2.text2.value)zjh=allt(thisf

41、orm.Pageframe1.page2.text3.value)dwbm=allt(thisform.Pageframe1.page2.text4.value)if thisform.Pageframe1.page2.check1.value=0thisform.Pageframe1.page2.Grid1.recordsource=;select * from 讀者信息 where dzbh$讀者編號;.or.dzxx$讀者姓名.or.zjh$證件號.or.dwbm$職業(yè) into cursor aelseset exact onthisform.Pageframe1.page2.Grid

42、1.recordsource=;select * from 讀者信息 where dzbh=讀者編號;.or.dzxx=讀者姓名.or.zjh=證件號.or.dwbm=職業(yè) into cursor aset exact offendifendifendif“顯示全部”按鈕的Click事件代碼：if thisform.Pageframe1.activepage=1thisform.pageframe1.page1.Grid1.recordsourceType=4thisform.pageframe1.page1.Grid1.recordsource=;select * from 圖書資料 int

43、o cursor aendif if thisform.Pageframe1.activepage=2thisform.pageframe1.page2.Grid1.recordsourceType=4thisform.Pageframe1.page2.Grid1.recordsource=;select * from 讀者信息 into cursor aEndif“清空”按鈕的Click事件代碼：if thisform.Pageframe1.activepage=1thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.

44、text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=endif if thisform.Pageframe1.activepage=2thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=endif“退出”按鈕的Click事件

45、代碼：thisform.release接下來給頁框上的控件添加代碼，右擊頁框，在彈出的快捷菜單中選擇“編輯”，然后就可以選中對象添加事件代碼了。圖書資料查詢頁（Page1）中各對象代碼：“查找”按鈕的Click事件代碼：thisform.pageframe1.page1.Grid1.recordsourceType=4tsbh=allt(thisform.Pageframe1.page1.text1.value)zz=allt(thisform.pageframe1.page1.text2.value)tsmc=allt(thisform.pageframe1.page1.text3.valu

46、e)tslb=allt(thisform.pageframe1.page1.text4.value)if thisform.pageframe1.page1.check1.value=0thisform.pageframe1.page1.Grid1.recordsource=;select * from 圖書資料 where tsbh$圖書編號;.or.zz$作者.or.tsmc$圖書名稱.or.tslb$圖書類別 into cursor aelseset exact onthisform.pageframe1.page1.Grid1.recordsource=;select * from 圖

47、書資料 where tsbh=圖書編號;.or.zz=作者.or.tsmc=圖書名稱.or.tslb=圖書類別 into cursor aset exact offendif“清空”按鈕的Click事件代碼：thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=讀者資料查詢頁（Page2）中各對象代碼：“查找”按鈕的Click事件代碼：thisfo

48、rm.pageframe1.page2.Grid1.recordsourceType=4dzbh=allt(thisform.Pageframe1.page2.text1.value)dzxx=allt(thisform.Pageframe1.page2.text2.value)zjh=allt(thisform.Pageframe1.page2.text3.value)dwbm=allt(thisform.Pageframe1.page2.text4.value)if thisform.Pageframe1.page2.check1.value=0thisform.Pageframe1.pa

49、ge2.Grid1.recordsource=;select * from 讀者信息 where dzbh$讀者編號;.or.dzxx$讀者姓名.or.zjh$證件號.or.dwbm$職業(yè) into cursor aelseset exact onthisform.Pageframe1.page2.Grid1.recordsource=;select * from 讀者信息 where dzbh=讀者編號;.or.dzxx=讀者姓名.or.zjh=證件號.or.dwbm=職業(yè) into cursor aset exact offendif“清空”按鈕的Click事件代碼：thisform.Pageframe1.page2.text1.value=thisform.Pageframe1.page2.text2.value=thisform.Pageframe1.page2.text3.value=thisform.Pageframe1.page2.text4.value=案例6：創(chuàng)建