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

1、<p><b>　　信息工程系畢業(yè)設(shè)計(jì)</b></p><p>　　題 目： 圖書管理系統(tǒng) </p><p><b>　　目錄</b></p><p><b>　　前言3</b></p><p><b>　　摘要3&

2、lt;/b></p><p><b>　　第一章緒論5</b></p><p>　　1.1數(shù)據(jù)庫(kù)應(yīng)用開發(fā)5</p><p>　　第二章 系統(tǒng)需求分析7</p><p>　　2.1系統(tǒng)性能要求：7</p><p><b>　　2.2項(xiàng)目背景7</b></

3、p><p>　　2.3系統(tǒng)功能模塊圖：8</p><p>　　第三章 系統(tǒng)設(shè)計(jì)9</p><p><b>　　3.1系統(tǒng)模塊9</b></p><p>　　3.2系統(tǒng)數(shù)據(jù)庫(kù)需求分析9</p><p>　　3.3系統(tǒng)數(shù)據(jù)庫(kù)概念設(shè)計(jì)10</p><p>　　3.4版塊E

4、-R圖10</p><p>　　3.4 Acess2000數(shù)據(jù)庫(kù)簡(jiǎn)介11</p><p>　　第四章 系統(tǒng)實(shí)現(xiàn)12</p><p>　　4.1數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)12</p><p>　　4.2圖書管理系統(tǒng)界面13</p><p>　　第五章 源代碼16</p><p>　　5.1數(shù)據(jù)庫(kù)連

5、接文件16</p><p>　　5.2版塊代碼實(shí)現(xiàn)16</p><p>　　5.2.1 售書登記版塊代碼16</p><p>　　5.2.2 售書記錄版塊代碼18</p><p>　　5.2.3 添加管理員版塊代碼19</p><p>　　5.2.4修改密碼版塊代碼20</p><p&g

6、t;　　5.2.5關(guān)于系統(tǒng)版塊代碼20</p><p>　　第六章 設(shè)計(jì)體會(huì)21</p><p>　　第七章 感謝21</p><p><b>　　參考文獻(xiàn)21</b></p><p><b>　　前言</b></p><p>　　通過(guò)海洋學(xué)院3年的學(xué)習(xí)中，使我收益

7、非淺。在這里我認(rèn)識(shí)了很多的好老師，結(jié)交了許多朋友，更重要的是學(xué)習(xí)到了很多知識(shí)。在這里先要感謝傳授我知識(shí)的老師和陪我度過(guò)3年學(xué)習(xí)的同窗好友。</p><p>　　隨著經(jīng)濟(jì)文化水平的顯著提高，人們對(duì)生活質(zhì)量及工作環(huán)境的要求也越來(lái)越高。書籍做為人類的精神食糧，在現(xiàn)代社會(huì)中越來(lái)越受到重視，大量的書籍出現(xiàn)在市場(chǎng)上，人們有了各種各樣不同的選擇。與此同時(shí)，作為閱讀圖書的重要場(chǎng)所－圖書館為了管理大量的圖書，圖書管理問(wèn)題也就提上了

8、日程。隨著圖書的大量增加，其管理難度也越來(lái)越大，如何優(yōu)化圖書日常管理也就成為了一個(gè)大眾化的課題。</p><p>　　采用計(jì)算機(jī)管理信息系統(tǒng)已成為圖書借閱管理科學(xué)化和現(xiàn)代化的重要標(biāo)志，它給圖書館的管理來(lái)了明顯的經(jīng)濟(jì)效益和社會(huì)效益。主要體現(xiàn)在：極大提高了圖書館人員的工作效率，大大減少了以往入出存流程繁瑣，雜亂，周期長(zhǎng)的弊端?？梢詼p少圖書入庫(kù)管理、出庫(kù)管理及庫(kù)存管理中的漏洞，可以節(jié)約不少管理開支。</p>

9、<p>　　為了加快圖書借閱管理自動(dòng)化的步伐，提高管理業(yè)務(wù)處理效率，建立圖書借閱管理系統(tǒng)已變得十分心要。通過(guò)對(duì)圖書借閱管理日常工作的詳細(xì)調(diào)查，搜集了大量的資料，從系統(tǒng)結(jié)構(gòu)的組織，功能的實(shí)現(xiàn)，技術(shù)的要求以及可行性等多方面進(jìn)行考慮，認(rèn)為本課題是一個(gè)適應(yīng)現(xiàn)今圖書借閱管理需求的計(jì)算機(jī)信息管理系統(tǒng)，具有一定的實(shí)際開發(fā)價(jià)值和使用價(jià)值?！?lt;/p><p><b>　　摘要</b></p

