畢業(yè)設(shè)計(jì)-圖書(shū)管理系統(tǒng)

畢業(yè)設(shè)計(jì)闡明書(shū)圖書(shū)管理系統(tǒng)學(xué)生姓名：平晉昇學(xué)號(hào)：H0491B11學(xué)院：中北大學(xué)成人教育學(xué)院專業(yè)：計(jì)算機(jī)科學(xué)技術(shù)指導(dǎo)教師：馬巧梅10月圖書(shū)管理系統(tǒng)摘要本文首先介紹了數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）的基本概念及關(guān)系模型等。然后對(duì)問(wèn)題的來(lái)源進(jìn)行進(jìn)一步分析，指出圖書(shū)借閱者、圖書(shū)館工作人員和圖書(shū)館管理人員是問(wèn)題重要來(lái)源,并指出本數(shù)據(jù)管理系統(tǒng)的實(shí)用性功效就是管理好圖書(shū)館信息，提高工作效率，避免數(shù)據(jù)解決手工操作，工作量大，出錯(cuò)率高的弊端。接著對(duì)需求分析進(jìn)行細(xì)致的分析,特別對(duì)圖書(shū)借閱者、圖書(shū)館工作人員和圖書(shū)館管理人員三者權(quán)限進(jìn)行分派。接著對(duì)系統(tǒng)功效模塊進(jìn)行分析，指出本系統(tǒng)功效模塊重要分為“圖書(shū)資料管理”模塊、“學(xué)生資料管理”模塊、“借還書(shū)操作”模塊。總的來(lái)說(shuō)，本圖書(shū)管理系統(tǒng),介紹了該系統(tǒng)構(gòu)成構(gòu)造、功效特點(diǎn)、使用原理和辦法,本系統(tǒng)實(shí)現(xiàn)了系統(tǒng)登陸、圖書(shū)管理、學(xué)生管理圖書(shū)的借閱與償還、圖書(shū)借閱排行榜和查看逾期未還圖書(shū)以及多種信息的打印等功效。有了這個(gè)系統(tǒng)就使圖書(shū)館的工作變得簡(jiǎn)樸了許多，使圖書(shū)館的圖書(shū)管理形成了一種整體自動(dòng)化管理模式。核心詞：VisualForPro6.0，數(shù)據(jù)庫(kù)管理，SQL語(yǔ)言，圖書(shū)管理目錄1緒論???……………11.1系統(tǒng)開(kāi)發(fā)背景和意義………11.2開(kāi)發(fā)環(huán)境……………………12總體設(shè)計(jì)………………………12.1應(yīng)用需求分析………………12.2模塊分析……………………22.2.1功效模塊圖……………2.2.2模塊分析………………3具體設(shè)計(jì)………………………33.1設(shè)計(jì)創(chuàng)立數(shù)據(jù)庫(kù)……………33.1.1設(shè)計(jì)數(shù)據(jù)庫(kù)………………3.1.2創(chuàng)立數(shù)據(jù)庫(kù)………………3.2創(chuàng)立系統(tǒng)主程序……………63.3創(chuàng)立系統(tǒng)慣用類……………73.3.1創(chuàng)立“移動(dòng)統(tǒng)計(jì)工具欄”類…………3.3.2創(chuàng)立“命令按鈕工具欄”類…………3.4創(chuàng)立系統(tǒng)主表單…………93.4.1系統(tǒng)主表單的功效……………………3.4.2創(chuàng)立系統(tǒng)主表單界面……………………3.4.3添加表單代碼………3.4.4創(chuàng)立系統(tǒng)主表單輔助表單……………3.5創(chuàng)立“讀者借書(shū)統(tǒng)計(jì)”模塊…………………323.5.1主表單的功效…………3.5.2創(chuàng)立主表單界面………3.5.3添加主表單代碼………3.5.4創(chuàng)立輔助表單…………3.6創(chuàng)立系統(tǒng)打印功效………444結(jié)論……………………45參考文獻(xiàn)……………………47致謝……………481緒論1.1系統(tǒng)開(kāi)發(fā)背景和意義圖書(shū)管理是高校內(nèi)每一種系部或院部都必須切實(shí)面對(duì)的工作，傳統(tǒng)的人工方式存在著許多缺點(diǎn)，如效率低、保密性差且較為繁瑣。另外，隨著圖書(shū)資料數(shù)量的增加，其工作量也將大大增加，這必將增加圖書(shū)資料管理者的工作量和勞動(dòng)強(qiáng)度，這將給圖書(shū)資料信息的查找、更新和維護(hù)都帶來(lái)了諸多困難。隨著科學(xué)技術(shù)的不停提高，這種傳統(tǒng)的手工管理辦法必然被以計(jì)算機(jī)為基礎(chǔ)的信息管理辦法所取代。圖書(shū)管理作為計(jì)算機(jī)應(yīng)用的一種分支，有著手工管理無(wú)法比擬的優(yōu)點(diǎn)，如檢索快速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高圖書(shū)管理的效率。因此，開(kāi)發(fā)一套能夠?yàn)轭櫩吞峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚膱D書(shū)管理系統(tǒng)，將是非常必要的，也是十分及時(shí)的。1.2開(kāi)發(fā)環(huán)境開(kāi)發(fā)環(huán)境的選擇會(huì)影響到數(shù)據(jù)庫(kù)的設(shè)計(jì)，因此在這里給出圖書(shū)管理系統(tǒng)開(kāi)發(fā)與運(yùn)行環(huán)境的選擇以下：開(kāi)發(fā)環(huán)境：WindowsXP開(kāi)發(fā)工具：VisualForPro6.02總體設(shè)計(jì)2.1應(yīng)用需求分析圖書(shū)管理系統(tǒng)需要滿足來(lái)自三方面的需求，這三個(gè)方面分別是圖書(shū)借閱者、圖書(shū)館工作人員和圖書(shū)館管理人員。圖書(shū)借閱者的需求是查詢圖書(shū)館所存的圖書(shū)、個(gè)人借閱狀況及個(gè)人信息的修改；圖書(shū)館工作人員對(duì)圖書(shū)借閱者的借閱及還書(shū)規(guī)定進(jìn)行操作，同時(shí)形成借書(shū)或還書(shū)報(bào)表給借閱者查看確認(rèn)；圖書(shū)館管理人員的功效最為復(fù)雜，涉及對(duì)工作人員、圖書(shū)借閱者、圖書(shū)進(jìn)行管理和維護(hù)及系統(tǒng)狀態(tài)的查看、維護(hù)并生成催還圖書(shū)報(bào)表。圖書(shū)借閱者可直接查看圖書(shū)館圖書(shū)狀況，如果圖書(shū)借閱者根據(jù)本人借書(shū)證號(hào)和密碼登錄系統(tǒng)，還能夠進(jìn)行本人借書(shū)狀況的查詢和維護(hù)部分個(gè)人信息。普通狀況下，圖書(shū)借閱者只應(yīng)當(dāng)查詢和維護(hù)本人的借書(shū)狀況和個(gè)人信息，若查詢和維護(hù)其它借閱者的借書(shū)狀況和個(gè)人信息，就要懂得其它圖書(shū)借閱者的借書(shū)證號(hào)和密碼。這些是很難得到的，特別是密碼，因此不僅滿足了圖書(shū)借閱者的規(guī)定，還保護(hù)了圖書(shū)借閱者的個(gè)人隱私。圖書(shū)館工作人員有修改圖書(shū)借閱者借書(shū)和還書(shū)統(tǒng)計(jì)的權(quán)限，因此需對(duì)工作人員登陸本模塊進(jìn)行更多的考慮。在此模塊中，圖書(shū)館工作人員可覺(jué)得圖書(shū)借閱者加入借書(shū)統(tǒng)計(jì)或是還書(shū)統(tǒng)計(jì)，并打印生成對(duì)應(yīng)的報(bào)表給顧客查看和確認(rèn)。圖書(shū)館管理人員功效的信息量大，數(shù)據(jù)安全性和保密性規(guī)定最高。本功效實(shí)現(xiàn)對(duì)圖書(shū)信息、借閱者信息、總體借閱狀況信息的管理和統(tǒng)計(jì)、工作人員和管理人員信息查看及維護(hù)。圖書(shū)館管理員能夠?yàn)g覽、查詢、添加、刪除、修改、統(tǒng)計(jì)圖書(shū)的基本信息；瀏覽、查詢、統(tǒng)計(jì)、添加、刪除和修改圖書(shū)借閱者的基本信息，瀏覽、查詢、統(tǒng)計(jì)圖書(shū)館的借閱信息。2.2模塊分析2.2.1功效模塊圖還書(shū)操作借書(shū)操作借還書(shū)操作圖書(shū)資料管理圖書(shū)管理系統(tǒng)學(xué)生資料管理資料打印資料查詢資料刪除資料修改逾期圖書(shū)書(shū)籍排行還書(shū)操作借書(shū)操作借還書(shū)操作圖書(shū)資料管理圖書(shū)管理系統(tǒng)學(xué)生資料管理資料打印資料查詢資料刪除資料修改逾期圖書(shū)書(shū)籍排行資料添加資料添加2.2.2模塊分析2.2.2.1“圖書(shū)資料管理”模塊“圖書(shū)資料管理”模塊重要實(shí)現(xiàn)圖書(shū)資料的分條瀏覽、添加、修改、刪除、查詢和打印功效。在表單的“書(shū)籍資料”頁(yè)框中能夠通過(guò)“移動(dòng)統(tǒng)計(jì)工具欄”分條查看系統(tǒng)內(nèi)全部的圖書(shū)的具體資料，涉及圖書(shū)的名稱、類別、作者、出版社、購(gòu)置日期等。單擊“命令按鈕工具欄”中的按鈕能夠?qū)Α皶?shū)籍資料”頁(yè)框中的統(tǒng)計(jì)進(jìn)行對(duì)應(yīng)的操作。2.2.2.2“學(xué)生資料管理”模塊“學(xué)生資料管理”模塊重要實(shí)現(xiàn)學(xué)生資料的分條瀏覽、添加、修改、刪除、查詢和打印功效。在表單的“學(xué)生資料”頁(yè)框中能夠通過(guò)“移動(dòng)統(tǒng)計(jì)工具欄”分條查看系統(tǒng)內(nèi)全部的學(xué)生具體資料，涉及學(xué)生姓名、性別、系別、班級(jí)等資料。單擊“命令按鈕工具欄”中的按鈕能夠?qū)Α皩W(xué)生資料”頁(yè)框中的統(tǒng)計(jì)進(jìn)行對(duì)應(yīng)的操作。2.2.2.3“借還書(shū)操作”模塊“借還書(shū)操作”模塊重要實(shí)現(xiàn)讀者借書(shū)統(tǒng)計(jì)的查看、借還書(shū)操作、圖書(shū)借閱排行榜、查看逾期未償還圖書(shū)和統(tǒng)計(jì)打印等功效。讀者借書(shū)統(tǒng)計(jì)查看功效能夠查看全部的借書(shū)統(tǒng)計(jì),也能夠只查看現(xiàn)在尚未償還的借書(shū)統(tǒng)計(jì)。在“讀者借書(shū)統(tǒng)計(jì)”表單中單擊“借書(shū)”按鈕,在打開(kāi)的“輸入”表單中,輸入要借出的圖書(shū)編號(hào),如果該圖書(shū)在館中并且該讀者還能借書(shū),則借書(shū)成功?！白x者借書(shū)統(tǒng)計(jì)”表單中單擊“還書(shū)”按鈕,在打開(kāi)的“輸入”表單中輸入要償還的圖書(shū)的圖書(shū)編號(hào),如果該圖書(shū)是被現(xiàn)在讀者借出,則還書(shū)成功。當(dāng)表單中顯示的是讀者未償還的圖書(shū)列表時(shí),在列出借書(shū)統(tǒng)計(jì)的表格中雙擊要償還的圖書(shū)的“圖書(shū)編號(hào)”欄即可將此圖書(shū)還入。在“讀者借書(shū)統(tǒng)計(jì)”表單中,單擊“過(guò)期”按鈕,能夠查看系統(tǒng)內(nèi)到了償還日期而未償還的圖書(shū)的借閱統(tǒng)計(jì)。在“讀者借書(shū)統(tǒng)計(jì)”表單中,單擊“排行”按鈕,能夠查看系統(tǒng)內(nèi)借閱次數(shù)在全部圖書(shū)內(nèi)排行前10名的圖書(shū)的列表。3具體設(shè)計(jì)3.1設(shè)計(jì)創(chuàng)立數(shù)據(jù)庫(kù)3.1.1本系統(tǒng)實(shí)現(xiàn)了系統(tǒng)登錄功效,而系統(tǒng)登錄需要賬號(hào)和密碼,這就需要?jiǎng)?chuàng)立一種“系統(tǒng)帳號(hào)”(Accounts)數(shù)據(jù)表,用來(lái)存儲(chǔ)系統(tǒng)登錄用的賬號(hào)和密碼。本系統(tǒng)要實(shí)現(xiàn)圖書(shū)資料和學(xué)生資料的管理,因此需要?jiǎng)?chuàng)立“學(xué)生信息”(Student)數(shù)據(jù)表和“圖書(shū)信息”(Book)數(shù)據(jù)表。“學(xué)生信息”(Student)數(shù)據(jù)表中包含了學(xué)生的“系別”信息,在本系統(tǒng)中為了簡(jiǎn)化系別的管理,另外創(chuàng)立了一種“系別”(Xibie)數(shù)據(jù)表用來(lái)存儲(chǔ)系別的信息,在“學(xué)生信息”(Student)數(shù)據(jù)表中只存儲(chǔ)系別的編號(hào)。由于系統(tǒng)要實(shí)現(xiàn)讀者借還書(shū)功效、還要實(shí)現(xiàn)讀者借還書(shū)統(tǒng)計(jì)的查看,因此還需創(chuàng)立一種“讀者借書(shū)統(tǒng)計(jì)”(JyRec)數(shù)據(jù)表來(lái)保存讀者的借閱統(tǒng)計(jì)。3.1.2“圖書(shū)借閱管理系統(tǒng)”作為一種完整的數(shù)據(jù)庫(kù)管理系統(tǒng),在創(chuàng)立階段運(yùn)用項(xiàng)目管理器能夠更加好組織管理多種格式的文獻(xiàn),因此首先需要?jiǎng)?chuàng)立一種項(xiàng)目,然后在項(xiàng)目管理器創(chuàng)立其它格式的文獻(xiàn)。在VFP主窗口中選擇“文獻(xiàn)”菜單下“新建”子菜單,在打開(kāi)的“新建”對(duì)話框的“文獻(xiàn)類型“區(qū)域中選中”項(xiàng)目”,然后單擊右側(cè)的”新建文獻(xiàn)”按鈕,打開(kāi)”創(chuàng)立“對(duì)話框中的”項(xiàng)目文獻(xiàn)“文本框中輸入項(xiàng)目名稱,在此輸入"Tushu”，單擊“保存”按鈕即創(chuàng)立了一種項(xiàng)目。在項(xiàng)目管理器的“數(shù)據(jù)”選項(xiàng)卡中選中“數(shù)據(jù)庫(kù)”單擊右側(cè)的“新建”按鈕，在彈出的“新建數(shù)據(jù)庫(kù)”對(duì)話框中單擊“新建數(shù)據(jù)庫(kù)”,在彈出的“創(chuàng)立”對(duì)話框的“數(shù)據(jù)庫(kù)名”文本框中輸入數(shù)據(jù)庫(kù)的名稱,在此輸入“Tushu”作為數(shù)據(jù)庫(kù)名,單擊“保存“按鈕即創(chuàng)立了一種空的數(shù)據(jù)庫(kù)。在項(xiàng)目管理器的“數(shù)據(jù)”選項(xiàng)卡中打開(kāi)剛剛創(chuàng)立的“Tushu”數(shù)據(jù)庫(kù)的目錄樹(shù)，選中“數(shù)據(jù)表”,單擊右側(cè)的“新建”按鈕即可開(kāi)始數(shù)據(jù)表的創(chuàng)立。本系統(tǒng)中要用到的數(shù)據(jù)表的字段的屬性設(shè)立分別設(shè)立以下?！跋到y(tǒng)賬號(hào)”(Accounts)數(shù)據(jù)表的宇段屬性設(shè)立如表3.1所示。表3.1“系統(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ù)庫(kù)中添加一條統(tǒng)計(jì)作為系統(tǒng)的默認(rèn)帳號(hào)，該統(tǒng)計(jì)的各字段的值以下:“pjs”,“pjs”,“平晉昇”?！皩W(xué)生信息”(Student)數(shù)據(jù)表各字段的屬性設(shè)立如表3.2所示。表3.2“學(xué)生信息”（Student）數(shù)據(jù)表字段屬性設(shè)立字段名數(shù)據(jù)類型闡明學(xué)號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“999999”姓名字符型字段寬度20性別字符型字段寬度2系別字符型字段寬度4，為普通索引班級(jí)字符型字段寬度10電話字符型字段寬度12，輸入掩碼為“999##9999999”郵件字符型字段寬度30地址字符型字段寬度30“系別信息”（Xibie）數(shù)據(jù)表各字段的屬性設(shè)立如表3.3所示表3.3“系別信息”（Xibie）數(shù)據(jù)表字段屬性設(shè)立字段名數(shù)據(jù)類型闡明系別號(hào)字符型字段寬度4，主索引字段，輸入掩碼為“9999”名稱字符型字段寬度20“圖書(shū)信息”（Book）數(shù)據(jù)表各字段的屬性設(shè)立如表3.4所示表3.4“圖書(shū)信息”（Tushu）數(shù)據(jù)表字段屬性設(shè)立字段名數(shù)據(jù)類型闡明圖書(shū)編號(hào)字符型字段寬度6，主索引字段，輸入掩碼為“AA9999”圖書(shū)類別字符型字段寬度10圖書(shū)名稱字符型字段寬度40圖書(shū)作者字符型字段寬度20出版社字符型字段寬度40購(gòu)置日期日期型字段寬度8購(gòu)置價(jià)格貨幣型字段寬度8借閱次數(shù)數(shù)值型字段寬度4，默認(rèn)值0與否借出邏輯型字段寬度1，默認(rèn)值“.F.”對(duì)“圖書(shū)信息”（Book）數(shù)據(jù)表的字段屬性設(shè)立需要闡明的是“借閱次數(shù)”和“與否借出”字段的默認(rèn)值一定要設(shè)立，由于對(duì)于新添加的圖書(shū)，其一定是沒(méi)有被借出的，并且其借閱次數(shù)一定是0，因此在表單中向數(shù)據(jù)表添加統(tǒng)計(jì)時(shí)，這兩個(gè)字段應(yīng)當(dāng)是不需要添加的，能夠由默認(rèn)值生成。“讀者借書(shū)統(tǒng)計(jì)”（JyRec）數(shù)據(jù)表的字段屬性如表3.5所示。表3.5“讀者借書(shū)統(tǒng)計(jì)”（JyRec）數(shù)據(jù)表字段屬性設(shè)立字段名數(shù)據(jù)類型闡明學(xué)號(hào)字符型字段寬度6，普通索引字段，輸入掩碼為“999999”圖書(shū)編號(hào)字符型字段寬度6，普通索引字段，輸入掩碼為“AA9999”借閱日期日期型字段寬度8償還日期日期型字段寬度8數(shù)據(jù)表之間的關(guān)系，將在具體表單的數(shù)據(jù)環(huán)境中設(shè)立。3.2創(chuàng)立系統(tǒng)主程序VFP應(yīng)用程序系統(tǒng)需要?jiǎng)?chuàng)立一種主程序來(lái)驅(qū)動(dòng)各個(gè)表單,在項(xiàng)目管理器的“代碼”選項(xiàng)卡中選中“程序”,單擊“新建”按鈕,即可打開(kāi)程序編輯窗口本系統(tǒng)中需要?jiǎng)?chuàng)立一種程序main.prg,用來(lái)設(shè)立系統(tǒng)的工作環(huán)境,并驅(qū)動(dòng)其它的程序和表單。將一種文獻(xiàn)設(shè)為項(xiàng)目主文獻(xiàn)的辦法是在項(xiàng)目管理器中選中該文獻(xiàn),然后在右鍵快捷菜單中選擇“設(shè)為主文獻(xiàn)”子菜單或者選擇“項(xiàng)目”菜單下“設(shè)為主文獻(xiàn)”子菜單即可。一種文獻(xiàn)設(shè)為項(xiàng)目的主文獻(xiàn)后,該文獻(xiàn)的將以粗體顯示main.prg程序的代碼為：SETTALKOFFSETSAFETYOFF&&覆蓋時(shí)不要確認(rèn)SETSTATBAROFF&&將狀態(tài)欄關(guān)閉SETSYSMENUOFF&&可關(guān)掉VFP系統(tǒng)菜單之區(qū)域SETSYSMENUTO&&關(guān)閉系統(tǒng)菜單SETCENTURYON&&顯示四位年代_Screen.VISIBLE=.F.DOFORMLogon3.3創(chuàng)立系統(tǒng)慣用類系統(tǒng)主表單中“學(xué)生資料”和“書(shū)籍資料”頁(yè)框控件中都需要用到“移動(dòng)統(tǒng)計(jì)工具欄”和“命令按鈕工具欄”,這兩個(gè)命令按鈕工具欄如果在表單中分別創(chuàng)立會(huì)使工作變得繁瑣，能夠采用創(chuàng)立工具欄類,然后在表單中用實(shí)例化的方式來(lái)簡(jiǎn)化工作。3.3.1創(chuàng)立“移動(dòng)統(tǒng)計(jì)工具欄”類“移動(dòng)統(tǒng)計(jì)工具欄”類基于“CommandGroup”基類，存儲(chǔ)于“AdminButton”可視類庫(kù)中，命名為“MoveRecord”。“移動(dòng)統(tǒng)計(jì)工具欄”類涉及“首統(tǒng)計(jì)”、“上一種”、“下一種”和“末統(tǒng)計(jì)”4個(gè)按鈕，在表單中能夠運(yùn)用這4個(gè)按鈕定位數(shù)據(jù)表中的統(tǒng)計(jì)指針。創(chuàng)立好的"移動(dòng)統(tǒng)計(jì)工具欄"類效果以下圖所示。需要指出的是，在本系統(tǒng)中當(dāng)鼠標(biāo)移動(dòng)到按鈕上時(shí)，鼠標(biāo)指針變?yōu)橐环N特定指針，這就需要一種鼠標(biāo)指定文獻(xiàn)，在本系統(tǒng)中使用“H_point.cur”文獻(xiàn)，將該鼠標(biāo)指針文獻(xiàn)放在系統(tǒng)的根目錄下，添加按鈕“MouseMove”事件以下：LPARAMETERSnButton,nShift,nXCoord,nYCoordThis.MousePointer=99This.MouseIcon=SYS(5)+"h_point.cur"3.3.2創(chuàng)立“命令按鈕工具欄“命令按鈕工具欄”類基于“CommandGroup”基類，存儲(chǔ)于“AadminButton”可視類庫(kù)中，命名為“AdmButGrp”?！懊畎粹o工具欄”類中包含“增加”（CmdAdd）、“修改”（Cmdmod）、“刪除”（Cmddel）、“查詢”（CmdSer）、“打印”（Cmdpri）、“保存”（CmdSave）、“取消”（CmdCancel）和“退出”（CmdExit）8個(gè)按鈕。由于“命令按鈕工具欄”類中的按鈕在不同的表單中的作用不同，因此不必在類中添加控鈕的代碼，能夠采用在表單中將類實(shí)例化后再添加代碼的方式。設(shè)立“命令按鈕工具欄”類及其控件的屬性如表3.6所示。表3.6“命令按鈕工具欄”類及其控件屬性控件屬性屬性取值ambutgrpButtonCount8Height330Width60按鈕控件FontBold.T.FontSize15FontName楷體GB_2312Height35Width60cmdaddCaption新增ToolTipText新增統(tǒng)計(jì)cdmodCapion修改ToolTipText修改現(xiàn)在統(tǒng)計(jì)cmddelCapion刪除ToolTipText刪除現(xiàn)在統(tǒng)計(jì)mdserCapion查詢ToolTipText查詢現(xiàn)在統(tǒng)計(jì)cdsaveCapion保存ToolTipText保存修改cdcancelCapion取消ToolTipText取消修改cmdpriCapion打印ToolTipText打印現(xiàn)在統(tǒng)計(jì)CmdexitCapion退出ToolTipText退出現(xiàn)在表單創(chuàng)立好的表單效果如右圖所示與“移動(dòng)統(tǒng)計(jì)工具欄”類相似，為了變化鼠標(biāo)停留在按鈕時(shí)的指針，還需添加按鈕的“MouseMove”事件，代碼與“移動(dòng)統(tǒng)計(jì)工具欄”類中的相似。3.4創(chuàng)立系統(tǒng)主表單系統(tǒng)主表單由兩個(gè)選項(xiàng)卡構(gòu)成，下面分別介紹這兩個(gè)選項(xiàng)卡的創(chuàng)立。3.4.1系統(tǒng)主表單的功效系統(tǒng)主表單在提供系統(tǒng)界面的同時(shí)還包含一種含有兩個(gè)頁(yè)框的頁(yè)框控件，系統(tǒng)運(yùn)用這兩個(gè)頁(yè)框控件來(lái)管理“學(xué)生信息”(Student)數(shù)據(jù)表和“圖書(shū)信息”(Book)數(shù)據(jù)表中的數(shù)據(jù)，運(yùn)用這兩個(gè)頁(yè)框能夠?qū)@兩張數(shù)據(jù)表中的數(shù)據(jù)進(jìn)行查看、添加、修改、刪除、查詢和打印等操作。同時(shí),系統(tǒng)主表單還將用來(lái)調(diào)用系統(tǒng)的借還書(shū)模塊。3.4.2創(chuàng)立系統(tǒng)主表單界面在“表單設(shè)計(jì)器”中創(chuàng)立一種表單作為系統(tǒng)主表單，命名為“MainForm”。創(chuàng)立好的表單效果中有兩個(gè)頁(yè)框，其中“學(xué)生資料”頁(yè)面效果如右圖所示。創(chuàng)立好的“書(shū)籍資料”頁(yè)框效果如右圖所示。將“學(xué)生信息”（Student）數(shù)據(jù)表、“系別信息”（Xibie）數(shù)據(jù)表、“圖書(shū)信息”（Book）數(shù)據(jù)表、“讀者借書(shū)統(tǒng)計(jì)”（JyRec）數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，用“系別信息”（Xibie）數(shù)據(jù)表的“系別號(hào)”字段和“學(xué)生信息”（Student）數(shù)據(jù)表的“系別”索引建立關(guān)聯(lián)。在表單的數(shù)據(jù)環(huán)境中，“學(xué)生信息”（Student）數(shù)據(jù)表和“圖書(shū)信息”（Book）數(shù)據(jù)表的BufferModeOverRide屬性設(shè)立為“3-開(kāi)放式緩沖”，Exclusive屬性設(shè)立為“.T.”。設(shè)立系統(tǒng)主表單屬性如表3.7所示。表3.7系統(tǒng)主表單（MainForm）屬性設(shè)立表單屬性取值A(chǔ)utoCenter.T.BorderStyle2-固定對(duì)話框BufferMode0ControlBox.T.Caption圖書(shū)借閱管理系統(tǒng)Closable.F.DeskTop.F.Hight385Width612NameMainFormMdiForm.T.MaxButton.T.Picturebg.bmpMinButton.T.ShowWindow2-作為頂層表單ShowTips.T.TitleBar1-打開(kāi)WindowState0-普通WindowType1-模式設(shè)立好系統(tǒng)主表單屬性后向表單中添加兩個(gè)頁(yè)框控件，將頁(yè)框控件的第一種頁(yè)面作為“學(xué)生資料”（StuPage）頁(yè)面，使頁(yè)框控件處在編輯狀態(tài)，然后從數(shù)據(jù)環(huán)境中將要在“學(xué)生資料”頁(yè)面中顯示的字段拖放到表單中，并將“性別”字段生成的文本框控件刪除，再添加一種選項(xiàng)按鈕組控件來(lái)顯示該字段的數(shù)據(jù)，將“系別”字段生成的文本框控件刪除，再添加一種組合框控件來(lái)顯示該字段的數(shù)據(jù)，另外將“系別信息”（Xibie）數(shù)據(jù)表中的“名稱”字段添加到“學(xué)生資料”頁(yè)面中。將“移動(dòng)統(tǒng)計(jì)工具欄”（MoveRecord）和“命令按鈕工具欄”（CmdButGrp）類在“學(xué)生資料”（StuPage）頁(yè)面中實(shí)例化，并命名為“StuAbg”和“StuMr”。在向頁(yè)面中添加控件時(shí)一定要注意使頁(yè)框處在可編輯狀態(tài)，即頁(yè)框外一種藍(lán)色的虛框，如果只是選擇了頁(yè)框控件，則此時(shí)向表單中添加控件只是向表單中添加控件，其在表單構(gòu)造中的位置是與頁(yè)框控件平行的。設(shè)立“學(xué)生資料”（StuPage）頁(yè)面及其控件的屬性如表3.8所示。表3.8系統(tǒng)主表單“學(xué)生資料”（StuPage）頁(yè)面及控件屬性設(shè)立控件屬性屬性取值StuPageCaption學(xué)生資料FontBlod.T.FontSize14FontName隸書(shū)PictureBgl.bmp標(biāo)簽控件AutoSize.T.BackStyle0-透明FontBlod.T.ForeColor0,0,0FontSize16FontName楷體GB_2312WordWrap.F.文本框控件FontSize12Height25StuMrHeight35Width320StuAbgHeight132Width168續(xù)表3.8控件屬性屬性取值Txt學(xué)號(hào)ControlSourceStudent.學(xué)號(hào)IMEMode2-關(guān)閉IMEReadOnly.T.StuogpControlSourceStudent.性別Txt姓名ControlSourceStudent.姓名IMEMode1-打開(kāi)IMEReadOnly.F.Txt班級(jí)ControlSourceStudent.班級(jí)IMEMode1-打開(kāi)IMEReadOnly.F.Cmb系別ControlSourcestudent.系別RowSourcexibie.系編號(hào)RowSourceType6-字段Style2-下拉列表框Txt名稱ControlSourceXibie.名稱IMEMode1-打開(kāi)IMEReadOnly.T.Txt地址ControlSourcestudent.地址IMEMode1-打開(kāi)IMEReadOnly.F.Txt電話ControlSourcestudent.電話IMEMode1-打開(kāi)IMEReadOnly.F.Txt郵件ControlSourcestudent.郵件IMEMode1-打開(kāi)IMEReadOnly.F.CmdjhCaption借還書(shū)頁(yè)框的兩個(gè)頁(yè)面中的另一種頁(yè)框用來(lái)作為“書(shū)籍資料”(BookPage)頁(yè)面，從表單的數(shù)據(jù)環(huán)境中將需要在“書(shū)籍資料”(BookPage)頁(yè)面中顯示宇段拖放到頁(yè)面中,并添加到頁(yè)面中的控件進(jìn)行某些調(diào)節(jié)，涉及將“與否借出”字段生成的控件刪除,添加一種標(biāo)簽控件，再根據(jù)該字段的值顯示圖書(shū)的狀態(tài)。將“移動(dòng)統(tǒng)計(jì)工具欄”類和“命令按鈕工具欄”類在“書(shū)籍資料”(BookPage)頁(yè)面中實(shí)例化,并重新命名為“BookMr”和“BookAbg”。向表單中添加一種按鈕,再添加一種名為“MicroSoftMonthViewContro1,Verdion6.0”的ActiveX控件，并命名為“SjOleRq”。設(shè)立“書(shū)籍資料”(BookPage)頁(yè)面及頁(yè)面中控件的屬性如表3.9所示。表3.9系統(tǒng)主表單“書(shū)籍資料”（BookPage）頁(yè)面及控件屬性設(shè)立控件屬性屬性取值BookPageCaption書(shū)籍資料FontBold.T.FontSize14ForeName隸書(shū)PictureBgl.bmp標(biāo)簽控件AutoSize.T.BackStyle0-透明FontBold.T.ForeColor0,0,0FontSize16ForeName楷體GB_2312WordWrap.F.文本框控件FontSize12Height25BookMrHeight35Width320BookAbgHeight132Width168LblStausAutoSize.T.BackStyle1-不透明Caption在館中續(xù)表3.9控件屬性屬性取值FontBold.T.FontSize16ForeName楷體GB_2312Txt圖書(shū)編號(hào)ControlSourceBook.圖書(shū)編號(hào)IMEMode1-打開(kāi)IMEReadOnly.F.Txt圖書(shū)名稱ControlSourceBook.圖書(shū)名稱IMEMode1-打開(kāi)IMEReadOnly.F.Txt圖書(shū)類別ControlSourceBook.圖書(shū)類別IMEMode1-打開(kāi)IMEReadOnly.F.Txt圖書(shū)作者ControlSourceBook.圖書(shū)作者IMEMode1-打開(kāi)IMEReadOnly.T.Txt購(gòu)置日期ControlSourceBook.購(gòu)置日期IMEMode2-關(guān)閉IMEReadOnly.F.Txt出版社ControlSourceBook.出版社IMEMode1-打開(kāi)IMEReadOnly.F.Txt購(gòu)置價(jià)格ControlSourceBook.購(gòu)置價(jià)格IMEMode2-關(guān)閉IMEReadOnly.F.Txt購(gòu)置價(jià)格ControlSourceBook.借閱次數(shù)IMEMode2-關(guān)閉IMEReadOnly.T.CmdrqCaption…SjOleRqVisible.F.3.4.3添加表單代碼為了方便描述，系統(tǒng)主表單中的代碼將分為三部分來(lái)介紹，其中主表單中整個(gè)表單的代碼和兩個(gè)頁(yè)面的代碼將分開(kāi)介紹。3.4.3.1添加表單中的代碼需要在系統(tǒng)主表單中添加4個(gè)屬性“StuFM”、“StuOR”、“BookFM”和“BookOR”，分別用來(lái)識(shí)別表單中“學(xué)生信息”（StuPage）頁(yè)面的狀態(tài)，頁(yè)面中的數(shù)據(jù)統(tǒng)計(jì)的指針的位置，“書(shū)籍信息”（BookPage）頁(yè)面的狀態(tài)和頁(yè)面中數(shù)據(jù)統(tǒng)計(jì)指針的位置。在表單中添加完這4個(gè)屬性后，將這4個(gè)屬性初始值設(shè)為“cbrowse”、0、“cbrowse”和0。添加4個(gè)表單的辦法屬性“StuModeBrse”、“StuModeMody”、“BookModeBrse”和“BookModeMody”，分別用來(lái)使“學(xué)生信息”（StuPage）和“書(shū)籍信息”（BookPage）頁(yè)面進(jìn)入瀏覽和非瀏覽狀態(tài)?！癝tuModeBrse”辦法屬性用來(lái)使“學(xué)生信息”（StuPage）頁(yè)面進(jìn)入瀏覽狀態(tài)。“學(xué)生信息”（StuPage）頁(yè)面的瀏覽狀態(tài)是指頁(yè)面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處在不可編輯狀態(tài)，“移動(dòng)統(tǒng)計(jì)工具欄”處在可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外都處在可用狀態(tài)，“借還書(shū)”按鈕處在可用狀態(tài)?！癝tuModeBrse”辦法屬性的代碼以下：*下列代碼使“移動(dòng)統(tǒng)計(jì)工具欄”可用THISFORM.PF.StuPage.Stumr.ENABLED=.T.*下列代碼控制“命令按鈕工具欄”中按鈕的可用狀態(tài)THISFORM.PF.StuPage.StuAbg.Cmdadd.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdmod.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmddel.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdser.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdpri.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdsave.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdcancel.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdexit.ENABLED=.T.*下列代碼用來(lái)控制“學(xué)生信息”頁(yè)面與數(shù)據(jù)綁定的控件狀態(tài)THISFORM.PF.StuPage.Stuogp.ENABLED=.F.THISFORM.PF.StuPage.txt姓名.READONLY=.T.THISFORM.PF.StuPage.cmb系別.ENABLED=.F.THISFORM.PF.StuPage.txt班級(jí).READONLY=.T.THISFORM.PF.StuPage.txt地址.READONLY=.T.THISFORM.PF.StuPage.txt電話.READONLY=.T.THISFORM.PF.StuPage.txt郵件.READONLY=.T.*下列代碼用來(lái)控制“借還書(shū)”按按鈕的可用狀態(tài)THISFORM.PF.StuPage.CmdJh.ENABLED=.T.*下列代碼用來(lái)控制表單中頁(yè)面的可用狀態(tài)THISFORM.PF.BookPage.ENABLED=.T.THIS.ENABLED=.T.“StuModeMody”辦法屬性用來(lái)使表單的“學(xué)生信息”（StuPage）頁(yè)面進(jìn)入非瀏覽狀態(tài)，該頁(yè)面的非瀏覽狀態(tài)是指頁(yè)面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處在可修改狀態(tài)，“移動(dòng)統(tǒng)計(jì)工具欄”處在不可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外其它按鈕都處在不可用狀態(tài)，“借還書(shū)”按鈕處在可用狀態(tài)，“書(shū)籍信息”頁(yè)面處在不可用狀態(tài)?！癝tuModeMody”辦法屬性的代碼以下：*下列代碼使“移動(dòng)統(tǒng)計(jì)工具欄”不可用THISFORM.PF.StuPage.Stumr.ENABLED=.F.*下列代碼控制“命令按鈕工具欄”中按鈕的可用狀態(tài)THISFORM.PF.StuPage.StuAbg.Cmdadd.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdmod.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmddel.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdser.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdpri.ENABLED=.F.THISFORM.PF.StuPage.StuAbg.Cmdsave.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdcancel.ENABLED=.T.THISFORM.PF.StuPage.StuAbg.Cmdexit.ENABLED=.F.*下列代碼用來(lái)控制“學(xué)生信息”頁(yè)面與數(shù)據(jù)綁定的控件狀態(tài)THISFORM.PF.StuPage.Stuogp.ENABLED=.T.THISFORM.PF.StuPage.txt姓名.READONLY=.F.THISFORM.PF.StuPage.cmb系別.ENABLED=.T.THISFORM.PF.StuPage.txt班級(jí).READONLY=.F.THISFORM.PF.StuPage.txt地址.READONLY=.F.THISFORM.PF.StuPage.txt電話.READONLY=.F.THISFORM.PF.StuPage.txt郵件.READONLY=.F.*下列代碼用來(lái)控制“借還書(shū)”按按鈕的可用狀態(tài)THISFORM.PF.StuPage.CmdJh.ENABLED=.F.*下列代碼用來(lái)控制表單中頁(yè)面的可用狀態(tài)THISFORM.PF.BookPage.ENABLED=.F.THIS.ENABLED=.T.“BookModeBrse”辦法屬性用來(lái)使“書(shū)籍信息”（BookPage）頁(yè)面進(jìn)入瀏覽狀態(tài)?！皶?shū)籍信息”（BookPage）頁(yè)面的瀏覽狀態(tài)是指頁(yè)面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處在不可編輯狀態(tài)，“移動(dòng)統(tǒng)計(jì)工具欄”處在可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外都處在可用狀態(tài)，“借還書(shū)”按鈕處在可用狀態(tài)，“學(xué)生信息”（StuPage）頁(yè)面處在可用狀態(tài)?！癇ookModeBrse”辦法屬性的代碼：*下列代碼使“移動(dòng)統(tǒng)計(jì)工具欄”可用THISFORM.PF.BookPage.Sjmr.ENABLED=.T.*下列代碼使“...”按鈕不可用THISFORM.PF.BookPage.CmdRq.ENABLED=.F.*下列代碼控制“命令按鈕工具欄”中按鈕的狀態(tài)THISFORM.PF.BookPage.SjAbg.Cmdadd.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdmod.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmddel.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdser.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdpri.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdsave.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdcancel.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdexit.ENABLED=.T.*下列代碼控制頁(yè)面中與數(shù)綁定的控件中數(shù)據(jù)的可編輯狀態(tài)THISFORM.PF.BookPage.txt圖書(shū)編號(hào).READONLY=.T.THISFORM.PF.BookPage.txt圖書(shū)名稱.READONLY=.T.THISFORM.PF.BookPage.txt圖書(shū)類別.READONLY=.T.THISFORM.PF.BookPage.txt圖書(shū)作者.READONLY=.T.THISFORM.PF.BookPage.txt購(gòu)置日期.READONLY=.T.THISFORM.PF.BookPage.txt出版社.READONLY=.T.THISFORM.PF.BookPage.txt購(gòu)置價(jià)格.READONLY=.T.*下列代碼用來(lái)控制表單中頁(yè)面的可用狀態(tài)THISFORM.PF.StuPage.ENABLED=.T.THIS.ENABLED=.T.“BookModeMody”辦法屬性用來(lái)使“書(shū)籍信息”（BookPage）頁(yè)面進(jìn)入非瀏覽狀態(tài)，“書(shū)籍信息”（BookPage）頁(yè)的非瀏覽狀態(tài)是指頁(yè)面中與數(shù)據(jù)綁定的控件中的數(shù)據(jù)處在可修改狀態(tài)，“移動(dòng)統(tǒng)計(jì)工具欄”處在不可用狀態(tài)，“命令按鈕工具欄”中除了“保存”和“取消”按鈕外其它按鈕都處在不可用狀態(tài)，“購(gòu)置日期”欄后的“...”按鈕處在可用狀態(tài)，“學(xué)生信息”頁(yè)面處在不可用狀態(tài)?！癇ookModeMody”辦法屬性的代碼：*下列代碼使“移動(dòng)統(tǒng)計(jì)工具欄”不可用THISFORM.PF.BookPage.Sjmr.ENABLED=.F.*下列代碼使“...”按鈕可用THISFORM.PF.BookPage.CmdRq.ENABLED=.T.*下列代碼控制“命令按鈕工具欄”中按鈕的狀態(tài)THISFORM.PF.BookPage.SjAbg.Cmdadd.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdmod.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmddel.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdser.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdpri.ENABLED=.F.THISFORM.PF.BookPage.SjAbg.Cmdsave.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdcancel.ENABLED=.T.THISFORM.PF.BookPage.SjAbg.Cmdexit.ENABLED=.F.*下列代碼控制頁(yè)面中與數(shù)綁定的控件中數(shù)據(jù)的可編輯狀態(tài)THISFORM.PF.BookPage.txt圖書(shū)編號(hào).READONLY=.T.THISFORM.PF.BookPage.txt圖書(shū)名稱.READONLY=.F.THISFORM.PF.BookPage.txt圖書(shū)類別.READONLY=.F.THISFORM.PF.BookPage.txt圖書(shū)作者.READONLY=.F.THISFORM.PF.BookPage.txt購(gòu)置日期.READONLY=.F.THISFORM.PF.BookPage.txt出版社.READONLY=.F.THISFORM.PF.BookPage.txt購(gòu)置價(jià)格.READONLY=.F.*下列代碼用來(lái)控制表單中頁(yè)面的可用狀態(tài)THISFORM.PF.StuPage.ENABLED=.F.THIS.ENABLED=.T.添加完表單的屬性后，由于系統(tǒng)中需要運(yùn)用幾個(gè)全局變量在表單中傳遞數(shù)據(jù)，因此需要在主表單中聲明這幾個(gè)全局變量。添加表單的Init事件代碼以下：PUBLICStudentNO,StuTj,BookTj,DbName這幾個(gè)全局變量的作用分別以下：“StudentNO”是當(dāng)系統(tǒng)主表單調(diào)用“讀者借書(shū)統(tǒng)計(jì)”表單時(shí)，向該表單傳遞系統(tǒng)主表單的“學(xué)生信息”頁(yè)面中統(tǒng)計(jì)的學(xué)號(hào)值，方便讓“讀者借書(shū)統(tǒng)計(jì)”表單顯示該學(xué)號(hào)的資料?！癝tuTj”和“BookTj”用在“學(xué)生信息”和“書(shū)籍信息”兩個(gè)頁(yè)面的“輸入查詢條件”表單和“查詢成果”表單之間傳遞查詢條件的值?！癉bName”用在“學(xué)生信息”和“書(shū)籍信息”兩個(gè)頁(yè)面共用一種“選擇打印類型”表單時(shí)，用于辨別該全局變量是應(yīng)當(dāng)打印那一張報(bào)表。4.4.3.2添加“學(xué)生信息”頁(yè)面代碼在“學(xué)生信息”（StuPage）被激活時(shí)，應(yīng)當(dāng)將“學(xué)生信息”（Student）數(shù)據(jù)表所在工作區(qū)作為表單的現(xiàn)在工作區(qū)，取消由其它表單設(shè)立的過(guò)慮條件，并且使頁(yè)面進(jìn)入瀏覽狀態(tài)。添加“學(xué)生信息”頁(yè)面的Activate事件代碼以下：“學(xué)生信息”頁(yè)面中的“系別”組合框中選擇某一種系編號(hào)后，要在“名稱”欄顯示系統(tǒng)編號(hào)所代碼的系別名稱，由于在數(shù)據(jù)環(huán)境中將兩者做了關(guān)連，因此在選擇了某個(gè)系編號(hào)后只需要刷新表單即可。添加“cmb系別”組合框的Valid事件代碼以下：THISFORM.PF.StuPgge.txt系別.REFRESH()“移動(dòng)統(tǒng)計(jì)工具欄”中按鈕的代碼已經(jīng)在類中創(chuàng)立，并且這些代碼在各個(gè)表單中完全相似，不需要再另行添加?！懊畎粹o工具欄”中“增加”（Cmdadd）按鈕的作用是先保存頁(yè)中現(xiàn)在的統(tǒng)計(jì)號(hào)，標(biāo)記表單的狀態(tài)為新增狀態(tài)，然后在表單的數(shù)據(jù)緩沖區(qū)新建一條統(tǒng)計(jì)，并且使現(xiàn)在頁(yè)面進(jìn)入非瀏覽狀態(tài)。“增加”（Cmdadd）按鈕的Click事件代碼以下：SELECTStudentTHISFORM.StuOR=RECNO()GOBOTTOMAPPENDBLANKTHISFORM.StuModeMody()THISFORM.StuFM="cadd"THISFORM.PF.StuPage.txt學(xué)號(hào).READONLY=.F.THISFORM.REFRESH()“命令按鈕工具欄”中“修改”（Cmdmod）按鈕的作用是保存頁(yè)面在現(xiàn)在統(tǒng)計(jì)的統(tǒng)計(jì)號(hào)，標(biāo)記表單的狀態(tài)為修改狀態(tài)，然后使表單中的現(xiàn)在頁(yè)面進(jìn)入非瀏覽狀態(tài)?！靶薷摹保–mdmod）按鈕的Click事件代碼以下：THISFORM.StuFM="cmod"THISFORM.StuOR=RECNO()THISFORM.StuModeMody()THISFORM.REFRESH()“命令按鈕工具欄”中“刪除”（Cmddel）按鈕的作用首先彈出確認(rèn)對(duì)話框，如果確認(rèn)則進(jìn)行刪除操作。由于本系統(tǒng)中學(xué)生的信息也會(huì)在別的數(shù)據(jù)表中出現(xiàn)，如果在該數(shù)據(jù)表中刪除了學(xué)生的數(shù)據(jù)，而在其它數(shù)據(jù)表中保存會(huì)造成信息的多出與不便，因此本系統(tǒng)采用的方式是如果在“學(xué)生信息”數(shù)據(jù)表中刪除了某一種學(xué)生的數(shù)據(jù)，則在其它的數(shù)據(jù)表（重要是指“讀者借書(shū)統(tǒng)計(jì)”數(shù)據(jù)表）刪除與該學(xué)生有關(guān)的一切統(tǒng)計(jì)，但是如果該學(xué)生在刪除時(shí)仍有未償還的圖書(shū)，系統(tǒng)將不允許刪除?！皠h除”（Cmddel）按鈕的Click事件代碼以下：YN=MESSAGEBOX("擬定刪除",4+32,"圖書(shū)管理系統(tǒng)")&&確認(rèn)對(duì)話框IFYN=6&&如果確認(rèn)THISFORM.StuOR=RECNO()&&保存統(tǒng)計(jì)指針位置SETEXACTON&&嚴(yán)格比較SELECTJyRecLOCATEFOR學(xué)號(hào)=ALLTRIM(THISFORM.PF.StuPage.txt學(xué)號(hào).VALUE)ANDEMPTY(償還日期)&&查找與否有未還圖書(shū)IFFOUND()&&如果有MESSAGEBOX("該學(xué)生有未還書(shū)，不能刪除",48,"圖書(shū)管理系統(tǒng)")&&彈出對(duì)話框SELECTStudent&&回到原統(tǒng)計(jì)SETFILTERTOGOTHISFORM.StuORELSE&&如果沒(méi)有未還書(shū)SELECTJyRec&&選擇“讀者借閱統(tǒng)計(jì)”所在的工作區(qū)GOTOP&&到數(shù)據(jù)表頂部DOWHILENOTEOF()&&刪除與要?jiǎng)h除的學(xué)生有關(guān)的借閱統(tǒng)計(jì)IF學(xué)號(hào)=ALLTRIM(THISFORM.PF.StuPage.txt學(xué)號(hào).VALUE)DELETEPACKENDIFSKIPENDDOSELECTStudent&&在“學(xué)生信息”數(shù)據(jù)表中刪除統(tǒng)計(jì)DELETEPACKMESSAGEBOX("刪除成功",64,"圖書(shū)管理系統(tǒng)")&&“刪除成功”對(duì)話框SELECTStudentGOTOPENDIFTHISFORM.REFRESH()SETEXACTOFFENDIF“命令按鈕工具欄”中“查詢”（CmdSer）按鈕的作用是調(diào)用“輸入查詢條件”表單，其Click事件代碼以下：DOFORMStuSer“命令按鈕工具欄”中“保存”（CmdSave）按鈕的作用是檢查表單中各數(shù)據(jù)欄中數(shù)據(jù)的輸入完整狀況，如果無(wú)誤，則保存統(tǒng)計(jì)。“保存”（CmdSave）按鈕的Click事件代碼以下：LOCALOK&&聲明一種本地變量OK=.T.&&假設(shè)各數(shù)據(jù)欄中數(shù)據(jù)無(wú)誤DOCASECASEEMPTY(ALLTRIM(THISFORM.PF.StuPage.txt學(xué)號(hào).VALUE))&&如果學(xué)號(hào)為空MESSAGEBOX("學(xué)號(hào)不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.txt學(xué)號(hào).SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.StuPage.txt姓名.VALUE)&&如果姓名為空MESSAGEBOX("姓名不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.txt姓名.SETFOCUS()OK=.F.CASEEMPTY(THISFORM.PF.StuPage.Cmb系別.VALUE)&&如果系別為空MESSAGEBOX("系別不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.Cmb系別.SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.StuPage.txt地址.VALUE))&&如果地址為空MESSAGEBOX("地址不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.txt地址.SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.StuPage.txt電話.VALUE))&&如果電話為空MESSAGEBOX("電話不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.txt姓名.SETFOCUS()OK=.F.ENDCASEIFOK=.T.&&如果各數(shù)據(jù)欄無(wú)誤為空YN=MESSAGEBOX("擬定保存",4+32,"圖書(shū)管理系統(tǒng)")&&彈出確認(rèn)對(duì)話框IFYN=6&&如果確認(rèn)CanSave=TABLEUPDATE(.F.)&&試圖保存IFCanSave=.F.&&如果保存失敗MESSAGEBOX("學(xué)號(hào)錯(cuò)誤",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.StuPage.txt學(xué)號(hào).SETFOCUS()ELSE&&如果保存成功MESSAGEBOX("保存成功",64,"圖書(shū)管理系統(tǒng)")THISFORM.StuModeBrse()IFTHISFORM.StuFM="cmod"GOTHISFORM.StuORELSETHISFORM.PF.StuPage.txt學(xué)號(hào).READONLY=.T.ENDIFENDIFTHISFORM.REFRESH()ENDIFENDIF“命令按鈕工具欄”中“取消”（CmdCancel）按鈕的作用是刪除表單的數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)，并使現(xiàn)在頁(yè)面回到瀏覽狀態(tài)?！叭∠保–mdCancel）按鈕的Click事件代碼以下：YN=MESSAGEBOX("擬定取消",4+32,"系統(tǒng)消息")IFYN=6TABLEREVERT(.F.)IFTHISFORM.StuFM="cadd"GOTHISFORM.StuORENDIFTHISFORM.StuModeBrse()THISFORM.PF.StuPage.txt學(xué)號(hào).READONLY=.T.THISFORM.REFRESH()ENDIF“命令按鈕工具欄”中“打印”（Cmdpri）按鈕的作用是將“DbfName”全局變量賦值，表明要進(jìn)行打印的是“學(xué)生信息”數(shù)據(jù)表，并調(diào)用“選擇打印類型”表單?！按蛴　保–mdPri）按鈕的Click事件代碼以下：DbfName=”StuDbf”DOFORMPrintLX“命令按鈕工具欄”中“退出”（Cmdexit）按鈕的作用是彈出確認(rèn)對(duì)話框，如果確認(rèn)則是退出現(xiàn)在表單，去除事件循環(huán)并退出系統(tǒng)?！巴顺觥保–mdexti）按鈕的Click事件代碼以下YN=MESSAGEBOX("擬定退出",4+32,"圖書(shū)管理系統(tǒng)")IFYN=6THISFORM.RELEASE()CLEAREVENTSQUITENDIF“學(xué)生信息”頁(yè)面中“借還書(shū)”（Cmdjh）按鈕的作用是將頁(yè)面中現(xiàn)在統(tǒng)計(jì)的“學(xué)號(hào)”值賦給全局變量“StudentNO”，并調(diào)用“讀者借書(shū)統(tǒng)計(jì)”表單。“借還書(shū)”（Cmdjh）按鈕的Click事件代碼以下：StudentNO=ALLTRIM(THISFORM.PF.StuPage.txt學(xué)號(hào).VALUE)DOFORMJyRec4.4.3.3添加“書(shū)籍信息”頁(yè)面代碼在“書(shū)籍信息”（BookPage）頁(yè)面被激活時(shí)，表單中的現(xiàn)在數(shù)據(jù)工作期應(yīng)當(dāng)變?yōu)椤皥D書(shū)信息”數(shù)據(jù)表所在的工作期，將可能由其它表單對(duì)該數(shù)據(jù)表設(shè)立的過(guò)慮條件去掉，同時(shí)要使該頁(yè)面進(jìn)入瀏覽狀態(tài)。添加該頁(yè)面的“Activate”事件代碼由于該頁(yè)面要在刷新表單時(shí)，顯示表單中現(xiàn)在統(tǒng)計(jì)的書(shū)籍與否借出，故添加該頁(yè)面的Refresh事件代碼在“書(shū)籍信息”（BookPage）頁(yè)面在通過(guò)添加的MonthView控件（SjOleRq）來(lái)輸入圖書(shū)的購(gòu)置日期，在該頁(yè)面處在非瀏覽狀態(tài)時(shí)單擊“...”按鈕即可調(diào)用該控件。添加“...”（Cmdrq）按鈕的Click事件代碼以下：THISFORM.PF.BookPage.Sjolerq.VISIBLE=.T.“命令按鈕工具欄”中“增加”（Cmdadd）按鈕的作用是保存頁(yè)面中數(shù)據(jù)統(tǒng)計(jì)的指針位置，將頁(yè)面的狀態(tài)標(biāo)記為新增狀態(tài)，再在表單事件緩沖區(qū)內(nèi)新建一條統(tǒng)計(jì)，并使頁(yè)面進(jìn)入非瀏覽狀態(tài)?！疤砑印保–mdadd）按鈕的Click事件代碼以下：SELECTBookTHISFORM.SjOR=RECNO()GOBOTTOMAPPENDBLANKTHISFORM.SjFM="cadd"THISFORM.SjModeMody()THISFORM.PF.BookPage.txt圖書(shū)編號(hào).READONLY=.F.THISFORM.REFRESH()“命令按鈕工具欄”中“刪除”（Cmdadd）按鈕的作用是彈出確認(rèn)對(duì)話框，如果確認(rèn)，則檢查要?jiǎng)h除的圖書(shū)與否在庫(kù)中，如查不在則彈出出錯(cuò)對(duì)話框，如果在庫(kù)中則首先刪除“讀者借書(shū)統(tǒng)計(jì)”（Jyrec）數(shù)據(jù)表中的與要?jiǎng)h除的圖書(shū)有關(guān)的全部統(tǒng)計(jì)，再刪除該圖書(shū)統(tǒng)計(jì)，刪除成功后彈出“刪除成功”對(duì)話框?！皠h除”（Cmddel）按鈕的Click事件代碼以下：YN=MESSAGEBOX("擬定刪除",4+32,"圖書(shū)管理系統(tǒng)")&&確認(rèn)對(duì)話框IFYN=6&&如果確認(rèn)THISFORM.SjOR=RECNO()&&保存統(tǒng)計(jì)號(hào)IFTHISFORM.PF.BookPage.LblStatus.CAPTION="借出中"&&如果該圖書(shū)不在庫(kù)中MESSAGEBOX("該圖書(shū)尚未償還",48,"圖書(shū)管理系統(tǒng)")&&不能刪除ELSE&&如果在庫(kù)中SELECTJyRec&&對(duì)圖書(shū)借閱統(tǒng)計(jì)表進(jìn)行修改SETEXACTON&&精確比較GOTOP&&到數(shù)據(jù)表的頂部DOWHILENOTEOF()&&刪除全部與要?jiǎng)h除的圖書(shū)有關(guān)的統(tǒng)計(jì)IF圖書(shū)編號(hào)=ALLTRIM(THISFORM.PF.BookPage.txt圖書(shū)編號(hào).VALUE)DELETEPACKENDIFSKIPENDDOSELECTBook&&刪除圖書(shū)統(tǒng)計(jì)GOTHISFORM.SjORDELETEPACKMESSAGEBOX("刪除成功",64,"圖書(shū)管理系統(tǒng)")&&“刪除成功”對(duì)話框SETEXACTOFFTHISFORM.REFRESH()ENDIFENDIF“命令按鈕工具欄”中“查詢”（CmdSer）按鈕的作用是調(diào)用“輸入查詢條件”表單，該按鈕的Click事件代碼以下：DOFORMBookSer“命令按鈕工具欄”中“保存”（CmdSave）按鈕的作用是在單擊按鈕時(shí)，檢查頁(yè)面中數(shù)據(jù)的輸入狀況，如果無(wú)誤則保存數(shù)據(jù)，并彈出“保存成功”對(duì)話框，否則指出錯(cuò)誤，并將光標(biāo)定位在錯(cuò)誤處，等待顧客修改?！氨４妗保–mdSave）按鈕的Click事件代碼以下：LOCALOKOK=.T.DOCASECASEEMPTY(ALLTRIM(THISFORM.PF.BookPage.txt圖書(shū)編號(hào).VALUE))&&如果圖書(shū)編號(hào)為空MESSAGEBOX("圖書(shū)編號(hào)不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt圖書(shū)編號(hào).SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.BookPage.txt圖書(shū)名稱.VALUE))&&如果圖書(shū)名稱為空MESSAGEBOX("圖書(shū)名稱不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt圖書(shū)名稱.SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.BookPage.txt圖書(shū)類別.VALUE))&&如果圖書(shū)類別為空MESSAGEBOX("圖書(shū)類別不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt圖書(shū)類別.SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.BookPage.txt圖書(shū)作者.VALUE))&&如果圖書(shū)作者為空MESSAGEBOX("圖書(shū)作者不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt圖書(shū)作者.SETFOCUS()OK=.F.CASEEMPTY(THISFORM.PF.BookPage.txt購(gòu)置日期.VALUE)&&如果購(gòu)置日期為空MESSAGEBOX("購(gòu)置日期不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt購(gòu)置日期.SETFOCUS()OK=.F.CASEEMPTY(ALLTRIM(THISFORM.PF.BookPage.txt出版社.VALUE))&&如果出版社為空MESSAGEBOX("出版社不能為空",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt出版社.SETFOCUS()OK=.F.CASETHISFORM.PF.BookPage.txt購(gòu)置價(jià)格.VALUE<=0&&如果購(gòu)置價(jià)格不大于或者為0MESSAGEBOX("購(gòu)置價(jià)格錯(cuò)誤",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt購(gòu)置價(jià)格.SETFOCUS()OK=.F.ENDCASEIFOK=.T.&&如果各數(shù)據(jù)項(xiàng)無(wú)誤YN=MESSAGEBOX("擬定保存",4+32,"圖書(shū)管理系統(tǒng)")&&確認(rèn)對(duì)話框IFYN=6&&如果確認(rèn)SaveOk=TABLEUPDATE(.F.)&&試圖保存IFSaveOk=.T.&&如果保存成功MESSAGEBOX("保存成功",64,"圖書(shū)管理系統(tǒng)")THISFORM.SjModeBrse()THISFORM.PF.BookPage.txt圖書(shū)編號(hào).READONLY=.T.ELSE&&如果保存失敗MESSAGEBOX("圖書(shū)編號(hào)錯(cuò)誤",48,"圖書(shū)管理系統(tǒng)")THISFORM.PF.BookPage.txt圖書(shū)編號(hào).SETFOCUS()ENDIFENDIFENDIF“命令按鈕工具欄”中“取消”（CmdCancel）按鈕的作用是將表單的數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)刪除并使表單回到瀏覽狀態(tài)?！叭∠保–mdCancel）按鈕的Click事件代碼以下：YN=MESSAGEBOX("擬定取消",4+32,"系統(tǒng)消息")IFYN=6TABLEREVERT(.F.)IFTHISFORM.SjFM="cadd"GOTHISFORM.SjORENDIFTHISFORM.SjFM="cbrowse"THISFORM.SjModeBrse()THISFORM.PF.BookPage.txt圖書(shū)編號(hào).READONLY=.T.THISFORM.REFRESH()ENDIF“命令按鈕工具欄”中“打印”（Cmdpri）按鈕的作用是將全局變量“DbfName”賦值，并調(diào)用“選擇打印類型”表單?！按蛴　保–mdpri）按鈕的Click事件代碼以下：DbfName=”BookDbf”DOFORMPrintLX“命令按鈕工具欄”中“退出”（Cmdexit）按鈕的作用是彈出確認(rèn)對(duì)話框，如果確認(rèn)則退出現(xiàn)在表單，去除事件循環(huán)并退出系統(tǒng)?！巴顺觥保–mdexit）按鈕的Click事件代碼以下：YN=MESSAGEBOX("擬定退出",4+32,"圖書(shū)管理系統(tǒng)")IFYN=6THISFORM.RELEASE()CLEARQUITENDIF3.4.4系統(tǒng)主表單的輔助表單重要涉及“學(xué)生信息”頁(yè)面和“圖書(shū)信息”頁(yè)面的查詢功效和一種“選擇打印類型”表單。3.4.4.1創(chuàng)立“學(xué)生信息”“學(xué)生信息”（StuPage）頁(yè)面的查詢功效由“輸入查詢條件”和“學(xué)生信息查詢成果”表單構(gòu)成。下面介紹這兩個(gè)表單的創(chuàng)立過(guò)程。（1）創(chuàng)立“輸入查詢條件”表單“輸入查詢條件”表單用來(lái)向顧客收集要查詢的條件，查詢的條件能夠是根據(jù)某一種字段進(jìn)行查詢，也能夠指定多個(gè)查詢條件，這些條件將以“AND”連接，然后根據(jù)條件查詢。在“表單設(shè)計(jì)器”中創(chuàng)立一種表單作為“輸入查詢條件”表單，命名為“StuSer”。創(chuàng)立好的“輸入查詢條件”表單效果如右圖所示。在表單中添加4個(gè)標(biāo)簽控件、4個(gè)文本框控件和2個(gè)按鈕控件，設(shè)立表單及其控件的屬性如表3.10所示。表3.10“輸入查詢條件”（StuSer）表單控件屬性設(shè)立控件屬性屬性取值StuSerAutoCenter.T.BorderStyle2-固定對(duì)話框ControlBox.F.Caption輸入查詢條件Closable.F.Hight200Width300NameStuSerMdiForm.T.MaxButton.F.MinButton.F.ShowWindow1-在頂層表單中ShowTips.T.windowType1-模式標(biāo)簽控件AutoSize.T.BackStyle0-透明FontBold.T.FontSize16ForeColor255,0,0FontName楷體GB_2312WordWarp.F.文本框控件FontSize12Hight25Width240按鈕控件FontBold.T.FontSize16FontName楷體GB_2312Hight30續(xù)表3.10控件屬性屬性取值Width50Txt姓名IMEMode1-打開(kāi)IMETxt郵件IMEMode2-關(guān)閉IMETxt地址IMEMode1-打開(kāi)IMECmdSerCaption查詢Default.T.ToolTipText執(zhí)行查詢CmdextCaption退出Cancel.T.ToolTipText取消查詢?cè)摫韱沃械淖饔檬窍蝾櫩褪占樵儣l件，而這個(gè)作用也重要由“查詢”（CmdSer）按鈕來(lái)完畢，當(dāng)顧客單擊該按鈕時(shí)檢查表單的文本框中數(shù)據(jù)的輸入狀況，如果文本框中有數(shù)據(jù)則將該文本框中的數(shù)據(jù)作一種查詢條件，如果有多個(gè)查詢條件則用“AND”將這些條件連接起來(lái)，然后調(diào)用“學(xué)生信息查詢成果”表單?！安樵儭保–mdSer）按鈕的Click事件代碼以下：StuTJ=".T."IFNOTEMPTY(ALLTRIM(THISFORM.txt學(xué)號(hào).VALUE))&&如果學(xué)號(hào)欄非空StuTJ="'"+ALLTRIM(Thisform.txt學(xué)號(hào).Value)+"'$學(xué)號(hào)"ENDIFIFNOTEMPTY(ALLTRIM(THISFORM.txt姓名.VALUE))&&如果姓名欄非空StuTJ=StuTJ+"AND"+"'"+ALLTRIM(THISFORM.txt姓名.VALUE)+"'$姓名"ENDIFIFNOTEMPTY(ALLTRIM(THISFORM.txt郵件.VALUE))&&如果郵件欄非空StuTJ=StuTJ+"AND"+"'"+ALLTRIM(THISFORM.txt郵件.VALUE)+"'$郵件"ENDIFIFNOTEMPTY(ALLTRIM(THISFORM.txt地址.VALUE))&&如果地址欄非空StuTJ=StuTJ+"AND"+"'"+ALLTRIM(THISFORM.txt地址.VALUE)+"'$地址"ENDIFTHISFORM.RELEASE()DOFORMStuSerout“退出”（Cmdext）按鈕的作用是退出現(xiàn)在表單，其Click事件代碼以下：THISFORM.RELEASE()（2）創(chuàng)立“學(xué)生信息查詢成果”表單“學(xué)生信息查詢成果”表單用來(lái)顯示“學(xué)生信息”數(shù)據(jù)表中符合查詢條件的統(tǒng)計(jì)。在“表單設(shè)計(jì)器”中創(chuàng)立一種表單作為“學(xué)生信息查詢成果”表單，命名為StuSerout。創(chuàng)立好的表單效果如右圖所示。將“學(xué)生信息”（Student）數(shù)據(jù)表和“系別信息”（Xibie）數(shù)據(jù)表添加到表單的數(shù)據(jù)環(huán)境中，并用“系別信息”（Xibie）數(shù)據(jù)表的“系編號(hào)”字段與“學(xué)生信息”（Student）數(shù)據(jù)表的“系別”索引建立關(guān)系。在表單中添加1個(gè)標(biāo)簽控件、1個(gè)表格控件和2個(gè)按鈕控件。其中表格控件能夠用“表格生成器”來(lái)創(chuàng)立，運(yùn)用表格生成器創(chuàng)立完畢后將“系別”列的數(shù)據(jù)源更改為“Xibie.名稱”。表格的屬性與“輸入查詢添加”的表單屬性大致相似，這里不再重復(fù)列舉。要使表單中只顯示符合查詢條件的統(tǒng)計(jì)，需要在對(duì)表單的數(shù)據(jù)環(huán)境設(shè)立過(guò)慮條件，另外如果沒(méi)有符合查詢條件的統(tǒng)計(jì)，則“打印”按鈕不可用，添加表單的Init事件代碼以下：SELECTStudentSETFILTERTO&StuTJCOUNTFOR&StuTJTOnNumberIFnNumber=0THISFORM.Cmdpri.ENABLED=.F.ENDIF表單中的“打印”（Cmdpri）按鈕的作用是將查詢成果以報(bào)表的形式輸出，并以瀏覽的方式查看打印成果。添加“打印”（Cmdpri）按鈕的Click事件代碼以下：REPORTFORMStuInfoFOR&StuTJPREVIEW表單中的“退出”（CmdExt）按鈕的作用是彈出確認(rèn)對(duì)話框，如果確認(rèn)則退出表單，并取消數(shù)據(jù)環(huán)境設(shè)立的過(guò)慮條件。“退出”（CmdExt