VB環(huán)境下基于Access數(shù)據(jù)庫圖書管理系統(tǒng)的開發(fā)與實(shí)現(xiàn)畢業(yè)論文設(shè)計(jì)

1、X X X X 畢 業(yè) 論 文 學(xué)院： 年級(jí)： 專業(yè)： 班級(jí)： 姓名：指導(dǎo)老師： 課題：VB環(huán)境下基于Access數(shù)據(jù)庫圖 書管理系統(tǒng)的開發(fā)與實(shí)現(xiàn)目錄內(nèi)容摘要1關(guān) 鍵 詞1Abstract1Keywords11.概 述 211數(shù)據(jù)庫及其應(yīng)用212數(shù)據(jù)庫設(shè)計(jì)概念213數(shù)據(jù)庫設(shè)計(jì)周期32需求分析521工程提出的背景522圖書管理信息系統(tǒng)的構(gòu)成53系統(tǒng)的概念631系統(tǒng)E-R圖設(shè)計(jì)632 Access數(shù)據(jù)庫設(shè)計(jì)74圖書管理系統(tǒng)的實(shí)現(xiàn)1441管理員登陸模塊設(shè)計(jì)1442增加用戶模塊設(shè)計(jì)1543修改密碼模塊設(shè)計(jì)1744圖書登記模塊設(shè)計(jì)1845圖書借閱模塊設(shè)計(jì)2146圖書賠償模塊設(shè)計(jì)2347查詢輸出模塊設(shè)計(jì)2

2、648值班管理模塊設(shè)計(jì)2749菜單編輯器模塊設(shè)計(jì)305調(diào)試與分析33參考文獻(xiàn)34致謝35VB環(huán)境下基于Access數(shù)據(jù)庫的圖書管理系統(tǒng)的開發(fā)與實(shí)現(xiàn)內(nèi)容摘要：圖書管理系統(tǒng)是一個(gè)教育單位不可缺少的局部, 是典型的信息管理系統(tǒng)(MIS)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)平安性好的庫。而對(duì)于后者那么要求應(yīng)用程序功能完備,易使用等特點(diǎn)。因此，結(jié)合我校師生較多和生源較雜的情況，以方便我校師生和圖書管理人員，再加上對(duì)Microsoft Access 2003數(shù)據(jù)庫管理系統(tǒng)、VB應(yīng)用程序的學(xué)習(xí)和應(yīng)用，主要完成對(duì)圖書管理系統(tǒng)的需求分析、結(jié)構(gòu)

3、設(shè)計(jì)、總體規(guī)劃及數(shù)據(jù)庫的實(shí)現(xiàn)。關(guān)鍵詞：圖書管理、圖書資料、值班管理、系統(tǒng)管理Abstract: The book management system is an education unit indispensability of part,which is typical model of information management system. Its development is main to include a backstage database of of establishment and maintenance and head application procedure

4、 of development.For the former requests establishment data consistency and integrity strong, the data safety good database.But for the latter requests application the procedure function be completed, easy usage etc. characteristics.Therefore combing teachers and the students in my school is more wit

5、h living the source and more miscellaneous circumstance, with convenience teachers and the students in my school and book manager, again plus 2003 databases to the Microsoft Access management system, VB application procedure of study and application, Its main completion is to book management system

6、of need analysis, structure design, total programming and database of realization.Keywords: Book management、 book data、 on duty management 、 system management.第一章 概述11數(shù)據(jù)庫及其應(yīng)用從廣義上講，數(shù)據(jù)庫就是數(shù)據(jù)或信息的集合，相當(dāng)于一個(gè)數(shù)據(jù)倉庫。具體地說，數(shù)據(jù)庫是一組經(jīng)過計(jì)算機(jī)整理后的數(shù)據(jù)，它由許多數(shù)據(jù)組成。自20世紀(jì)70年代以來,數(shù)據(jù)庫技術(shù)得到迅速開展.目前世界上已經(jīng)有數(shù)百萬個(gè)數(shù)據(jù)庫系統(tǒng)在運(yùn)行,其應(yīng)用已經(jīng)深入到社會(huì)生活的各個(gè)領(lǐng)域,從

