畢業(yè)設(shè)計(jì)（論文）-基于VB的圖書館管理系統(tǒng)設(shè)計(jì)

1、畢業(yè)論文第1章 需求分析1.1 引言1.1.1背景隨著科學(xué)技術(shù)的發(fā)展，特別是計(jì)算機(jī)在人們生活中的普及，使人們的各項(xiàng)工作變得越來越便利，工作效率大大的提高。也為管理現(xiàn)代化的發(fā)展帶來了新的契機(jī)。學(xué)校的圖書管理工作是學(xué)校管理工作中一個(gè)重要的組成部分，其內(nèi)容復(fù)雜，工作繁多。如果使用計(jì)算機(jī)處理各項(xiàng)圖書管理業(yè)務(wù)，不僅節(jié)約了大量人力，而且還大大提高了工作效率，經(jīng)濟(jì)效益十分明顯。本系統(tǒng)就是基于這一現(xiàn)實(shí)條件而開發(fā)的。雖然就本系統(tǒng)還不能說讓圖書管理的管理現(xiàn)代化，但這與本系統(tǒng)開發(fā)的目的并不相悖，整個(gè)社會的信息化建設(shè)，并不是一朝一夕的事，也不是一個(gè)人所能解決的，所以本系統(tǒng)的開發(fā)只是起到嘗試的作用。1.1.2.編寫目的

2、圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開始使用，甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于圖書借閱情況（如借書天數(shù)、超過限定借書時(shí)間的天數(shù)）的統(tǒng)計(jì)和核實(shí)等往往采用對借書卡的人工檢查進(jìn)行，對借閱者的借閱權(quán)限、以及借閱天數(shù)等用人工計(jì)算、手抄進(jìn)行。數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。圖書館采取手工方式對圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖

3、書館的工作人員和管理員也只是當(dāng)時(shí)對它比較清楚，時(shí)間一長，如再要進(jìn)行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費(fèi)時(shí)、費(fèi)力。如要對很長時(shí)間以前的圖書進(jìn)行更改就更加困難了?；谶@此問題，我認(rèn)為有必要建立一個(gè)圖書管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢和修改圖書情況。1.1.3定義術(shù)語需求：用戶解決問題或達(dá)到目標(biāo)所需的條件或功能；系統(tǒng)或系統(tǒng)部件要滿足合同、標(biāo)準(zhǔn)，規(guī)范或其它正式規(guī)定文檔所需具有的條件或權(quán)能。需求分析：包括提煉，分析和仔細(xì)審查已收集到的需求，以確保所有的風(fēng)險(xiǎn)承擔(dān)者都明其含義并找出其中的錯(cuò)誤，遺憾或其它不

4、足的地方。模塊的獨(dú)立性：是指軟件系統(tǒng)中每個(gè)模塊只涉及軟件要求的具體的子功能，而和軟件系統(tǒng)中其他的模塊的接口是簡單的。1.2項(xiàng)目開發(fā)環(huán)境1.2.1.硬件環(huán)境：586或以上的微機(jī)一臺（包括CD-ROM,軟驅(qū)），打印機(jī)一臺。1.2.2.軟件環(huán)境：1.操作系統(tǒng)：windows 9X,NT,2000,xp2.開發(fā)工具：visual basic 6.0vb6.0是微軟公司出品的一個(gè)快速可視化程序開發(fā)工具軟件，具有強(qiáng)大的可視化計(jì)和面向?qū)ο蟪绦蛟O(shè)計(jì)的功能，近年來得到了廣泛的應(yīng)用，它主要有以下特點(diǎn)：（1） 簡單易學(xué)（2） 簡化了復(fù)雜的界面設(shè)計(jì)工作（3） 強(qiáng)大的多媒體功能（4） 網(wǎng)絡(luò)功能支持了Internet編程

5、（5） 具有所見即所得的功能（6） 支持用戶開發(fā)的ActiveX控件1.2.3.數(shù)據(jù)庫：ACCESS 2000Access2000是Microsoft公司推出的同時(shí)面向數(shù)據(jù)庫最終用戶和數(shù)據(jù)庫開發(fā)人員的關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它實(shí)現(xiàn)了計(jì)算機(jī)“易于使用”的特點(diǎn)，即用戶只需按照“向?qū)А边M(jìn)行簡單操作，就可以設(shè)計(jì)出一個(gè)數(shù)據(jù)庫系統(tǒng)。作為一種數(shù)據(jù)庫軟件，Access可以完成以下功能：可以為每一種類型的信息創(chuàng)建一個(gè)表，利用表存儲相應(yīng)的信息；可以定義各個(gè)表之間的關(guān)系；可以利用宏或Visual Basic將各數(shù)據(jù)庫對象連接在一起，形成一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)，而且用戶也不需要編寫復(fù)雜的程序。充分利用Access數(shù)據(jù)庫是關(guān)系

