圖書館管理系統(tǒng) 畢業(yè)論文

《圖書館管理系統(tǒng) 畢業(yè)論文》由會(huì)員分享，可在線閱讀，更多相關(guān)《圖書館管理系統(tǒng) 畢業(yè)論文（30頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、圖書館管理系統(tǒng) [摘要]：圖書管理信息系統(tǒng)是應(yīng)用計(jì)算機(jī)與信息技術(shù)，圖書館的圖書資源進(jìn)行綜合管理的工具。它具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。本系統(tǒng)主要是面向中、小型圖書館進(jìn)行統(tǒng)一、綜合管理的管理信息系統(tǒng)。系統(tǒng)應(yīng)用VISUAL BASIC開(kāi)發(fā)工具和Access數(shù)據(jù)庫(kù)管理系統(tǒng)，利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，采用原型法的系統(tǒng)開(kāi)發(fā)方法建立。論文從數(shù)據(jù)庫(kù)開(kāi)發(fā)角度對(duì)圖書管理系統(tǒng)所完成的添加、修改、刪除、查詢、圖書借閱等主要功能進(jìn)行了需求分析與設(shè)計(jì)，編寫代碼進(jìn)行調(diào)試測(cè)試，實(shí)現(xiàn)了系統(tǒng)的應(yīng)用。 關(guān)鍵詞：圖書管理 ；管理信息系統(tǒng)；數(shù)據(jù)庫(kù)；Visual Basic；Access database 第

2、 26 頁(yè) （共 26 頁(yè)） The Database Development in the Library Management Information System [Abstract]: 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 t

3、he 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 syste

4、m. 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

5、 word: management information system; database development; the prototype method; Visual Basic; Access database 目錄 第一章 緒論 1 1.1 課題背景 1 1.2 課題來(lái)源和意義 1 1.3 國(guó)內(nèi)外發(fā)展概況 2 1.4 開(kāi)發(fā)語(yǔ)言的介紹 2 1.5運(yùn)行環(huán)境和操作系統(tǒng)的介紹 4 第二章 圖書管理系統(tǒng)設(shè)計(jì)分析 4 2.1 應(yīng)用需求分析 4 （1）需求描述與分析 4 （2）需求分析的步驟 4 2.2 系統(tǒng)功能分析 5 （1）系統(tǒng)功能分析 5 （2）系統(tǒng)功能模

6、塊設(shè)計(jì) 5 2.3數(shù)據(jù)庫(kù)設(shè)計(jì) 6 （1）數(shù)據(jù)庫(kù)需要分析 6 （2）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 7 2.4 系統(tǒng)功能概述 8 （1）圖書管理 8 （2）圖書種類管理 9 （3）讀者管理 9 （4）讀者種類管理 9 （5）圖書借閱管理 9 （6）系統(tǒng)管理 10 第三章 圖書管理系統(tǒng)的界面和代碼 10 3.1登錄功能的實(shí)現(xiàn) 10 3.2 模塊功能的實(shí)現(xiàn) 10 3.3 圖書管理功能的實(shí)現(xiàn) 11 （1）圖書種類管理 11 （2）圖書種類的添加 11 （3）圖書種類的編輯 11 3.4 圖書信息管理 11 (1) 添加圖書信息 11 (2) 編輯圖書信 11 (3) 刪除

7、圖書信息 12 (4) 查詢圖書信息 12 3.5 讀者管理功能的實(shí)現(xiàn) 12 (1) 讀者種類管理 12 (2) 添加讀者種類 12 (3) 編輯讀者種類 12 3.6 讀者信息管理 12 (1) 添加讀者信息 12 (2) 編輯讀者信息 12 (3) 刪除讀者信息 12 (4) 查看讀者信息 12 3.7 圖書借閱管理功能的實(shí)現(xiàn). 13 (1) 借書管理 13 (2) 還書信息 15 (3) 查看還書信息 21 3.8 系統(tǒng)管理功能的實(shí)現(xiàn) 25 (1) 添加管理員 25 (2) 修改密碼 25 結(jié)束語(yǔ) 25 致謝 25 參考文獻(xiàn) 25 第