10、><p>　　社會(huì)當(dāng)今科技日益發(fā)展迅猛,在這樣一個(gè)知識(shí)大爆炸的時(shí)代里圖書館作為一個(gè)獲取知識(shí)一個(gè)不可缺少的單元,其重要性是不言而喻的.圖書館在正常的運(yùn)營(yíng)過(guò)程中總是面對(duì)大量的讀者信息、書籍信息以及兩者相互作用所產(chǎn)生的借書信息、還書信息.因此快捷方便的對(duì)讀者資源、書籍資源、借書信息、還書信息進(jìn)行管理,如何提高工作效率成為一個(gè)關(guān)鍵性的問(wèn)題.在此基礎(chǔ)以上構(gòu)建了針對(duì)于中小型校園圖書管理系統(tǒng).本論文闡述了校園圖書管理系統(tǒng)詳細(xì)開發(fā)過(guò)

11、程。 括了借閱信息管理、書籍信息管理、讀者信息管理、系統(tǒng)管理等幾大模塊. 全文介紹了這些模塊的功能，程序設(shè)計(jì)及實(shí)現(xiàn)。具體從系統(tǒng)概敘、需求分析、總體設(shè)計(jì)、數(shù)據(jù)庫(kù)結(jié)構(gòu)、程序編制、模塊實(shí)現(xiàn)、技術(shù)背景、心得體會(huì)等幾個(gè)方面對(duì)此系統(tǒng)進(jìn)行了闡述</p><p>　　【關(guān)鍵字】Visualbasic6.0、ACCESS、借閱</p><p>　　Social science and techn

12、ology are growing rapidly in such a big explosion of knowledge era as a library to acquire knowledge an indispensable module, and its importance is self-evident. Library in the normal course of the operation is always fa

13、ced with a lot of readers information, books and information arising from the interaction between library information, book information. So convenient for readers to resources, books resources, library information, book

14、information management, how to impro</p><p>　　The system includes a library information management, information management books, readers information management, system management, several major modules. &l

15、t;/p><p>　　These modules introduced by the function, and design procedures to achieve. Specific system shall from Syria, demand analysis, design, database structures, programming, modular realization, technical

16、 background, and experience several aspects of this system described</p><p>　　【Keywords】Book, Visualbasic6.0, ACCESS, reader, borrow to read</p><p><b>　　緒論</b></p><p>　　

17、1.1數(shù)據(jù)庫(kù)應(yīng)用開發(fā)</p><p>　　在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)之前，對(duì)開發(fā)數(shù)據(jù)庫(kù)的基本概念應(yīng)當(dāng)了解，對(duì)數(shù)據(jù)庫(kù)的結(jié)構(gòu)、開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的步驟、開發(fā)體系及方法都應(yīng)當(dāng)有相當(dāng)清晰的了解和認(rèn) 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的目標(biāo)是建立一個(gè)滿足用戶長(zhǎng)期需求的產(chǎn)品。開發(fā)的主要過(guò)程為：理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫(kù)設(shè)計(jì)。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用。 數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)軟件鄰域研究中

18、一直是非常重要的主題，產(chǎn)生于60年代，30多年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系和一大批實(shí)用系統(tǒng)。并且，近年來(lái)，隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門技術(shù)之一。 數(shù)據(jù)庫(kù)系統(tǒng)把用戶數(shù)據(jù)表示為關(guān)系?，F(xiàn)在把關(guān)系看作數(shù)據(jù)表。表的列包含域或?qū)傩裕淼男邪瑢?duì)應(yīng)業(yè)務(wù)環(huán)境中的實(shí)體的記錄。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些

19、。1.1.1索引 改進(jìn)了數(shù)據(jù)庫(kù)的性能和可訪問(wèn)性，這種數(shù)據(jù)經(jīng)常稱作開銷數(shù)據(jù)，盡管有時(shí)也采用其他類型的數(shù)據(jù)結(jié)構(gòu)，如鏈表，但它主要還是索引。索引可以用來(lái)排序和快速訪問(wèn)數(shù)據(jù)。</p><p>　　DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義、更新及各種控制,都是通過(guò)DBMS進(jìn)行的。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模型的