6、數(shù)據(jù)庫的特性，仔細(xì)分析各類數(shù)據(jù)之間的關(guān)系，創(chuàng)建表并建立表間的關(guān)聯(lián)，使每個(gè)表限制到一個(gè)主題，避免了重復(fù)信息和冗余數(shù)據(jù)。并且利用Access與VB窗體建立聯(lián)系，顯示表或查詢每一個(gè)記錄的完整信息，一次只錄入一組相關(guān)的數(shù)據(jù)。簡單明了，提高了基礎(chǔ)數(shù)據(jù)正確性。為使“計(jì)劃規(guī)?！睌?shù)據(jù)庫更為實(shí)用，又作了進(jìn)一步的編寫工作，利用Access的窗體具有的可與其它應(yīng)用程序進(jìn)行鏈接的功能，創(chuàng)建同步窗體或嵌套窗體，可非常直觀地點(diǎn)擊不同的按鈕，就能進(jìn)入相應(yīng)的錄入、查詢模塊，查看所需的信息。1.2.4 VB與ACCESS的結(jié)合微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑,我是通過它以及VB來訪問數(shù)據(jù)并對其各種操作。再使用D

7、ATA控件和ADOC控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的VB程序之間架起一座橋梁。設(shè)置這兩個(gè)控件的各個(gè)屬性，告訴它要調(diào)用哪個(gè)數(shù)據(jù)庫的哪個(gè)部分。通過設(shè)計(jì)跳轉(zhuǎn)按鈕來動態(tài)地改變數(shù)據(jù)庫表中的記錄。1.3項(xiàng)目概述1.3.1 目標(biāo)通過對學(xué)校圖書館內(nèi)部的各種機(jī)構(gòu)的劃分和管理，以及各種業(yè)務(wù)的處理過程的分析，設(shè)計(jì)出一個(gè)行之有效的能夠在實(shí)際中幫助圖書館實(shí)施管理現(xiàn)代化、業(yè)務(wù)信息化，從而大大提高工作效率運(yùn)行于已有的硬件平臺上的圖書館管理系統(tǒng)。1.3.2. 產(chǎn)品描述根據(jù)用戶的實(shí)際管理要求和圖書館職能的劃分，我們將本系統(tǒng)劃分為系統(tǒng)管理模塊、讀者管理模塊、圖書管理模塊、借書/還書模塊、數(shù)據(jù)報(bào)表模塊和幫助模塊等六個(gè)子系

8、統(tǒng)。1.3.3. 產(chǎn)品功能用戶管理模塊實(shí)現(xiàn)用戶管理、重新登錄系統(tǒng)、退出系統(tǒng)；讀者管理模塊實(shí)現(xiàn)對查詢讀者、讀者管理、激活卡號、卡號掛失、卡號注銷五項(xiàng)功能；圖書管理模塊實(shí)現(xiàn)了多種方式查詢圖書、管理圖書的功能；借書/還書模塊實(shí)現(xiàn)了借書操作和還書操作、查看借書情況；數(shù)據(jù)報(bào)表模塊實(shí)現(xiàn)了對圖書信息、讀者信息、借書信息、罰款信息以報(bào)表形式打印出來；幫助模塊介紹了本系統(tǒng)的一些使用方法。普通用戶只能使用登錄系統(tǒng)、退出系統(tǒng)、查詢讀者、卡號掛失、卡號注銷、查詢圖書、借書操作、還書操作、查看借書情況以及圖書信息、讀者信息、借書信息、罰款信息的報(bào)表打?。还芾韱T每一項(xiàng)功能都可以使用。第2章 系統(tǒng)設(shè)計(jì)我們將本系統(tǒng)劃分為系統(tǒng)

