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

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

1、 畢業(yè)設(shè)計(jì)（論文） 題 目：圖書(shū)管理系統(tǒng) 系 別： 信息工程系 專(zhuān) 業(yè)： 計(jì)算機(jī)應(yīng)用技術(shù) 班 級(jí)： 計(jì)算機(jī)應(yīng)用 學(xué)生姓名： 指導(dǎo)教師： 完成日期： 2014-3-10 摘 要 圖書(shū)館管理信息系統(tǒng)是對(duì)學(xué)校圖書(shū)進(jìn)行全面信息管理的系統(tǒng)。該管理系統(tǒng)可以有效地管理學(xué)校圖書(shū)資源，記錄學(xué)校與讀者之間的使用書(shū)籍情況。此外，根據(jù)讀者的要求，實(shí)現(xiàn)書(shū)籍基本信息的輸入，查詢(xún)等幾個(gè)方面的功能。本系統(tǒng)可以作為獨(dú)立的系統(tǒng)使用，它包括借閱信息管理、書(shū)籍信息管理、讀者信息管理、系統(tǒng)管理四個(gè)主要

2、的功能模塊。該管理系統(tǒng)力求給讀者方便快捷的途徑去及時(shí)了解書(shū)籍信息。針對(duì)各個(gè)模塊不同的數(shù)據(jù)表實(shí)現(xiàn)添加記錄、修改記錄、刪除記錄、以及查詢(xún)顯示記錄等功能，所有的操作方便而快捷，并全面實(shí)現(xiàn)了圖書(shū)館管理的各項(xiàng)功能。 這篇論文主要講述關(guān)于圖書(shū)館管理信息系統(tǒng)的信息，特別是討論了關(guān)于設(shè)計(jì)該系統(tǒng)時(shí)的思想、方法和過(guò)程，以及在細(xì)節(jié)上分析函數(shù)和方法的實(shí)現(xiàn)思想。在本論文中講述的圖書(shū)館管理信息系統(tǒng)擁有一個(gè)交互式的界面、邏輯的數(shù)據(jù)庫(kù)結(jié)構(gòu)。并且在設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)還考慮到了實(shí)體完整性約束、參照完整性約束、及盡量減少數(shù)據(jù)的冗余，在數(shù)據(jù)庫(kù)里有包括表、過(guò)程、函數(shù)、觸發(fā)器等5個(gè)數(shù)據(jù)庫(kù)對(duì)象。許多涉及到圖書(shū)、讀者的信息的功能在本系統(tǒng)中都有實(shí)

3、現(xiàn)。例如，你可以將新書(shū)的信息插入到數(shù)據(jù)庫(kù)的圖書(shū)基本情況表里；還可以對(duì)已經(jīng)插入的關(guān)于圖書(shū)的信息進(jìn)行修改；更重要的是，讀者可以從圖書(shū)館里借閱書(shū)籍。經(jīng)過(guò)多次的測(cè)試和運(yùn)行，本系統(tǒng)能實(shí)現(xiàn)其在設(shè)計(jì)時(shí)的所有功能。 關(guān)鍵字：圖書(shū) 讀者 管理系統(tǒng) 數(shù)據(jù)庫(kù) 目 錄 第一章 緒論 1 第二章 系統(tǒng)需求分析 3 2.1 任務(wù)概述 3 2.2 數(shù)據(jù)描述(數(shù)據(jù)流圖+數(shù)據(jù)字典) 3 2.3 功能需求 7 2.4性能需求 7 2.5需求規(guī)定 8 第三章 系統(tǒng)總體設(shè)計(jì) 9 3.1 總體設(shè)計(jì) 9 3.2運(yùn)行環(huán)境 10 3.3 數(shù)據(jù)結(jié)構(gòu) 11 3.4 輸入輸出

4、設(shè)計(jì) 11 第四章 詳細(xì)設(shè)計(jì) 13 4.1 程序流程 13 4.2.用戶登錄模塊的設(shè)計(jì)與實(shí)現(xiàn) 13 4.3 系統(tǒng)主界面的設(shè)計(jì)與實(shí)現(xiàn) 15 4.4 系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn) 16 4.5 詳細(xì)管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 21 第五章 測(cè)試分析報(bào)告 29 5.1 測(cè)試計(jì)劃和要點(diǎn) 29 5.1.1 主模塊測(cè)試要點(diǎn) 29 5.1.2 借閱模塊測(cè)試要點(diǎn) 29 5.1.3 學(xué)生查詢(xún)模塊測(cè)試要點(diǎn) 29 5.1.4 圖書(shū)查詢(xún)模塊測(cè)試要點(diǎn) 29 5.1.5 圖書(shū)歸還模塊測(cè)試要點(diǎn) 30 5.2 測(cè)試用例 30 5.2.1 主模塊測(cè)試用例 30 5.2.2 借閱模塊測(cè)試用例 30 5

5、.2.3學(xué)生查詢(xún)模塊測(cè)試用例 31 5.2.4 圖書(shū)查詢(xún)模塊測(cè)試用例 31 5.2.5圖書(shū)歸還模塊測(cè)試用例 31 5.3 測(cè)試結(jié)果及結(jié)論 32 5.3.1 測(cè)試的結(jié)果 32 5.3.2 缺陷分析及改進(jìn) 33 結(jié)束語(yǔ) 34 參考文獻(xiàn) 35 35 第一章 緒論 圖書(shū)作為一種信息資源，用戶閱讀的資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書(shū)管理都是手工的，尚未使用計(jì)算機(jī)進(jìn)行管理。根據(jù)調(diào)查得知，他們以前對(duì)圖書(shū)管理的主要方式是基于文本、表格等紙介質(zhì)的手工處理，對(duì)于圖書(shū)信息和賣(mài)出書(shū)情況（如書(shū)籍信息、會(huì)員信息、賣(mài)出的書(shū)的數(shù)量等）的統(tǒng)計(jì)和核實(shí)等往往采用對(duì)書(shū)號(hào)的人

6、工檢查進(jìn)行，對(duì)會(huì)員的權(quán)限、以及總經(jīng)費(fèi)等用人工計(jì)算、手抄進(jìn)行。數(shù)據(jù)信息處理工作量大，容易出錯(cuò)；由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩?lái)說(shuō)，缺乏規(guī)范的系統(tǒng)管理手段。盡管有的商店、企業(yè)有計(jì)算機(jī)，但是尚未用于管理，沒(méi)有發(fā)揮它的效力，資源閑置比較突出，這就是圖書(shū)管理系統(tǒng)的開(kāi)發(fā)的基本環(huán)境。 由于圖書(shū)管理在數(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)，就得在眾多的資料中翻閱、