20、不同，DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取S SQL Server2000就是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)。 </p><p>　　關(guān)系模型是由若干個(gè)關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類型，它的實(shí)例稱為關(guān)系，每個(gè)關(guān)系實(shí)際上是一張二維表格。 </p><p>　　關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存

21、儲(chǔ)結(jié)構(gòu)，訪問(wèn)技術(shù)等細(xì)節(jié)。關(guān)系模型是數(shù)學(xué)化模型。SQL語(yǔ)言是關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)化語(yǔ)言，已得到了廣泛的應(yīng)用。 </p><p>　　設(shè)計(jì)子系統(tǒng)有一個(gè)方便數(shù)據(jù)庫(kù)及其應(yīng)用創(chuàng)建的工具集。它典型地包含產(chǎn)生表、窗體、查詢和報(bào)表的工具。DBMS產(chǎn)品還提供編程語(yǔ)言和對(duì)編程語(yǔ)言的接口。 運(yùn)行子系統(tǒng)處理用設(shè)計(jì)子系統(tǒng)開發(fā)的應(yīng)用組件。它所包含的運(yùn)行處理器用來(lái)處理窗體和數(shù)據(jù)庫(kù)的數(shù)據(jù)交互，以及回答查詢和打印報(bào)表等。 1.1.3 創(chuàng)建數(shù)據(jù)庫(kù)

22、1.1.4 數(shù)據(jù)庫(kù)模式 </p><p>　　數(shù)據(jù)庫(kù)模式是一種設(shè)計(jì)，數(shù)據(jù)庫(kù)和應(yīng)用正是建立在此基礎(chǔ)上的。數(shù)據(jù)庫(kù)模式定義了數(shù)據(jù)庫(kù)的結(jié)構(gòu)、表、關(guān)系、域和業(yè)務(wù)規(guī)域是一列可能擁有的值的集合。必須為每一個(gè)表的每一列確定域。除了數(shù)據(jù)的物理格式外，還需要確定是否有些域?qū)Ρ韥?lái)說(shuō)是唯一的。 </p><p>　　業(yè)務(wù)規(guī)則是模式的一個(gè)重要部分，因?yàn)樗麄冎付藷o(wú)論什么數(shù)據(jù)變化到達(dá)DBMS引擎，允許的數(shù)據(jù)值必須滿

23、足的約束。不管無(wú)效的數(shù)據(jù)變化請(qǐng)求是來(lái)自窗體的用戶、查詢/修改請(qǐng)求還是應(yīng)用程序，DBMS都應(yīng)該拒絕。 1.1.5 創(chuàng)建表 1.1.6 定義聯(lián)系 1.81.7應(yīng)用組件 數(shù)據(jù)庫(kù)應(yīng)用包括窗體、查詢、報(bào)表、菜單和應(yīng)用程序。 1.2 圖書管理系統(tǒng) </p><p>　　當(dāng)今時(shí)代信息開發(fā)，正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，

24、而且大大的提高了其安全性。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設(shè)計(jì)的。 </p><p>　　圖書館采取手工方式對(duì)圖書借閱情況進(jìn)行人工管理，由于信息比較多，圖書借閱信息的管理工作混亂而又復(fù)雜；一般借閱情況是記錄在借書證上，圖書的數(shù)目和內(nèi)容記錄在文件中，圖書館的工作人員和管理員也只是當(dāng)時(shí)對(duì)它

25、比較清楚，時(shí)間一長(zhǎng)，如再要進(jìn)行查詢，就得在眾多的資料中翻閱、查找了，造成查詢費(fèi)時(shí)、費(fèi)力。如要對(duì)很長(zhǎng)時(shí)間以前的圖書進(jìn)行更改就更加困難了。數(shù)據(jù)處理手工操作，工作量大，出錯(cuò)率高，出錯(cuò)后不易更改。 基于這此問(wèn)題，我認(rèn)為有必要建立一個(gè)圖書管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)、準(zhǔn)確、有效的查詢和修改圖書情況。 </p><p>　　第二章 系統(tǒng)

