畢業(yè)設(shè)計(jì)（論文）-VB6.0圖書管理系統(tǒng).doc

常州信息職業(yè)技術(shù)學(xué)院/計(jì)算機(jī) 畢業(yè)設(shè)計(jì)（論文）報(bào)告目錄第一章 緒論2第二章需求分析32.1任務(wù)概述32.1.1 圖書管理系統(tǒng)完成的主要目標(biāo)32.1.2用戶的特點(diǎn)32.2需求規(guī)定32.2.1對(duì)功能的規(guī)定32.2.2讀者管理功能42.2.3系統(tǒng)管理功能4第三章 概要設(shè)計(jì)53.1總體設(shè)計(jì)53.1.1系統(tǒng)目標(biāo)設(shè)計(jì)53.1.2系統(tǒng)功能分析53.2系統(tǒng)設(shè)計(jì)思想53.3 系統(tǒng)模塊功能解析6第四章 詳細(xì)設(shè)計(jì)74.1程序設(shè)計(jì)說明74.1.1用戶登錄模塊74.1.2用戶添加模塊74.1.3書籍查詢模塊84.1.4圖書借閱模塊94.1.5圖書歸還模塊104.1.6新書入庫模塊11第五章 編碼與測(cè)試135.1各功能模塊的實(shí)現(xiàn)135.2 測(cè)試195.2.1借閱卡管理測(cè)試195.2.2書籍管理測(cè)試195.2.3系統(tǒng)管理測(cè)試19結(jié)束語20致 謝21參考文獻(xiàn)21圖書管理系統(tǒng)摘要：本文介紹了在VB6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析傳統(tǒng)的人工管理圖書館的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理圖書館的方案。文章詳細(xì)介紹了圖書管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、組織機(jī)構(gòu)分析、管理職能分析、業(yè)務(wù)流程分析、數(shù)據(jù)流程分析、數(shù)據(jù)字典、處理描述等等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分列出了幾個(gè)主要的程序框圖，并附帶了一些主要的窗口和程序。 關(guān)鍵字:圖書管理系統(tǒng),VB6.0,sqlserver2000,信息系統(tǒng)Library Management SystemAbstract：This article introduces the detailed process of exploring a management information system under the environment of VB6.0, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitation. That is to establish a set of effective scheme for library management by computer, through analyzing disadvantages of traditional library management by human resources. This article emphasizes on three sections. The system analysis section of library management information includes feasible analysis, organizing organs analysis, management function analysis, technological process of business analysis, technological process of data analysis, data dictionary, disposal description and the like. The system design section mainly focuses on system function design and data base design. And the system realization section has provided several major program charts, together with the main windows and programs.Key words: library management system, VB6.0,information system第一章 緒論 隨著人類社會(huì)的發(fā)展，人類對(duì)知識(shí)的需求也不斷地增長。在這種形勢(shì)下，書籍就漸漸地成為人們獲取并增長知識(shí)的主要途徑，而圖書館就自然而然地在人們的生活中占據(jù)了一定的位置，如何科學(xué)地管理圖書館不但關(guān)系到讀者求知的方便程度，也關(guān)系到圖書館的發(fā)展，因此，開發(fā)一套完善的圖書館管理系統(tǒng)就必不可少了。圖書館管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端的應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立數(shù)據(jù)的一致性和完整性，對(duì)于后者則要求應(yīng)用程序功能的完備，易用等的特點(diǎn)?；谏鲜隹紤]本系統(tǒng)主要利用VB6.0作前端的應(yīng)用開發(fā)工具 ，利用sqlsever 作為后臺(tái)的數(shù)據(jù)庫，利用WINDOWS作為系統(tǒng)平臺(tái)開發(fā)的圖書管理系統(tǒng)。另外本圖書館管理系統(tǒng)利用軟件工程化思想和方法，總體上是采用結(jié)構(gòu)化生命法進(jìn)行系統(tǒng)分析和設(shè)計(jì)的，而系統(tǒng)實(shí)現(xiàn)等步驟則采用了原型法和面對(duì)對(duì)象的方法系統(tǒng)開發(fā)的總目標(biāo)是實(shí)現(xiàn)內(nèi)部圖書借閱管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。能夠?qū)D書進(jìn)行注冊(cè)登記，也就是將圖書的基本信息（如：書名、作者、價(jià)格等）預(yù)先存入數(shù)據(jù)庫中，供以后檢索。能夠?qū)栝喨诉M(jìn)行注冊(cè)登記，包括記錄借閱人的姓名、地址、電話等信息。提供方便的查詢方法。如：以書名、作者、出版社、出版時(shí)間（確切的時(shí)間、時(shí)間段、某一時(shí)間之前、某一時(shí)間之后）等信息進(jìn)行圖書檢索，并能反映出圖書的借閱情況；以借閱人編號(hào)對(duì)借閱人信息進(jìn)行檢索；以出版社名稱查詢出版社聯(lián)系方式信息。提供統(tǒng)計(jì)分析功能。可以展現(xiàn)出圖書類型比例、庫存與借出比例。提供舊書銷毀功能，對(duì)于淘汰、損壞、丟失的書目可及時(shí)對(duì)數(shù)據(jù)庫進(jìn)行修改。能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶進(jìn)行管理，按照不同的工作職能提供不同的功能授權(quán)。提供較為完善的差錯(cuò)控制與友好的用戶界面，盡量避免誤操作。圖書館的基本功能就是為讀者提供借閱服務(wù)，讀者通過借閱這一過程，可以把圖書帶出圖書館，從而使讀者能夠更方便的瀏覽圖書。借書過程中，圖書管理員要對(duì)讀者的借書資格進(jìn)行審查，對(duì)符合借書條件的讀者，允許其借書，對(duì)其借書記錄進(jìn)行登記；對(duì)沒有借書資格的讀者，禁止其借書。在VB6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析傳統(tǒng)的人工管理圖書館的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理圖書館的方案。文章詳細(xì)介紹了圖書管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、組織機(jī)構(gòu)分析、管理職能分析、業(yè)務(wù)流程分析、數(shù)據(jù)流程分析、數(shù)據(jù)字典、處理描述等等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分列出了幾個(gè)主要的程序框圖，并附帶了一些主要的窗口和程序。第二章需求分析2.1任務(wù)概述2.1.1 圖書管理系統(tǒng)完成的主要目標(biāo)進(jìn)入系統(tǒng)前需要身份認(rèn)證、用戶名、密碼、輸入正確方可進(jìn)入。用戶可以根據(jù)需要進(jìn)行書庫管理。用戶可以進(jìn)行借書證的辦理、查詢、掛失等操作。用戶可以添加賬戶和修改密碼。2.1.2用戶的特點(diǎn) 最終用戶包括讀者（具有借閱卡的人）、圖書管理員，鑒于此軟件應(yīng)用于大學(xué)圖書管理，讀者基本都是在校大學(xué)生即校職工和領(lǐng)導(dǎo)，圖書管理員都是接受過高等教育的職工，因此他們都懂得運(yùn)用基本的計(jì)算機(jī)知識(shí)。大學(xué)圖書管理系統(tǒng)的使用頻度很高，假如一個(gè)一萬人的大學(xué)來講，每天圖書館的平均日流量為1.5萬。因此，該軟件的可靠性、可用性、可維護(hù)性顯得尤為重要。2.2需求規(guī)定2.2.1對(duì)功能的規(guī)定 1、圖書信息查詢/借書信息查詢:圖書館主要向讀者提供圖書借閱的服務(wù)。讀者為了借閱圖書，一般情況下，需要在借書之前查詢所要借閱的圖書情況，所以圖書館需要為讀者提供圖書查詢功能。例如，讀者可能想借閱某方面的書，但不知道圖書館在該方面有哪些圖書可供借閱，所以需要對(duì)圖書館的圖書進(jìn)行查詢；或者，讀者知道想借閱的圖書信息，但不知道該圖書館是否有該書或不知道圖書在圖書館的位置、是否被借出、是否可以借閱等信息，這也需要使用圖書查詢功能。一般的圖書查詢中，讀者是通過圖書登記卡、瀏覽圖書登記卡中的信息得到圖書信息的。經(jīng)過圖書查詢，讀者獲得圖書館是否有自己想要的圖書，該圖書的簡單信息以及圖書在圖書館的借閱位置等信息。 2、新書入庫:為了能正常運(yùn)行，圖書館要及時(shí)更新館藏圖書。對(duì)于新書，要購進(jìn)，供讀者借閱；所以要設(shè)計(jì)到圖書的批量入庫。對(duì)于批量入庫，圖書管理員要批量登記圖書的信息，包括書名ID、ISBN、圖書名稱、作者、出版社、單價(jià)、入庫時(shí)間、圖書總量、現(xiàn)存總量等。 3、借閱圖書/歸還圖書:圖書館的基本功能之一就是為讀者提供借閱服務(wù)，讀者通過借閱這一過程，可以把圖書帶出圖書館，從而使讀者能夠更方便的瀏覽圖書。借書過程中，圖書管理員要對(duì)讀者的借書資格進(jìn)行審查，對(duì)符合借書條件的讀者，允許其借書，對(duì)其借書記錄進(jìn)行登記；對(duì)沒有借書資格的讀者，禁止其借書。具體的步驟如下：讀者向圖書管理員提交請(qǐng)求和圖書借閱卡,圖書管理員檢查讀者提供的借閱卡，如果該借閱證真實(shí)準(zhǔn)確，讀者已經(jīng)借閱的圖書并沒有超過允許借書量，而且讀者沒有逾期未還的圖書，則允許讀者借書，否則，讀者不能從圖書館借書。讀者拿到要借閱的圖書，同時(shí)拿到自己的借閱卡，借書過程完畢。當(dāng)借閱圖書的數(shù)量超過5本或者出現(xiàn)未按期歸還圖書的情況，則不好進(jìn)行借閱處理。圖書館的另一基本功能就是為讀者提供還書服務(wù)，讀者在一本圖書借閱期滿之前把該圖書還給圖書館，一般的還書步驟如下：讀者把所借的圖書和自己的借閱卡交給圖書管理員。圖書管理員對(duì)圖書進(jìn)行檢查，看有無損壞，如果出現(xiàn)圖書的損壞情況，讀者應(yīng)進(jìn)行相應(yīng)的賠償。圖書管理員查看是否超過規(guī)定借閱期限，如果已經(jīng)過期，則讀者要按規(guī)定交納罰金。圖書管理員進(jìn)行登記，同時(shí)把還書信息記入借閱卡。讀者拿回自己的借閱卡，還書過程借書。讀者逾期未歸還圖書超過三天，將按照每本每天進(jìn)行一定的罰款。 4、書籍掛失:對(duì)圖書由于丟失而不能即時(shí)還書的情況，讀者要即時(shí)到圖書管理員進(jìn)行登記，確保圖書信息的更新。進(jìn)行書籍掛失的步驟一般如下：讀者將所丟圖書信息告訴圖書管理員并將借閱卡交給圖書管理員。圖書管理員對(duì)該圖書信息進(jìn)行登記，并按圖書的價(jià)格，要求讀者進(jìn)行相應(yīng)賠償。圖書管理員將信息記入借閱卡。讀者拿回自己的借閱卡，掛失功能結(jié)束。2.2.2讀者管理功能1、辦理借閱卡:圖書館向讀者提供借閱服務(wù)，讀者必須具有有效憑證方可借閱。因此，讀者必須辦理借閱卡獲取有效憑證。讀者在辦理借閱卡時(shí)，必須輸入個(gè)人有關(guān)注冊(cè)信息，包括讀者姓名、性別、出生日期、家庭住址、身份證號(hào)碼、電話號(hào)碼等信息。系統(tǒng)根據(jù)讀者提供的信息，辦理借閱卡并生成個(gè)人帳號(hào)、讀者可自行修改密碼。2、借閱卡信息查詢;圖書館在正常運(yùn)營中要面對(duì)大量的讀者信息，需要掌握每個(gè)讀者的信息，即時(shí)準(zhǔn)確的掌握讀者的基本情況，這些是圖書館運(yùn)營的保證。讀者要進(jìn)行信息查詢，可以通過系統(tǒng)將自己的借閱卡賬戶、密碼輸入系統(tǒng)，系統(tǒng)通過核對(duì)找到讀者的信息。如果讀者的信息正確，系統(tǒng)將讀者的信息包括讀者姓名、性別、出生日期、家庭住址、身份證號(hào)碼、電話號(hào)碼等信息。如果讀者的信息不正確，系統(tǒng)將提示錯(cuò)誤，并且系統(tǒng)設(shè)定，當(dāng)錯(cuò)誤次數(shù)超過5次時(shí)，系統(tǒng)將不予查詢。3、借閱卡掛失:對(duì)借閱卡的丟失要即時(shí)進(jìn)行掛失處理，以防止其他人盜用自己的有效信息并出現(xiàn)私自借書等行為。借閱卡掛失的一般步驟可分為：讀者將掛失情況即時(shí)到圖書管理員處進(jìn)行登記，并填寫登記單。圖書管理員將讀者情況進(jìn)行登記掛失，注銷借閱卡的信息，并咨詢讀者是否重新辦理。若讀者需重新辦理，則重新填寫相關(guān)信息，系統(tǒng)自動(dòng)生成心的借閱卡信息記錄，讀者重新設(shè)置帳號(hào)即密碼，并交納相應(yīng)的費(fèi)用。若讀者不需辦理，則系統(tǒng)將信息注銷。讀者獲得新的圖書借閱卡。2.2.3系統(tǒng)管理功能 1、注冊(cè)管理員:為了對(duì)圖書館管理系統(tǒng)進(jìn)行管理，圖書館需要若干名圖書管理員進(jìn)行管理，在圖書管理員對(duì)系統(tǒng)進(jìn)行管理之前必須進(jìn)行注冊(cè)功能，以確定管理員身份。對(duì)管理員進(jìn)行注冊(cè)，系統(tǒng)生成相應(yīng)信息。其中管理員的基本信息包括：成員ID、密碼等。系統(tǒng)管理員每次登陸前輸入自己的ID與密碼，系統(tǒng)對(duì)其信息進(jìn)行核實(shí)，如基本信息正確，則系統(tǒng)管理員可進(jìn)行系統(tǒng)管理功能，若系統(tǒng)檢查不正確，則系統(tǒng)管理員不可以進(jìn)行相應(yīng)的操作。 2、修改密碼:服務(wù)圖書館管理員可能由于某些原因，如電腦中毒導(dǎo)致管理員密碼的泄露，為避免圖書管理信息遭到破壞，系統(tǒng)具有修改密碼的功能，確保圖書管理功能的安全性。 3、退出功能:系統(tǒng)管理員每次離開必須進(jìn)行退出功能，確保管理功能不被他人所用，這樣更方便圖書管理系統(tǒng)出現(xiàn)問題時(shí)，找到責(zé)任人。第三章 概要設(shè)計(jì) 3.1總體設(shè)計(jì) 3.1.1系統(tǒng)目標(biāo)設(shè)計(jì)系統(tǒng)開發(fā)的總目標(biāo)是實(shí)現(xiàn)內(nèi)部圖書借閱管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。能夠?qū)D書進(jìn)行注冊(cè)登記，也就是將圖書的基本信息（如：書名、作者、價(jià)格等）預(yù)先存入數(shù)據(jù)庫中，供以后檢索。能夠?qū)栝喨诉M(jìn)行注冊(cè)登記，包括記錄借閱人的姓名、地址、電話等信息。提供方便的查詢方法。如：以書名、作者、出版社、出版時(shí)間（確切的時(shí)間、時(shí)間段、某一時(shí)間之前、某一時(shí)間之后）等信息進(jìn)行圖書檢索，并能反映出圖書的借閱情況；以借閱人編號(hào)對(duì)借閱人信息進(jìn)行檢索；以出版社名稱查詢出版社聯(lián)系方式信息。提供統(tǒng)計(jì)分析功能?？梢哉宫F(xiàn)出圖書類型比例、庫存與借出比例。提供舊書銷毀功能，對(duì)于淘汰、損壞、丟失的書目可及時(shí)對(duì)數(shù)據(jù)庫進(jìn)行修改。能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶進(jìn)行管理，按照不同的工作職能提供不同的功能授權(quán)。提供較為完善的差錯(cuò)控制與友好的用戶界面，盡量避免誤操作。3.1.2系統(tǒng)功能分析 根據(jù)以上功能，將圖書管理系統(tǒng)的數(shù)據(jù)分為：數(shù)據(jù)輸入部分：主要包括圖書基本信息的錄入、借閱人基本信息的錄入、用戶基本信息的錄入。數(shù)據(jù)輸出部分：主要是各種統(tǒng)計(jì)查詢，包括：根據(jù)圖書信息（如書名、作者、出版社等）查閱圖書及其借閱信息、統(tǒng)計(jì)輸出圖書類型比例等。數(shù)據(jù)處理部分：主要涉及借閱和歸還的處理，如一本書借出后，必須在數(shù)據(jù)庫中將該書標(biāo)記為已借出，以防出現(xiàn)數(shù)據(jù)庫中有書但圖書館無書的情況；一本書歸還后，同樣必須在數(shù)據(jù)庫中將其標(biāo)記為已經(jīng)歸還，以便再次借出。概念設(shè)計(jì)階段主要任務(wù)和目標(biāo)是根據(jù)需求分析的結(jié)果，包括一般聯(lián)系實(shí)體，畫出對(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圖綜合起來形成統(tǒng)一的整體ER圖。3.2系統(tǒng)設(shè)計(jì)思想1、圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。圖書管理系統(tǒng)使用的是SQL Server2000的數(shù)據(jù)管理系統(tǒng)和以Visual Basic6.0為開發(fā)工具。2、首先進(jìn)行系統(tǒng)設(shè)計(jì)分析，系統(tǒng)設(shè)計(jì)主要包括系統(tǒng)功能分析、系統(tǒng)模塊設(shè)計(jì)以及運(yùn)行環(huán)境的選擇、系統(tǒng)實(shí)現(xiàn)過程。3、然后根據(jù)系統(tǒng)功能分析設(shè)計(jì)出需要的數(shù)據(jù)庫，繪制系統(tǒng)數(shù)據(jù)流圖與總結(jié)數(shù)據(jù)字典、設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)。4、最后在實(shí)現(xiàn)各個(gè)功能模塊時(shí)，采用先模塊后系統(tǒng)集成的方式，即各系統(tǒng)功能模塊分別獨(dú)立設(shè)計(jì)和調(diào)試，在創(chuàng)建系統(tǒng)主窗體時(shí)才將各個(gè)功能模塊通過主窗體菜單系統(tǒng)集成到一起，最后進(jìn)行系統(tǒng)整體的設(shè)計(jì)和調(diào)試。3.3 系統(tǒng)模塊功能解析（1）系統(tǒng)設(shè)計(jì)分析本圖書管理系統(tǒng)主要有以下功能:圖書征訂：包括圖書征訂數(shù)據(jù)的錄入、修改、刪除與審校等功能。圖書編目：包括圖書數(shù)目信息的錄入、修改、刪除功能。圖書典藏：包括新書分配、庫室調(diào)配等功能。圖書流通：包括圖書借閱、續(xù)借、圖書返還，圖書書目的查詢的功能。系統(tǒng)用戶管理：包括系統(tǒng)用戶數(shù)據(jù)的錄入、修改與刪除等功能。讀者數(shù)據(jù)管理：包括讀者類別管理，讀者個(gè)人數(shù)據(jù)的錄入、修改和刪除功能。（2）系統(tǒng)功能分析權(quán)限功能：權(quán)限功能設(shè)置的對(duì)象為高級(jí)管理員、普通管理員、讀者。高級(jí)管刪除所有信息；普通管理員只能對(duì)授權(quán)范圍內(nèi)進(jìn)行相應(yīng)修改及刪除；讀者只能查詢借閱記錄和圖書書目不能修改。錄入功能：為普通管理員提供相應(yīng)的錄入功能，為高級(jí)管理員提供對(duì)所有信息的錄入功能。查詢功能：為所有用戶提供查詢的功能，可查詢?cè)试S范圍內(nèi)的所有信息。維護(hù)功能：為普通管理員提供查詢及相應(yīng)的修改，刪除功能，為高級(jí)管理提供對(duì)所有信息的修改刪除功能。打印功能：可打印圖書征訂計(jì)劃。退出功能：各個(gè)功能模塊和主窗體都設(shè)有關(guān)閉命令按鈕，可方便地退出各模塊或系統(tǒng)。第四章 詳細(xì)設(shè)計(jì)4.1程序設(shè)計(jì)說明4.1.1用戶登錄模塊 1.程序描述:此程序用于用戶登陸的至用戶界面，程序通過輸入用戶的ID,用戶密碼的正確性來實(shí)現(xiàn)對(duì)驗(yàn)證用戶的真實(shí)性。2.功能:實(shí)現(xiàn)用戶的登錄功能3.性能:用戶通過輸入用戶ID,用戶名和密碼進(jìn)行用戶登陸，通過認(rèn)證后，用戶即可進(jìn)入用戶界面。4. 輸入項(xiàng):輸入用戶ID,用戶名，密碼5.輸出項(xiàng):用戶主頁面。流程邏輯如圖所示：圖4-1用戶登錄流程邏輯4.1.2用戶添加模塊 1.程序描述:此程序用于添加新的用戶，用戶通過向數(shù)據(jù)庫內(nèi)輸入必要的信息來注冊(cè)成為新的用戶，才通過一系列的驗(yàn)證之后，即注冊(cè)成為真正的用戶。 2.功能:實(shí)現(xiàn)對(duì)用戶的添加功能。 3.性能:查詢新用戶的用戶名是否存在，若存在則停止添加返還數(shù)據(jù)庫；若用戶不存在，則進(jìn)行添加，并進(jìn)行注冊(cè)，注冊(cè)成功后返回。 4.輸入項(xiàng):輸入用戶的詳細(xì)信息，包括姓名，出生日期，性別，地址，身份證號(hào)碼，電話號(hào)碼等信息。 5.輸出項(xiàng):若添加成功，則輸出提示用戶注冊(cè)成功界面；若未成功，則提示輸出未成功原因界面。 6.流程邏輯如下圖所示：圖4-2用戶添加模塊流程邏輯4.1.3書籍查詢模塊 1.程序描述：此程序用于實(shí)現(xiàn)用戶對(duì)想要借閱的查詢功能。用戶通過輸入相應(yīng)的圖書信息來查詢，數(shù)據(jù)庫根據(jù)用戶提供的信息來搜索，最后給出客戶相應(yīng)的圖書信息。 2.功能：實(shí)現(xiàn)圖書查詢功能。 3.性能：對(duì)進(jìn)行想要查詢的書籍進(jìn)行搜索，若存在此書則顯示該書的詳細(xì)信息；若不存在此書，則提示沒有此書并返回。 4.輸入項(xiàng)：輸入圖書的詳細(xì)信息，包括圖書名稱，書籍ID，圖書作者，出版社，單價(jià)等信息。 5.輸出項(xiàng)：若輸入的圖書存在即輸出圖書詳細(xì)信息界面；若輸入的圖書不存在則顯示圖書不存在界面。6.流程邏輯如下圖所示：圖4-3圖書查詢模塊流程4.1.4圖書借閱模塊 1.程序描述：此程序用于圖書的借閱，用戶通過登錄自己的借閱ID后，對(duì)需要借閱的圖書進(jìn)行借閱操作，如果符合借閱的要求，則可進(jìn)行借閱。 2.功能：實(shí)現(xiàn)對(duì)圖書的書籍借閱功能。 3.性能：首先驗(yàn)證借閱者輸入的借閱ID是否存在，若存在進(jìn)行下一步；若不存在則返回。4.若借閱ID存在，則檢查此借閱ID是否借閱書籍超出4本，若超出則提示超出借閱數(shù)目，返回；若沒有超出，則進(jìn)行下一操作。5.對(duì)想要借閱的圖書ID進(jìn)行搜索，若此書不存在，則提示此書不存在；若此書存在則進(jìn)行下一步操作。將借閱者借閱的數(shù)量増一，將數(shù)據(jù)庫中此書數(shù)量減一，同時(shí)提醒借閱成功，然后返回。 6.輸入項(xiàng)：輸入借閱證的ID,圖書ID 7.輸出項(xiàng)：若借閱證ID正確且圖書ID正確且符合借閱要求，則輸出提示借閱成功界面；若存在借閱ID或圖書ID或不符合借閱要求等問題，則輸出提示沒有借閱成功原因的界面。 8.流程邏輯如下圖圖4-4圖書借閱模塊4.1.5圖書歸還模塊 1.程序描述：此程序用于圖書的歸還，用戶在登錄自己的ID之后，用戶可以對(duì)需要?dú)w還的圖書進(jìn)行操作，如果符合歸還要求，則可以將圖書歸還。 2.功能：實(shí)現(xiàn)對(duì)圖書的書籍歸還功能。 3.性能：首先驗(yàn)證借閱者輸入的借閱ID是否存在，若存在進(jìn)行下一步；若不存在則返回。對(duì)想要?dú)w還的圖書ID進(jìn)行搜索，若此書不存在，則提示此書不存在；若此書存在則進(jìn)行下一步操作。將借閱者借閱的數(shù)量減一，將數(shù)據(jù)庫中此書數(shù)量加一，同時(shí)提醒借閱歸還，然后返回。 4.輸入項(xiàng)：輸入借閱證ID和圖書ID 5.輸出項(xiàng)：若借閱證ID和圖書ID正確，則輸出提示圖書歸還成功界面；若借閱證ID或圖書ID不正確，則輸出提示沒有成功原因的界面。6.流程邏輯如下圖：圖4-5圖書歸還模塊4.1.6新書入庫模塊1.程序描述：此程序用戶對(duì)新進(jìn)圖書的入口登記處理。用戶可以將新書的詳細(xì)信息進(jìn)行輸入，保存在數(shù)據(jù)庫中后，新書即登記成功。2.功能;實(shí)現(xiàn)新進(jìn)圖書入庫功能。3.性能:對(duì)數(shù)據(jù)庫查詢是否已存在此書，若存在則將此書數(shù)量加一，提示添加成功；若沒有此書，則將此書的基本信息存入數(shù)據(jù)庫，并提示添加書籍成功。4.輸入項(xiàng):輸入新書的書籍ID，書名，作者，出版社，單價(jià)等信息。5.輸出項(xiàng):若添加成功，則輸出提示新書添加成功界面；若沒有添加成功，輸出提示未成功原因界面。6.流程邏輯如下圖圖4-6新書入庫模塊第五章 編碼與測(cè)試5.1各功能模塊的實(shí)現(xiàn)（1）用戶登錄窗體圖5-1 用戶登錄窗體用戶登錄代碼：Const MaxLogTimes As Integer = 3Private Sub cmdcancel_Click() If MsgBox(是否真的退出系統(tǒng)登錄？, vbYesNo, 登錄驗(yàn)證) = vbYes Then Unload Me End IfEnd SubPrivate Sub cmdok_Click() Static intLogTimes As Integer intLogTimes = intLogTimes + 1 If intLogTimes MaxLogTimes Then MsgBox 超過登錄次數(shù)！, vbCritical, 登錄驗(yàn)證 Else With Library_Manage.rsSysUsers .Open If .RecordCount 0 Then .MoveFirst .Find 編號(hào)= & Trim(txtLog(0) & If .EOF Then MsgBox Trim(txtLog(0) & 不是系統(tǒng)用戶，請(qǐng)檢查輸入！, vbCritical, 登錄驗(yàn)證 txtLog(0).SetFocus txtLog(0).SelStart = 0 txtLog(0).SelLength = Len(txtLog(0) ElseIf .Fields(口令) Trim(txtLog(1) Then MsgBox 口令錯(cuò)誤，請(qǐng)檢查輸入口令！, vbCritical, 登錄驗(yàn)證 txtLog(1).SetFocus: txtLog(1) = Else CurrentUserNum = .Fields(編號(hào)) CurrentUserPassword = .Fields(口令) CurrentUserStatus = .Fields(權(quán)限) MsgBox 歡迎使用常州信息學(xué)院管理系統(tǒng)！, vbInformation, 登陸成功！ Unload Me End If End If .Close End With End IfEnd SubPrivate Sub Form_Load() SysLogon.BackColor = RGB(192, 210, 270)End Sub（2）用戶管理窗體界面圖5-2 用戶管理窗體用戶管理窗體代碼保存Private Sub cmdSave_Click() Dim objcopy As New Recordset If Trim(txtNum) = Then MsgBox 不能為空！, vbCritical, 系統(tǒng)用戶管理 txtNum.SetFocus txtNum.SelStart = 0 txtNum.SelLength = Len(txtNum) ElseIf Len(Trim(txtPwd) 6 Then MsgBox 用戶口令須為6位字符串！, vbCritical, 系統(tǒng)用戶管理 txtPwd.SetFocus txtPwd.SelStart = 0 txtPwd.SelLength = Len(txtPwd) ElseIf Not txtAuth Like 0,1 Then MsgBox 用戶權(quán)限必須為0或1, vbCritical, 系統(tǒng)用戶管理 txtAuth = txtAuth.SetFocus Else Set objcopy = Library_Manage.rsSysUsers.Clone 對(duì)錯(cuò)？ With objcopy If .RecordCount 0 Then .MoveFirst .Find 編號(hào) & Trim(txtNum) & If Not .EOF And .AbsolutePosition Library_Manage.rsSysUsers.AbsolutePosition Then MsgBox 編號(hào): & Trim(txtNum) & 已被使用，請(qǐng)選擇其他編號(hào)！, vbCritical, 系統(tǒng)用戶管理 txtNum.SetFocus txtNum.SelStart = 0 txtNum.SelLength = Len(txtNum) Exit Sub Else 保存記錄 Library_Manage.rsSysUsers.Update MsgBox 數(shù)據(jù)保存成功！, vbInformation, 系統(tǒng)用戶管理 cmdAdd.Enabled = True cmdDel.Enabled = True isAdding = False: picNavigation.Enabled = True End If End With End IfEnd SubPrivate Sub Form_Load() cmdMove(0).Value = TrueEnd Sub（3）讀者數(shù)據(jù)管理窗體界面圖5-3 讀者數(shù)據(jù)管理窗體讀者數(shù)據(jù)管理窗體代碼Library_Manage.Library_Manage_Con.Execute TRUNCATE TABLE 讀者類別 With Library_Manage.ReaderType If .State = adStateClosed Then .Open .AddNew .Fields(編號(hào)) = 0 .Fields(名稱) = 特殊 .Fields(借書量) = Val(txtSp(1) .Fields(借書期) = Val(txtSp(2) .Fields(有效期) = Val(txtSp(3) .Update .AddNew .Fields(編號(hào)) = 1 .Fields(名稱) = 館員 .Fields(借書量) = Val(txtL(1) .Fields(借書期) = Val(txtL(2) .Fields(有效期) = Val(txtL(3) .Update .AddNew .Update .AddNew .Fields(編號(hào)) = 2 .Fields(名稱) = 教師 .Fields(借書量) = Val(txtT(1) .Fields(借書期) = Val(txtT(2) .Fields(有效期) = Val(txtT(3) .Update .AddNew .Fields(編號(hào)) = 3 .Fields(名稱) = 學(xué)生 .Fields(借書量) = Val(txtS(1) .Fields(借書期) = Val(txtS(2) .Fields(有效期) = Val(txtS(3) .Update End WithEnd SubPrivate Sub Form_Load()cmdMove(0).Value = TrueEnd SubPrivate Sub SSTab1_DblClick()End Sub（4）圖書征訂管理窗體圖5-4 圖書征訂管理窗體圖書征訂管理代碼txtPubDate.SelLength = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！, vbCritical, 圖書征訂管理 txtAuthor.SetFocus txtAuthor.SelStart = 0 txtAuthor.SelLength = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無效！, vbCritical, 圖書征訂管理 txtNum.SetFocus txtNum.SelStart = 0 txtNum.SelLength = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！, vbCritical, 圖書征訂管理 txtDate.SetFocus txtDate.SelStart = 0 txtDate.SelLength = Len(txtDate) Else 保存記錄 Library_Manage.rsBooksOrder .Update MsgBox 數(shù)據(jù)保存成功！, vbInformation, 圖書征訂管理 cmdAdd.Enabled = True: cmdDel.Enabled = True cmdExam.Enabled = True: cmdRefresh.Enabled = True isAdding = False: picNavigation.Enabled = True End IfEnd SubDim objcopy As RecordsetPrivate Sub cmbOut_Click() AddListOut End SubPrivate Sub cmdAddAll_Click(Index As Integer) 選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End SubPrivate Sub cmdAddOne_Click(Index As Integer)選擇當(dāng)前條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, False End SubPrivate Sub cmdExit_Click() If LstIn(0).ListCount 0 Then If MsgBox(你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作 & vbCr & 是否要執(zhí)行保存操作？, vbCritical + vbYesNo, 圖書典藏管理) = vbYes Then SSTab1.Tab = 0 cmdSave.Value = True End If ElseIf LstIn(1).ListCount 0 Then If MsgBox(你選定了部分新書準(zhǔn)備入庫，但沒執(zhí)行保存操作 & vbCr & 是否要執(zhí)行保存操作？, vbCritical + vbYesNo, 圖書典藏管理) = vbYes Then SSTab1.Tab = 1 cmdSave.Value = True End If End If Unload MeEnd Sub刷新新書或調(diào)出庫室條碼列表Private Sub cmdRefresh_Click(Index As Integer) Select Case Index Case 0 刷新新書列表 With Library_Manage.rsBooksBibli If .State = adStateClosed Then .Open .Requery End With AddListNew Case 1 刷新庫室條碼列表 With Library_Manage.rsBooksStore If .State = adStateClosed Then .Open .Requery End With AddListOut End SelectEnd SubPublic Sub AddListNew() lstPre(0).Clear With Library_Manage.rsBooksBibli If .State = adStateClose