8、一章 緒論 1.1 課題背景 隨著電子計(jì)算機(jī)和通信技術(shù)的發(fā)展，人類已經(jīng)逐漸地進(jìn)入信息化社會(huì)。信息和材料、能源一樣成為一種社會(huì)的基本生產(chǎn)資料，在人類的社會(huì)生產(chǎn)活動(dòng)中發(fā)揮著重要的作用。同時(shí)人們對(duì)信息和數(shù)據(jù)的利用與處理也已進(jìn)入自動(dòng)化、網(wǎng)絡(luò)化和社會(huì)化的階段，因此，開(kāi)發(fā)相關(guān)的管理信息系統(tǒng)已經(jīng)成為各行各業(yè)的必要和必需了，管理信息系統(tǒng)作為一門邊緣學(xué)科，集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)于一體，可以解決企業(yè)或組織所面臨的問(wèn)題，對(duì)內(nèi)來(lái)看，可以提高工作效率；對(duì)外來(lái)看，獲得競(jìng)爭(zhēng)優(yōu)勢(shì)。 管理信息系統(tǒng)的開(kāi)發(fā)方法有生命周期法、原型法和面向?qū)ο蟮拈_(kāi)發(fā)方法等。在這個(gè)大的指導(dǎo)方針下，我的畢業(yè)論文

9、選擇了計(jì)算機(jī)管理信息系統(tǒng)，我選擇了一個(gè)較為貼近我生活的，和我比較了解的圖書管理系統(tǒng)。時(shí)代的進(jìn)步，計(jì)算機(jī)越來(lái)越廣泛的運(yùn)用，使很多原本由手工操作的管理，慢慢由計(jì)算機(jī)代替，而且日加完善。圖書管理系統(tǒng)就是其中一個(gè)典型的例子，由早先的手工操作管理，提升為計(jì)算機(jī)管理，大大的節(jié)約了人力物力資源。 實(shí)行電子化的圖書管理，讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來(lái)，完成更重要的工作。圖書管理系統(tǒng)就是為了解決和減輕繁瑣的手工管理，使圖書館可以上升到一個(gè)完善的電子話，信息話管理。 在經(jīng)過(guò)長(zhǎng)時(shí)間的調(diào)研，和資料累積后，并參考了相關(guān)的圖書管理軟件，和查閱了大量的資料以后，我基本上搞清楚了圖書館對(duì)系統(tǒng)的需求，以及其

10、圖書管理系統(tǒng)，需要的功能，模塊，和借閱者與管理人員的需要之后設(shè)計(jì)了這個(gè)軟件。 ? 在和指導(dǎo)老師多次交流后，確定實(shí)現(xiàn)方案的要點(diǎn)和工作計(jì)劃。本系統(tǒng)的實(shí)現(xiàn)的主要功能有：讀者信息管理、書籍信息管理，借閱信息管理，，以及讀者和書籍的查詢和修改等等的功能，是一個(gè)可以滿足借閱者和圖書館工作人員的需要的數(shù)據(jù)庫(kù)。 1.2 課題來(lái)源和意義 1. 當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的

11、優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開(kāi)發(fā)密切相關(guān)，系統(tǒng)的開(kāi)發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。 2. 圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開(kāi)始使用，甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理。根據(jù)調(diào)查得知，他們以前對(duì)信息管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對(duì)于圖書借閱情況（如借書天數(shù)、超過(guò)限定借書時(shí)間的天數(shù)）的統(tǒng)計(jì)和核實(shí)等往往采用對(duì)借書卡的人工檢查進(jìn)行，對(duì)借閱者的借閱權(quán)限、以及借閱天數(shù)等用人工計(jì)算、手抄進(jìn)行。數(shù)據(jù)信息處理工作量大，容易出錯(cuò)；由于數(shù)據(jù)繁多，容易丟失，且不易查找。總的來(lái)

12、說(shuō)，缺乏系統(tǒng)，規(guī)范的信息管理手段。盡管有的圖書館有計(jì)算機(jī)，但是尚未用于信息管理，沒(méi)有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開(kāi)發(fā)的基本環(huán)境。 3. 數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。圖書館采取手工方式對(duì)圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖書館的工作人員和管理員也只是當(dāng)時(shí)對(duì)它比較清楚，時(shí)間一長(zhǎng)，如再要進(jìn)行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費(fèi)時(shí)、費(fèi)力。如要對(duì)很長(zhǎng)時(shí)間以前的圖書進(jìn)行更改就更加困難了?；谶@此問(wèn)題，我認(rèn)為有必要建立一個(gè)圖書管理系統(tǒng)，使圖書

13、管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能及時(shí)、準(zhǔn)確、有效的查詢和修改圖書情況。 1.3 國(guó)內(nèi)外發(fā)展概況 自20世紀(jì)70年代以來(lái),數(shù)據(jù)庫(kù)技術(shù)得到迅速發(fā)展.目前世界上已經(jīng)有數(shù)百萬(wàn)個(gè)數(shù)據(jù)庫(kù)系統(tǒng)在運(yùn)行,其應(yīng)用已經(jīng)深入到社會(huì)生活的各個(gè)領(lǐng)域,從企業(yè)管理,銀行管理,資源管理,經(jīng)濟(jì)預(yù)測(cè)一直到信息檢索,檔案管理,普查統(tǒng)計(jì)等.我國(guó)20世紀(jì)90年代初在全國(guó)范圍內(nèi)裝備了12個(gè)以數(shù)據(jù)庫(kù)為基礎(chǔ)的大型計(jì)算機(jī)系統(tǒng),這些系統(tǒng)分布在郵電,計(jì)委,銀行,電力,鐵路,氣象,民航,情報(bào),公安,軍事,航天和財(cái)稅等行業(yè). 現(xiàn)在,數(shù)據(jù)庫(kù)技術(shù)還在不斷發(fā)展,并且不斷的與其它計(jì)算機(jī)技術(shù)相互滲透.

