圖書館管理系統(tǒng)摘要：圖書管理信息系統(tǒng)是應(yīng)用計算機與信息技術(shù)，圖書館的圖書資源進行綜合管理的工具。它具有手工管理所無法比擬的優(yōu)點。本系統(tǒng)主要是面向中、小型圖書館進行統(tǒng)一、綜合管理的管理信息系統(tǒng)。系統(tǒng)應(yīng)用VISUAL BASIC開發(fā)工具和Access數(shù)據(jù)庫管理系統(tǒng)，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，采用原型法的系統(tǒng)開發(fā)方法建立。論文從數(shù)據(jù)庫開發(fā)角度對圖書管理系統(tǒng)所完成的添加、修改、刪除、查詢、圖書借閱等主要功能進行了需求分析與設(shè)計，編寫代碼進行調(diào)試測試，實現(xiàn)了系統(tǒng)的應(yīng)用。關(guān)鍵詞：圖書管理 ；管理信息系統(tǒng)；數(shù)據(jù)庫；Visual Basic；Access database 第 26 頁 （共 26 頁）The Database Development in the Library Management Information SystemAbstract: The library management information system is the tool of the synthesis management to the library books resources, applied the current formidable computer and the information technology method. It has the merit which the manual management is unable to compare. This system mainly faces the small library. The system was established and exploited using the prototype method and system method, applying each kind of object-oriented development kit of VISUAL BASIC and the Access database management system. From the database development angle, the paper carried on the demand analysis and the design to the main function which the increase, the revision, the deletion, the inquiry, books borrowing and so on, designed the code that has carried on the debugging test, realized the system application.Key word: management information system; database development; the prototype method; Visual Basic; Access database目錄第一章 緒論11.1 課題背景11.2 課題來源和意義11.3 國內(nèi)外發(fā)展概況21.4 開發(fā)語言的介紹21.5運行環(huán)境和操作系統(tǒng)的介紹4第二章 圖書管理系統(tǒng)設(shè)計分析42.1 應(yīng)用需求分析4（1）需求描述與分析4（2）需求分析的步驟42.2 系統(tǒng)功能分析5（1）系統(tǒng)功能分析5（2）系統(tǒng)功能模塊設(shè)計52.3數(shù)據(jù)庫設(shè)計6（1）數(shù)據(jù)庫需要分析6（2）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計72.4 系統(tǒng)功能概述8（1）圖書管理8（2）圖書種類管理9（3）讀者管理9（4）讀者種類管理9（5）圖書借閱管理9（6）系統(tǒng)管理10第三章 圖書管理系統(tǒng)的界面和代碼103.1登錄功能的實現(xiàn)103.2 模塊功能的實現(xiàn)103.3 圖書管理功能的實現(xiàn)11（1）圖書種類管理11（2）圖書種類的添加11（3）圖書種類的編輯113.4 圖書信息管理11(1) 添加圖書信息11(2) 編輯圖書信11(3) 刪除圖書信息12(4) 查詢圖書信息123.5 讀者管理功能的實現(xiàn)12(1) 讀者種類管理12(2) 添加讀者種類12(3) 編輯讀者種類123.6 讀者信息管理12(1) 添加讀者信息12(2) 編輯讀者信息12(3) 刪除讀者信息12(4) 查看讀者信息123.7 圖書借閱管理功能的實現(xiàn).13(1) 借書管理13(2) 還書信息15(3) 查看還書信息213.8 系統(tǒng)管理功能的實現(xiàn)25(1) 添加管理員25(2) 修改密碼25結(jié)束語25致謝25參考文獻25第一章 緒論1.1 課題背景隨著電子計算機和通信技術(shù)的發(fā)展，人類已經(jīng)逐漸地進入信息化社會。信息和材料、能源一樣成為一種社會的基本生產(chǎn)資料，在人類的社會生產(chǎn)活動中發(fā)揮著重要的作用。同時人們對信息和數(shù)據(jù)的利用與處理也已進入自動化、網(wǎng)絡(luò)化和社會化的階段，因此，開發(fā)相關(guān)的管理信息系統(tǒng)已經(jīng)成為各行各業(yè)的必要和必需了，管理信息系統(tǒng)作為一門邊緣學(xué)科，集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計算機技術(shù)于一體，可以解決企業(yè)或組織所面臨的問題，對內(nèi)來看，可以提高工作效率；對外來看，獲得競爭優(yōu)勢。管理信息系統(tǒng)的開發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_發(fā)方法等。在這個大的指導(dǎo)方針下，我的畢業(yè)論文選擇了計算機管理信息系統(tǒng)，我選擇了一個較為貼近我生活的，和我比較了解的圖書管理系統(tǒng)。時代的進步，計算機越來越廣泛的運用，使很多原本由手工操作的管理，慢慢由計算機代替，而且日加完善。圖書管理系統(tǒng)就是其中一個典型的例子，由早先的手工操作管理，提升為計算機管理，大大的節(jié)約了人力物力資源。實行電子化的圖書管理，讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來，完成更重要的工作。圖書管理系統(tǒng)就是為了解決和減輕繁瑣的手工管理，使圖書館可以上升到一個完善的電子話，信息話管理。在經(jīng)過長時間的調(diào)研，和資料累積后，并參考了相關(guān)的圖書管理軟件，和查閱了大量的資料以后，我基本上搞清楚了圖書館對系統(tǒng)的需求，以及其圖書管理系統(tǒng)，需要的功能，模塊，和借閱者與管理人員的需要之后設(shè)計了這個軟件。 在和指導(dǎo)老師多次交流后，確定實現(xiàn)方案的要點和工作計劃。本系統(tǒng)的實現(xiàn)的主要功能有：讀者信息管理、書籍信息管理，借閱信息管理，以及讀者和書籍的查詢和修改等等的功能，是一個可以滿足借閱者和圖書館工作人員的需要的數(shù)據(jù)庫。1.2 課題來源和意義1. 當今時代是飛速發(fā)展的信息時代。在各行各業(yè)中離不開信息處理，這正是計算機被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計的。 2. 圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開始使用，甚至尚未使用計算機進行信息管理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對于圖書借閱情況（如借書天數(shù)、超過限定借書時間的天數(shù)）的統(tǒng)計和核實等往往采用對借書卡的人工檢查進行，對借閱者的借閱權(quán)限、以及借閱天數(shù)等用人工計算、手抄進行。數(shù)據(jù)信息處理工作量大，容易出錯；由于數(shù)據(jù)繁多，容易丟失，且不易查找。總的來說，缺乏系統(tǒng)，規(guī)范的信息管理手段。盡管有的圖書館有計算機，但是尚未用于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開發(fā)的基本環(huán)境。3. 數(shù)據(jù)處理手工操作，工作量大，出錯率高，出錯后不易更改。圖書館采取手工方式對圖書借閱情況進行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖書館的工作人員和管理員也只是當時對它比較清楚，時間一長，如再要進行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費時、費力。如要對很長時間以前的圖書進行更改就更加困難了?；谶@此問題，我認為有必要建立一個圖書管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準確性，能及時、準確、有效的查詢和修改圖書情況。1.3 國內(nèi)外發(fā)展概況自20世紀70年代以來,數(shù)據(jù)庫技術(shù)得到迅速發(fā)展.目前世界上已經(jīng)有數(shù)百萬個數(shù)據(jù)庫系統(tǒng)在運行,其應(yīng)用已經(jīng)深入到社會生活的各個領(lǐng)域,從企業(yè)管理,銀行管理,資源管理,經(jīng)濟預(yù)測一直到信息檢索,檔案管理,普查統(tǒng)計等.我國20世紀90年代初在全國范圍內(nèi)裝備了12個以數(shù)據(jù)庫為基礎(chǔ)的大型計算機系統(tǒng),這些系統(tǒng)分布在郵電,計委,銀行,電力,鐵路,氣象,民航,情報,公安,軍事,航天和財稅等行業(yè). 現(xiàn)在,數(shù)據(jù)庫技術(shù)還在不斷發(fā)展,并且不斷的與其它計算機技術(shù)相互滲透.數(shù)據(jù)庫技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合,產(chǎn)生了分布式數(shù)據(jù)庫系統(tǒng).數(shù)據(jù)庫技術(shù)與面象對象技術(shù)相結(jié)合,產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫系統(tǒng)等各種數(shù)據(jù)庫系統(tǒng). 在人類邁向21世紀知識經(jīng)濟的時候,信息變?yōu)榻?jīng)濟發(fā)展的戰(zhàn)略資源,信息技術(shù)已成為社會生產(chǎn)力重要的組成部分.人們充分認識到,數(shù)據(jù)庫是信息化社會中信息資源管理與開發(fā)利用的基礎(chǔ).對于一個國家,數(shù)據(jù)庫的建設(shè)規(guī)模,使用水平已成為衡量該國信息化程度的重要標志.因此,數(shù)據(jù)庫的學(xué)習(xí)是非常重要的.現(xiàn)在我國的絕大多數(shù)農(nóng)村中小學(xué)校中圖書管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為這種管理方式存在著許多缺點,如:效率低下、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于數(shù)據(jù)的查找、更新和維護都帶來了不少的困難，并且浪費了許多人力和物力。1.4 開發(fā)語言的介紹1.Visual Basic6.0是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言。1) 可視化編程：VB自動產(chǎn)生界面設(shè)計代碼，可以提高程序設(shè)計的效率。傳統(tǒng)的程序設(shè)計方法需要程序員自己編寫代碼設(shè)計界面，在設(shè)計時，界面不可見。Visual Basic6.0可以實現(xiàn)“所見即所得” ，即可視化(Visual)。2) 面向?qū)ο蟮某绦蛟O(shè)計：VB6應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法OOP，把程序和數(shù)據(jù)封裝起來作為一個對象（Object），并為每個對象賦予相應(yīng)的屬性，使對象稱為實在的東西。（第2章介紹對象及其操作）3) 結(jié)構(gòu)化程序設(shè)計語言：具有高級語言的語句結(jié)構(gòu)（順序、選擇、循環(huán)）。VB是解釋型語言，也可以編譯生成可執(zhí)行文件（.EXE文件），脫離VB，直接在Windows環(huán)境下運行。4) 事件驅(qū)動編程機制：每個事件通過一段程序（過程）來響應(yīng)。在VB中，不必建立具有明顯開始和結(jié)束的程序，即運行VB程序時，過程的執(zhí)行順序可以不同。事件驅(qū)動是VB最主要的特點。5)Visual Basic6.0的版本 VB 6.0分為：學(xué)習(xí)版、專業(yè)版、企業(yè)版（功能最強）。VB是32位的程序設(shè)計語言。2. Access2003 是微軟公司推出的基于Windows的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（RDBMS），是Office2003系列應(yīng)用軟件之一。它提供了表、查詢、窗體、報表、頁、宏、模塊7種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲、數(shù)據(jù)查詢、界面設(shè)計、報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分數(shù)據(jù)管理的任務(wù)。 Access2003是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，其主要特點如下： （1）存儲方式單一 Access2003管理的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（.mdb）的數(shù)據(jù)庫文件種，便于用戶的操作和管理。 （2）面向?qū)ο?Access是一個面向?qū)ο蟮拈_發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能封裝在各類對象中。它將一個應(yīng)用系統(tǒng)當作是由一系列對象組成的，對每個對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴展方法和屬性。通過對象的方法、屬性完成數(shù)據(jù)庫的操作和管理，極大地簡化了用戶的開發(fā)工作。同時，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡便。 （3）界面友好、易操作 Access2003是一個可視化工具，是風格與Windows完全一樣，用戶想要生成對象并應(yīng)用，只要使用鼠標進行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報表設(shè)計器以及數(shù)據(jù)庫向?qū)?、表向?qū)?、查詢向?qū)?、窗體向?qū)А蟊硐驅(qū)У裙ぞ?，使得操作簡便，容易使用和掌握?（4）集成環(huán)境、處理多種數(shù)據(jù)信息 Access2003基于Windows操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ?，極大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫、創(chuàng)建表、設(shè)計用戶界面、設(shè)計數(shù)據(jù)查詢、報表打印等可以方便有序地進行。 （5）Access2003支持ODBC（開發(fā)數(shù)據(jù)庫互連，Open Data Base Connectivity），利用Access2003強大的DDE（動態(tài)數(shù)據(jù)交換）和OLE（對象的聯(lián)接和嵌入）特性，可以在一個數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動態(tài)的數(shù)據(jù)庫報表和窗體等。Access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫訪問頁對象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。1.5運行環(huán)境和操作系統(tǒng)的介紹本系統(tǒng)在Windows 9X、Windows NT、Windows2000、 Windows XP下的一個應(yīng)用程序，本身對軟硬件沒有特殊要求。也就是說，它對環(huán)境的要求與 Windows 98、Windows NT要求是一致的。 硬件：一般要求586以上的處理器、16MB以上內(nèi)存、100MB以上的剩余硬盤空間、CDROM驅(qū)動器、鼠標等。軟件：要求Windows 98或 Windows NT 3.51以上版本。第二章 圖書管理系統(tǒng)設(shè)計分析2.1 應(yīng)用需求分析（1）需求描述與分析1.需求信息的收集 需求信息的收集又稱為系統(tǒng)調(diào)查。為了充分地了解用戶可能提出的要求，在調(diào)查研究之前，要做好充分的準備工作，要了解調(diào)查的目的、調(diào)查的內(nèi)容和調(diào)查的方式。2.需求信息的分析整理要想把收集到的信息（如文件、圖表、票據(jù)、筆記）轉(zhuǎn)化為下一階段設(shè)計工作可用的形式信息，必須對需求信息做分析整理的工作（2）需求分析的步驟1. 調(diào)查的目的 首先，要了解組織的機構(gòu)設(shè)置，主要管理活動和職能。其次，要確定組織的目標，大致管理流程和任務(wù)范圍劃分。因此，圖書管理系統(tǒng)主要是通過對現(xiàn)有的圖書管理系統(tǒng)進行考察、研究。并且通過和圖書管理人員、學(xué)生交流來完善管理功能。2. 調(diào)查的內(nèi)容外部要求：信息的性質(zhì)，響應(yīng)的時間、頻度和如何發(fā)生的規(guī)則，以及圖書管理的要求，安全性及完整性要求。管理的現(xiàn)狀：即圖書管理信息的種類，信息流程，信息的處理方式，各種圖書服務(wù)工作過程。組織機構(gòu)：了解圖書管理機構(gòu)的作用、現(xiàn)狀、存在的問題，及是否適應(yīng)計算機管理。3. 調(diào)查方式通過對圖書管理人員的訪問、交談可獲得圖書管理高層的、內(nèi)部的管理需求，以及圖書管理的管理目標、未來圖書管理發(fā)展變化趨勢和長遠規(guī)劃的有關(guān)信息。并且，還可通過具體借閱活動，了解借閱的流程、借閱的控制方式、日常管理信息，對圖書管理系統(tǒng)有一個深刻得了解。2.2 系統(tǒng)功能分析（1）系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。圖書館管理信息系統(tǒng)需要完成功能主要有： 有關(guān)讀者種類標準的制定、種類信息的輸入，包括種類編號、種類名稱、借書數(shù)量、備注等。 讀者種類信息的添加、修改、查詢，包括種類編號、種類名稱、借書數(shù)量、備注等。 讀者基本信息的輸入，包括讀者編號、讀者姓名、讀者性別、讀者種類、聯(lián)系電話、班級、電子郵件等 讀者基本信息的添加、修改、查詢，包括讀者編號、讀者姓名、讀者性別、讀者種、聯(lián)系電話、班級、電子郵件類等 書籍信息的輸入，包括書籍編號、書籍名稱、書籍作者、書籍種類、出版日期、出版社、是否被借出等。 書籍信息的添加、修改、查詢，包括書籍編號、書籍名稱、書籍作者、書籍種類、出版日期、出版社、是否被借出等。 借書信息的輸入，包括借書編號、讀者編號、讀者姓名、書籍名稱、借書標示。 還書信息的輸入，包括還書編號、讀者編號、讀者姓名、書籍名稱、還書標示。 借書還書信息的添加、修改、查詢，包括借還編號、讀者編號、讀者姓名、書籍名稱、借還標示。（2）系統(tǒng)功能模塊設(shè)計 對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如下系統(tǒng)功能模塊圖。 （圖 2.1） 添加書籍信息查詢書籍信息書籍種類添加書籍種類修改添加讀者信息查詢讀者信息添加讀者種類查詢讀者種類修改書籍信息修改讀者信息修改讀者種類設(shè)置借書信息設(shè)置還書信息查詢借閱信息圖書館管理信息系統(tǒng)書籍信息管理讀者信息管理借閱信息管理系統(tǒng)管理設(shè)置書籍信息設(shè)置書籍種類設(shè)置讀者信息設(shè)置讀者種類設(shè)置還書信息設(shè)置借書信息密碼管理用戶管理幫助退出圖2.12.3數(shù)據(jù)庫設(shè)計（1）數(shù)據(jù)庫需要分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計打下基礎(chǔ)。仔細分析調(diào)查有關(guān)圖書館管理信息需求的基礎(chǔ)上，將得到本系統(tǒng)所處理的數(shù)據(jù)流程。 數(shù)據(jù)安全可靠：系統(tǒng)通過對數(shù)據(jù)庫的加密和用戶權(quán)限的設(shè)置保證了系統(tǒng)的安全。加密后的數(shù)據(jù)庫只有本系統(tǒng)才能對其進行維護，任何直接對數(shù)據(jù)庫的操作都將無效，從而保證了數(shù)據(jù)庫入口的唯一性，避免了來自外界的破壞；本系統(tǒng)操作人員進入系統(tǒng)都可進行嚴格的身份識別和安全審核，每個操作人員只能對自己權(quán)限范圍內(nèi)的數(shù)據(jù)進行維護，可操作的用戶和具體的每個操作員的使用對象系統(tǒng)的管理員可以靈活設(shè)置，從而避免了來自內(nèi)部的破壞。（2）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計得到上面的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。 本實例根據(jù)上面的設(shè)計規(guī)劃出的實體有：讀者種類信息實體、讀者信息實體、書籍信息實體、借閱信息實體。各個實體具體的描述E-R 圖如下。 讀者種類信息實體E-R圖讀者種類信息實體種類編號種類名稱借書數(shù)量 圖例2.2借閱信息實體E-R圖借閱信息實體借閱編號讀者編號讀者姓名書籍名稱借還標示圖例2.3讀者信息實體E-R圖讀者信息實體讀者編號讀者姓名讀者種類讀者性別圖例2.4書籍信息實體E-R圖書籍信息實體書籍編號書籍名稱書籍作者是否被借出圖例2.5讀者種類信息e-r圖書籍種類信息實體種類編號種類名稱圖例2.6實體之間相互關(guān)系的E-R圖讀者種類信息書籍信息讀者信息登記書籍信息登記讀者信息管理書籍信管理借閱書籍借閱信息管理圖例2.7 2.4 系統(tǒng)功能概述（1）圖書管理 (表2.1)字段名數(shù)據(jù)類型可否為空說明Book_id文本Not null書籍編號Book_name文本Not null書籍名稱Book_auther文本Not null書籍作者Book_type文本Not null書籍種類Book_date日期Not null出版日期Book_addess文本Not null出版社Book_ price文本notnull價格zhuangtai文本Not null狀態(tài)（2）圖書種類管理(表2.2)字段名數(shù)據(jù)類型可否為空說明Booktype_id文本Not null圖書種類編號Bootype_name文本Not null讀書種類（3）讀者管理(表2.3)字段名數(shù)據(jù)類型可否為空說明Reader_id文本Not null讀者編號Reader_name文本Not null讀者姓名Reader_sex文本Not null讀者性別Readertype_name文本Not null讀者種類Reader_tele數(shù)字null讀者電話Reader_addess文本null讀者地址Rreader_email文本Not null讀者郵件（4）讀者種類管理(表2.4)字段名文本可否為空說明Readertype_id文本Not null讀者種類編號readertype_name文本Not null讀者種類Book_number數(shù)字Not null借書量（5）圖書借閱管理(表2.5)字段名數(shù)據(jù)類型可否為空說明Book_id文本Not null書籍編號Book_name文本Not null書籍名稱Reader_id文本Not null讀者編號Reader_name文本Not null讀者姓名flag文本Not null借還標志（6）系統(tǒng)管理(表2.6)字段名數(shù)據(jù)類型可否為空說明User_id文本Not null用戶編號User_name文本Not null用戶姓名User_tele數(shù)字 null用戶電話User_addess文本 null用戶地址User_email文本null用戶郵件User_system文本Not null系統(tǒng)管理員User_lab文本Not null圖書館管理員User_reader文本Not null普通讀者第三章 圖書管理系統(tǒng)的界面和代碼3.1登錄功能的實現(xiàn) 圖例3.1 登錄界面用戶名和密碼在數(shù)據(jù)庫里，當?shù)卿洉r，比較登陸的用戶名和密碼是否在數(shù)據(jù)庫里，如果不出現(xiàn)提示信息，如果在進行登陸。如果連續(xù)輸入三次密碼都不對，那么系統(tǒng)自動退出來。3.2 模塊功能的實現(xiàn) 模塊里實現(xiàn)數(shù)據(jù)庫的連接，定義數(shù)據(jù)庫對象變量，創(chuàng)建一個實例。3.3 圖書管理功能的實現(xiàn)圖例 3.2 主窗體界面（1）圖書種類管理主要管理圖書種類的添加、編輯等功能。（2）圖書種類的添加圖書的種類有很多，所以添加是時每個書籍都有自己的編號，編號不能重復(fù)，種類名稱也不能有重復(fù),只有圖書館管理員這個權(quán)限。（3）圖書種類的編輯圖書管理員可以對書籍種類進行修改，但注意的是種類編號不能改成已有的編號。3.4 圖書信息管理(1) 添加圖書信息圖書館管理員對圖書進行添加時編號不能有重復(fù)的。注意書籍價格是否數(shù)值性。(2) 編輯圖書信圖例 3.3 編輯圖信息界面圖書館管理員通過書籍編號進行查找所要編輯的書籍信息，書籍信息不能改成已有的書籍編號。(3) 刪除圖書信息刪除書籍信息的界面上有四個按鈕，通過這四個按鈕進行查找你所要刪除的信息，圖書館管理員才可以進行刪除操作。(4) 查詢圖書信息圖例 3.4 查詢圖書信息界面通過書籍名稱和作者查找圖書信息，因為大部分人都知道書籍名稱和作者。只要你輸入你所查找的書的名稱或作者，所有有關(guān)該書的信息全部顯示出來,讀者和管理員都能查找。3.5 讀者管理功能的實現(xiàn)(1) 讀者種類管理(2) 添加讀者種類這個系統(tǒng)主要面對中小學(xué)的圖書館設(shè)計的所以讀者種類有老師、學(xué)生、職工等等。添加時，主要添加種類有編號、種類名稱和借書量。注意的是種類編號不能有重復(fù)的，不同種類編號不能有相同的種類名稱。(3) 編輯讀者種類編輯讀者種類時，不能把當前的編號改稱已有的編號。3.6 讀者信息管理(1) 添加讀者信息添加的讀者信息主要有讀者的編號、讀者的姓名、讀者的性別、讀者的種類、讀者的聯(lián)系電話、讀者的地址和讀者的郵件等等。讀者的編號不能有重復(fù)的。(2) 編輯讀者信息管理員通過讀者編號找到要編輯的讀者信息后進行編輯。(3) 刪除讀者信息管理員可以通過上下按鈕找到要刪除的讀者信息后進行刪除。(4) 查看讀者信息通過讀者編號和讀者姓名可以查看讀者信息，該讀者接借了那些書，還了那些書。3.7 圖書借閱管理功能的實現(xiàn).(1) 借書管理圖例 3.5 借書信息界面Private Sub Combo1_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim("select * from books where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Text1.Text = mrc.Fields(1)Text2.Text = mrc.Fields(2)End SubPrivate Sub Combo2_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetDim mrcc As ADODB.Recordsettxtsql = Trim("select * from readers where reader_id=" & Combo2.Text & "")Set mrc = executesql(txtsql)txtsql = Trim("select * from readers where reader_id=" & Combo2.Text & "and book_no=" & Combo1.Text & "")Set mrcc = executesql(txtsql)Text4.Text = mrc.Fields(1)Text5.Text = mrc.Fields(2)End SubPrivate Sub Command1_Click()Dim mrcc As ADODB.RecordsetDim mrctype As ADODB.RecordsetDim mrcbook As ADODB.Recordsettxtsql = Trim("select * from borrow where reader_id=" & Combo2.Text & "")Set mrcc = executesql(txtsql)txtsql = Trim("select * from readertype where readertype_name=" & Text5.Text & "")Set mrctype = executesql(txtsql)txtsql = Trim("select * from books where book_no=" & Combo1.Text & "")Set mrcbook = executesql(txtsql)If Combo1.ListIndex = -1 Then MsgBox "請選擇書籍編號！", vbInformation Exit SubElseIf Combo2.ListIndex = -1 Then MsgBox "請選擇讀者編號！", vbInformation Exit SubElseIf mrcbook.Fields(7) = "是" Then MsgBox "此書已借！", vbInformationElsetxtsql = Trim("select * from borrow where reader_id=" & Combo2.Text & "and f = 借")Set mrcc = executesql(txtsql)If mrcc.RecordCount >= mrctype.Fields(2) Then MsgBox "借書量已超！", vbInformation Exit SubElse mrcc.AddNew mrcc.Fields(0) = Combo1.Text mrcc.Fields(1) = Text1.Text mrcc.Fields(2) = Combo2.Text mrcc.Fields(3) = Text4.Text mrcc.Fields(4) = "借" mrcc.Update mrcbook.Fields(7) = "是" mrcbook.Update MsgBox "借書成功！", vbInformation Combo1.Text = "" Text1.Text = "" Text2.Text = "" Combo2.Text = "" Text4.Text = "" Text5.Text = "" End IfEnd SubPrivate Sub Command2_Click()frmborrowbook.HideEnd SubPrivate Sub Form_Load()frmborrowbook.Height = 3660frmborrowbook.Width = 8580Dim txtsql As StringDim mrc As ADODB.RecordsetDim mrcc As ADODB.Recordsettxtsql = Trim("select * from books")Set mrc = executesql(txtsql)Do While Not mrc.EOF Combo1.AddItem mrc.Fields(0) mrc.MoveNextLooptxtsql = Trim("select * from readers")Set mrcc = executesql(txtsql)Do While Not mrcc.EOF Combo2.AddItem mrcc.Fields(0) mrcc.MoveNextLoopEnd Sub(2) 還書信息圖例 3.6 還書信息界面Option ExplicitPrivate Sub Combo1_Click()Dim mrc As ADODB.RecordsetDim txtsql As Stringtxtsql = Trim("select * from borrow where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)mrc.MoveNextLooptxtsql = Trim("select * from books where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select * from readers where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo2_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim("select * from books where book_name=" & Combo2.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo1.Text = mrc.Fields(0)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select * from borrow where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)mrc.MoveNextLooptxtsql = Trim("select * from readers where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo3_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim("select * from books where book_auther=" & Combo3.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo1.Text = mrc.Fields(0)Combo2.Text = mrc.Fields(1)mrc.MoveNextLooptxtsql = Trim("select * from borrow where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo5.Text = mrc.Fields(3)mrc.MoveNextLooptxtsql = Trim("select * from readers where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo4_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim("select * from borrow where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo1.Text = mrc.Fields(0)Combo5.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select * from books where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select * from readers where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Combo5_Click()Dim txtsql As StringDim mrc As ADODB.Recordsettxtsql = Trim("select * from borrow where reader_name=" & Combo5.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo4.Text = mrc.Fields(2)Combo1.Text = mrc.Fields(0)mrc.MoveNextLooptxtsql = Trim("select * from books where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.Text = mrc.Fields(1)Combo3.Text = mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select * from readers where reader_id=" & Combo4.Text & "")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.Text = mrc.Fields(3)mrc.MoveNextLoopEnd SubPrivate Sub Command1_Click()Dim mrc As ADODB.RecordsetDim txtsql As StringDim mrc1 As ADODB.RecordsetDim txtsql1 As Stringtxtsql = Trim("select * from borrow where book_no=" & Combo1.Text & "")Set mrc = executesql(txtsql)If Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then MsgBox "請選擇您想要還的書!", 0 + 64, "提示" Exit SubElseIf Combo4.Text = "" And Combo5.Text = "" And Combo6.Text = "" Then MsgBox "請輸入還書者的信息!", 0 + 64, "提示" Exit SubElse txtsql1 = Trim("select * from books where book_no=" & Combo1.Text & "") Set mrc1 = executesql(txtsql1) mrc.Delete mrc.AddNew mrc.Fields(0) = Combo1.Text mrc.Fields(1) = Combo2.Text mrc.Fields(2) = Combo4.Text mrc.Fields(3) = Combo5.Text mrc.Fields(4) = "還" mrc.Update mrc1.Delete mrc1.AddNew mrc1.Fields(0) = Combo1.Text mrc1.Fields(1) = Combo2.Text mrc1.Fields(2) = Combo3.Text mrc1.Fields(7) = "否" mrc1.Update MsgBox "還書成功！", 0 + 64, "提示" Combo1.RemoveItem Index Combo2.RemoveItem Index Combo3.RemoveItem Index Combo4.RemoveItem Index Combo5.RemoveItem Index Combo1.Text = "" Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Combo5.Text = "" Combo6.Text = ""End IfEnd SubPrivate Sub Command2_Click()frmgivebook.HideEnd SubPrivate Sub Form_Load()frmgivebook.Height = 3750frmgivebook.Width = 7365Dim mrc As ADODB.RecordsetDim txtsql As Stringtxtsql = Trim("select * from books where pufup=是")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo2.AddItem mrc.Fields(1)Combo3.AddItem mrc.Fields(2)mrc.MoveNextLooptxtsql = Trim("select readertype.* from readertype")Set mrc = executesql(txtsql)Do While mrc.EOF = FalseCombo6.AddItem mrc.Fields(1)mrc.MoveNextLooptxtsql = Trim("select * from borrow where flag=借")Set mrc = executesql(txtsql)If mrc.EOF = True Then MsgBox "沒有記錄！", vbInformation Exit SubElseDo While mrc.EOF = FalseCombo1.AddItem mrc.Fields(0)Combo4.AddItem mrc.Fields(1)Combo5.AddItem mrc.Fields(2)mrc.MoveNextLoopEnd IfEnd Sub(3) 查看還書信息圖例 3.7 圖書閱覽界面Private Sub Command1_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 Then If Trim(Text1.Text = "") Then MsgBox "請輸入讀者姓名！", 0 + 64, "提示" Text1.SetFocus Exit Sub Else txtsql = Trim("select*from borrow where reader_name=" & Text1.Text & "") Set mrc = executesql(txtsql) If mrc.EOF = True Then MsgBox "該讀者不存在!", 0 + 64, "提示" Text1.Text = "" Text1.SetFocus Exit Sub End If End IfElseIf Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 0 Then If Text2.Text = "" Then MsgBox "請輸入書籍名稱!", 0 + 64, "提示" Text2.SetFocus Exit Sub