9、管理模塊、讀者管理模塊、圖書管理模塊、借書/還書模塊、數(shù)據(jù)報(bào)表模塊和幫助模塊等六個(gè)子系統(tǒng)。2.1設(shè)計(jì)原則安全可靠是一個(gè)應(yīng)用系統(tǒng)的靈魂，一個(gè)極小的差錯(cuò)，可能會造成整個(gè)系統(tǒng)的癱瘓，甚至可能造成企業(yè)的巨大損失。因此系統(tǒng)設(shè)計(jì)必需把安全性、可靠性、容錯(cuò)性放在首位。從發(fā)展的眼光看，一個(gè)綜合的計(jì)算機(jī)管理系統(tǒng)要實(shí)現(xiàn)市場、決策、管理、設(shè)計(jì)、制造等各環(huán)節(jié)的信息共享，完成不同制造廠商的設(shè)備和計(jì)算機(jī)軟硬件資源的數(shù)據(jù)交換。建立一個(gè)由開放式，標(biāo)準(zhǔn)化的系統(tǒng)，開放式標(biāo)準(zhǔn)化的異構(gòu)式數(shù)據(jù)庫組成的平臺來滿足當(dāng)前的需求，同時(shí)又能適應(yīng)今后新技術(shù)的引進(jìn)、開發(fā)和推廣。 系統(tǒng)設(shè)計(jì)盡量簡單，靈活易于管理，有利于將來需要時(shí)進(jìn)行功能改進(jìn)和新技術(shù)引

10、入。我們所處的時(shí)代是信息時(shí)代，通信和計(jì)算機(jī)技術(shù)的發(fā)展日新月異。因而，應(yīng)用系統(tǒng)的建設(shè)不僅應(yīng)適應(yīng)新技術(shù)發(fā)展方向，保證其先進(jìn)性，同時(shí)兼顧成熟的計(jì)算機(jī)技術(shù)、保證系統(tǒng)的可靠。系統(tǒng)的建設(shè)要考慮長遠(yuǎn)，不能今年投入使用，兩三年內(nèi)就不能滿足要求，以至不得不做很大的設(shè)計(jì)修改；但也不能考慮太遠(yuǎn)，否則會導(dǎo)致初期投資規(guī)模過大，同時(shí)可能降低系統(tǒng)的可靠省和安全性能。2.2 模塊劃分原則本圖書管理系統(tǒng)包含六大模塊：系統(tǒng)管理：用戶管理（普通、管理員）、重新登錄、退出系統(tǒng)。讀者管理：查詢讀者、讀者管理、卡號激活、卡號掛失、注銷卡號。圖書管理：查詢圖書、圖書管理。借書/還書：借書、還書、查看借書情況。數(shù)據(jù)報(bào)表：讀者報(bào)表、讀書報(bào)表、

11、借書報(bào)表。幫助：主題、關(guān)于2.3系統(tǒng)結(jié)構(gòu)框圖圖書管理系統(tǒng)系統(tǒng)管理讀者管理圖書管理借書還書系統(tǒng)幫助數(shù)據(jù)報(bào)表圖2-1系統(tǒng)管理退出系統(tǒng)重新登錄用戶管理圖2-2讀者管理讀者掛失激活卡號讀者管理查詢讀者注銷卡號圖2-3圖書管理圖書管理查詢圖書圖2-4借書/還書借書總表還書借書圖2-5圖2-5數(shù)據(jù)報(bào)表讀者報(bào)表 圖書報(bào)表借書報(bào)表圖2-6幫助關(guān)于主題圖2-7系統(tǒng)結(jié)構(gòu)圖第3章 系統(tǒng)功能說明3.1登錄用戶可以分普通用戶和管理員，在通過用戶輸出入用戶名和密碼無誤后，才可登錄。如果以普通用戶登錄（即用戶），只能查詢讀者、卡號掛失、查詢圖書、借書、還書，數(shù)據(jù)報(bào)表；如果以管理員身份登錄，任何功能項(xiàng)都能使用。3.2用戶管理

12、 管理員可以增加用戶、刪除用戶，通過點(diǎn)擊“保存”按鈕更新數(shù)據(jù)庫。 3.3讀者管理按照系統(tǒng)模塊劃分圖可知其分為四個(gè)具體的功能模塊，分別為查詢讀者、讀者管理、激活卡號、讀者掛失。查詢讀者：輸入卡號即可查詢，將在本窗體中顯示該讀者的相關(guān)信息。讀者管理：添加：在“增加讀者”窗體中輸入讀者基本信息，點(diǎn)擊“確定”即可增加讀者。刪除：方法一：將記錄指針定位到要?jiǎng)h除的記錄上，點(diǎn)擊“刪除”按鈕即可刪除信息。方法二：在工具條上，點(diǎn)擊“注銷卡號”，待輸入卡號和密碼無誤后，將刪除該卡號的記錄，并更新數(shù)據(jù)庫。激活卡號：該卡號已掛失，需要再使用時(shí)。掛失卡號：當(dāng)讀者卡丟失時(shí)，可以向圖書館工作人員申請掛失。在輸入卡號和密碼無