14、數(shù)據(jù)庫(kù)技術(shù)與網(wǎng)絡(luò)通信技術(shù)相結(jié)合,產(chǎn)生了分布式數(shù)據(jù)庫(kù)系統(tǒng).數(shù)據(jù)庫(kù)技術(shù)與面象對(duì)象技術(shù)相結(jié)合,產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫(kù)系統(tǒng)等各種數(shù)據(jù)庫(kù)系統(tǒng). 在人類邁向21世紀(jì)知識(shí)經(jīng)濟(jì)的時(shí)候,信息變?yōu)榻?jīng)濟(jì)發(fā)展的戰(zhàn)略資源,信息技術(shù)已成為社會(huì)生產(chǎn)力重要的組成部分.人們充分認(rèn)識(shí)到,數(shù)據(jù)庫(kù)是信息化社會(huì)中信息資源管理與開(kāi)發(fā)利用的基礎(chǔ).對(duì)于一個(gè)國(guó)家,數(shù)據(jù)庫(kù)的建設(shè)規(guī)模,使用水平已成為衡量該國(guó)信息化程度的重要標(biāo)志.因此,數(shù)據(jù)庫(kù)的學(xué)習(xí)是非常重要的. 現(xiàn)在我國(guó)的絕大多數(shù)農(nóng)村中小學(xué)校中圖書管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)檫@種管理方式存在著許多缺點(diǎn),如:效率低下、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的

15、文件和數(shù)據(jù),這對(duì)于數(shù)據(jù)的查找、更新和維護(hù)都帶來(lái)了不少的困難，并且浪費(fèi)了許多人力和物力。 1.4 開(kāi)發(fā)語(yǔ)言的介紹 1.Visual Basic6.0是一種可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言。 1) 可視化編程：VB自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，可以提高程序設(shè)計(jì)的效率。傳統(tǒng)的程序設(shè)計(jì)方法需要程序員自己編寫代碼設(shè)計(jì)界面，在設(shè)計(jì)時(shí)，界面不可見(jiàn)。Visual Basic6.0可以實(shí)現(xiàn)“所見(jiàn)即所得” ，即可視化(Visual)。 2) 面向?qū)ο蟮某绦蛟O(shè)計(jì)：VB6應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法OOP，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象（Object），并為每個(gè)對(duì)象賦予相應(yīng)的屬性，使對(duì)象稱為

16、實(shí)在的東西。（第2章介紹對(duì)象及其操作） 3) 結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言：具有高級(jí)語(yǔ)言的語(yǔ)句結(jié)構(gòu)（順序、選擇、循環(huán)）。VB是解釋型語(yǔ)言，也可以編譯生成可執(zhí)行文件（.EXE文件），脫離VB，直接在Windows環(huán)境下運(yùn)行。 4) 事件驅(qū)動(dòng)編程機(jī)制：每個(gè)事件通過(guò)一段程序（過(guò)程）來(lái)響應(yīng)。在VB中，不必建立具有明顯開(kāi)始和結(jié)束的程序，即運(yùn)行VB程序時(shí)，過(guò)程的執(zhí)行順序可以不同。事件驅(qū)動(dòng)是VB最主要的特點(diǎn)。 5)Visual Basic6.0的版本 VB 6.0分為：學(xué)習(xí)版、專業(yè)版、企業(yè)版（功能最強(qiáng)）。VB是32位的程序設(shè)計(jì)語(yǔ)言。 2. Access2003 是微軟公司推出的基于Windows的桌面關(guān)系數(shù)據(jù)

17、庫(kù)管理系統(tǒng)（RDBMS），是Office2003系列應(yīng)用軟件之一。它提供了表、查詢、窗體、報(bào)表、頁(yè)、宏、模塊7種用來(lái)建立數(shù)據(jù)庫(kù)系統(tǒng)的對(duì)象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲(chǔ)、數(shù)據(jù)查詢、界面設(shè)計(jì)、報(bào)表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫(kù)管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分?jǐn)?shù)據(jù)管理的任務(wù)。 Access2003是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，其主要特點(diǎn)如下： （1）存儲(chǔ)方式單一 Access2003管理的對(duì)象有表、查詢、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（.mdb）的數(shù)據(jù)庫(kù)文件種，便于用戶的操作和管理。 （2）面向?qū)ο? Acces