7、查找了，造成查詢(xún)費(fèi)時(shí)、費(fèi)力。如要對(duì)很長(zhǎng)時(shí)間以前的圖書(shū)進(jìn)行更改就更加困難了。 基于這此問(wèn)題，我認(rèn)為有必要建立一個(gè)圖書(shū)管理系統(tǒng)，使圖書(shū)管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書(shū)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢(xún)和修改圖書(shū)情況。 當(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)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開(kāi)發(fā)密切相關(guān)，系統(tǒng)的開(kāi)發(fā)是系統(tǒng)管

8、理的前提。本系統(tǒng)就是為了管理好圖書(shū)館信息而設(shè)計(jì)的。 信息社會(huì)的高科技，商品經(jīng)濟(jì)化的高效益，使計(jì)算機(jī)的應(yīng)用已普及到經(jīng)濟(jì)和社會(huì)生活的各個(gè)領(lǐng)域。計(jì)算機(jī)雖然與人類(lèi)的關(guān)系愈來(lái)愈密切，還有人由于計(jì)算機(jī)操作不方便繼續(xù)用手工勞動(dòng)。為了適應(yīng)現(xiàn)代社會(huì)人們高度強(qiáng)烈的時(shí)間觀念，圖書(shū)管理系統(tǒng)軟件為圖書(shū)辦公室?guī)?lái)了極大的方便。該軟件是以Microsoft Office Access 2003數(shù)據(jù)庫(kù)語(yǔ)言等為實(shí)現(xiàn)語(yǔ)言，其功能在系統(tǒng)內(nèi)部有源代碼直接完成。為了圖書(shū)管理與計(jì)算機(jī)的聯(lián)系更完善,為了對(duì)學(xué)生借閱圖書(shū)的管理更方便,為了減輕圖書(shū)管理工作人員的工作負(fù)擔(dān),我們?cè)O(shè)計(jì)了這個(gè)圖書(shū)管理系統(tǒng)。開(kāi)發(fā)此圖書(shū)管理系統(tǒng)，以供圖書(shū)館理的工作人員及

9、圖書(shū)的進(jìn)出貨和售書(shū)退書(shū)操作者進(jìn)行有效的管理，方便操作者隨時(shí)添加、查詢(xún)、修改等由于在裝載總程序時(shí)，正常就運(yùn)行，異常就不能運(yùn)行；Microsoft Office Access 2003數(shù)據(jù)庫(kù)管理等系統(tǒng)出現(xiàn)錯(cuò)誤，將會(huì)產(chǎn)生不可遇見(jiàn)的問(wèn)題，整個(gè)終端程序就會(huì)再啟動(dòng)；程序出現(xiàn)錯(cuò)誤，數(shù)據(jù)庫(kù)是實(shí)現(xiàn)有組織地，動(dòng)態(tài)地存儲(chǔ)大量關(guān)聯(lián)數(shù)據(jù)，方便多用戶訪問(wèn)的計(jì)算機(jī)軟硬自愿組成的系統(tǒng)；他與文件系統(tǒng)的重要區(qū)別是數(shù)據(jù)的充分共享，交叉訪問(wèn)，與應(yīng)用程序的高度獨(dú)立性。由于Microsoft Office Access 2003數(shù)據(jù)庫(kù)具有一些優(yōu)異的特點(diǎn),可以幫助我們更有效的管理數(shù)據(jù)。

10、 第2章 系統(tǒng)需求與分析 2.1 任務(wù)概述 在圖書(shū)館運(yùn)營(yíng)中，總是面對(duì)大量的讀者信息、書(shū)籍以及兩者相互作用產(chǎn)生的借書(shū)信息、還書(shū)信息。因此需要對(duì)讀者資源、書(shū)籍資源、借書(shū)信息、還書(shū)信息進(jìn)行管理，及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更、有利于提高管理效率。 系統(tǒng)目標(biāo)設(shè)計(jì)：通過(guò)一個(gè)圖書(shū)館管理系統(tǒng)，使圖書(shū)館的信息管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，從而達(dá)到提高人事管理效率的目的。 開(kāi)發(fā)設(shè)計(jì)思想： 系統(tǒng)應(yīng)該符合圖書(shū)館信息管

11、理的規(guī)定，滿足圖書(shū)館日常管理的工作需要，并達(dá)到操作過(guò)程中的直觀、方便、使用、安全等要求。 系統(tǒng)采用模塊化程序設(shè)計(jì)方法，即便于系統(tǒng)功能的各種組合和修改，又便于未參與開(kāi)發(fā)的技術(shù)維護(hù)人員補(bǔ)充、維護(hù)。 系統(tǒng)具備數(shù)據(jù)庫(kù)維護(hù)功能，即使根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改等操作。 經(jīng)過(guò)對(duì)我校詳細(xì)調(diào)查，并多次與負(fù)責(zé)圖書(shū)管理的老師進(jìn)行研討后，加深了對(duì)現(xiàn)行圖書(shū)管理業(yè)務(wù)的深刻了解，與此同時(shí)，將整個(gè)圖書(shū)管理的業(yè)務(wù)流程抽象描述如下： 1.新的圖書(shū)購(gòu)進(jìn)后，分門(mén)別類(lèi)地進(jìn)行歸并并匯總，加以編號(hào)。 2.新書(shū)編號(hào)后，上到書(shū)架以備學(xué)生借閱。 3.如某學(xué)生需要借閱圖書(shū)，則在其本人的借閱登記表上進(jìn)行登記，記錄相關(guān)借閱信息

12、與借閱日期。 4.學(xué)生借閱圖書(shū)后，應(yīng)及時(shí)歸還圖書(shū)，并在本人的借閱登記表上注明還書(shū)日期和時(shí)間。 根據(jù)以上調(diào)查分析，可以給出其現(xiàn)行業(yè)務(wù)流程圖如圖2.1所示。 圖2.1現(xiàn)行圖書(shū)管理業(yè)務(wù)流程圖 2.2 數(shù)據(jù)描述(數(shù)據(jù)流圖+數(shù)據(jù)字典) 經(jīng)過(guò)詳細(xì)的調(diào)查，我們已經(jīng)清楚了解了現(xiàn)行的業(yè)務(wù)流程，接下來(lái)給出系統(tǒng)的邏輯模型。構(gòu)造系統(tǒng)邏輯模型的工具是數(shù)據(jù)流圖和數(shù)據(jù)字典。根據(jù)現(xiàn)行圖書(shū)管理的業(yè)務(wù)流程，首先把數(shù)據(jù)流圖中的源點(diǎn)和終點(diǎn)都選定為學(xué)生，因此可以得到圖書(shū)管理系統(tǒng)的基本系統(tǒng)模型，如圖2.2所示。 圖2.2.圖書(shū)管理系統(tǒng)的基本系統(tǒng)模型 根據(jù)基本系統(tǒng)模型，對(duì)其逐步細(xì)化，得到描述邏輯