13、誤后，即可掛失，但在讀者表中還保存該讀者的相關(guān)信息。注銷卡號：當(dāng)讀者卡無效時(shí)或不遵守圖書館的管理規(guī)定等，即可刪除讀者，并從數(shù)據(jù)庫中真正刪除該記錄。3.4 圖書管理圖書查詢：用戶可以按照書號、書名、書籍類別、作者幾種方式查詢圖書，查詢結(jié)果直接在本窗體中顯示出來。圖書管理:增加：在增加書籍窗體中填入圖書信息后，點(diǎn)擊“確定”后即可增加圖書。刪除：刪除書籍信息，將記錄指針定位到要?jiǎng)h除的記錄上，即可刪除該記錄。3.5借書/還書按照系統(tǒng)模塊劃分圖可知其分為三個(gè)具體的功能模塊，分別為借書、還書、查詢借書情況。借書借書主要功能：1.根據(jù)用戶輸入借書的卡號及其密碼后，點(diǎn)擊“確定”按鈕。2.顯示讀者信息后，再輸入

14、書號，并顯示該書的信息。3.在輸入卡號密碼無誤情況下，以下幾種情況不能借書：第一：讀者如果已經(jīng)借書數(shù)超過了規(guī)定的數(shù)目，不能再借。第二：讀者的卡號如果掛失，不能借。第三：讀者沒交罰款。第四：書庫沒有讀者需要的書。在讀者借書時(shí)，可以通過點(diǎn)擊借書窗體上的“查借”按鈕，查看用戶借書的情況：還書一般情況：輸入書號，點(diǎn)“確定”按鈕顯示該書的信息后，再輸入卡號即可還書，數(shù)據(jù)庫中的信息更新: 特殊情況：在用戶輸入書號后，如果提示“你的書已經(jīng)超期,請交罰款金后,還書!如果現(xiàn)在交罰款金請按確定,否則按取消”，則用戶需填寫罰款單，交納罰款后，才能還書，并將罰款記錄寫入數(shù)據(jù)庫。3.6 數(shù)據(jù)報(bào)表采用設(shè)計(jì)器DataEnv

15、ironment1與數(shù)據(jù)表中的中的字段綁定，將讀者表(student)、圖書表(book)、借書情況表(lend)、罰款表(fakuan)的數(shù)據(jù)通過報(bào)表顯示出來。第4章 系統(tǒng)運(yùn)行操作概況4.1 硬件環(huán)境586或以上的微機(jī)一臺（包括CD-ROM,軟驅(qū)），打印機(jī)一臺4.2軟件環(huán)境 windows 9X,NT,2000,xp 4.3操作流程：查詢普通用戶管理員登錄通過驗(yàn)證系統(tǒng)登錄MDI主窗口（系統(tǒng)主窗口）以普通用戶身份登錄讀者通過讀者驗(yàn)證通過驗(yàn)證借書卡借通過書號卡號還以管理員身份登錄圖書查詢管理借書情況用戶注銷借書卡生成各數(shù)據(jù)報(bào)表掛失借書卡第5章 具體設(shè)計(jì)詳細(xì)設(shè)計(jì)階段的根本目標(biāo)是確定應(yīng)該怎樣具體地實(shí)

16、現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個(gè)階段的設(shè)計(jì)工作，應(yīng)該得出對目標(biāo)系統(tǒng)的精確描述，從而在編碼階段可以把這個(gè)描繪直接翻譯成用某種程序設(shè)計(jì)語言書寫的程序。換句話說，詳細(xì)設(shè)計(jì)的目標(biāo)不僅僅是邏輯上正確地實(shí)現(xiàn)每個(gè)模塊的功能，更重要的是設(shè)計(jì)出的處理過程應(yīng)該盡可能簡明易懂。而結(jié)構(gòu)程序設(shè)計(jì)技術(shù)是實(shí)現(xiàn)上述目標(biāo)的關(guān)鍵技術(shù)，是詳細(xì)設(shè)計(jì)的邏輯基礎(chǔ)。它采用的自頂向下逐步求精的設(shè)計(jì)方法和單入口單出口的控制結(jié)構(gòu)，在后面的設(shè)計(jì)中，大家可以看到這一點(diǎn)。在詳細(xì)設(shè)計(jì)中，有描述程序處理過程中的工具稱為詳細(xì)設(shè)計(jì)的工具，它們可以分為圖形、表格和語言三類，不論是哪類工具，對它們的基本要求都是能提供對設(shè)計(jì)的無歧義的描述，也就是應(yīng)該能指明控制流