26、需求分析</p><p>　　2.1系統(tǒng)性能要求：</p><p>　?、傧到y(tǒng)安全、可靠；</p><p><b>　　②功能齊全；</b></p><p>　　③操作方便、界面友好；</p><p>　?、芤子诰S護(hù)和擴(kuò)充。</p><p>　　2.2項(xiàng)目背景

27、 </p><p>　　隨著社會(huì)信息量的與日俱增，作為學(xué)校需要有一個(gè)很好的圖書管理系統(tǒng)對(duì)學(xué)生的借還書進(jìn)行管理，方便圖書館對(duì)學(xué)生借書信息的查詢、插入、修改和維護(hù)，也方便學(xué)生對(duì)自己所借圖書的了解。在計(jì)算機(jī)日益普及的今天，對(duì)學(xué)校而言若采用一套行之有效的《圖書管理系統(tǒng)》來(lái)管理學(xué)生的借書情況會(huì)方便許多。</p><p>　　《圖書管理系統(tǒng)》SGMS V1.0是一套功能比較完善的數(shù)據(jù)管理軟件，具有數(shù)

28、據(jù)操作方便高效迅速等優(yōu)點(diǎn)。該軟件采用功能強(qiáng)大的數(shù)據(jù)庫(kù)軟件開發(fā)工具進(jìn)行開發(fā)，具有很好的可移植性，可在應(yīng)用范圍較廣的WINDOWS系列等操作系統(tǒng)上使用。</p><p>　　2.3系統(tǒng)功能模塊圖： </p><p>　　圖2-3-1系統(tǒng)模塊</p><p

29、><b>　　第三章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　3.1系統(tǒng)模塊</b></p><p>　　圖3-1-1銷售模塊</p><p>　　圖3-1-2系統(tǒng)管理模塊</p><p>　　3.2系統(tǒng)數(shù)據(jù)庫(kù)需求分析</p><p>　　設(shè)計(jì)數(shù)據(jù)庫(kù)之前，應(yīng)該首

30、先了解用戶需求，弄清用戶需要存儲(chǔ)、更新、查詢哪些數(shù)據(jù)，弄清這些數(shù)據(jù)之間的關(guān)系和流向；然后對(duì)這些需求進(jìn)行分析，總結(jié)出數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。</p><p>　　根據(jù)系統(tǒng)功能的分析和需求總結(jié)，考慮到將來(lái)功能上的擴(kuò)展，設(shè)計(jì)到如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)。</p><p>　　★ 售書登記，包括：書籍編號(hào)、出售數(shù)量、出售日期、登記人等。</p><p>　　★ 售書記錄，包括：查

31、詢某一時(shí)間段的記錄等。</p><p>　　★ 添加用戶，包括：輸入新用戶、輸入密碼、確認(rèn)密碼、選擇權(quán)限等。</p><p>　　★ 關(guān)于系統(tǒng)，包括：系統(tǒng)幫助、系統(tǒng)介紹等。</p><p>　　3.3系統(tǒng)數(shù)據(jù)庫(kù)概念設(shè)計(jì)</p><p>　　得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏

32、輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。這些實(shí)體包含各種實(shí)體信息，通過(guò)相互之間的作用形成數(shù)據(jù)之間的流動(dòng)。</p><p>　　本系統(tǒng)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：售書登記實(shí)體、售書記錄實(shí)體、添加用戶實(shí)體、修改密碼實(shí)體、系統(tǒng)介紹實(shí)體。</p><p><b>　　3.4版塊E-R圖</b></p><p>　　圖3-4-1售書登記實(shí)體E-R </p>

33、<p>　　圖3-4-2添加用戶實(shí)體E-R圖</p><p>　　圖3-4-3關(guān)于系統(tǒng)實(shí)體E-R圖</p><p>　　3.4 Acess2000數(shù)據(jù)庫(kù)簡(jiǎn)介</p><p>　　Access 是Office2000里面的一個(gè)組件。是用來(lái)制作簡(jiǎn)單的數(shù)據(jù)庫(kù)。 還有的意思就是訪問(wèn)、還有接入的意思。 如Access list 訪問(wèn)列表 Access poin