13、系統(tǒng)細(xì)化后的數(shù)據(jù)流圖，如圖2.3所示。 圖2.3圖書(shū)管理系統(tǒng)數(shù)據(jù)流圖（頂層DFD圖） 對(duì)頂層DFD圖中的一個(gè)加工“學(xué)生管理”進(jìn)行展開(kāi)，如圖2.4 圖2.4 細(xì)化后數(shù)據(jù)流圖 對(duì)頂層DFD圖中的一個(gè)加工“圖書(shū)管理”進(jìn)行展開(kāi)，如圖2.5。 圖2.5“圖書(shū)管理”展開(kāi) 對(duì)第1層DFD圖中的加工進(jìn)一步進(jìn)行展開(kāi)，如圖2.6。 (1) (2) 圖2.6進(jìn)一步細(xì)化數(shù)據(jù)流圖 有了系統(tǒng)的數(shù)據(jù)流圖后，還有相當(dāng)多的數(shù)據(jù)信息如圖書(shū)、借閱、歸還等信息需要進(jìn)一步描述，這就是需要定義數(shù)據(jù)字典，才能把現(xiàn)有的系統(tǒng)描述清楚。圖2.7列出了系統(tǒng)的主要數(shù)據(jù)

14、字典。 編號(hào) 基本數(shù)據(jù)項(xiàng)名稱(chēng) 數(shù)據(jù)類(lèi)型 長(zhǎng)度 小數(shù)位數(shù) RS01 讀者編號(hào) 字符型 5 — RS02 姓名 字符型 8 — RS03 性別 字符型 2 — RS04 年齡 數(shù)值型 3 0 RS05 部門(mén) 字符型 18 — RS06 辦證日期 日期型 8 — RS07 圖書(shū)編號(hào) 字符型 15 — RS08 圖書(shū)名稱(chēng) 字符型 30 — RS09 作者 字符型 10 — RS10 出版社 字符型 20 — RS11 單價(jià) 數(shù)值型 7 2 RS12 總數(shù) 數(shù)值型 2 0

15、RS13 庫(kù)存數(shù) 數(shù)值型 2 0 RS14 圖書(shū)位置 字符型 14 — RS15 類(lèi)別 字符型 10 — RS16 簡(jiǎn)介 備注型 4 — RS17 借閱日期 日期型 8 — RS18 還書(shū)日期 日期型 8 — RS19 備注 備注型 4 — 圖2.7系統(tǒng)主要數(shù)據(jù)字典 2.3 功能需求 經(jīng)過(guò)以上詳細(xì)的用戶調(diào)查，在現(xiàn)行業(yè)務(wù)流程和數(shù)據(jù)分析的基礎(chǔ)上，基本可以確定系統(tǒng)設(shè)計(jì)必須達(dá)到的目標(biāo)。 以下是圖書(shū)管理系統(tǒng)必須具備的功能：

16、 1.新進(jìn)圖書(shū)的登記功能：對(duì)于購(gòu)進(jìn)的新書(shū)，系統(tǒng)必須具備圖書(shū)信息資料的錄入功能。 2.圖書(shū)的查詢(xún)修改功能：當(dāng)圖書(shū)資料發(fā)生變化，如圖書(shū)丟失或有錯(cuò)誤信息輸入時(shí)，則應(yīng)能夠及時(shí)對(duì)數(shù)據(jù)進(jìn)行修改和補(bǔ)充。 3.借閱的登記，歸還的登記功能：系統(tǒng)的主要功能之一，供本校學(xué)生借閱圖書(shū)、歸還圖書(shū)，并進(jìn)行登記。 4.學(xué)生信息的增加、刪除和修改功能：系統(tǒng)主要功能之一，建立學(xué)生信息，并對(duì)其進(jìn)行維護(hù)。 2.4性能需求 為了保證系統(tǒng)能夠長(zhǎng)期、安全、穩(wěn)定、可靠、高效的運(yùn)行，圖書(shū)管理系統(tǒng)應(yīng)該滿足以下的性能需求： 1、系統(tǒng)處理的準(zhǔn)確性和及時(shí)性 系統(tǒng)處理的準(zhǔn)確性和及時(shí)性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計(jì)和開(kāi)發(fā)過(guò)程中，要充分考慮

17、系統(tǒng)當(dāng)前和將來(lái)可能承受的工作量，使系統(tǒng)的處理能力和響應(yīng)時(shí)間能夠滿足學(xué)校對(duì)信息處理的需求。 2、系統(tǒng)的開(kāi)放性和系統(tǒng)的可擴(kuò)充性 圖書(shū)管理系統(tǒng)在開(kāi)發(fā)過(guò)程中，應(yīng)該充分考慮以后的可擴(kuò)充性。例如用戶查詢(xún)的需求也會(huì)不斷的更新和完善。3、系統(tǒng)的易用性和易維護(hù)性 圖書(shū)管理系統(tǒng)是直接面對(duì)使用人員的，而使用人員往往對(duì)計(jì)算機(jī)并不時(shí)非常熟悉。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。要實(shí)現(xiàn)這一點(diǎn)，就要求系統(tǒng)應(yīng)該盡量使用用戶熟悉的術(shù)語(yǔ)和中文信息的界面；針對(duì)用戶可能出現(xiàn)的使用問(wèn)題，要提供足夠的在線幫助，縮短用戶對(duì)系統(tǒng)熟悉的過(guò)程。 4、系統(tǒng)的標(biāo)準(zhǔn)性 系統(tǒng)在設(shè)計(jì)開(kāi)發(fā)使用過(guò)程中都要涉及到很多計(jì)算機(jī)硬件、軟