18、s是一個(gè)面向?qū)ο蟮拈_(kāi)發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫(kù)系統(tǒng)中的各種功能對(duì)象化，將數(shù)據(jù)庫(kù)管理的各種功能封裝在各類對(duì)象中。它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對(duì)象組成的，對(duì)每個(gè)對(duì)象它都定義一組方法和屬性，以定義該對(duì)象的行為和外國(guó)，用戶還可以按需要給對(duì)象擴(kuò)展方法和屬性。通過(guò)對(duì)象的方法、屬性完成數(shù)據(jù)庫(kù)的操作和管理，極大地簡(jiǎn)化了用戶的開(kāi)發(fā)工作。同時(shí)，這種基于面向?qū)ο蟮拈_(kāi)發(fā)方式，使得開(kāi)發(fā)應(yīng)用程序更為簡(jiǎn)便。 （3）界面友好、易操作 Access2003是一個(gè)可視化工具，是風(fēng)格與Windows完全一樣，用戶想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報(bào)表設(shè)計(jì)

19、器以及數(shù)據(jù)庫(kù)向?qū)?、表向?qū)А⒉樵兿驅(qū)?、窗體向?qū)?、?bào)表向?qū)У裙ぞ撸沟貌僮骱?jiǎn)便，容易使用和掌握。 （4）集成環(huán)境、處理多種數(shù)據(jù)信息 Access2003基于Windows操作系統(tǒng)下的集成開(kāi)發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ?，極大地提高了開(kāi)發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。 （5）Access2003支持ODBC（開(kāi)發(fā)數(shù)據(jù)庫(kù)互連，Open Data Base Connectivity），利用Access2003強(qiáng)大的DDE（動(dòng)態(tài)數(shù)據(jù)交換）和OLE（對(duì)象的聯(lián)接和嵌入）特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、Excel表

20、格、Word文檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫(kù)報(bào)表和窗體等。Access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動(dòng)態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫(kù)訪問(wèn)頁(yè)對(duì)象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。 1.5運(yùn)行環(huán)境和操作系統(tǒng)的介紹 本系統(tǒng)在Windows 9X、Windows NT、Windows2000、 Windows XP下的一個(gè)應(yīng)用程序，本身對(duì)軟硬件沒(méi)有特殊要求。也就是說(shuō)，它對(duì)環(huán)境的要求與 Windows 98、Windows NT要求是一致的。 硬件：一般要求586以上的處理器、16MB以上內(nèi)存、100MB以上的剩余硬盤空間、CD－ROM驅(qū)動(dòng)器、鼠標(biāo)等。 軟件

21、：要求Windows 98或 Windows NT 3.51以上版本。 第二章 圖書管理系統(tǒng)設(shè)計(jì)分析 2.1 應(yīng)用需求分析 （1）需求描述與分析 1.需求信息的收集 需求信息的收集又稱為系統(tǒng)調(diào)查。為了充分地了解用戶可能提出的要求，在調(diào)查研究之前，要做好充分的準(zhǔn)備工作，要了解調(diào)查的目的、調(diào)查的內(nèi)容和調(diào)查的方式。 2.需求信息的分析整理 要想把收集到的信息（如文件、圖表、票據(jù)、筆記）轉(zhuǎn)化為下一階段設(shè)計(jì)工作可用的形式信息，必須對(duì)需求信息做分析整理的工作 （2）需求分析的步驟 1. 調(diào)查的目的 首先，要了解組織的機(jī)構(gòu)設(shè)置，主要管理活動(dòng)和職能。其次，要確定組織的目

22、標(biāo)，大致管理流程和任務(wù)范圍劃分。 因此，圖書管理系統(tǒng)主要是通過(guò)對(duì)現(xiàn)有的圖書管理系統(tǒng)進(jìn)行考察、研究。并且通過(guò)和圖書管理人員、學(xué)生交流來(lái)完善管理功能。 2. 調(diào)查的內(nèi)容 外部要求：信息的性質(zhì)，響應(yīng)的時(shí)間、頻度和如何發(fā)生的規(guī)則，以及圖書管理的要求，安全性及完整性要求。 管理的現(xiàn)狀：即圖書管理信息的種類，信息流程，信息的處理方式，各種圖書服務(wù)工作過(guò)程。 組織機(jī)構(gòu)：了解圖書管理機(jī)構(gòu)的作用、現(xiàn)狀、存在的問(wèn)題，及是否適應(yīng)計(jì)算機(jī)管理。 3. 調(diào)查方式 通過(guò)對(duì)圖書管理人員的訪問(wèn)、交談可獲得圖書管理高層的、內(nèi)部的管理需求，以及圖書管理的管理目標(biāo)、未來(lái)圖書管理發(fā)展變化趨勢(shì)和長(zhǎng)遠(yuǎn)規(guī)劃的有關(guān)信息。 并且