17、程、處理功能、數(shù)據(jù)組織以及其他方面的實(shí)現(xiàn)細(xì)節(jié)。5.1 基本數(shù)據(jù)流程1. 用戶信息錄入：添加、刪除、更新2.讀者信息錄入：查詢、添加、刪除、更新3.圖書信息錄入：查詢、添加、刪除、更新4.借書信息錄入：查詢、添加、刪除、更新5.罰款信息錄入：添加、打印通過DATA和ADOC1控件連接數(shù)據(jù)庫中的表，對表中記錄進(jìn)行相關(guān)操作。借書情況錄入罰款情況錄入刪除用戶用戶表錄入增加圖書讀者綜合信息圖書綜合信息用戶綜合信息增加用戶借書綜合信息罰款信息查詢圖書增加圖書刪除圖書圖書報(bào)表查詢圖書刪除圖書圖書報(bào)表查詢記錄增加記錄刪除記錄借書報(bào)表增加記錄罰款清單圖書管理系統(tǒng)讀者情況錄入況錄入讀者表錄入圖書表錄入借書情況表錄

18、入圖書情況錄入用戶情況錄入罰款表錄入5.2數(shù)據(jù)庫設(shè)計(jì) 針對此圖書館管理系統(tǒng)，通過對圖書館管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：讀者信息，包括的數(shù)據(jù)項(xiàng)有：卡號，密碼，姓名，班級，專業(yè)，性別，已借書數(shù)、掛失否。圖書信息，包括的數(shù)據(jù)項(xiàng)有：書號、書名、書籍類別、作者、出版社、在庫數(shù)目、總數(shù)、單價(jià)、購買日期借書信息，包括的數(shù)據(jù)項(xiàng)有：卡號、書號、借書日期、還書日期用戶信息，包括的數(shù)據(jù)項(xiàng)有：classname(用戶名)、password（用戶密碼、class(班級)罰款信息，包括的數(shù)據(jù)項(xiàng)有：卡號、書號、日期、罰金、罰款原因5.2.1基本數(shù)據(jù)模型讀者情況表結(jié)構(gòu)(student)序

19、號字段名稱數(shù)據(jù)類型寬度小數(shù)位數(shù)索引可否為空1卡號文本15無有（無重復(fù)）否2密碼文本50無無否3姓名文本14無無否4班級文本12無無否5專業(yè)文本14無無是6性別文本4無無是7已借書數(shù)數(shù)字整型無無否8掛失否是/否2無無否圖書情況表結(jié)構(gòu)（book）序號字段名稱類型寬度小數(shù)位數(shù)索引可否為空1書號文本10無有（無重復(fù)）否2書名文本30無無否3書籍類別文本12無無是4作者文本14無無是5出版社文本50無無是6總數(shù)數(shù)字整型自動無否7在庫數(shù)目數(shù)字整型自動無否8單價(jià)貨幣貨幣2無是9購買日期日期/時(shí)間8無是借書情況表結(jié)構(gòu)（lend）序號字段名稱類型寬度索引可否為空1卡號文本15有（有重復(fù)）否2書號文本10有（無重

20、復(fù)）否3借書日期日期型8無否4還書日期日期型8無否 .用戶表結(jié)構(gòu)（manager）序號字段名稱類型寬度索引可否為空1username文本50無否2password文本50無否3class文本50無是.罰款表結(jié)構(gòu)（fakuan）序號字段名稱類型寬度索引可否為空1卡號文本15 無否2書號文本10無否3日期日期型8無否4罰金貨幣無否5罰款原因備注自動無是 5.3數(shù)據(jù)表之間的關(guān)系：第6章 系統(tǒng)維護(hù) 軟件維護(hù)是軟件生命周期的最后一個(gè)階段，它處于系統(tǒng)投入生產(chǎn)性運(yùn)行以后的時(shí)期中。所謂軟件維護(hù)就是在軟件已經(jīng)交付使用之后，為了改正錯(cuò)誤或滿足新的需要而修改軟件的過程。本系統(tǒng)自從做好以后，給不同的人試用過，在這試用