18、件。所有這些都要符合主流國(guó)際、國(guó)家和行業(yè)標(biāo)準(zhǔn)。 5、系統(tǒng)的先進(jìn)性 目前計(jì)算系統(tǒng)的技術(shù)發(fā)展相當(dāng)快，做為圖書(shū)管理系統(tǒng)工程，在系統(tǒng)的生命周期盡量做到系統(tǒng)的先進(jìn)，充分完成企業(yè)信息處理的要求而不至于落后。這一方面通過(guò)系統(tǒng)的開(kāi)放性和可擴(kuò)充性，不斷改善系統(tǒng)的功能完成。另一方面，在系統(tǒng)設(shè)計(jì)和開(kāi)發(fā)的過(guò)程中，應(yīng)在考慮成本的基礎(chǔ)上盡量采用當(dāng)前主流并先進(jìn)且有良好發(fā)展前途的產(chǎn)品。 6、系統(tǒng)的響應(yīng)速度 圖書(shū)管理系統(tǒng)系統(tǒng)在日常處理中的響應(yīng)速度為秒級(jí)，達(dá)到實(shí)時(shí)要求，以及時(shí)反饋信息。在進(jìn)行統(tǒng)計(jì)分析時(shí)，根據(jù)所需數(shù)據(jù)量的不同而從秒級(jí)到分鐘級(jí),原則是保證操作人員不會(huì)因?yàn)樗俣葐?wèn)題而影響工作效率。 2.5需求規(guī)定

19、 （1）對(duì)于新買(mǎi)進(jìn)的書(shū)籍，一定要進(jìn)行基本的信息錄入。如：圖書(shū)名稱(chēng)、作者姓名、出版社、類(lèi)別等。 （2）對(duì)于新來(lái)的讀者也一樣要有基本的信息錄入工作，如 ：讀者編號(hào)、讀者姓名、性別、年齡、住址、電話。 （3）在系統(tǒng)的運(yùn)行過(guò)程中，系統(tǒng)的日期輸入格式為yyyy-mm-dd。 （4）在應(yīng)用‘借書(shū)’窗體時(shí)，各個(gè)書(shū)名的輸入一定要和書(shū)庫(kù)中的書(shū)名保持一致。 （5）用戶修改密碼時(shí)，只可以修改正在使用的用戶名的密碼，無(wú)法修改其他用戶的個(gè)人使用密碼。 （6）在應(yīng)用各種查詢(xún)功能時(shí)，要確保輸入的信息與書(shū)庫(kù)當(dāng)中或者與讀者的信息完全一致，否則可能就會(huì)有查詢(xún)不到的可能性。

20、 第3章 系統(tǒng)總體設(shè)計(jì) 3.1 總體設(shè)計(jì) 圖3.1系統(tǒng)模塊圖 （二) 系統(tǒng)模塊設(shè)計(jì) (1)用戶登錄模塊：已經(jīng)在本程序中注冊(cè)的用戶進(jìn)入系統(tǒng)，必須先進(jìn)行登錄，否則無(wú)法 進(jìn)入。 (2)系統(tǒng)維護(hù)模塊：已經(jīng)進(jìn)入本系統(tǒng)的用戶，可以在注冊(cè)其他的用戶，可以修改本用戶的密碼，也可以注銷(xiāo)這個(gè)用戶。退出本系統(tǒng)。 (3)詳細(xì)管理模塊：用戶可以在這里為讀者辦理借閱圖書(shū)、歸還圖書(shū)。瀏覽所有的圖書(shū)目錄，為圖書(shū)目錄增加、刪除，修改記錄；也可以瀏覽所有讀者的基本信息，對(duì)讀者信息的增加、刪除、修改等的一系列的操作。 (4)相關(guān)查詢(xún)模塊：在‘借閱查詢(xún)’中，用戶可以

21、查詢(xún)出任意一個(gè)讀者的圖書(shū)借閱情況；而在‘圖書(shū)查詢(xún)’中，用戶可以查詢(xún)出書(shū)庫(kù)當(dāng)中的任意一本圖書(shū)的借閱情況。 (5)統(tǒng)計(jì)內(nèi)容模塊：在‘讀者借閱情況統(tǒng)計(jì)’中，用戶可以統(tǒng)計(jì)出所有的讀者的基本信息和他借閱圖書(shū)的次數(shù)；而在‘圖書(shū)借閱情況統(tǒng)計(jì)’中，則可以統(tǒng)計(jì)出被讀者借閱過(guò)的圖書(shū)的借閱次數(shù)。 (6)關(guān)于模塊：次模塊中是關(guān)于本系統(tǒng)的基本信息。 3.2 運(yùn)行環(huán)境 (一) 開(kāi)發(fā)環(huán)境 硬件環(huán)境：奔騰，內(nèi)存128M以上，800x600及以上分辨率的顯示器。 軟件環(huán)境：Windows 9x/2000/NT/XP，Office 2000，Visual Basic 6.0。 (二) 運(yùn)行環(huán)境 硬件環(huán)境：同開(kāi)發(fā)環(huán)

22、境。 軟件環(huán)境：Windows 9x/2000/NT 3.3數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì) 1．圖書(shū)信息表：包括圖書(shū)編號(hào)、圖書(shū)名稱(chēng)、作者姓名、出版社、出版日期、單價(jià)和類(lèi)別等字段。 表 3-1 圖書(shū)信息表結(jié)構(gòu) 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 6 圖書(shū)入庫(kù)時(shí)自動(dòng)生成 2 圖書(shū)名稱(chēng) 字符型 20 3 作者姓名 字符型 10 4 出版社 字符型 20 5 出版日期 字符型 10 6 單價(jià) 字符型 10 圖書(shū)的價(jià)格 7 類(lèi)別 字符型 20 圖書(shū)屬于那一個(gè)種類(lèi) 2．讀者信息表：包括讀者編號(hào)、

23、讀者姓名、性別、年齡、住址、電話、備注等字段。 表 3-2 讀者信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 讀者編號(hào) 字符型 6 讀者注冊(cè)時(shí)系統(tǒng)自動(dòng)生成 2 讀者姓名 字符型 10 讀者的真實(shí)姓名 3 性別 字符型 2 4 年齡 字符型 2 5 住址 字符型 20 讀者的家庭住址 6 電話 字符型 15 能聯(lián)系到讀者的電話 7 備注 字符型 50 關(guān)于讀者的任何信息 3． 借閱信息表：包括編號(hào)、圖書(shū)1、圖書(shū)2、圖書(shū)3、借閱時(shí)間、還書(shū)時(shí)間等。 表 3-3 借閱信息表 序號(hào) 字段名 類(lèi)型 大小