23、，還可通過(guò)具體借閱活動(dòng)，了解借閱的流程、借閱的控制方式、日常管理信息，對(duì)圖書管理系統(tǒng)有一個(gè)深刻得了解。 2.2 系統(tǒng)功能分析 （1）系統(tǒng)功能分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成。 圖書館管理信息系統(tǒng)需要完成功能主要有： ● 有關(guān)讀者種類標(biāo)準(zhǔn)的制定、種類信息的輸入，包括種類編號(hào)、種類名稱、借書數(shù)量、備注等。 ● 讀者種類信息的添加、修改、查詢，包括種類編號(hào)、種類名稱、借書數(shù)量、備注等。 ● 讀者基本信息的輸入，包括讀者編號(hào)、讀者姓名、讀者性別、讀者種類、聯(lián)系電話、班級(jí)、電子郵件等 ● 讀者基本信息的添

24、加、修改、查詢，包括讀者編號(hào)、讀者姓名、讀者性別、讀者種、聯(lián)系電話、班級(jí)、電子郵件類等 ● 書籍信息的輸入，包括書籍編號(hào)、書籍名稱、書籍作者、書籍種類、出版日期、出版社、是否被借出等。 ● 書籍信息的添加、修改、查詢，包括書籍編號(hào)、書籍名稱、書籍作者、書籍種類、出版日期、出版社、是否被借出等。 ● 借書信息的輸入，包括借書編號(hào)、讀者編號(hào)、讀者姓名、書籍名稱、借書標(biāo)示。 ● 還書信息的輸入，包括還書編號(hào)、讀者編號(hào)、讀者姓名、書籍名稱、還書標(biāo)示。 ● 借書還書信息的添加、修改、查詢，包括借還編號(hào)、讀者編號(hào)、讀者姓名、書籍名稱、借還標(biāo)示。 （2）系統(tǒng)功能模塊設(shè)計(jì) 對(duì)上述各項(xiàng)功能進(jìn)行集

25、中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到如下系統(tǒng)功能模塊圖。 （圖 2.1） 添加書籍信息 查詢書籍信息 書籍種類添加 書籍種類修改 添加讀者信息 查詢讀者信息 添加讀者種類 查詢讀者種類 修改書籍信息 修改讀者信息 修改讀者種類 設(shè)置借書信息 設(shè)置還書信息 查詢借閱信息 圖書館管理信息系統(tǒng) 書籍信息管理 讀者信息管理 借閱信息管理 系統(tǒng)管理 設(shè)置書籍信息 設(shè)置書籍種類 設(shè)置讀者信息 設(shè)置讀者種類 設(shè)置 還書信息 設(shè)置借書信息 密碼管理 用戶管理 幫助 退出

26、 圖2.1 2.3數(shù)據(jù)庫(kù)設(shè)計(jì) （1）數(shù)據(jù)庫(kù)需要分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計(jì)打下基礎(chǔ)。 仔細(xì)分析調(diào)查有關(guān)圖書館管理信息需求的基礎(chǔ)上，將得到本系統(tǒng)所處理的數(shù)據(jù)流程。 ? 數(shù)據(jù)安全可靠：系統(tǒng)通過(guò)對(duì)數(shù)據(jù)庫(kù)的加密和用戶權(quán)限的設(shè)置保證了系統(tǒng)的安全。加密后的數(shù)據(jù)庫(kù)只有本系統(tǒng)才能對(duì)其進(jìn)行維護(hù)，任何直接對(duì)數(shù)據(jù)庫(kù)的操作都將無(wú)效，從而保證了數(shù)據(jù)庫(kù)入口的唯一性，避免了來(lái)自外界的破壞；本系統(tǒng)操作人員進(jìn)入系

27、統(tǒng)都可進(jìn)行嚴(yán)格的身份識(shí)別和安全審核，每個(gè)操作人員只能對(duì)自己權(quán)限范圍內(nèi)的數(shù)據(jù)進(jìn)行維護(hù)，可操作的用戶和具體的每個(gè)操作員的使用對(duì)象系統(tǒng)的管理員可以靈活設(shè)置，從而避免了來(lái)自內(nèi)部的破壞。 （2）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 本實(shí)例根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：讀者種類信息實(shí)體、讀者信息實(shí)體、書籍信息實(shí)體、借閱信息實(shí)體。各個(gè)實(shí)體具體的描述E-R 圖如下。 讀者種類信息實(shí)體E-R圖 讀者種類信息實(shí)體 種類編號(hào) 種類名稱 借書數(shù)量