21、期間還是看出來了系統(tǒng)確實(shí)存在不少的缺點(diǎn)和毛病，如重定向的問題或某些操作不當(dāng)系統(tǒng)報(bào)錯(cuò)的問題。但是由于水平有限，肯定還存在其他的問題，也是在所難免的。希望大家原諒！結(jié)論經(jīng)過指導(dǎo)老師的測試，本系統(tǒng)采用登錄程序，很好的控制了系統(tǒng)的安全性，而且系統(tǒng)能夠很好的記載讀者的借書情況。讀者在每次借書時(shí)只需輸入自已的卡號和密碼以及書號，就可找到自已所需要書，用戶通過查看圖書信息來查找讀者所需要的書。管理員在維護(hù)數(shù)據(jù)庫的數(shù)據(jù)時(shí)不需要對數(shù)據(jù)庫進(jìn)行操作，可以在界面上進(jìn)行數(shù)據(jù)的添加、刪除和修改。在本系統(tǒng)設(shè)計(jì)中，利用VB中數(shù)據(jù)添加、刪除、更新等命令來對系統(tǒng)中的數(shù)據(jù)庫進(jìn)行相應(yīng)的操作。利用其中的DATA控件ADOC控件連接動態(tài)

22、數(shù)據(jù)庫中記錄。而且還用到了相應(yīng)的SQL語句。通過此畢業(yè)設(shè)計(jì)，我深刻的體會到VB工具的強(qiáng)大功能，并將SQL語言的理論用到了實(shí)踐中去。系統(tǒng)可操作性還是很好的,比較方便靈活,唯一缺點(diǎn)是，數(shù)據(jù)庫的安全性不高,不能備份數(shù)據(jù)庫,數(shù)據(jù)報(bào)表的打印也不能按條進(jìn)行打印輸出。參考文獻(xiàn)1 王福成、周鐵柱、黃淼云等：，北京：清華大學(xué)出版社2002年6月2郭振波編著： ， 北京： 人民郵電出版社 2003年3月3林永等編著： ， 北京：人民郵電出版社2002年11月4劉炳文等編著： ，北京：清華大學(xué)出版社 2000年7月5 王華杰：VB.NET編程實(shí)例詳解(含盤)， 北京：中國鐵道出版社 2002年4月6 康博譯：VB.

23、NET高級編程，北京：清華大學(xué)出版社 2002年3月7 張龍卿：Instant VB.NET實(shí)例解析VB.NET應(yīng)用編程， 北京：北京希望電子出版社 2002年1月8 林立軍，程斌，翁迪恩：Visual Basic 6.0數(shù)據(jù)庫開發(fā)指南，陜西：西安電子科技大學(xué)出版社，2000年2月致 謝經(jīng)過兩個(gè)多月的設(shè)計(jì)和開發(fā)，基于學(xué)校的圖書管理系統(tǒng)基本開發(fā)完畢。完成了系統(tǒng)管理、讀者管理、圖書管理、借書還書、數(shù)據(jù)報(bào)表六大模塊，結(jié)合目前有些學(xué)校圖書館的管理方法，完全能實(shí)現(xiàn)圖書管理功能。在整個(gè)畢業(yè)設(shè)計(jì)過程中，從需求分析到設(shè)計(jì)思想的主體方案的形成，系統(tǒng)設(shè)計(jì)原理的確定到系統(tǒng)的實(shí)現(xiàn)，花費(fèi)了很大的功夫。我們查閱了大量與之

24、相關(guān)的書籍。同時(shí)，在劉洪輝老師認(rèn)真的工作態(tài)度和精心的指導(dǎo)下，我從實(shí)踐中走出來了，與此同時(shí)也得到了同學(xué)的大力支持。在此，對所有幫助我過的老師，同學(xué)表示忠心的感謝!附 錄源代碼程序 （一）登錄窗體功能的實(shí)現(xiàn):以用戶或管理員身份登錄。 使用data控件：指向用戶表（manager）Option ExplicitPublic jibie As StringPrivate Sub Command1_Click()Dim ts As RecordsetSet ts = userData.RecordsetDim condition As StringDim condition1 As StringDim

25、condition2 As Stringts.MoveFirstcondition = username= & Text1.Text & And password= & Text2.Text & userData.Recordset.FindFirst conditionIf userData.Recordset.NoMatch Then MsgBox 用戶名或密碼不正確,請重試! Text1.SetFocus Exit Sub Else If Option1.Value = False Then If Option2.Value = False Then MsgBox 你還沒有選擇用戶類型呢

26、,請選擇! Exit Sub Else Text3.Text = Option2.Captionjibie = Text3.Text userData.Recordset.MoveFirst condition1 = username= & Text1.Text & And password= & Text2.Text & and class= & Text3.Text & userData.Recordset.FindFirst condition1 If Not userData.Recordset.NoMatch Then Load MDIForm1 MDIForm1.Enabled =