24、說(shuō)明 1 編號(hào) 字符型 6 讀者的借閱編號(hào) 2 圖書(shū)1 字符型 16 讀者借閱的第一本圖書(shū) 3 圖書(shū)2 字符型 16 讀者借閱的第二本圖書(shū) 4 圖書(shū)3 字符型 16 讀者借閱的第三本圖書(shū) 5 借閱時(shí)間 字符型 10 讀者借閱圖書(shū)的時(shí)間 6 還書(shū)時(shí)間 字符型 10 讀者歸還圖書(shū)的時(shí)間 4．讀者借閱信息表：包括讀者編號(hào)和借閱次數(shù)兩個(gè)字段。 表 3-4 讀者借閱信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 讀者編號(hào) 字符型 2 讀者的借閱編號(hào) 2 借閱次數(shù) 字符型 4 讀者借閱一次此值加一 5．

25、圖書(shū)借閱信息表：包括圖書(shū)編號(hào)和借閱次數(shù)兩個(gè)字段。 表 3-5 圖書(shū)借閱信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 2 圖書(shū)的借閱編號(hào) 2 借閱次數(shù) 字符型 4 圖書(shū)被借閱一次此值加一 6．圖書(shū)借閱情況信息表：包括圖書(shū)編號(hào)和借閱情況兩個(gè)字段。 表 3-6 圖書(shū)借閱情況信息表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1 圖書(shū)編號(hào) 字符型 2 圖書(shū)的借閱編號(hào) 2 借閱情況 字符型 4 表示圖書(shū)是否被借出 7．用戶表：包括用戶名和密碼兩個(gè)字段。 表 3-7 用戶表 序號(hào) 字段名 類(lèi)型 大小 說(shuō)明 1

26、 用戶名 字符型 10 用戶注冊(cè)時(shí)的名 2 密碼 字符型 10 登錄系統(tǒng)是的密碼 3．4輸入輸出設(shè)計(jì) 本系統(tǒng)中的圖書(shū)入庫(kù)數(shù)據(jù)是根據(jù)購(gòu)書(shū)單來(lái)錄入的，所以購(gòu)書(shū)單即為現(xiàn)行系統(tǒng)的圖書(shū)進(jìn)貨單。同表3-1。 表3-1 圖書(shū)購(gòu)貨單 日期 圖書(shū)名稱(chēng) 作者 出版社 單價(jià) 類(lèi)別 總數(shù) 11/23/05 防雷技術(shù) 林海 電子出版社 23．5 電子技術(shù) 8 本系統(tǒng)報(bào)表輸出格式設(shè)計(jì)成圖3.2形式。 圖3.2 第四章 系統(tǒng)實(shí)現(xiàn)技術(shù) 4.1、

27、程序流程 一個(gè)系統(tǒng)能夠正常運(yùn)行，則需要程序之間的調(diào)用。下面簡(jiǎn)單介紹一下程序的流程。主程序流程圖如圖4.1。 圖4.1 主程序流程圖 4.2.用戶登錄模塊的設(shè)計(jì)與實(shí)現(xiàn) (一) 模塊功能說(shuō)明 此登錄模塊是在進(jìn)入系統(tǒng)之前必經(jīng)之路，只有經(jīng)過(guò)用戶注冊(cè)的用戶才能通過(guò)用戶名和密碼正確的進(jìn)入本系統(tǒng)，是整個(gè)系統(tǒng)的安全屏障。 (2) 登錄界面設(shè)計(jì)如圖4.2 圖4.2登陸界面 (3) 算法及實(shí)現(xiàn) 登錄窗體的load事件代碼如下： Private Sub Form_Load() Me.Width = 5000 Me.Height = 3400 strSQL =

28、 "select * from 用戶" Data1.RecordSource = strSQL Data1.Refresh Data1.Recordset.MoveFirst While Not Data1.Recordset.EOF Me.Combo1.AddItem Data1.Recordset.Fields("用戶名").Value Data1.Recordset.MoveNext Wend End Sub 此代碼功能是將mydb.mdb數(shù)據(jù)庫(kù)中用戶表的用戶名添加到combo1控件當(dāng)中，供用戶

29、選擇進(jìn)入系統(tǒng)。 窗體的登錄按扭(command1)的代碼如下： Private Sub 登錄_Click() If Me.Combo1.Text = "" Then MsgBox "請(qǐng)輸入用戶名。", vbOKOnly + 48, "錯(cuò)誤提示" Exit Sub Me.Combo1.SetFocus End If Mm = Text1.Text Yhm = Me.Combo1.Text strSQL = "select * from 用戶 where 用戶名=&

30、#39;" & Yhm & "'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.Fields("密碼").Value = Mm Then Yongh = Yhm Unload Me Dengl2.Show Else MsgBox "您輸入的密碼錯(cuò)誤，請(qǐng)從新輸入。", vbOKOnly + 48, "錯(cuò)誤提示" Text1.Text

31、= "" Text1.SetFocus End If End Sub 其主要功能是當(dāng)點(diǎn)擊登錄按扭(command1)時(shí)，系統(tǒng)會(huì)根據(jù)用戶輸入的‘用戶名’來(lái)查找數(shù)據(jù)庫(kù)當(dāng)中的用戶表，校驗(yàn)用戶輸入的密碼是否正確。正確則可以順利的進(jìn)入系統(tǒng)，否則就會(huì)彈出對(duì)話框，提示用戶輸入的密碼有錯(cuò)誤。代碼中的‘Yongh = Yhm’是將正確登錄到系統(tǒng)的用戶名付值給變量‘yongh’，進(jìn)入系統(tǒng)后則顯示此用戶名。 4.3系統(tǒng)主界面的設(shè)計(jì)與實(shí)現(xiàn) (一)功能說(shuō)明 系統(tǒng)的主界面是整個(gè)系統(tǒng)的主題部分，所有的功能模塊都由它來(lái)啟動(dòng)和調(diào)用。所以它是系統(tǒng)的一根主線。 (二) 系統(tǒng)主界面設(shè)計(jì)