28、 圖例2.2 借閱信息實(shí)體E-R圖 借閱信息實(shí)體 借閱編號(hào) 讀者編號(hào) 讀者姓名 書籍名稱 借還標(biāo)示 圖例2.3 讀者信息實(shí)體E-R圖 讀者信息實(shí)體 讀者編號(hào) 讀者姓名 讀者種類 讀者性別 圖例2.4 書籍信息實(shí)體E-R圖 書籍信息實(shí)體 書籍編號(hào) 書籍名稱 書籍作者 是否被借出 圖例2.5 讀者種類信息e-r圖 書籍種類信息實(shí)體 種類編號(hào) 種類名稱

29、 圖例2.6 實(shí)體之間相互關(guān)系的E-R圖 讀者種類信息 書籍信息 讀者信息登記 書籍信息登記 讀者信息管理 書籍信管理 借閱書籍 借閱信息管理 圖例2.7 2.4 系統(tǒng)功能概述 （1）圖書管理 (表2.1) 字段名 數(shù)據(jù)類型 可否為空 說(shuō)明 Book_id 文本 Not null 書籍編號(hào) Book_name 文本 Not null 書籍名稱 Book_auther 文本 Not null 書籍作者 Book_type 文本 Not null

30、書籍種類 Book_date 日期 Not null 出版日期 Book_addess 文本 Not null 出版社 Book_ price 文本 notnull 價(jià)格 zhuangtai 文本 Not null 狀態(tài) （2）圖書種類管理 (表2.2) 字段名 數(shù)據(jù)類型 可否為空 說(shuō)明 Booktype_id 文本 Not null 圖書種類編號(hào) Bootype_name 文本 Not null 讀書種類 （3）讀者管理 (表2.3) 字段名 數(shù)據(jù)類型 可否為空 說(shuō)明 Reader_id 文本 Not null

31、讀者編號(hào) 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) 字段名 文本 可否為空 說(shuō)明 Readertype_id 文本 Not null 讀者種類編號(hào) readertype_name 文本 N

32、ot null 讀者種類 Book_number 數(shù)字 Not null 借書量 （5）圖書借閱管理 (表2.5) 字段名 數(shù)據(jù)類型 可否為空 說(shuō)明 Book_id 文本 Not null 書籍編號(hào) Book_name 文本 Not null 書籍名稱 Reader_id 文本 Not null 讀者編號(hào) Reader_name 文本 Not null 讀者姓名 flag 文本 Not null 借還標(biāo)志 （6）系統(tǒng)管理 (表2.6) 字段名 數(shù)據(jù)類型 可否為空 說(shuō)明 User_id 文本 Not null 用戶

33、編號(hào) 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登錄功能的實(shí)現(xiàn) 圖例3.1 登錄界面 用戶名和密碼在數(shù)據(jù)庫(kù)里，當(dāng)?shù)卿洉r(shí)，比較登陸的用戶名和密碼是否

34、在數(shù)據(jù)庫(kù)里，如果不出現(xiàn)提示信息，如果在進(jìn)行登陸。如果連續(xù)輸入三次密碼都不對(duì)，那么系統(tǒng)自動(dòng)退出來(lái)。 3.2 模塊功能的實(shí)現(xiàn) 模塊里實(shí)現(xiàn)數(shù)據(jù)庫(kù)的連接，定義數(shù)據(jù)庫(kù)對(duì)象變量，創(chuàng)建一個(gè)實(shí)例。 3.3 圖書管理功能的實(shí)現(xiàn) 圖例 3.2 主窗體界面 （1）圖書種類管理 主要管理圖書種類的添加、編輯等功能。 （2）圖書種類的添加 圖書的種類有很多，所以添加是時(shí)每個(gè)書籍都有自己的編號(hào)，編號(hào)不能重復(fù)，種類名稱也不能有重復(fù),只有圖書館管理員這個(gè)權(quán)限。 （3）圖書種類的編輯 圖書管理員可以對(duì)書籍種類進(jìn)行修改，但注意的是種類編號(hào)不能改成已有的編號(hào)。 3.4 圖書信息管理 (1) 添加圖書信

35、息 圖書館管理員對(duì)圖書進(jìn)行添加時(shí)編號(hào)不能有重復(fù)的。注意書籍價(jià)格是否數(shù)值性。 (2) 編輯圖書信 圖例 3.3 編輯圖信息界面 圖書館管理員通過(guò)書籍編號(hào)進(jìn)行查找所要編輯的書籍信息，書籍信息不能改成已有的書籍編號(hào)。 (3) 刪除圖書信息 刪除書籍信息的界面上有四個(gè)按鈕，通過(guò)這四個(gè)按鈕進(jìn)行查找你所要?jiǎng)h除的信息，圖書館管理員才可以進(jìn)行刪除操作。 (4) 查詢圖書信息 圖例 3.4 查詢圖書信息界面 通過(guò)書籍名稱和作者查找圖書信息，因?yàn)榇蟛糠秩硕贾罆Q和作者。 只要你輸入你所查找的書的名稱或作者，所有有關(guān)該書的信息全部