27、 True MDIForm1.Toolbar1.Buttons(1).Enabled = False MDIForm1.Toolbar1.Buttons(5).Enabled = False MDIForm1.用戶管理.Enabled = False MDIForm1.管理讀者.Enabled = False MDIForm1.激活卡號.Enabled = False MDIForm1.圖書管理.Enabled = False MDIForm1.Show Unload login Else MsgBox 用戶類型選擇不正確!請重試! Exit Sub End If End If Else Te

28、xt3.Text = Option1.Caption jibie = Text3.Text userData.Recordset.MoveFirst condition2 = username= & Text1.Text & And password= & Text2.Text & and class= & Text3.Text & userData.Recordset.FindFirst condition2 If Not userData.Recordset.NoMatch Then Load MDIForm1 MDIForm1.Show MDIForm1.Enabled = True U

29、nload login Else MsgBox 用戶類型選擇不正確!請重試! Exit Sub End If End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload loginDim i As IntegerFor i = 1 To 11 Step 1 MDIForm1.Toolbar1.Buttons(i).Enabled = TrueNextMDIForm1.圖書管理.Enabled = TrueMDIForm1.系統(tǒng)管理.Enabled = TrueMDIForm1.讀者管理.Enabled = TrueMDIForm1.借書還書.En

30、abled = TrueMDIForm1.幫助.Enabled = True圖書管理：Private Sub Command1_Click()Data1.Recordset.AddNewData1.Recordset.Fields(username) = Text1.TextData1.Recordset.Fields(password) = Text2.TextIf Option1.Value = True ThenData1.Recordset.Fields(class) = Option1.CaptionEnd IfIf Option2.Value = True Then Data1.R

31、ecordset.Fields(class) = Option2.CaptionEnd IfData1.Recordset.UpdateMsgBox 保存成功Data1.RefreshUnload addusermanager.Refreshusermanager.ShowEnd SubPrivate Sub Command2_Click()Unload addusermanager.ShowEnd SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = End SubPrivate Sub Form_Load()Dim A As In

32、tegerEnd Sub圖書管理系統(tǒng)：Private Sub Command1_Click()condition10 = 書號= & Text1.Text & book.Recordset.MoveFirstbook.Recordset.FindFirst condition10If Not book.Recordset.NoMatch Then MsgBox 該書號已經(jīng)存在,請換一個(gè)書號! Text1.SetFocus Exit SubEnd Ifbook.Recordset.AddNewbook.Recordset.Fields(書號) = Text1.Textbook.Recordset

33、.Fields(書名) = Text2.Textbook.Recordset.Fields(書籍類別) = Text3.Textbook.Recordset.Fields(作者) = Text7.Textbook.Recordset.Fields(出版社) = Text4.Textbook.Recordset.Fields(總數(shù)) = Text5.Textbook.Recordset.Fields(在庫數(shù)目) = Text6.Textbook.Recordset.Fields(購買日期) = Text8.Textbook.Recordset.Fields(單價(jià)) = Text9.TextA =

34、 MsgBox(確定要增加嗎?, vbOKCancel)If A = 1 Then book.Recordset.Update MsgBox 增加成功! book.Refresh updatebook.Refresh updatebook.DataGrid1.Refresh Unload addbookElse book.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text

35、 = Text7.Text = Text8.Text = Text9.Text = End SubPrivate Sub Command3_Click()Unload addbookEnd SubPrivate Sub Command1_Click()condition = 卡號= & Text1.Text & Data1.Recordset.MoveFirst Data1.Recordset.FindFirst condition If Not Data1.Recordset.NoMatch Then MsgBox 該卡號已經(jīng)存在,請換卡號! Exit Sub Text1.SetFocus

36、End If If Option1.Value = False And Option2.Value = False Then MsgBox 你還沒有選擇性別呢,請選擇! Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields(卡號) = Text1.Text Data1.Recordset.Fields(密碼) = Text4.Text Data1.Recordset.Fields(姓名) = Text2.Text Data1.Recordset.Fields(班級) = Text3.Text Data1.Recordset.

37、Fields(專業(yè)) = Text6.Text Data1.Recordset.Fields(掛失否) = 否 Data1.Recordset.Fields(已借書數(shù)) = 0 If Option1.Value = True Then Data1.Recordset.Fields(性別) = Option1.Caption End If If Option2.Value = True Then Data1.Recordset.Fields(性別) = Option2.Caption End If Data1.Recordset.Update MsgBox 增加成功!End SubPrivate