32、如圖4.3 圖4.3.系統(tǒng)主界面 (三) 算法及實(shí)現(xiàn) 主窗體的load時(shí)間當(dāng)中的代碼如下： Private Sub Form_Load() Me.StatusBar1.Panels(2) = Yongh End Sub 其主要的功能是將用戶登錄的用戶名添加到狀態(tài)欄當(dāng)中，StatusBar1.Panels(2)就是 狀態(tài)欄的參量，Yongh為在登錄界面里傳遞過(guò)來(lái)的公共變量----用戶名。 當(dāng)用戶選擇要退出系統(tǒng)時(shí)，系統(tǒng)會(huì)詢(xún)問(wèn)用戶確定要退出系統(tǒng)，代碼見(jiàn)下。 Private Sub Form_QueryUnload(Cancel As Integer, Unload

33、Mode As Integer) Cancel = 1 i= MsgBox("您真的要退出本系統(tǒng)嗎？退出請(qǐng)單擊確定",1 + 32, "退出提示") If i = 1 Then End Cancel = 0 Else Exit Sub End If End Sub ，當(dāng)當(dāng)用戶要退出時(shí)，會(huì)彈出對(duì)話框，當(dāng)選擇‘取消’時(shí)，Cancel的參量值為1，此時(shí)系統(tǒng)不會(huì)退出選擇‘確定’，Cancel的參量值為0，此時(shí)會(huì)退出系統(tǒng)。 在窗體的Resize()事件

34、中代碼如下 Image1.Width = Me.ScaleWidth Image1.Height = Me.ScaleHeight 讓image1控件和控件中的圖片來(lái)適合窗體的變化。 4.4系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn) (一)功能說(shuō)明 該模塊分為用戶注冊(cè)、修改密碼、用戶注銷(xiāo)幾個(gè)部分。其中用戶注冊(cè)部分是為了新用戶來(lái)管理系統(tǒng)而注冊(cè)用戶名和密碼的窗體；修改密碼部分是為了修改本用戶的密碼而設(shè)置的窗體；用戶注銷(xiāo)部分是刪除一個(gè)用戶時(shí)才用到的窗體。 (二)系統(tǒng)維護(hù)模塊界面設(shè)計(jì)如圖4

35、.4 用戶注冊(cè) 修改密碼 用戶注銷(xiāo) 圖4.4. (三) 算法及實(shí)現(xiàn) 用戶注冊(cè)窗體的代碼實(shí)現(xiàn)，是通過(guò)‘確定’按扭來(lái)控制的。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "輸入的‘用戶名’不能為空。", vbOKOnly + 48, "錯(cuò)誤提示" Text1.SetFocus Exit Sub

36、 End If If Text2.Text = "" Then MsgBox "輸入的‘密碼’不能為空。", vbOKOnly + 48, "錯(cuò)誤提示" Text2.SetFocus Exit Sub End If strSQL = "select * from 用戶 where 用戶名='" & Text1.Text & "'" Data1.RecordSource = strSQL Data1.Ref

37、resh If Not Data1.Recordset.EOF Then MsgBox "此‘用戶名’已經(jīng)存在，請(qǐng)重新輸入。", vbOKOnly + 48,"提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else Data1.RecordSource = 用戶 Data1.Recordset.AddNew Data1.Recordset.Fields("用戶名&quo

38、t;) = Text1.Text Data1.Recordset.Fields("密碼") = Text2.Text Data1.Recordset.Update Data1.Refresh MsgBox "用戶注冊(cè)成功！", vbOKOnly + 64, "注冊(cè)成功" Unload Me End If End Sub 當(dāng)按下‘確定’按扭時(shí)，系統(tǒng)會(huì)檢查‘用戶名’文本框和‘密碼’文本框是不是為空，如果是空的話，會(huì)有提示讓用戶全部輸入。然后系統(tǒng)會(huì)繼續(xù)檢查在數(shù)據(jù)庫(kù)的用戶表當(dāng)中是否有

39、和輸入的用戶名相同的，因?yàn)橄嗤挠脩裘遣荒茏?cè)的。如果這些都結(jié)束后，系統(tǒng)會(huì)對(duì)注冊(cè)的用戶在數(shù)據(jù)庫(kù)表中添加記錄，在對(duì)數(shù)據(jù)原刷新，記錄添加成功后，系統(tǒng)會(huì)對(duì)用戶給出提示‘用戶注冊(cè)成功！’，到此用戶注冊(cè)工作結(jié)束。 修改密碼的具體功能實(shí)現(xiàn)如下： 在修改密碼的窗體的裝載的事件（load）中有如下代碼。 Private Sub Form_Load() Me.Width = 5800 Me.Height = 4000 Text1.Text = Yongh strSQL = "select * from 用戶 where 用戶名='" & Yongh &

40、 "'" Data1.RecordSource = strSQL Data1.Refresh End Sub 加載窗體時(shí)，讓本窗體的寬是5800，高是4000，讓文本框的內(nèi)容是在用戶登錄時(shí)傳遞過(guò)來(lái)的變量?jī)?nèi)容----用戶名。然后數(shù)據(jù)控件（data1）會(huì)在數(shù)據(jù)庫(kù)的用戶表當(dāng)中去查找此用戶的記錄，在刷新數(shù)據(jù)原。 修改密碼的‘確定’按紐中的代碼是實(shí)現(xiàn)具體修改的，如下： Private Sub Command1_Click() If Text2.Text = "" Then MsgBox "輸入的‘舊密碼’不能為空。&q

41、uot;, vbOKOnly + 48, "錯(cuò)誤提示" Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "輸入的‘新密碼’不能為空。", vbOKOnly + 48, "錯(cuò)誤提示" Text3.SetFocus Exit Sub End If If Data1.Recordset.Fields("密碼") <> Text2.Text T

42、hen MsgBox "輸入的舊密碼錯(cuò)誤，請(qǐng)重新輸入。", vbOKOnly + 48, "錯(cuò)誤提示" Text2.Text = "" Text3.Text = "" Text2.SetFocus Else Xg = MsgBox("確定要修改密碼嗎？", vbOKCancel + 32, "提示") If Xg = 1 Then Data1.Recordset.Edit Data1

43、.Recordset.Update MsgBox "您對(duì)密碼的修改已經(jīng)成功！", vbOKOnly + 64, "成功提示" Data1.Refresh Text2.Text = "" Text3.Text = "" Else Text2.Text = "" Text3.Text = "" Exit Sub End If End If End Sub

44、 代碼的主要功能是先檢查‘舊密碼’和‘新密碼’的文本框（text）是不是為空的，如果是空的就不允許用戶修改密碼。當(dāng)它們都不是空，系統(tǒng)會(huì)檢查用戶輸入的‘舊密碼’和數(shù)據(jù)庫(kù)中用戶表中的密碼是不是一致，即密碼校驗(yàn)。如果密碼一致系統(tǒng)就會(huì)為用戶修改密碼，并以對(duì)話框來(lái)提示用戶的密碼修改成功。否則系統(tǒng)將不允許修改。 用戶注銷(xiāo)的窗體功能具體實(shí)現(xiàn)代碼如下： Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "輸入的‘用戶名’不能為空。", vbOKOnly + 48, "錯(cuò)誤