7、企業(yè)管理,銀行管理,資源管理,經(jīng)濟(jì)預(yù)測(cè)一直到信息檢索,檔案管理,普查統(tǒng)計(jì)等。我國(guó)20世紀(jì)90年代初在全國(guó)范圍內(nèi)裝備了12個(gè)以數(shù)據(jù)庫為根底的大型計(jì)算機(jī)系統(tǒng),這些系統(tǒng)分布在郵電,計(jì)委,銀行,電力,鐵路,氣象,民航,情報(bào),公安,軍事,航天和財(cái)稅等行業(yè)。 現(xiàn)在,數(shù)據(jù)庫技術(shù)還在不斷開展,并且不斷的與其它計(jì)算機(jī)技術(shù)相互滲透。數(shù)據(jù)庫技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合,產(chǎn)生了分布式的數(shù)據(jù)庫系統(tǒng)。數(shù)據(jù)庫技術(shù)與面象對(duì)象技術(shù)相結(jié)合,產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫系統(tǒng)等各種數(shù)據(jù)庫系統(tǒng)。 在人類邁向21世紀(jì)知識(shí)經(jīng)濟(jì)的時(shí)候,信息變?yōu)榻?jīng)濟(jì)開展的戰(zhàn)略資源,信息技術(shù)已成為社會(huì)生產(chǎn)力重要的組成局部。人們充分認(rèn)識(shí)到,數(shù)據(jù)庫是信息化社會(huì)中信息資源管理與

8、開發(fā)利用的根底。對(duì)于一個(gè)國(guó)家,數(shù)據(jù)庫的建設(shè)規(guī)模,使用水平已成為衡量該國(guó)信息化程度的重要標(biāo)志.因此,數(shù)據(jù)庫的學(xué)習(xí)是非常重要的。12數(shù)據(jù)庫設(shè)計(jì)概念數(shù)據(jù)庫設(shè)計(jì)是指對(duì)于一個(gè)給定的應(yīng)用環(huán)境，提供一個(gè)確定最優(yōu)數(shù)據(jù)模型與處理模式的邏輯設(shè)計(jì)，以及一個(gè)確定數(shù)據(jù)庫存儲(chǔ)結(jié)構(gòu)與存取方法的物理設(shè)計(jì)，建立起既能反映現(xiàn)實(shí)世界信息和信息聯(lián)系，滿足用戶數(shù)據(jù)要求和加工要求，又能被某個(gè)數(shù)據(jù)庫管理系統(tǒng)所接受，同時(shí)能實(shí)現(xiàn)系統(tǒng)目標(biāo)，并有效存取數(shù)據(jù)的數(shù)據(jù)庫。當(dāng)數(shù)據(jù)庫所存儲(chǔ)的的信息邏輯關(guān)系簡(jiǎn)單、數(shù)據(jù)記錄量不大時(shí)，數(shù)據(jù)庫的設(shè)計(jì)相對(duì)容易、編輯修改也方便；而當(dāng)數(shù)據(jù)庫內(nèi)容龐大、關(guān)系復(fù)雜且在使用中發(fā)現(xiàn)問題時(shí)再進(jìn)行修改，就有可能造成數(shù)據(jù)喪失，這是用戶所

9、不希望發(fā)生的。所以在設(shè)計(jì)前應(yīng)該精心構(gòu)思，使之遵循以下幾條規(guī)那么。規(guī)那么一：字段的惟一性，即表中的每個(gè)字段只能含有惟一類型的數(shù)據(jù)信息。規(guī)那么二：記錄的惟一性，即表中沒有完全一樣的兩個(gè)記錄。規(guī)那么三：功能相關(guān)性，即在數(shù)據(jù)庫中，任意一個(gè)數(shù)據(jù)表都應(yīng)該有一個(gè)主關(guān)鍵字段與表中記錄的各實(shí)體相對(duì)應(yīng)。規(guī)那么四：字段無關(guān)性，即在不影響其他字段的情況下，必須能夠?qū)θ我庾侄芜M(jìn)行修改總之，用戶在設(shè)計(jì)好一個(gè)數(shù)據(jù)庫之后，可以根據(jù)這4條規(guī)那么一條一條地去檢驗(yàn)所設(shè)計(jì)的數(shù)據(jù)庫，對(duì)不合理的地方進(jìn)行修改，以使數(shù)據(jù)庫符合以上規(guī)那么。13數(shù)據(jù)庫設(shè)計(jì)周期 根據(jù)軟件工程的思想，數(shù)據(jù)庫設(shè)計(jì)的周期可以劃分為六個(gè)階段：1 規(guī)劃階段確定開發(fā)的總目標(biāo)