38、 Sub Command2_Click() Text1.Text = Text4.Text = Text2.Text = Text3.Text = Text6.Text = Option1.Value = False Option2.Value = False End SubPrivate Sub Command3_Click()Unload addstudentEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Command1_Click()fakuan.Recordset.AddNew fakuan.Recordset.Fields(卡

39、號) = Text1.Text fakuan.Recordset.Fields(書號) = Text3.Text fakuan.Recordset.Fields(罰金) = Text5.Text If Option1.Value = True Then fakuan.Recordset.Fields(罰款原因) = Option1.Caption Else fakuan.Recordset.Fields(罰款原因) = Option2.Caption End If fakuan.Recordset.Fields(日期) = Date fakuan.Recordset.Update MsgBox

40、 罰款成功!End SubPrivate Sub Command2_Click()Unload fakuan1End SubPrivate Sub Command3_Click()If Option1.Value = True Then Text5.Text = Val(Text2.Text) * 0.1End IfIf Option2.Value = True Then Text5.Text = Val(Text4.Text) * 3 End IfCommand1.Enabled = TrueEnd SubPrivate Sub Command4_Click()lend.Recordset.

41、MoveFirstcondition = 卡號= & Text1.Text & Do lend.Recordset.FindFirst condition If Not lend.Recordset.NoMatch Then List1.AddItem & lend.Recordset.Fields(書號) & & book.Recordset.Fields(書名) End If lend.Recordset.MoveNextLoop Until lend.Recordset.EOFEnd SubPrivate Sub Command5_Click()lend.Recordset.MoveFi

42、rstcondition4 = 卡號= & Text1.Text & and 書號= & Text3.Text & lend.Recordset.FindFirst condition4If Not lend.Recordset.NoMatch Then fakuan.Recordset.DeleteEnd Ifstudent.Recordset.MoveFirstcondition5 = 卡號= & Text1.Text & student.Recordset.FindFirst condition5If Not student.Recordset.NoMatch Then student.

43、Recordset.Fields(已借書數(shù)) = student.Recordset.Fields(已借書數(shù)) - 1End Ifbook.Recordset.MoveFirstcondition6 = 卡號= & Text3.Text & book.Recordset.FindFirst condition6 If Not book.Recordset.NoMatch Then book.Recordset.Fields(在庫數(shù)目) = book.Recordset.Fields(在庫數(shù)目) + 1 End If MsgBox 還書成功!End SubPrivate Sub Option1_

44、Click()Text2.Enabled = Truelend.Recordset.MoveFirstcondition2 = 卡號= & Text1.Text & and 書號= & Text3.Text & lend.Recordset.FindFirst condition2If Not lend.Recordset.NoMatch Then Text2.Text = Date - lend.Recordset.Fields(期限日期)End IfCommand3.Enabled = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Option

45、2_Click()Text4.Enabled = Truecondition3 = 書號= & Text3.Text & book.Recordset.MoveFirstbook.Recordset.FindFirst condition3If Not book.Recordset.NoMatch Then Text4.Text = book.Recordset.Fields(單價(jià))Else MsgBox 該書號不存在,請重試! Exit Sub Text3.SetFocusEnd IfCommand3.Enabled = TrueEnd SubPrivate Sub Command1_Cli

46、ck()Dim A As IntegerIf Text1.Text = Then MsgBox 你還沒有輸入卡號呢,請輸入!Else studentdata1.Recordset.MoveFirstflag2: If InStr(studentdata1.Recordset.Fields(卡號), Text1.Text) And InStr(studentdata1.Recordset.Fields(密碼), Text2.Text) Then If studentdata1.Recordset.Fields(掛失否) = 否 Then A = MsgBox(確定要掛失嗎?, vbOKCance

47、l) If A = 1 Then studentdata1.Recordset.Edit studentdata1.Recordset.Fields(掛失否) = 是 studentdata1.Recordset.Update MsgBox 掛失成功! Unload guashi End If Else MsgBox 該讀者已經(jīng)掛失! End If Else studentdata1.Recordset.MoveNext If Not studentdata1.Recordset.EOF Then GoTo flag2 Else MsgBox 該卡號不存在 End If End IfEnd If End SubPrivate Sub Command2_Click()Unload guashiEnd SubPrivate Sub Command1_Click()Dim b As IntegerIf Text1.Text = Then MsgBox 你還沒有輸入卡號呢,請輸入!Else stu