36、顯示出來(lái),讀者和管理員都能查找。 3.5 讀者管理功能的實(shí)現(xiàn) (1) 讀者種類管理 (2) 添加讀者種類 這個(gè)系統(tǒng)主要面對(duì)中小學(xué)的圖書館設(shè)計(jì)的所以讀者種類有老師、學(xué)生、職工等等。添加時(shí)，主要添加種類有編號(hào)、種類名稱和借書量。注意的是種類編號(hào)不能有重復(fù)的，不同種類編號(hào)不能有相同的種類名稱。 (3) 編輯讀者種類 編輯讀者種類時(shí)，不能把當(dāng)前的編號(hào)改稱已有的編號(hào)。 3.6 讀者信息管理 (1) 添加讀者信息 添加的讀者信息主要有讀者的編號(hào)、讀者的姓名、讀者的性別、讀者的種類、讀者的聯(lián)系電話、讀者的地址和讀者的郵件等等。讀者的編號(hào)不能有重復(fù)的。 (2) 編輯讀者信息 管理員通過(guò)讀

37、者編號(hào)找到要編輯的讀者信息后進(jìn)行編輯。 (3) 刪除讀者信息 管理員可以通過(guò)上下按鈕找到要?jiǎng)h除的讀者信息后進(jìn)行刪除。 (4) 查看讀者信息 通過(guò)讀者編號(hào)和讀者姓名可以查看讀者信息，該讀者接借了那些書，還了那些書。 3.7 圖書借閱管理功能的實(shí)現(xiàn). (1) 借書管理 圖例 3.5 借書信息界面 Private Sub Combo1_Click() Dim txtsql As String Dim mrc As ADODB.Recordset txtsql = Trim("select * from books where book_no='" & Combo1.T

38、ext & "'") Set mrc = executesql(txtsql) Text1.Text = mrc.Fields(1) Text2.Text = mrc.Fields(2) End Sub Private Sub Combo2_Click() Dim txtsql As String Dim mrc As ADODB.Recordset Dim mrcc As ADODB.Recordset txtsql = Trim("select * from readers where reader_id='" & Combo2.Text & "'") Set mrc

39、= 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 Sub Private Sub Command1_Click() Dim mrcc As ADODB.Recordset Dim mrctype

