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

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

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

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

3、現(xiàn)。例如，你可以將新書的信息插入到數(shù)據(jù)庫的圖書基本情況表里；還可以對(duì)已經(jīng)插入的關(guān)于圖書的信息進(jìn)行修改；更重要的是，讀者可以從圖書館里借閱書籍。經(jīng)過多次的測(cè)試和運(yùn)行，本系統(tǒng)能實(shí)現(xiàn)其在設(shè)計(jì)時(shí)的所有功能。 關(guān)鍵字：圖書 讀者 管理系統(tǒng) 數(shù)據(jù)庫 目 錄 第一章 緒論 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é)生查詢模塊測(cè)試要點(diǎn) 29 5.1.4 圖書查詢模塊測(cè)試要點(diǎn) 29 5.1.5 圖書歸還模塊測(cè)試要點(diǎn) 30 5.2 測(cè)試用例 30 5.2.1 主模塊測(cè)試用例 30 5.2.2 借閱模塊測(cè)試用例 30 5

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

6、工檢查進(jìn)行，對(duì)會(huì)員的權(quán)限、以及總經(jīng)費(fèi)等用人工計(jì)算、手抄進(jìn)行。數(shù)據(jù)信息處理工作量大，容易出錯(cuò)；由于數(shù)據(jù)繁多，容易丟失，且不易查找?？偟膩碚f，缺乏規(guī)范的系統(tǒng)管理手段。盡管有的商店、企業(yè)有計(jì)算機(jī)，但是尚未用于管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是圖書管理系統(tǒng)的開發(fā)的基本環(huán)境。 由于圖書管理在數(shù)據(jù)處理上是手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。圖書管理采取手工方式對(duì)圖書情況進(jìn)行人工管理，由于信息比較多，圖書信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖書管理的工作人員也只是當(dāng)時(shí)對(duì)它比較清楚，時(shí)間一長(zhǎng)，如再要進(jìn)行查詢，就得在眾多的資料中翻閱、

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

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

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

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

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

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

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

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

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

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

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

18、件。所有這些都要符合主流國(guó)際、國(guó)家和行業(yè)標(biāo)準(zhǔn)。 5、系統(tǒng)的先進(jìn)性 目前計(jì)算系統(tǒng)的技術(shù)發(fā)展相當(dāng)快，做為圖書管理系統(tǒng)工程，在系統(tǒng)的生命周期盡量做到系統(tǒng)的先進(jìn)，充分完成企業(yè)信息處理的要求而不至于落后。這一方面通過系統(tǒng)的開放性和可擴(kuò)充性，不斷改善系統(tǒng)的功能完成。另一方面，在系統(tǒng)設(shè)計(jì)和開發(fā)的過程中，應(yīng)在考慮成本的基礎(chǔ)上盡量采用當(dāng)前主流并先進(jìn)且有良好發(fā)展前途的產(chǎn)品。 6、系統(tǒng)的響應(yīng)速度 圖書管理系統(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)樗俣葐栴}而影響工作效率。 2.5需求規(guī)定

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

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)行登錄，否則無法 進(jìn)入。 (2)系統(tǒng)維護(hù)模塊：已經(jīng)進(jìn)入本系統(tǒng)的用戶，可以在注冊(cè)其他的用戶，可以修改本用戶的密碼，也可以注銷這個(gè)用戶。退出本系統(tǒng)。 (3)詳細(xì)管理模塊：用戶可以在這里為讀者辦理借閱圖書、歸還圖書。瀏覽所有的圖書目錄，為圖書目錄增加、刪除，修改記錄；也可以瀏覽所有讀者的基本信息，對(duì)讀者信息的增加、刪除、修改等的一系列的操作。 (4)相關(guān)查詢模塊：在‘借閱查詢’中，用戶可以

21、查詢出任意一個(gè)讀者的圖書借閱情況；而在‘圖書查詢’中，用戶可以查詢出書庫當(dāng)中的任意一本圖書的借閱情況。 (5)統(tǒng)計(jì)內(nèi)容模塊：在‘讀者借閱情況統(tǒng)計(jì)’中，用戶可以統(tǒng)計(jì)出所有的讀者的基本信息和他借閱圖書的次數(shù)；而在‘圖書借閱情況統(tǒng)計(jì)’中，則可以統(tǒng)計(jì)出被讀者借閱過的圖書的借閱次數(shù)。 (6)關(guān)于模塊：次模塊中是關(guān)于本系統(tǒng)的基本信息。 3.2 運(yùn)行環(huán)境 (一) 開發(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)境：同開發(fā)環(huán)

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

23、讀者姓名、性別、年齡、住址、電話、備注等字段。 表 3-2 讀者信息表 序號(hào) 字段名 類型 大小 說明 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)、圖書1、圖書2、圖書3、借閱時(shí)間、還書時(shí)間等。 表 3-3 借閱信息表 序號(hào) 字段名 類型 大小

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

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