10、，給出方案開發(fā)的軟件系統(tǒng)的功能、性能、可靠性以及接等方面的設(shè)想。 2 需求分析階段認(rèn)真細(xì)致地了解用戶對(duì)數(shù)據(jù)的加工要求，確定系統(tǒng)的功能與邊界。本階段的最終結(jié)果，提供一個(gè)可作為設(shè)計(jì)根底的系統(tǒng)說明書，包括對(duì)軟硬件環(huán)境的要求和一整套完善的數(shù)據(jù)流程圖。3 設(shè)計(jì)階段把需求分析階段所確定的功能細(xì)化，主要工作是概念設(shè)計(jì)階段、邏輯設(shè)計(jì)階段、物理設(shè)計(jì)階段，然后，對(duì)每個(gè)階段內(nèi)部設(shè)計(jì)詳細(xì)的流程。 4 程序編制階段以一種或幾種特定的程序設(shè)計(jì)語言表達(dá)上一階段確定的各模塊控制流程。程序編制時(shí)應(yīng)遵循結(jié)構(gòu)化程序設(shè)計(jì)方法。5 調(diào)試階段對(duì)已編好的程序進(jìn)行單元調(diào)試分調(diào)，整體調(diào)試聯(lián)調(diào)和系統(tǒng)測(cè)試驗(yàn)收。6 運(yùn)行和維護(hù)階段這是整個(gè)設(shè)計(jì)周期最

11、長(zhǎng)的階段，其工作重點(diǎn)是收集和記錄系統(tǒng)實(shí)際運(yùn)行的數(shù)據(jù)。在運(yùn)行中，必須保持?jǐn)?shù)據(jù)庫的完整性，必須有效的處理數(shù)據(jù)故障和進(jìn)行數(shù)據(jù)庫恢復(fù)。同時(shí)解決開發(fā)過程的遺留問題，改正錯(cuò)誤進(jìn)行功能完善。 總結(jié)：本文設(shè)計(jì)的是一個(gè)關(guān)于學(xué)校圖書館圖書管理的數(shù)據(jù)庫系統(tǒng),通過這個(gè)系統(tǒng)管理員可以快速、方便的對(duì)圖書記錄查閱、增加、刪除等功能，而用戶也可以通過這個(gè)系統(tǒng)進(jìn)行圖書查詢、借閱、歸還等功能。 本系統(tǒng)采用microsoft access 2003技術(shù)建立數(shù)據(jù)庫，使用VB 6.0技術(shù)建立數(shù)據(jù)源的鏈接,并且生成圖書管理的數(shù)據(jù)庫應(yīng)用程序從而實(shí)現(xiàn)數(shù)據(jù)庫的管理功能。第二章 需求分析需求分析階段確定的系統(tǒng)邏輯模型是以后設(shè)計(jì)和實(shí)現(xiàn)目標(biāo)系統(tǒng)的根

12、底，因此必須準(zhǔn)確完整地表達(dá)用戶的要求。在這一章里，我將給出系統(tǒng)的功能結(jié)構(gòu)圖，為系統(tǒng)的設(shè)計(jì)奠定根底。21工程提出的背景隨著計(jì)算機(jī)技術(shù)的飛速開展，其應(yīng)用方面已滲透到社會(huì)生活的各個(gè)領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校，尤其是在一些高校，圖書是學(xué)校的一項(xiàng)重要資源，圖書的管理也是學(xué)校的一項(xiàng)常規(guī)性的重要工作。近年來，我校招生情況越來越好，所以圖書管理越來越嚴(yán)重。又加之我校自08年10月份升入本科院校之后，由于生源雜、師生多、管理人員并沒有增加等種種原因，因此原有的圖書管理系統(tǒng)已不能適應(yīng)現(xiàn)行的工作需要。同時(shí)，以前的圖書管理系統(tǒng)也不能更好地滿足師生借閱圖書的要求，又不能表達(dá)我校圖書館藏書豐富的特點(diǎn)