34、t 接入點(diǎn) 在辦公軟件Office套件中，最為廣大用戶熟悉的是Word和Excel，因?yàn)樗鼈児δ軓?qiáng)大且方便易用，更因?yàn)樗鼈儾粌H可用于辦公，還可用于個(gè)人寫作和家庭記帳理財(cái)?shù)取Ｍ瑸镺ffice套件中一部分的Access，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對(duì)少些，不像Word和Excel那樣廣泛。事實(shí)上，真正用過(guò)Access的用戶，對(duì)其強(qiáng)大功能和靈活應(yīng)用均稱贊有加。 Access 數(shù)據(jù)庫(kù)管理系統(tǒng)是Microsoft Offic

35、e 套件的重要組成部分，適用于小型商務(wù)活動(dòng)，用以存貯和管理商務(wù)活動(dòng)所需要的數(shù)據(jù)。Access不僅是一個(gè)數(shù)據(jù)庫(kù)，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報(bào)表和應(yīng)用程序等。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫(kù)，關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)</p><p><b>

36、　　第四章 系統(tǒng)實(shí)現(xiàn)</b></p><p>　　4.1數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)</p><p>　　數(shù)據(jù)庫(kù)的概念結(jié)構(gòu)設(shè)計(jì)完畢后，現(xiàn)在可以將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)概念，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。</p><p>　　4.2圖書管理系統(tǒng)界面</p><p>　　圖書管理系統(tǒng)中各個(gè)界面的設(shè)計(jì)結(jié)果如下面表格所示。&

37、lt;/p><p>　　圖4-2-1.用戶主界面</p><p>　　圖4-2-2售書登記界面</p><p>　　圖4-2-3售書記錄界面</p><p>　　圖4-2-4添加用戶界面</p><p>　　圖4-2-5修改密碼界面</p><p>　　圖4-2-6 關(guān)于系統(tǒng)界面</p>

38、<p>　　圖4-2-7 系統(tǒng)介紹界面</p><p><b>　　第五章 源代碼</b></p><p>　　5.1數(shù)據(jù)庫(kù)連接文件</p><p>　　為了操作方便,所連接數(shù)據(jù)庫(kù)、查詢、更新、插入、關(guān)閉、連接等數(shù)據(jù)庫(kù)操作都寫在一個(gè)公用文件Conn.asp中，這樣其他頁(yè)面引入這個(gè)頁(yè)面，就可以調(diào)用數(shù)據(jù)庫(kù)操作方法，操作數(shù)據(jù)庫(kù)了，這樣便

39、于提高程序的重用性，下面給出了這段程序的參考代碼。</p><p><b>　　用于標(biāo)記連接對(duì)象 </b></p><p>　　Public conn As New ADODB.Connection </p><p><b>　　用于打開數(shù)據(jù)庫(kù)</b></p><p>　　rs_leibie.Op

40、en sql, conn, adOpenKeyset, adLockPessimistic</p><p><b>　　5.2版塊代碼實(shí)現(xiàn)</b></p><p>　　5.2.1 售書登記版塊代碼</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　Ms

41、gBox "圖書編號(hào)不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>

42、;　　If Trim(Text2.Text) = "" Then</p><p>　　MsgBox "書名不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b><

43、;/p><p><b>　　End If</b></p><p>　　If Trim(Text3.Text) = "" Then</p><p>　　MsgBox "請(qǐng)?zhí)顚懯蹠鴶?shù)量!", vbOKOnly + vbExclamation, ""</p><p>　　

44、Text3.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsDate(Text4.Text) Then</p><p>　　MsgBox "請(qǐng)按照 年-月-日 格式輸入日期&qu

45、ot;, vbOKOnly + vbExclamation, ""</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　sql = "select

46、* from 圖書銷售 where 書籍編號(hào)='" & Text1.Text & "'"</p><p>　　rs_addsellbook.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_addsellbook.EOF Then</p>

47、<p>　　rs_addsellbook.AddNew</p><p>　　rs_addsellbook.Fields(0) = Trim(Text1.Text)</p><p>　　rs_addsellbook.Fields(1) = Trim(Text2.Text)</p><p>　　rs_addsellbook.Fields(2) = Trim(

48、Text3.Text)</p><p>　　rs_addsellbook.Fields(3) = Trim(Text4.Text)</p><p>　　rs_addsellbook.Fields(4) = Trim(Text5.Text)</p><p>　　rs_addsellbook.Fields(5) = Trim(Text6.Text)</p>

49、<p>　　rs_addsellbook.Update</p><p>　　MsgBox "售書信息填寫成功！", vbOKOnly, ""</p><p>　　rs_addsellbook.Close</p><p>　　Text1 = ""</p><p>　　Tex