26、 用戶名 字符型 10 用戶注冊(cè)時(shí)的名 2 密碼 字符型 10 登錄系統(tǒng)是的密碼 3．4輸入輸出設(shè)計(jì) 本系統(tǒng)中的圖書入庫數(shù)據(jù)是根據(jù)購書單來錄入的，所以購書單即為現(xiàn)行系統(tǒng)的圖書進(jìn)貨單。同表3-1。 表3-1 圖書購貨單 日期 圖書名稱 作者 出版社 單價(jià) 類別 總數(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) (一) 模塊功能說明 此登錄模塊是在進(jìn)入系統(tǒng)之前必經(jīng)之路，只有經(jīng)過用戶注冊(cè)的用戶才能通過用戶名和密碼正確的進(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ù)庫中用戶表的用戶名添加到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ù)用戶輸入的‘用戶名’來查找數(shù)據(jù)庫當(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) (一)功能說明 系統(tǒng)的主界面是整個(gè)系統(tǒng)的主題部分，所有的功能模塊都由它來啟動(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為在登錄界面里傳遞過來的公共變量----用戶名。 當(dāng)用戶選擇要退出系統(tǒng)時(shí)，系統(tǒng)會(huì)詢問用戶確定要退出系統(tǒng)，代碼見下。 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控件和控件中的圖片來適合窗體的變化。 4.4系統(tǒng)模塊的設(shè)計(jì)與實(shí)現(xiàn) (一)功能說明 該模塊分為用戶注冊(cè)、修改密碼、用戶注銷幾個(gè)部分。其中用戶注冊(cè)部分是為了新用戶來管理系統(tǒng)而注冊(cè)用戶名和密碼的窗體；修改密碼部分是為了修改本用戶的密碼而設(shè)置的窗體；用戶注銷部分是刪除一個(gè)用戶時(shí)才用到的窗體。 (二)系統(tǒng)維護(hù)模塊界面設(shè)計(jì)如圖4

35、.4 用戶注冊(cè) 修改密碼 用戶注銷 圖4.4. (三) 算法及實(shí)現(xiàn) 用戶注冊(cè)窗體的代碼實(shí)現(xiàn)，是通過‘確定’按扭來控制的。 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ù)庫的用戶表當(dāng)中是否有

39、和輸入的用戶名相同的，因?yàn)橄嗤挠脩裘遣荒茏?cè)的。如果這些都結(jié)束后，系統(tǒng)會(huì)對(duì)注冊(cè)的用戶在數(shù)據(jù)庫表中添加記錄，在對(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í)傳遞過來的變量?jī)?nèi)容----用戶名。然后數(shù)據(jù)控件（data1）會(huì)在數(shù)據(jù)庫的用戶表當(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ù)庫中用戶表中的密碼是不是一致，即密碼校驗(yàn)。如果密碼一致系統(tǒng)就會(huì)為用戶修改密碼，并以對(duì)話框來提示用戶的密碼修改成功。否則系統(tǒng)將不允許修改。 用戶注銷的窗體功能具體實(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("你確定要注銷此用戶嗎？", vbOKCancel + 32, "確認(rèn)") End If Select Case Qr Case 1 Data1.Recordset.Delete Data1.Refresh MsgBox "注銷用戶成功", 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ù)庫當(dāng)中的數(shù)據(jù)保持一致。不是空的條件成立時(shí)，系統(tǒng)會(huì)通過數(shù)據(jù)綁定控件（data）來查找用戶表中是否有用戶名和密碼和用戶輸入一致的那一條記錄，不存在就提示用戶輸入的有錯(cuò)誤，重新輸入。存在就給出提示是否要真的刪除

49、此用戶，是就刪除，否則不執(zhí)行刪除操作。 4.5詳細(xì)管理模塊的設(shè)計(jì)與實(shí)現(xiàn) (一)功能說明 在詳細(xì)管理的模塊當(dāng)中，有借書、還書、圖書目錄管理、讀者名細(xì)管理等功能。借書窗體是為了讓讀者能夠快速方便的借閱圖書而設(shè)計(jì)的。還書窗體是讀者歸還圖書時(shí)節(jié)省時(shí)間設(shè)計(jì)的。圖書目錄管理當(dāng)中，可以對(duì)書庫中的圖書進(jìn)行瀏覽、添加、刪除、修改等操作。讀者名細(xì)管理中是對(duì)讀者的各種各種管理設(shè)計(jì)的，可以對(duì)讀者進(jìn)行瀏覽、添加、刪除、修改等操作。 (二) 詳細(xì)管理模塊設(shè)計(jì)與算法實(shí)現(xiàn) 此模塊中由于功能界面較多，所以只列舉其中比較有代表性的為之?dāng)⑹觥? 1.圖書借閱窗體設(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圖書信息 where圖書名稱='"& Text3.Text & "'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox "書庫中沒有此書。", 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 "沒有找到相關(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圖書信息where圖書名稱='" & Text3.Text &

55、"'" Data1.RecordSource = strSQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox "書庫中沒有此書。", 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 "沒有找到相關(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 圖書信息where圖書名稱='" & Text3.Text & "'" Data1.RecordSource = strSQL Data1.Refresh If Da

59、ta1.Recordset.EOF Then MsgBox "書庫中沒有此書。", 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ì)給出提示。但是如果有不是空的話，這里要分三步來考慮。第一，都不為空，

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

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

62、 .Data2.Recordset.Fields("借閱時(shí)間") = .Text6.Text .Data2.Recordset.Fields("還書時(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 "書籍借閱成功！", vbOKOnly + 64, &

65、quot;提示" End Sub 2.圖書目錄增加窗體設(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;輸入的‘圖書名稱’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text4.Text = "" Then MsgBox "輸入的‘圖書單價(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 "輸入的‘圖書類別’不能為空", vbOKOnly + 16, "提示" Exit Sub End If If Text7.Text = "" Then MsgBox "輸入的‘出版社’不能為空", vbOKOnly + 16, "提示" Exit Sub End If

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

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

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