45、提示" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "輸入的‘密碼’不能為空。", vbOKOnly + 48, "錯(cuò)誤提示" Text2.SetFocus Exit Sub End If strSQL = "select * from 用戶 where 用戶名='" & Text1.Text & "'"

46、; strSQL = strSQL & "and 密碼='" & Text2.Text & "'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox"您輸入的用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入。",vbOKOnly+48, "提示" Text1.Text = "" Text2.Text = "&q

47、uot; Text1.SetFocus Else Qr = MsgBox("你確定要注銷(xiāo)此用戶嗎？", vbOKCancel + 32, "確認(rèn)") End If Select Case Qr Case 1 Data1.Recordset.Delete Data1.Refresh MsgBox "注銷(xiāo)用戶成功", vbOKOnly + 64, "提示" Text1.Text = ""

48、 Text2.Text = "" Case 2 Text1.Text = "" Text2.Text = "" Exit Sub End Select End Sub 在本窗體中，系統(tǒng)會(huì)判斷用戶名和密碼兩個(gè)文本框是否為空，這是必要的條件，只有用戶名和密碼不是空才能和數(shù)據(jù)庫(kù)當(dāng)中的數(shù)據(jù)保持一致。不是空的條件成立時(shí)，系統(tǒng)會(huì)通過(guò)數(shù)據(jù)綁定控件（data）來(lái)查找用戶表中是否有用戶名和密碼和用戶輸入一致的那一條記錄，不存在就提示用戶輸入的有錯(cuò)誤，重新輸入。存在就給出提示是否要真的刪除

49、此用戶，是就刪除，否則不執(zhí)行刪除操作。 4.5詳細(xì)管理模塊的設(shè)計(jì)與實(shí)現(xiàn) (一)功能說(shuō)明 在詳細(xì)管理的模塊當(dāng)中，有借書(shū)、還書(shū)、圖書(shū)目錄管理、讀者名細(xì)管理等功能。借書(shū)窗體是為了讓讀者能夠快速方便的借閱圖書(shū)而設(shè)計(jì)的。還書(shū)窗體是讀者歸還圖書(shū)時(shí)節(jié)省時(shí)間設(shè)計(jì)的。圖書(shū)目錄管理當(dāng)中，可以對(duì)書(shū)庫(kù)中的圖書(shū)進(jìn)行瀏覽、添加、刪除、修改等操作。讀者名細(xì)管理中是對(duì)讀者的各種各種管理設(shè)計(jì)的，可以對(duì)讀者進(jìn)行瀏覽、添加、刪除、修改等操作。 (二) 詳細(xì)管理模塊設(shè)計(jì)與算法實(shí)現(xiàn) 此模塊中由于功能界面較多，所以只列舉其中比較有代表性的為之?dāng)⑹觥? 1.圖書(shū)借閱窗體設(shè)計(jì)如圖4.5 圖4.5 算法及實(shí)現(xiàn): Pri

50、vate Sub Command1_Click() On Error Resume Next Bh = Text1.Text Xm = Text2.Text strSQL = "select * from 借閱信息 where 編號(hào)='" & Bh & "'" Data1.RecordSource = strSQL Data1.Refresh If Not Data1.Recordset.EOF Then Bnjs Else If Text3.Te

51、xt <> "" Then strSQL ="select*from圖書(shū)信息 where圖書(shū)名稱(chēng)='"& Text3.Text & "'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox "書(shū)庫(kù)中沒(méi)有此書(shū)。", vbOKOnly + 64, "提示" Tex

52、t3.Text = "" Text3.SetFocus Exit Sub End If End If Nj End If End If If Text1.Text <> "" And Text2.Text = "" Then strSQL = "select * from 讀者信息 where 讀者編號(hào)='" & Bh & "'" Dat

53、a1.RecordSource = strSQL Data1.Refresh If Not Data1.Recordset.EOF Then Text2.Text = Data1.Recordset.Fields("讀者姓名") Else MsgBox "沒(méi)有找到相關(guān)的記錄!", vbOKOnly + 48, "提示" Text1.SetFocus Exit Sub End If strSQL = "select * f

54、rom 借閱信息 where 編號(hào)='" & Bh & "'" Data1.RecordSource = strSQL Data1.Refresh If Not Data1.Recordset.EOF Then Bnjs Else If Text3.Text <> "" Then strSQL="select*from圖書(shū)信息where圖書(shū)名稱(chēng)='" & Text3.Text &

55、"'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox "書(shū)庫(kù)中沒(méi)有此書(shū)。", vbOKOnly + 64, "提示" Text3.Text = "" Text3.SetFocus Exit Sub End If End If Nj End I

56、f End If If Text1.Text = "" And Text2.Text <> "" Then strSQL = "select * from 讀者信息 where 讀者姓名='" & Xm & "'" Data1.RecordSource = strSQL Data1.Refresh If Not Data1.Recordset.EOF Then Text1.Text = Data1.Reco

57、rdset.Fields("讀者編號(hào)") Bh = Text1.Text Else MsgBox "沒(méi)有找到相關(guān)的記錄!", vbOKOnly + 48, "提示" Text2.SetFocus Exit Sub End If strSQL = "select * from 借閱信息 where 編號(hào)='" & Bh & "'" Data1.RecordSource =

58、 strSQL Data1.Refresh If Not Data1.Recordset.EOF Then Bnjs Else If Text3.Text <> "" Then strSQL ="select*from 圖書(shū)信息where圖書(shū)名稱(chēng)='" & Text3.Text & "'" Data1.RecordSource = strSQL Data1.Refresh If Da

59、ta1.Recordset.EOF Then MsgBox "書(shū)庫(kù)中沒(méi)有此書(shū)。", vbOKOnly + 64, "提示" Text3.Text = "" Text3.SetFocus Exit Sub End If End If Nj End If End If End Sub 系統(tǒng)首先會(huì)判斷讀者編號(hào)和讀者姓名輸入的是否都為空，都是空就會(huì)給出提示。但是如果有不是空的話，這里要分三步來(lái)考慮。第一，都不為空，