50、t2 = ""</p><p>　　Text3 = ""</p><p>　　Text4 = ""</p><p>　　Text5 = ""</p><p>　　Text6 = ""</p><p><b>　

51、　Else</b></p><p>　　rs_addsellbook.MoveLast</p><p>　　rs_addsellbook.MoveNext</p><p>　　rs_addsellbook.AddNew</p><p>　　rs_addsellbook.Fields(0) = Trim(Text1.Text)<

52、;/p><p>　　rs_addsellbook.Fields(1) = Trim(Text2.Text)</p><p>　　rs_addsellbook.Fields(2) = Trim(Text3.Text)</p><p>　　rs_addsellbook.Fields(3) = Trim(Text4.Text)</p><p>　　rs

53、_addsellbook.Fields(4) = Trim(Text5.Text)</p><p>　　rs_addsellbook.Fields(5) = Trim(Text6.Text)</p><p>　　rs_addsellbook.Update</p><p>　　MsgBox "售書信息填寫成功！", vbOKOnly, "

54、"</p><p>　　rs_addsellbook.Close</p><p>　　Text1 = ""</p><p>　　Text2 = ""</p><p>　　Text3 = ""</p><p>　　Text4 = ""

55、;</p><p>　　Text5 = ""</p><p>　　Text6 = ""</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.2.2 售書記錄版塊代

56、碼</p><p>　　If Not IsDate(Text1.Text) Then</p><p>　　MsgBox "請(qǐng)按照 年-月-日 格式輸入日期", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p><b>　

57、　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsDate(Text2.Text) Then</p><p>　　MsgBox "請(qǐng)按照 年-月-日 格式輸入日期", vbOKOnly + vbExclamation, ""&l

58、t;/p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'where 日期 between #" & DTPicker1 & "# and

59、#" & DTPicker2 & "# "</p><p>　　sql = "select * from 圖書銷售 where 售書日期 between #" & CDate(Text1.Text) & "# and #" & CDate(Text2.Text) & "#"&l

60、t;/p><p>　　rs_findbook.CursorLocation = adUseClient</p><p>　　rs_findbook.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　'rs_findbook.MoveFirst</p><p>　　If rs

61、_findbook.EOF = False Then</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowDelete = False</p><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.D

62、ataSource = rs_findbook</p><p>　　'rs_findbook.Close</p><p><b>　　Else</b></p><p>　　MsgBox "你所查詢的圖書不存在！，請(qǐng)重新查詢", vbOKOnly + vbExclamation</p><p>

63、<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.2.3 添加管理員版塊代碼</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "用戶名不能為空&

64、quot;, vbOKOnly + vbExclamation, ""</p><p><b>　　Exit Sub</b></p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select

65、* from 系統(tǒng)管理"</p><p>　　rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　While (rs_add.EOF = False)</p><p>　　If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then</

66、p><p>　　MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""<

67、/p><p>　　Text3.Text = ""</p><p>　　Combo1.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs_add.M

68、oveNext</p><p><b>　　End If</b></p><p><b>　　Wend</b></p><p>　　If Trim(Text2.Text) <> Trim(Text3.Text) Then</p><p>　　MsgBox "兩次密碼不一致&qu

69、ot;, vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p><b>　　Exit Sub<

70、/b></p><p>　　ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then</p><p>　　MsgBox "請(qǐng)選擇正確的用戶權(quán)限", vbOKOnly + vbExclamation, "

71、;"</p><p>　　Combo1.SetFocus</p><p>　　Combo1.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs_add.

72、AddNew</p><p>　　rs_add.Fields(0) = Text1.Text</p><p>　　rs_add.Fields(1) = Text2.Text</p><p>　　rs_add.Fields(2) = Combo1.Text</p><p>　　rs_add.Update</p><p>

73、　　rs_add.Close</p><p>　　MsgBox "添加用戶成功", vbOKOnly + vbExclamation, ""</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p&g

74、t;<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.2.4修改密碼版塊代碼</p><p>　　If Trim(Text1.Text) <> Trim(Text2.Text) Then</p><p>　　MsgBox &qu

75、ot;密碼不一致！", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　ElseIf Tr

76、im(Text1.Text) = "" Or Trim(Text1.Text) = "" Then</p><p>　　MsgBox "密碼不能為空", vbOKOnly + vbExclamation, ""</p><p><b>　　Else</b></p><p

