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

1、圖書(shū)館管理系統(tǒng) [摘要]：圖書(shū)管理信息系統(tǒng)是應(yīng)用計(jì)算機(jī)與信息技術(shù)，圖書(shū)館的圖書(shū)資源進(jìn)行綜合管理的工具。它具有手工管理所無(wú)法比擬的優(yōu)點(diǎn)。本系統(tǒng)主要是面向中、小型圖書(shū)館進(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ì)圖書(shū)管理系統(tǒng)所完成的添加、修改、刪除、查詢(xún)、圖書(shū)借閱等主要功能進(jìn)行了需求分析與設(shè)計(jì)，編寫(xiě)代碼進(jìn)行調(diào)試測(cè)試，實(shí)現(xiàn)了系統(tǒng)的應(yīng)用。 關(guān)鍵詞：圖書(shū)管理 ；管理信息系統(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 第二章 圖書(shū)管理系統(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）圖書(shū)管理 8 （2）圖書(shū)種類(lèi)管理 9 （3）讀者管理 9 （4）讀者種類(lèi)管理 9 （5）圖書(shū)借閱管理 9 （6）系統(tǒng)管理 10 第三章 圖書(shū)管理系統(tǒng)的界面和代碼 10 3.1登錄功能的實(shí)現(xiàn) 10 3.2 模塊功能的實(shí)現(xiàn) 10 3.3 圖書(shū)管理功能的實(shí)現(xiàn) 11 （1）圖書(shū)種類(lèi)管理 11 （2）圖書(shū)種類(lèi)的添加 11 （3）圖書(shū)種類(lèi)的編輯 11 3.4 圖書(shū)信息管理 11 (1) 添加圖書(shū)信息 11 (2) 編輯圖書(shū)信 11 (3) 刪除

7、圖書(shū)信息 12 (4) 查詢(xún)圖書(shū)信息 12 3.5 讀者管理功能的實(shí)現(xiàn) 12 (1) 讀者種類(lèi)管理 12 (2) 添加讀者種類(lèi) 12 (3) 編輯讀者種類(lèi) 12 3.6 讀者信息管理 12 (1) 添加讀者信息 12 (2) 編輯讀者信息 12 (3) 刪除讀者信息 12 (4) 查看讀者信息 12 3.7 圖書(shū)借閱管理功能的實(shí)現(xiàn). 13 (1) 借書(shū)管理 13 (2) 還書(shū)信息 15 (3) 查看還書(shū)信息 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ā)展，人類(lèi)已經(jīng)逐漸地進(jìn)入信息化社會(huì)。信息和材料、能源一樣成為一種社會(huì)的基本生產(chǎn)資料，在人類(lèi)的社會(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)作為一門(mén)邊緣學(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è)較為貼近我生活的，和我比較了解的圖書(shū)管理系統(tǒng)。時(shí)代的進(jìn)步，計(jì)算機(jī)越來(lái)越廣泛的運(yùn)用，使很多原本由手工操作的管理，慢慢由計(jì)算機(jī)代替，而且日加完善。圖書(shū)管理系統(tǒng)就是其中一個(gè)典型的例子，由早先的手工操作管理，提升為計(jì)算機(jī)管理，大大的節(jié)約了人力物力資源。 實(shí)行電子化的圖書(shū)管理，讓人力資源管理人員從繁重瑣碎的案頭工作解脫出來(lái)，完成更重要的工作。圖書(shū)管理系統(tǒng)就是為了解決和減輕繁瑣的手工管理，使圖書(shū)館可以上升到一個(gè)完善的電子話，信息話管理。 在經(jīng)過(guò)長(zhǎng)時(shí)間的調(diào)研，和資料累積后，并參考了相關(guān)的圖書(shū)管理軟件，和查閱了大量的資料以后，我基本上搞清楚了圖書(shū)館對(duì)系統(tǒng)的需求，以及其

10、圖書(shū)管理系統(tǒng)，需要的功能，模塊，和借閱者與管理人員的需要之后設(shè)計(jì)了這個(gè)軟件。 在和指導(dǎo)老師多次交流后，確定實(shí)現(xiàn)方案的要點(diǎn)和工作計(jì)劃。本系統(tǒng)的實(shí)現(xiàn)的主要功能有：讀者信息管理、書(shū)籍信息管理，借閱信息管理，，以及讀者和書(shū)籍的查詢(xún)和修改等等的功能，是一個(gè)可以滿足借閱者和圖書(shū)館工作人員的需要的數(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ā)揮它的優(yōu)

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

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

13、理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書(shū)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能及時(shí)、準(zhǔn)確、有效的查詢(xún)和修改圖書(shū)情況。 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ù)相互滲透.數(shù)