40、As ADODB.Recordset Dim mrcbook As ADODB.Recordset txtsql = 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("selec

41、t * from books where book_no='" & Combo1.Text & "'") Set mrcbook = executesql(txtsql) If Combo1.ListIndex = -1 Then MsgBox "請(qǐng)選擇書籍編號(hào)！", vbInformation Exit Sub ElseIf Combo2.ListIndex = -1 Then MsgBox "請(qǐng)選擇讀者編號(hào)！", vbInformation Exit Sub ElseIf mrcbook.Fields(7) = "是" Then MsgBox "此書已

42、借！", vbInformation Else 'txtsql = 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 Sub 'Else mrcc.AddNew mrcc.Fields(0) = Combo1.T

43、ext 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

44、 = "" Combo2.Text = "" Text4.Text = "" Text5.Text = "" End If End Sub Private Sub Command2_Click() frmborrowbook.Hide End Sub Private Sub Form_Load() frmborrowbook.Height = 3660 frmborrowbook.Width = 8580 Dim txtsql As String Dim mrc As ADODB.Recordset Dim mrcc As ADOD

45、B.Recordset txtsql = Trim("select * from books") Set mrc = executesql(txtsql) Do While Not mrc.EOF Combo1.AddItem mrc.Fields(0) mrc.MoveNext Loop txtsql = Trim("select * from readers") Set mrcc = executesql(txtsql) Do While Not mrcc.EOF Combo2.AddItem mrcc.Fields(0) mrcc.MoveN

46、ext Loop End Sub (2) 還書信息 圖例 3.6 還書信息界面 Option Explicit Private Sub Combo1_Click() Dim mrc As ADODB.Recordset Dim txtsql As String txtsql = Trim("select * from borrow where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo4.Tex

47、t = mrc.Fields(2) Combo5.Text = mrc.Fields(3) mrc.MoveNext Loop txtsql = Trim("select * from books where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo2.Text = mrc.Fields(1) Combo3.Text = mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select *

48、from readers where reader_id='" & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.Text = mrc.Fields(3) mrc.MoveNext Loop End Sub Private Sub Combo2_Click() Dim txtsql As String Dim mrc As ADODB.Recordset txtsql = Trim("select * from books where book_name='"

49、& Combo2.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo1.Text = mrc.Fields(0) Combo3.Text = mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select * from borrow where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo4.Text =

50、 mrc.Fields(2) Combo5.Text = mrc.Fields(3) mrc.MoveNext Loop txtsql = Trim("select * from readers where reader_id='" & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.Text = mrc.Fields(3) mrc.MoveNext Loop End Sub Private Sub Combo3_Click() Dim txtsql As S

51、tring Dim mrc As ADODB.Recordset txtsql = Trim("select * from books where book_auther='" & Combo3.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo1.Text = mrc.Fields(0) Combo2.Text = mrc.Fields(1) mrc.MoveNext Loop txtsql = Trim("select * from borrow where book_no='"

52、& Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo4.Text = mrc.Fields(2) Combo5.Text = mrc.Fields(3) mrc.MoveNext Loop txtsql = Trim("select * from readers where reader_id='" & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.Tex

53、t = mrc.Fields(3) mrc.MoveNext Loop End Sub Private Sub Combo4_Click() Dim txtsql As String Dim mrc As ADODB.Recordset txtsql = Trim("select * from borrow where reader_id='" & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo1.Text = mrc.Fields(0) Combo5.Text

54、= mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select * from books where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo2.Text = mrc.Fields(1) Combo3.Text = mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select * from readers where reader_id='"

55、 & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.Text = mrc.Fields(3) mrc.MoveNext Loop End Sub Private Sub Combo5_Click() Dim txtsql As String Dim mrc As ADODB.Recordset txtsql = Trim("select * from borrow where reader_name='" & Combo5.Text & "'") Set mr

56、c = executesql(txtsql) Do While mrc.EOF = False Combo4.Text = mrc.Fields(2) Combo1.Text = mrc.Fields(0) mrc.MoveNext Loop txtsql = Trim("select * from books where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo2.Text = mrc.Fields(1) Combo3.Text =

57、 mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select * from readers where reader_id='" & Combo4.Text & "'") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.Text = mrc.Fields(3) mrc.MoveNext Loop End Sub Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtsql As

58、String Dim mrc1 As ADODB.Recordset Dim txtsql1 As String txtsql = Trim("select * from borrow where book_no='" & Combo1.Text & "'") Set mrc = executesql(txtsql) If Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then MsgBox "請(qǐng)選擇您想要還的書!", 0 + 64, "提示" Exit Sub ElseIf Combo4.Te

59、xt = "" And Combo5.Text = "" And Combo6.Text = "" Then MsgBox "請(qǐng)輸入還書者的信息!", 0 + 64, "提示" Exit Sub Else txtsql1 = Trim("select * from books where book_no='" & Combo1.Text & "'") Set mrc1 = executesql(txtsql1) mrc.Delete mrc.AddNew mrc.Fields(0) = Combo1.Text m

60、rc.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) = "否"

61、 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 = "

62、" Combo6.Text = "" End If End Sub Private Sub Command2_Click() frmgivebook.Hide End Sub Private Sub Form_Load() frmgivebook.Height = 3750 frmgivebook.Width = 7365 Dim mrc As ADODB.Recordset Dim txtsql As String txtsql = Trim("select * from books where pufup='是'") Set mrc = executesq

63、l(txtsql) Do While mrc.EOF = False Combo2.AddItem mrc.Fields(1) Combo3.AddItem mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("select readertype.* from readertype") Set mrc = executesql(txtsql) Do While mrc.EOF = False Combo6.AddItem mrc.Fields(1) mrc.MoveNext Loop txtsql = Trim("select *

64、 from borrow where flag='借'") Set mrc = executesql(txtsql) If mrc.EOF = True Then MsgBox "沒(méi)有記錄！", vbInformation Exit Sub Else Do While mrc.EOF = False Combo1.AddItem mrc.Fields(0) Combo4.AddItem mrc.Fields(1) Combo5.AddItem mrc.Fields(2) mrc.MoveNext Loop End If End Sub (3) 查看還書信

65、息 圖例 3.7 圖書閱覽界面 Private Sub Command1_Click() Dim txtsql As String Dim mrc As ADODB.Recordset If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 Then If Trim(Text1.Text = "") Then MsgBox "請(qǐng)輸入讀者姓名！", 0 + 64, "提示" Text1.SetFocus

66、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 If ElseIf Check1.Value = 0 And Check2.Value = 1 And Check3.Value = 0 Then If Text2.Text = "" Then MsgBox "請(qǐng)輸入書籍名稱!", 0 + 64, "提示" Text2.SetFocus Exit Sub