13、。在此種情況下，做一個(gè)結(jié)合我校實(shí)際情況的圖書管理系統(tǒng)是很有必要的。圖書管理圖書資料值班管理系統(tǒng)管理圖書登記圖書借閱圖書賠償查詢輸出增加用戶修改密碼退出圖書管理系統(tǒng)圖22圖書管理系統(tǒng)功能結(jié)構(gòu)圖22圖書管理信息系統(tǒng)的構(gòu)成 第三章 系統(tǒng)的概念此階段主要的任務(wù)和目標(biāo)是根據(jù)需求分析的結(jié)果，畫出對(duì)應(yīng)的ER圖。對(duì)于復(fù)雜的系統(tǒng)，通常首先要對(duì)它的各功能模塊進(jìn)行分析，然后再把它的功能結(jié)構(gòu)圖畫出來，便是設(shè)計(jì)和優(yōu)化。功能分析之后，再根據(jù)各個(gè)模塊、各個(gè)用戶對(duì)數(shù)據(jù)和使用權(quán)限的不同要求做出局部ER圖，然后再把各個(gè)局部ER圖結(jié)合起來形成統(tǒng)一的整體ER圖。31系統(tǒng)E-R圖設(shè)計(jì)圖書借閱書名編號(hào)類型姓名借書證號(hào)圖31.2圖書借閱實(shí)

14、體歸還日期日期借閱日期備注軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng)，因此，在軟件系統(tǒng)的整個(gè)開發(fā)過程中都必須考慮兩方面的問題：“數(shù)據(jù)及對(duì)數(shù)據(jù)的“處理。為了把用戶的數(shù)據(jù)要求清晰明確地表達(dá)出來，系統(tǒng)分析員通常建立一個(gè)概念性的數(shù)據(jù)模型。概念性數(shù)據(jù)模型是一種面向問題的數(shù)據(jù)模型，是按照用戶的觀點(diǎn)來對(duì)數(shù)據(jù)和信息建模，它描述了從用戶角度看到的數(shù)據(jù)，它反映了用戶的現(xiàn)實(shí)環(huán)境，且與在軟件系統(tǒng)中的實(shí)現(xiàn)方法無關(guān)。這里運(yùn)用最常用的表示概念性數(shù)據(jù)模型的方法，是實(shí)體聯(lián)系方法即ER模型。通常，軟件系統(tǒng)中有許多數(shù)據(jù)是需要長(zhǎng)期保存的。為減少數(shù)據(jù)冗余，簡(jiǎn)化修改數(shù)據(jù)的過程，實(shí)現(xiàn)對(duì)數(shù)據(jù)進(jìn)化、標(biāo)準(zhǔn)化。圖書登記書名編號(hào)類型定價(jià)購置日期力日?qǐng)D31.1圖書

15、登記實(shí)體圖31.3圖書賠償實(shí)體圖書賠償書名編號(hào)類型姓名圖書證號(hào)賠償金額損壞程度解決方案值班管理值班人記事值班截止日期圖31.4值班管理實(shí)體值班截止日期查詢輸出圖書編號(hào)購置日期力日?qǐng)D31.5查詢輸出實(shí)體值班開始日期值班開始時(shí)間3.2 Access數(shù)據(jù)庫設(shè)計(jì)這里采用Access 2003數(shù)據(jù)庫,用ADO作為連接對(duì)象。建立Access數(shù)據(jù)庫 啟動(dòng)Microsoft Access 2003，建立一個(gè)空的數(shù)據(jù)庫library.mdb,如3.1.1所示。圖建立library數(shù)據(jù)庫使用程序設(shè)計(jì)器建立系統(tǒng)需要的表格如下。圖書登記表，如3.1.2圖圖書借閱表圖書借閱表,如3.1.3圖31.3圖書借閱表 圖書賠償

16、表，如3.1.4圖3. 1.4圖書賠償表圖書資料表,如3.1.5圖3.1.5圖書資料表系統(tǒng)管理表,如3.1.6圖3.1.6系統(tǒng)管理表值班管理表,如3.1.7圖3.1.7值班管理表2.連接數(shù)據(jù)在Visual Basic環(huán)境下，選擇菜單欄“工程“部件，翻開“部件對(duì)話框，在隨后出現(xiàn)的對(duì)話框中選擇“Microsoft ado data control 6.0”，然后單擊“確定按鈕，如圖3.2.1所示。圖3.2.1部件對(duì)話框?qū)DO數(shù)據(jù)控件與Data Grid控件添加到窗體上ADO控件默認(rèn)名為Adodc1，如3.2.2所示。圖3.2.2窗體上的ADO與DataGrid控件其中，ADO控件包括一個(gè)連接字符