14、據(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). 在人類(lèi)邁向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é)校中圖書(shū)管理水平還停留在紙介質(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ì)方法需要程序員自己編寫(xiě)代碼設(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ì)象稱(chēng)為實(shí)

16、在的東西。（第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í)版、專(zhuān)業(yè)版、企業(yè)版（功能最強(qiáng)）。VB是32位的程序設(shè)計(jì)語(yǔ)言。 2. Access2003 是微軟公司推出的基于Windows的桌面關(guān)系數(shù)據(jù)庫(kù)

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

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

19、以及數(shù)據(jù)庫(kù)向?qū)А⒈硐驅(qū)?、查?xún)向?qū)А⒋绑w向?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ì)用戶(hù)界面、設(shè)計(jì)數(shù)據(jù)查詢(xún)、報(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以上的剩余硬盤(pán)空間、CD－ROM驅(qū)動(dòng)器、鼠標(biāo)等。 軟件：

21、要求Windows 98或 Windows NT 3.51以上版本。 第二章 圖書(shū)管理系統(tǒng)設(shè)計(jì)分析 2.1 應(yīng)用需求分析 （1）需求描述與分析 1.需求信息的收集 需求信息的收集又稱(chēng)為系統(tǒng)調(diào)查。為了充分地了解用戶(hù)可能提出的要求，在調(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)和職能。其次，要確定組織的目標(biāo)

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

23、還可通過(guò)具體借閱活動(dòng)，了解借閱的流程、借閱的控制方式、日常管理信息，對(duì)圖書(shū)管理系統(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ǔ)上完成。 圖書(shū)館管理信息系統(tǒng)需要完成功能主要有： ● 有關(guān)讀者種類(lèi)標(biāo)準(zhǔn)的制定、種類(lèi)信息的輸入，包括種類(lèi)編號(hào)、種類(lèi)名稱(chēng)、借書(shū)數(shù)量、備注等。 ● 讀者種類(lèi)信息的添加、修改、查詢(xún)，包括種類(lèi)編號(hào)、種類(lèi)名稱(chēng)、借書(shū)數(shù)量、備注等。 ● 讀者基本信息的輸入，包括讀者編號(hào)、讀者姓名、讀者性別、讀者種類(lèi)、聯(lián)系電話、班級(jí)、電子郵件等 ● 讀者基本信息的添加

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

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

26、 圖2.1 2.3數(shù)據(jù)庫(kù)設(shè)計(jì) （1）數(shù)據(jù)庫(kù)需要分析 用戶(hù)的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢(xú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)圖書(shū)館管理信息需求的基礎(chǔ)上，將得到本系統(tǒng)所處理的數(shù)據(jù)流程。 數(shù)據(jù)安全可靠：系統(tǒng)通過(guò)對(duì)數(shù)據(jù)庫(kù)的加密和用戶(hù)權(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)入系統(tǒng)都

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

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

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

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

31、編號(hào) Reader_name 文本 Not null 讀者姓名 Reader_sex 文本 Not null 讀者性別 Readertype_name 文本 Not null 讀者種類(lèi) Reader_tele 數(shù)字 null 讀者電話 Reader_addess 文本 null 讀者地址 Rreader_email 文本 Not null 讀者郵件 （4）讀者種類(lèi)管理 (表2.4) 字段名 文本 可否為空 說(shuō)明 Readertype_id 文本 Not null 讀者種類(lèi)編號(hào) readertype_name 文本 Not

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

33、 User_name 文本 Not null 用戶(hù)姓名 User_tele 數(shù)字 null 用戶(hù)電話 User_addess 文本 null 用戶(hù)地址 User_email 文本 null 用戶(hù)郵件 User_system 文本 Not null 系統(tǒng)管理員 User_lab 文本 Not null 圖書(shū)館管理員 User_reader 文本 Not null 普通讀者 第三章 圖書(shū)管理系統(tǒng)的界面和代碼 3.1登錄功能的實(shí)現(xiàn) 圖例3.1 登錄界面 用戶(hù)名和密碼在數(shù)據(jù)庫(kù)里，當(dāng)?shù)卿洉r(shí)，比較登陸的用戶(hù)名和密碼是否在數(shù)