77、>　　sql = "select * from 系統(tǒng)管理 where 用戶名='" & userID & "'"</p><p>　　rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　rs_chang.Fields(1) = Te

78、xt1.Text</p><p>　　rs_chang.Update</p><p>　　rs_chang.Close</p><p>　　MsgBox "密碼修改成功", vbOKOnly + vbExclamation, ""</p><p><b>　　Unload Me</b&g

79、t;</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5.2.5關(guān)于系統(tǒng)版塊代碼</p><p>　　Private Sub Form_Load()</p><p>　　Dim strInfo As S

80、tring</p><p>　　strInfo = "三人組畢業(yè)設(shè)計(jì)圖書管理系統(tǒng) 面向中小型圖書館"</p><p>　　strInfo = strInfo & "管理，旨在實(shí)現(xiàn)書店管理信息化。" & vbCrLf</p><p>　　strInfo = strInfo & "本系統(tǒng)根據(jù)權(quán)限

81、分為系統(tǒng)管理員和游客，分別擁有不"</p><p>　　strInfo = strInfo & "同的權(quán)限，各司其職，以便提高工作效率。系統(tǒng)功能包括：圖書管理、讀者管理、圖書借還管理、系統(tǒng)管理、信息反饋、幫助" & vbCrLf</p><p>　　strInfo = strInfo & vbCrLf & "用戶權(quán)限：

82、" & vbCrLf & vbCrLf</p><p>　　strInfo = strInfo & "（一）系統(tǒng)管理員擁有最大的權(quán)限：添加讀者，修改讀者信息；修改讀書信息等其它管理權(quán)限。" & vbCrLf</p><p>　　strInfo = strInfo & "（二）圖書管理員的權(quán)限：出借圖書，登記圖書

83、等。" & vbCrLf</p><p>　　Label3.Caption = strInfo</p><p><b>　　End Sub</b></p><p><b>　　第六章 設(shè)計(jì)體會(huì)</b></p><p>　　通過(guò)這次畢業(yè)設(shè)計(jì)，我更加深入的了解了vb和Access的強(qiáng)大

84、功能，并且對(duì)vb語(yǔ)言的運(yùn)用也有了很大的進(jìn)步。這次系統(tǒng)開發(fā)能夠順利的完成是與開始很好的做需求分析分不開的，這使我認(rèn)識(shí)到，要想很好的完成系統(tǒng)開發(fā)，做好需求分析是非常關(guān)鍵的。目前本系統(tǒng)的絕大部分主要功能已經(jīng)完成。整個(gè)軟件也已進(jìn)行了初步的軟件測(cè)試，并已把已知存在的錯(cuò)誤全部修正。由于時(shí)間比較緊張，所以該系統(tǒng)的設(shè)計(jì)還有一些不完善的地方，比如庫(kù)中借書后剩下圖書的數(shù)量等問(wèn)題，而且在軟件的拓展性方面可能還有一些想的不是很全面的地方，這些都需要進(jìn)一步的完善

85、。在設(shè)計(jì)中我遇到了不少問(wèn)題，往往一個(gè)小小的錯(cuò)誤使我花很多的時(shí)間和精力去尋找和修正。在老師的輔導(dǎo)下，今天終于完成了此設(shè)計(jì)，非常的興奮。通過(guò)在畢業(yè)設(shè)計(jì)中我更深入了解了vb的命令、函數(shù)、屬性、事件等特性。但我覺(jué)的不足的方面還是很多，希望在將來(lái)的日子里能更進(jìn)一步的完善它。</p><p><b>　　第七章 感謝</b></p><p>　　在這次畢業(yè)設(shè)計(jì)中，我要感謝我的指

86、導(dǎo)教師張靜老師，感謝他在我畢業(yè)設(shè)計(jì)期間給予我的幫助、支持和鼓勵(lì)。老師以他嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、淵博的知識(shí)、深刻的洞察力和對(duì)問(wèn)題的系統(tǒng)的研究方法，給了我很大的啟迪和幫助。在畢業(yè)設(shè)計(jì)期間，我周圍的同學(xué)們也給予了我很大的幫助和支持，感謝他們。最后，再次感謝幫助我的老師和同學(xué)們。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　1.《Visual Basic程序設(shè)