17、串屬性ConnectionString，用于連接到計(jì)算機(jī)上某個(gè)數(shù)據(jù)源。數(shù)據(jù)源連接選擇數(shù)據(jù)源連接方式。鼠標(biāo)右鍵單擊ADO數(shù)據(jù)控件，選擇彈出菜單中的“ADODC屬性命令，翻開控件“屬性頁對(duì)話框，如圖3.2.3所示。數(shù)據(jù)源連接有三種不同的方式，日前使用的方式是“使用連接字符串。連接字符串包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息。圖32.3 ADO“屬性頁對(duì)話框選擇數(shù)據(jù)庫類型單擊“生成按鈕，翻開如圖3.2.4所示的數(shù)據(jù)鏈接屬性窗口，OLEDB提供者決定了將使用的數(shù)據(jù)庫類型，數(shù)據(jù)提供者可看成某種類型數(shù)據(jù)庫的驅(qū)動(dòng)程序。連接Access 2003及更高版本的數(shù)據(jù)庫時(shí)，需要選擇Microsoft Jet 4.0

18、OLE DB Provider.圖32.4“數(shù)據(jù)鏈接屬性對(duì)話框指定數(shù)據(jù)庫文件名在選擇了OLE DB提供者后，單擊“下一步按鈕或選擇“連接按鈕，進(jìn)入如圖3.2.5所示的對(duì)話框，指定數(shù)據(jù)庫文件名。為保證連接有效，可單擊右下方的“測(cè)試連接按鈕，如果測(cè)試成功那么關(guān)閉該對(duì)話框，返回到如圖3.2.3所示的“屬性頁對(duì)話框。圖3.2.5指定數(shù)據(jù)庫文件名指定記錄源。選擇圖3.2.-3中的“Record source選項(xiàng)卡，彈出記錄源“屬性頁對(duì)話框，如圖3.2.6所示。利用Data Grid 來顯示數(shù)據(jù)選定Data Grid控件，將其Data Source屬性設(shè)置為Adodc1控件，將網(wǎng)格綁定到產(chǎn)生的記錄集。運(yùn)行

19、該程序即可對(duì)數(shù)據(jù)庫進(jìn)行瀏覽。ADO控件上的4個(gè)箭頭為數(shù)據(jù)庫的導(dǎo)航裝置。單擊最左邊的箭頭移動(dòng)到數(shù)據(jù)庫的第一條記錄，最右邊的箭頭移動(dòng)到數(shù)據(jù)庫的最后一條記錄，中間兩個(gè)箭頭讓分別移動(dòng)到前一條或后一條記錄。第四章 圖書管理系統(tǒng)的實(shí)現(xiàn)41管理員登陸模塊設(shè)計(jì)登陸界面的主要任務(wù)根據(jù)用戶名、密碼是否正確來判斷是否可以進(jìn)入系統(tǒng)后臺(tái)。管理員登陸模塊界面:代碼如下：Private Sub Command1_Click() If Text1.Text = Then MsgBox 用戶名不能為空!, vbOKOnly Exit Sub Else If Text2.Text = Then MsgBox 密碼不能為空!, v

20、bOKOnly Exit Sub Else Adodc1.Recordset.Find 用戶名= & Text1.Text & If Adodc1.Recordset.EOF = False Then If Adodc1.Recordset.Fields(密碼) = Text2.Text Then MsgBox 登錄成功！, vbOKOnly Unload Me formmain.Show Else MsgBox 密碼不正確！, vbOKOnly End If Else MsgBox 用戶名不正確！, vbOKOnly Exit Sub End If End If End IfEnd SubP

21、rivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub42增加用戶模塊設(shè)計(jì)增加用戶模塊是用來增加用戶的用戶名、密碼和權(quán)限的。增加用戶模塊界面：代碼如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Find 用戶名= & Text1.Text & If Adodc1.Recordset.EOF = False Then MsgBox 已存

22、在此用戶,請(qǐng)重新輸入!, vbOKOnly Exit Sub Else Adodc1.Recordset.Fields(用戶名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密碼) = Trim(Text2.Text) MsgBox 新用戶添加成功, vbOKOnly End If Else MsgBox 兩次密碼輸入不一致,請(qǐng)重新輸入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() A

23、dodc1.RefreshEnd Sub43修改密碼模塊設(shè)計(jì)修改密碼模塊是用來修改用戶密碼的。修改密碼界面如下：代碼如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Filter = 用戶名= & Trim(Text1.Text) & If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.Fields(密碼) = Trim(Text2.Text) MsgBox 修改成功, vbOKOnly E