34、據(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ū)管理功能的實(shí)現(xiàn) 圖例 3.2 主窗體界面 （1）圖書(shū)種類(lèi)管理 主要管理圖書(shū)種類(lèi)的添加、編輯等功能。 （2）圖書(shū)種類(lèi)的添加 圖書(shū)的種類(lèi)有很多，所以添加是時(shí)每個(gè)書(shū)籍都有自己的編號(hào)，編號(hào)不能重復(fù)，種類(lèi)名稱(chēng)也不能有重復(fù),只有圖書(shū)館管理員這個(gè)權(quán)限。 （3）圖書(shū)種類(lèi)的編輯 圖書(shū)管理員可以對(duì)書(shū)籍種類(lèi)進(jìn)行修改，但注意的是種類(lèi)編號(hào)不能改成已有的編號(hào)。 3.4 圖書(shū)信息管理 (1) 添加圖書(shū)信息

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

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

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

38、 & "") 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 = exec

39、utesql(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 As ADODB.R

40、ecordset 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("select * from books

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

42、on 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 "借書(shū)量已超！", vbInformation Exit Sub Else mrcc.AddNew mrcc.Fields(0) = Combo1.Text mrcc.Fields(1) =

43、 Text1.Text mrcc.Fields(2) = Combo2.Text mrcc.Fields(3) = Text4.Text mrcc.Fields(4) = "借" mrcc.Update mrcbook.Fields(7) = "是" mrcbook.Update MsgBox "借書(shū)成功！", vbInformation Combo1.Text = "" Text1.Text = "" Text2.Text = "" Combo2.Text =

44、"" 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 ADODB.Recordset txtsql = Trim

45、("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.MoveNext Loop End Sub (2) 還書(shū)

46、信息 圖例 3.6 還書(shū)信息界面 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.Text = mrc.Fields(2) Combo5.Te

47、xt = 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 * from readers where reader_id="

48、 & 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=" & Combo2.Text & "") Set mrc = ex

49、ecutesql(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 = mrc.Fields(2) Combo5.Text = mrc.Fi

50、elds(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 String Dim mrc As ADODB.Recordset txt

51、sql = 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=" & Combo1.Text & "") Set mrc = executesql

52、(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.Text = mrc.Fields(3) mrc.MoveNext Loop End S

53、ub 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 = mrc.Fields(2) mrc.MoveNext Loop txtsql =

54、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=" & Combo4.Text & "") Set mrc = executesql(txtsql

55、) 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 mrc = executesql(txtsql) Do While mrc.EOF = False Co

56、mbo4.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 = mrc.Fields(2) mrc.MoveNext Loop txtsql = Trim("sel

57、ect * 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 String Dim mrc1 As ADODB.Recordset Dim txtsql1 As Stri

58、ng 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)選擇您想要還的書(shū)!", 0 + 64, "提示" Exit Sub ElseIf Combo4.Text = "" And Combo5.Text = "" And Combo6.Text = "" Then

59、 MsgBox "請(qǐng)輸入還書(shū)者的信息!", 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 mrc.Fields(1) = Combo2.Text mrc.Fields(2) = Combo4.Text

60、 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 "還書(shū)成功！", 0 + 64, "提示" Combo1.R

61、emoveItem 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 If End Sub Private Sub Comman

62、d2_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 = executesql(txtsql) Do While mrc.EOF = False Combo2.AddItem mrc.Fields

63、(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 * from borrow where flag=借") Set mrc = executesql(txtsql) If

64、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) 查看還書(shū)信息 圖例 3.7 圖書(shū)閱覽界面 Private Sub Co

65、mmand1_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 Exit Sub Else txtsql = Trim("select*from borrow wher

66、e 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)輸入書(shū)籍名稱(chēng)!", 0 + 64, "提示" Text2.SetFocus Exit Sub