60、則系統(tǒng)就會(huì)查詢(xún)數(shù)據(jù)庫(kù)中的讀者信息表，是否有和輸入的讀者信息符合的記錄。第二，如果只輸入讀者編號(hào)，系統(tǒng)會(huì)查找讀者信息表中和輸入的編號(hào)一致的記錄，在將找到的記錄的讀者姓名添加到界面的讀者姓名中。第三，如果輸入的是讀者的姓名，則和第二條的理論是一樣的，會(huì)查找讀者姓名的記錄，并將讀者編號(hào)添加到界面讀者編號(hào)中。當(dāng)系統(tǒng)繼續(xù)執(zhí)行后，會(huì)查找此讀者是否還有借出的圖書(shū)未歸還，是則此讀者不能在借任何書(shū)籍，并將所借的書(shū)籍顯示在窗體的圖書(shū)框中，否則讀者將會(huì)借到所要的書(shū)籍，并將其記錄到數(shù)據(jù)庫(kù)當(dāng)中。 在以上的代碼中有一個(gè)模塊中的過(guò)程—Nj ，它是一切檢查過(guò)程都結(jié)束后最后的添加記錄的代碼實(shí)現(xiàn)，如下： Public Sub

61、 Nj() With Jcgl .Data2.Recordset.AddNew .Data2.Recordset.Fields("編號(hào)") = .Text1.Text .Data2.Recordset.Fields("圖書(shū)1") = .Text3.Text .Data2.Recordset.Fields("圖書(shū)2") = .Text4.Text .Data2.Recordset.Fields("圖書(shū)3") = .Text5.Text

62、 .Data2.Recordset.Fields("借閱時(shí)間") = .Text6.Text .Data2.Recordset.Fields("還書(shū)時(shí)間") = .Text7.Text .Data2.Recordset.Update .Data2.Refresh strSQL = "select * from 讀者借閱信息 where 讀者編號(hào)='" & .Bh & "'" .Data3.RecordSour

63、ce = strSQL .Data3.Refresh If .Data3.Recordset.EOF Then .Data3.Recordset.AddNew .Data3.Recordset.Fields("讀者編號(hào)") = .Bh .Data3.Recordset.Fields("借閱次數(shù)") = .Data3.Recordset.Fields("借閱次數(shù)").Value + 1 .Data3.Recordset.Update

64、 .Data3.Refresh Else .Data3.Recordset.Edit .Data3.Recordset.Fields("借閱次數(shù)") = .Data3.Recordset.Fields("借閱次數(shù)").Value + 1 .Data3.Recordset.Update .Data3.Refresh End If End With MsgBox "書(shū)籍借閱成功！", vbOKOnly + 64, &

65、quot;提示" End Sub 2.圖書(shū)目錄增加窗體設(shè)計(jì)如圖4.6 圖4.6 算法及實(shí)現(xiàn): 在‘添加’按扭中的代碼是實(shí)現(xiàn)具體的內(nèi)容追加記錄的。 Private Sub Command2_Click() If Text2.Text = "" Then MsgBox "輸入的‘出版日期’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text3.Text = "" Then MsgBox &qu

66、ot;輸入的‘圖書(shū)名稱(chēng)’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text4.Text = "" Then MsgBox "輸入的‘圖書(shū)單價(jià)’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text5.Text = "" Then MsgBox "輸入的‘作者姓名’不能為空", vbOKOnly + 16, &

67、quot;提示" Exit Sub End If If Text6.Text = "" Then MsgBox "輸入的‘圖書(shū)類(lèi)別’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text7.Text = "" Then MsgBox "輸入的‘出版社’不能為空", vbOKOnly + 16, "提示" Exit Sub End If

68、Data1.Recordset.AddNew Data1.Recordset.Fields("圖書(shū)編號(hào)") = Text1.Text Data1.Recordset.Fields("出版日期") = Text2.Text Data1.Recordset.Fields("圖書(shū)名稱(chēng)") = Text3.Text Data1.Recordset.Fields("單價(jià)") = Text4.Text Data1.Recordset.Fields("作者姓名") = Text5

69、.Text Data1.Recordset.Fields("類(lèi)別") = Text6.Text Data1.Recordset.Fields("出版社") = Text7.Text Data1.Recordset.Update Data1.Refresh MsgBox "圖書(shū)目錄添加成功.", vbOKOnly + 64, "提示" Data1.Recordset.MoveLast Text1.Text = Data1.Recordset.Fields("圖書(shū)編號(hào)

70、").Value + 1 Qingk End Sub 在具體的記錄追加之前，系統(tǒng)先判斷用戶輸入的信息是不是全面，不能有沒(méi)輸入的信息，否則系統(tǒng)會(huì)給出系統(tǒng)提示，告訴要輸入的位置。檢查結(jié)束后，系統(tǒng)會(huì)在數(shù)據(jù)庫(kù)的圖書(shū)信息表中追加一條空白的記錄，然后讓用戶輸入的信息進(jìn)行替換，就實(shí)現(xiàn)了將信息添加的任務(wù)，在刷新數(shù)據(jù)控件。結(jié)束后系統(tǒng)提示‘圖書(shū)目錄添加成功’，圖書(shū)編號(hào)自動(dòng)加一并顯示在圖書(shū)編號(hào)的文本框中，最后調(diào)用了一個(gè)模塊中的過(guò)程—Qingk。目的是將所有的文本框全部清空，但圖書(shū)編號(hào)除外。 模塊過(guò)程Qingk的代碼如下： Public Sub Qingk() With Tsgl

71、.Text2.Text = "" .Text3.Text = "" .Text4.Text = "" .Text5.Text = "" .Text6.Text = "" .Text7.Text = "" End With End Sub 3.學(xué)生信息修改窗體設(shè)計(jì)如圖4.7 圖4.7 算法及實(shí)現(xiàn): 在窗體的裝載事件(load)中的代碼如下:作用是使控制窗體的大小,和裝入標(biāo)簽控件的文本內(nèi)容。 Private Sub Form_L

72、oad() Me.Width = 7900 Me.Height = 5300 Label1.Caption = "在您所要修改的內(nèi)容區(qū)域，雙擊左鍵，會(huì)出現(xiàn)一個(gè)文字框..." & vbCr & _ "然后輸入您所要修改的數(shù)據(jù)。輸入完畢后按下 Enter 鍵，" & vbCr & _ "資料即可保留于數(shù)據(jù)庫(kù)當(dāng)中，而按下Esc鍵則取消輸入..." End Sub 窗體中網(wǎng)格控件(MSFlexGrid1)的雙擊事件的代碼具體的如下: Pri

73、vate Sub MSFlexGrid1_DblClick() With MSFlexGrid1 c = .Col: r = .Row If c <= 7 And c > 0 Then Text1.Left = .Left + .ColPos(c) Text1.Top = .Top + .RowPos(r) Text1.Width = .ColWidth(c) Text1.Height = .RowHeight(r) Text1 = .Text Text1.Visi