24、xit Sub Else MsgBox 不存在此用戶,無法修改!, vbOKOnly End If Else MsgBox 兩次密碼輸入不一致,請(qǐng)重新輸入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub44圖書登記模塊設(shè)計(jì)本模塊用來填寫圖書登記的信息。圖書登記模塊界面：代碼如下：Private Sub Command1_Click() On Error GoTo adderr Text

25、1.SetFocus Exit Subadderr: MsgBox Err.Description End SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then Adodc End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivat

26、e Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, v

27、bOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.EOF Then MsgBox 記錄空, vbOKCancel + vbQuestion End Else End If Exit Sub End SubPrivate Sub Command7_Click() formmain.Show Form4.HideEnd Sub45圖書借閱模塊設(shè)計(jì)圖書借閱模塊主要列出了書借閱的詳細(xì)信息。圖書借閱模塊界面：代碼如下：Private Sub Command1_Click() O

28、n Error GoTo adderr Text1.SetFocus Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then End If End If End With Exit Subdeleteerr: MsgBox Err.Descrip

29、tionEnd SubPrivate Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.EOF Then MsgBox 記

30、錄空, vbOKCancel + vbQuestion End Else End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, vbOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form6.HideEnd Sub46圖書賠償模塊設(shè)計(jì)該模塊是用來填寫圖書是否損壞及如何賠償?shù)男畔?。圖書賠償模塊界面：代碼如下：Private Sub

31、 Command1_Click() On Error GoTo adderr Text1.SetFocus Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then End If End If End With Exit Subdeleteerr:

32、 MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() If Adodc1.Recordset.EOF Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command4_Click() If Adodc1.Recordset.BOF Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordse

33、t.EOF Then MsgBox 記錄空, vbOKCancel + vbQuestion End Else End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空記錄, vbOKCancel + vbQuestionElse End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form7.HideEnd Sub47查詢輸出模塊設(shè)計(jì)查詢輸出模塊的主要任務(wù)就是對(duì)所有圖書信息進(jìn)行查詢。查詢輸出

34、界面：代碼如下：Private Sub Command1_Click() Dim condition As String If Text1.Text Then condition = Combo1.Text & = & Text1.Text & Adodc1.Recordset.Filter = condition If Adodc1.Recordset.EOF = True Then MsgBox 沒有你要搜索的信息!, vbOKOnly End If Set DataGrid1.DataSource = Adodc1 Else MsgBox 搜索條件不能為空!, vbOKOnly End

35、IfEnd SubPrivate Sub Command2_Click() formmain.Show Form3.HideEnd SubPrivate Sub Form_Load() Combo1.AddItem 購置日期End Sub48值班管理模塊設(shè)計(jì)值班管理模塊的作用是把值班人員的時(shí)間安排形成列表。值班管理界面：代碼如下：Private Sub Command1_Click() On Error GoTo adderror If Command1.Caption = 新增記錄 Then Command1.Caption = 確定 Command2.Enabled = False Dat

36、aGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Else If Not IsNull(DataGrid1.Bookmark) Then If Not IsDate(Trim(DataGrid1.Columns(值班開始日期).CellText(DataGrid1.Bookmark) Then MsgBox 請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班開始日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班開始時(shí)間).Cel

37、lText(DataGrid1.Bookmark) Then MsgBox 請(qǐng)按照格式hh-mm輸入值班開始時(shí)間, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止日期).CellText(DataGrid1.Bookmark) Then MsgBox 請(qǐng)按照格式y(tǒng)yyy-mm-dd輸入值班截止日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止時(shí)間).Ce

38、llText(DataGrid1.Bookmark) Then MsgBox 請(qǐng)按照格式hh-mm輸入值班截止時(shí)間, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(值班人).CellText(DataGrid1.Bookmark) = Then MsgBox 值班人不能為空!, vbOKOnly + vbExclamation, Exit Sub End If Adodc1.UpdateMsgBox 添加信息成功!, vbOKOnly + vbExclamation, DataGrid1.AllowAdd

39、New = False DataGrid1.AllowUpdate = False Else MsgBox 沒有添加信息!, vbOKOnly + vbExclamation, End If Command1.Caption = 新增記錄 Command2.Enabled = True End Ifadderror: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub Command2_Click() Dim answer As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎?, vbYesNo, ) If answer = vbYes Then DataGrid1.AllowDelete = True Adodc1.Delete Adodc1.Update DataGrid1.Refresh MsgBox 成功刪除!, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = False Else Exit S