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

1、<p><b>　　圖書管理系統(tǒng)</b></p><p><b>　　摘要</b></p><p>　　在圖書管理系統(tǒng)用計算機管理圖書是一種計算機應用技術的創(chuàng)新,在計算機還未普及之前圖書管理都是由圖書管理人員手工記帳的方式來操作的.現(xiàn)在一般的圖書館都是采用計算機作為工具的實用的計算機圖書管理程序來幫助圖書館管理員進行更有效的圖書管理。&

2、lt;/p><p>　　圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。</p><p>　　關鍵字:圖書，面向?qū)ο?，軟件工?lt;/p><p>　　Abstract In the library ma

3、nagement system with computer management books is a computer application technology innovation, not on the computer before the popularity of management books are books of account management manual approach to the operati

4、on. Libraries are now generally used as a tool for computer The practical procedures for the management of computer books to help librarians more effective management of the book. Book Management System is a typical man

5、agement information system (MIS),</p><p><b>　　目 錄</b></p><p><b>　　第一章 概述1</b></p><p><b>　　1.1開發(fā)背景1</b></p><p>　　1.2管理信息系統(tǒng)產(chǎn)生的背景1

6、</p><p>　　1.3系統(tǒng)功能要求的分析2</p><p>　　第二章 開發(fā)環(huán)境及實現(xiàn)技術介紹3</p><p><b>　　2.1開發(fā)環(huán)境3</b></p><p>　　2.2開發(fā)工具簡介3</p><p>　　第三章 圖書管理系統(tǒng)的設計和實現(xiàn)5</p><

7、;p>　　3.1系統(tǒng)的設計5</p><p>　　3.1.1概要設計5</p><p>　　3.1.2詳細設計7</p><p>　　3.2系統(tǒng)的實現(xiàn)9</p><p>　　3.2.1主界面的設計與實現(xiàn)12</p><p>　　3.2.2圖書管理模塊的設計與實現(xiàn)15</p><p&

8、gt;　　3.2.3讀者管理模塊的設計與實現(xiàn)19</p><p>　　3.2.4圖書借閱管理模塊的實現(xiàn)22</p><p>　　3.2.5系統(tǒng)管理模塊的設計與實現(xiàn)25</p><p>　　第四章 圖書管理系統(tǒng)的運行說明40</p><p>　　4.1運行環(huán)境40</p><p><b>　　致

9、 謝42</b></p><p><b>　　參考文獻43</b></p><p><b>　　第一章 概述</b></p><p><b>　　1.1開發(fā)背景</b></p><p>　　圖書館作為學校信息資源的集散地，圖書信息及用戶借閱資料繁多，其中所產(chǎn)生

10、的信息數(shù)據(jù)需要進行有效的管理，才能提高圖書館的工作效率。然而只依靠人工管理必然十分繁瑣，因此，為了更好地滿足用戶的借閱圖書的需求，提高學習研究效率，研究并開發(fā)一個圖書管理系統(tǒng)可以通過計算機軟件的應用，對圖書信息和用戶信息的記錄，借閱返還等環(huán)節(jié)以及可能產(chǎn)生的問題進行有效的管理和防范。圖書管理系統(tǒng)集存儲、查詢、統(tǒng)計、管理功能于一體，調(diào)用方便、使用快捷，充分發(fā)揮信息管理系統(tǒng)的功能，大大提高工作效率和數(shù)據(jù)保存的準確性。</p>&

11、lt;p>　　1.2圖書管理系統(tǒng)產(chǎn)生的背景</p><p>　　圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤

12、其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。</p><p>　　1.3 系統(tǒng)功能要求的分析</p><p>　　圖書管理系統(tǒng)主要服務與圖書管理人員,包含的功能模塊主要有:</p><p>　　圖書管理:圖書類別管理,圖書信息管理</p>

13、<p>　　讀者信息管理:讀者管理,讀者信息管理.</p><p>　　圖書借閱管理:借書管理,還書管理.</p><p>　　系統(tǒng)管理:添加管理員,修改密碼</p><p><b>　　超借及罰款管理</b></p><p>　　書籍丟失及證件掛失管理</p><p>　　第二章

14、 開發(fā)環(huán)境及實現(xiàn)技術介紹</p><p><b>　　2.1開發(fā)環(huán)境</b></p><p>　　系統(tǒng)采用C/S結(jié)構(gòu)，主要工作包括后臺數(shù)據(jù)庫的建立和維護以及客戶端應用程序的設計兩個方面；開發(fā)工具為Visual Basic6.0，考慮到圖書資料的數(shù)量及后期擴展升級的需要，采用SQL Server開發(fā)后臺數(shù)據(jù)庫；開發(fā)流程完全按照軟件工程的要求，以規(guī)定的技術文檔作為階段任務

15、完成標志。</p><p>　　2.2 開發(fā)軟件介紹</p><p><b>　　E4</b></p><p>　　‘]ataMember屬性：從數(shù)據(jù)供應程序提供的幾個數(shù)據(jù)成員中返回/設定一個特定的數(shù)據(jù)成員</p><p>　　DataSource屬性：設定控件綁定的一個數(shù)據(jù)源</p><p>　

16、　DragIcon屬性：設定圖標，它將在拖放操作中作為指針顯示</p><p>　　DragMode模式：設定一個值，確定在拖放操作中所用方式</p><p>　　Enabled屬性：設置/返回運行時TextBox是否相應用戶事件</p><p>　　Font屬性：設置/返回字體屬性</p><p>　　ForeColor屬性：設置/返回文本

17、的前景色</p><p>　　Height屬性：設置/返回TextBox的高度</p><p>　　IMEMode屬性：設置/返回數(shù)值用來確定輸入方法編輯器的狀態(tài)</p><p>　　Index屬性：設置/返回唯一的標識控件數(shù)組中該控件的編號</p><p>　　Left屬性：設置/返回TextBox控件的水平位置</p>&l

18、t;p>　　Locked屬性：設置/返回TextBox中文本是否可編輯</p><p>　　LinkItem屬性：設置/返回DDE與另一個應用程序會話時，傳給接受端的數(shù)據(jù)</p><p>　　MaxLength屬性：設置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值</p><p>　　MouseIcon屬性：設置/返回自定義鼠標的圖標</

19、p><p>　　Top屬性：設置/返回TextBox控件的垂直位置</p><p>　　Tag屬性：存儲過程所需的附加數(shù)據(jù)</p><p><b>　　文本框類的事件：</b></p><p>　　Change事件：當改變文本框內(nèi)容時發(fā)生</p><p>　　Click事件：鼠標單擊控件時發(fā)生<

20、/p><p>　　DblClick事件：用鼠標左鍵雙擊控件時發(fā)生</p><p>　　DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設置為2時發(fā)生</p><p>　　DragOver事件：在拖放操作正在進行時發(fā)生</p><p>　　GotFocus事件：當一個命令按鈕獲得焦點時發(fā)生</p>

21、<p>　　LinkClose事件：當一個DDE對話結(jié)束時發(fā)生</p><p>　　LinkError事件：當一個DDE對話框過程中出現(xiàn)錯誤時，該事件發(fā)生</p><p>　　KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生</p><p>　　Validate事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的Causes Validation

22、 屬性值設置為True</p><p><b>　　單選按鈕類的控件：</b></p><p>　　Caption屬性：顯示在控件上的文本,是單選按鈕的標題。</p><p>　　Alignment屬性：決定單選按鈕的標題在控件上的位置。</p><p>　　Enable屬性：該控件為灰色時為false,表示運行時不可用

23、。</p><p>　　Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。</p><p>　　Tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。</p><p>　　Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。</p><p>　　Appea

24、rance 屬性：設置/返回一個對象在運行時是否以3D效果顯示。</p><p>　　BackColor 屬性：設置/返回背景色。</p><p>　　Container 屬性：設置/返回Form上的控件屬性。</p><p>　　DataField 屬性：設置/返回數(shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬

25、性：設置/返回DataFormat對象，一個綁定對象將附加到它。</p><p>　　DisabledPicture 屬性：設置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。</p><p>　　DownPicture 屬性：設置/返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。</p><p>　　DragMode 屬性：設置/返回一個值，確

26、定在拖放操作中所用的方式。</p><p>　　Font 屬性：設置/返回字體屬性。</p><p>　　FontBold 屬性：設置/返回字體粗體樣式。</p><p>　　FontItalic 屬性：設置/返回字體斜體樣式。 </p><p>　　FontStrikethru 屬性：設置/返回字體刪除線樣式。</p><

27、;p>　　FontUnderLine 屬性：設置/返回字體下劃線樣式。</p><p>　　FontName 屬性：設置/返回控件中顯示文本所用的字體大小。</p><p>　　FontSize 屬性：設置/返回控件中顯示文本所用的字體大小</p><p>　　Height 屬性：設置/返回控件的高度。</p><p>　　MaskCo

28、lor 屬性：設置/返回一個在控件的圖片中作為掩碼的顏色。</p><p>　　MousePointer 屬性：設置/返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。</p><p>　　單選按鈕類的常用事件：</p><p>　　Click 事件：鼠標單擊控件時發(fā)生。</p><p>　　DbClick事件： 當在一個對象上

29、按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發(fā)生。</p><p>　　DragDrop事件：在一個完整的拖放動作或使用Drag方法，并將其Action參數(shù)設置位2時，該事件發(fā)生。</p><p>　　DragOver事件： 在拖放操作正在進行時發(fā)生。</p><p>　　GotFocus事件： 當獲的對象焦點時發(fā)生。</p><p>　

30、　LostFocus事件：當對象失去焦點時發(fā)生。</p><p>　　KeyDown事件：當控件具有焦點時按下一個鍵時發(fā)生。</p><p>　　KeyUp事件： 當控件具有焦點時釋放一個鍵時發(fā)生。</p><p>　　KeyPress事件：當用戶按下或釋放ANSI一個鍵時發(fā)生。</p><p>　　MouseDown事件：當在控件上按下鼠標

31、鍵時發(fā)生。</p><p>　　MouseMove事件：在控件上移動鼠標時發(fā)生。</p><p>　　MouseUp事件：在控件上釋放鼠標時發(fā)生。</p><p><b>　　復選按鈕類的控件：</b></p><p>　　Caption屬性：缺省為check1…。</p><p>　　Index

32、屬性:該屬性值為復選框控件數(shù)組的下標.</p><p>　　Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.</p><p>　　Container屬性：Form控件上的容器。</p><p>　　DataChangeed屬性：設置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。</p><p>　　DataFie

33、ld屬性：設置或返回數(shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設置或返回DataFormat對象，用于數(shù)據(jù)綁定。</p><p>　　Datasource屬性：設置或返回控件綁定的一個數(shù)據(jù)源。</p><p>　　DisabledPicture屬性：設置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。</p>

34、<p>　　DownPicture 屬性：設置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。</p><p>　　DragIcon屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。</p><p>　　DragMode屬性：設置返回一個值，確定在拖放操作中所用方式。</p><p>　　Font屬性：設置或返回字體的屬性。</p

35、><p>　　Name屬性：設置或返回控件的標識名。</p><p>　　Value屬性：設置或返回控件的狀態(tài)。</p><p>　　復選按鈕類的控件的基本事件：</p><p>　　Click事件：鼠標單擊控件時發(fā)生。</p><p>　　DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Actio

36、n參數(shù)設置為2時發(fā)生。</p><p>　　DragOver事件：在拖放操作正在進行時發(fā)生。</p><p>　　GotFocus事件：在對象獲的焦點時發(fā)生。，</p><p>　　OLECompleteDrag事件：當源部件被放到目標時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。</p><p>　　OLEDragDrag事件：當源部件決定放操

37、作能發(fā)生，卻源部件被放到目標部件時，此事件發(fā)生。</p><p><b>　　框架類的控件：</b></p><p>　　1) List屬性：列表框控件的表項是使用數(shù)組的方式保存,數(shù)組的每一個元素存儲列表控件的一個表項</p><p>　　Listcount屬性:控件列表部分項目的個數(shù)。</p><p>　　Mutsel

38、ect屬性:可以設置列表框為單選或允許多選屬性.</p><p>　　Selectd屬性:標示一個數(shù)組,數(shù)組各元素為:</p><p>　　Selected(0),selected(1)…</p><p><b>　　滾動條類的控件：</b></p><p>　　Value屬性：滾動條上滑塊所在位置由value值所決定。

39、</p><p>　　Max和min屬性：對value值的最大,最小進行限制。</p><p>　　Largechange屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時,value的改變量。</p><p>　　4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。</p><p><b>　　定時器類類的控件：</b&g

40、t;</p><p>　　Interval屬性：表示定時的時間間隔,以毫秒為單位。</p><p>　　Enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態(tài).</p><p><b>　　數(shù)據(jù)庫連接方式選擇</b></p><p>　　Visual basic6.0連接數(shù)據(jù)庫的主要方式

41、以下幾種方式：一是：用data控件進行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveX Data Objects)進行編程</p><p>　　:現(xiàn)在我們來大致對這幾種技術應用介紹：</p><p>　　用data控件進行數(shù)據(jù)庫鏈接.</p><

42、p>　　第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有Access，可通過VB建庫。</p><p>　　利用adodc（ADO Data Control

43、)進行數(shù)據(jù)庫鏈接：</p><p>　　使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.</p><p>　　利用DAO對數(shù)據(jù)庫進行操縱:</p><p>　　在visual basic 中提供了兩種與j

44、et數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.DAO模型是設計關系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合.他們提供了管理關系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關系,定位和查詢數(shù)據(jù)庫等.</p><p><b>　　關系數(shù)

45、據(jù)庫介紹:</b></p><p>　　關系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應用數(shù)學方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關系模型。 關系數(shù)據(jù)庫系統(tǒng)與非關系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其

46、他的操作。</p><p>　　結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關系代數(shù)與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數(shù)據(jù)庫語言。目前已成為關系數(shù)據(jù)庫的標準語言</p><p>　　Microsoft Access介紹:</p><p>　　使用 M

47、icrosoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關系。 如果要

48、搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時，Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請

49、創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。</p><p>　　第三章 圖書管理系統(tǒng)的設計與實現(xiàn)</p><p><b>　　3.1 系統(tǒng)的設計</b></p><p>　　3.1.1系統(tǒng)的概要設計</p><p>　　該系統(tǒng)考慮將整個系統(tǒng)分解成

50、如下模塊:</p><p>　　3.1.2 系統(tǒng)的詳細設計</p><p><b>　　1.讀者類別表</b></p><p><b>　　2.讀者信息表:</b></p><p><b>　　3. 借閱信息表:</b></p><p><b>

51、;　　4. 書籍信息表:</b></p><p><b>　　5.圖書類別表:</b></p><p><b>　　6.系統(tǒng)管理表:</b></p><p>　　3.2 系統(tǒng)的設計與實現(xiàn)</p><p>　　3.2.1 系統(tǒng)的主界面的設計與實現(xiàn)</p><p>&

52、lt;b>　　主界面代碼:</b></p><p>　　Private Sub add_admin_Click()</p><p>　　frmadduser.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_back_book_Click(

53、)</p><p>　　frmbackbookinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_book_info_Click()</p><p>　　frmaddbookinfo.Show</p><p><b>

54、;　　End Sub</b></p><p>　　Private Sub add_book_style_Click()</p><p>　　frmaddbookstyle.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_lend_book_Cl

55、ick()</p><p>　　frmfindbook.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub add_reader_info_Click()</p><p>　　frmaddreaderinfo.Show</p><p><

56、b>　　End Sub</b></p><p>　　Private Sub add_reader_style_Click()</p><p>　　frmaddreaderstyle.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub change_p

57、wd_Click()</p><p>　　frmchangepwd.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_book_info_Click()</p><p>　　frmmodifybookinfo.Show</p><p>

58、;<b>　　End Sub</b></p><p>　　Private Sub del_book_style_Click()</p><p>　　frmmodifybookstyle.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_

59、reader_info_Click()</p><p>　　frmreaderinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub del_reader_style_Click()</p><p>　　frmmodifyreaderstyle.Show<

60、/p><p><b>　　End Sub</b></p><p>　　Private Sub exit_sys_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private

61、 Sub find_book_info_Click()</p><p>　　frmfindbook.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub find_lend_book_Click()</p><p>　　frmfindborrowinfo.Show<

62、;/p><p><b>　　End Sub</b></p><p>　　Private Sub find_reader_info_Click()</p><p>　　frmfindreader.Show</p><p><b>　　End Sub</b></p><p>　　Pr

63、ivate Sub modify_book_info_Click()</p><p>　　frmmodifybookinfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub modify_book_style_Click()</p><p>　　frmmodify

64、bookstyle.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub modify_reader_info_Click()</p><p>　　frmreaderinfo.Show</p><p><b>　　End Sub</b></p

65、><p>　　Private Sub modify_reader_style_Click()</p><p>　　frmmodifyreaderstyle.Show</p><p><b>　　End Sub</b></p><p>　　3.2.2 圖書管理模塊的設計與實現(xiàn)</p><p>　　圖書管

66、理模塊主要由:圖書類別管理,圖書信息管理.</p><p>　　圖書類別管理又分別由以下幾個界面構(gòu)成:</p><p><b>　　添加圖書類別</b></p><p><b>　　添加圖書類別代碼:</b></p><p>　　Private Sub Command1_Click()</p&

67、gt;<p>　　Dim rs_bookstyle As New ADODB.Recordset</p><p>　　Dim sql As String</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "圖書種類不能為空", vbOKOnly +

68、vbExclamation, ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text2.Text) = ""

69、Then</p><p>　　MsgBox "種類編號不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If&

70、lt;/b></p><p>　　sql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & "'"</p><p>　　rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic</p>

71、<p>　　If rs_bookstyle.EOF Then</p><p>　　rs_bookstyle.AddNew</p><p>　　rs_bookstyle.Fields(0) = Trim(Text1.Text)</p><p>　　rs_bookstyle.Fields(1) = Trim(Text2.Text)</p>&l

72、t;p>　　rs_bookstyle.Update</p><p>　　MsgBox "添加圖書類別成功！", vbOKOnly, ""</p><p>　　rs_bookstyle.Close</p><p><b>　　Else</b></p><p>　　MsgBox

73、"讀者類別重復！", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　rs_bookstyle.Close</p><p><b>　　Exi

74、t Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　修改圖書類別:</b></p><p><b>　　修改圖書類別代碼:</b></p&g

75、t;<p>　　Private Sub Form_Load()</p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 圖書類別"</p><p>　　rs_reader.Curs

76、orLocation = adUseClient</p><p>　　rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic </p><p>　　cmdupdate.Enabled = False</p><p>　　DataGrid1.AllowAddNew = False

77、 </p><p>　　DataGrid1.AllowDelete = False </p><p>　　DataGrid1.AllowUpdate = False</p><p>　　If userpow = "guest" Then

78、 </p><p>　　Frame2.Enabled = False</p><p><b>　　End If</b></p><p>　　Set DataGrid1.DataSource = rs_reader</p><p><b>　　Ex

79、it Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　　3.2.3 讀者管理模塊的設計與實現(xiàn)</p><p>　　1.添加讀者類別界面:&l

80、t;/p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "讀者種類不能為空", vbOKOnly + vbExcl

81、amation, ""</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text2.Text) = "" Then&l

82、t;/p><p>　　MsgBox "借書數(shù)量不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b&

83、gt;</p><p>　　If Trim(Text3.Text) = "" Then</p><p>　　MsgBox "借書期限不能為空", vbOKOnly + vbExclamation, ""</p><p>　　Text3.SetFocus</p><p><b&g

84、t;　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Trim(Text4.Text) = "" Then</p><p>　　MsgBox "有限期限不能為空", vbOKOnly + vbExclamation, "&quo

85、t;</p><p>　　Text4.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　sql = "select * from 讀者類別 where 種類名稱='" &

86、Text1.Text & "'"</p><p>　　rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　If rs_readerstyle.EOF Then</p><p>　　rs_readerstyle.AddNew</p&g

87、t;<p>　　rs_readerstyle.Fields(0) = Trim(Text1.Text)</p><p>　　rs_readerstyle.Fields(1) = CInt(Text2.Text)</p><p>　　rs_readerstyle.Fields(2) = CInt(Text3.Text)</p><p>　　rs_read

88、erstyle.Fields(3) = CInt(Text4.Text)</p><p>　　rs_readerstyle.Update</p><p>　　MsgBox "添加讀者類別成功！", vbOKOnly, ""</p><p>　　rs_readerstyle.Close</p><p>&

89、lt;b>　　Else</b></p><p>　　MsgBox "讀者類別重復！", vbOKOnly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　

90、　rs_readerstyle.Close</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　查詢讀者信息</b><

91、/p><p><b>　　代碼分析:</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim rs_findreader As New ADODB.Recordset</p><p>　　Dim sql As String</p><p>　　

92、If Check1.Value = vbChecked Then</p><p>　　sql = "讀者編號='" & Trim(Text1.Text & " ") & "'"</p><p><b>　　End If</b></p><p>　

93、　If Check2.Value = vbChecked Then</p><p>　　If Trim(sql) = "" Then</p><p>　　sql = "讀者姓名='" & Trim(Text2.Text & " ") & "'"</p>&l

94、t;p><b>　　Else</b></p><p>　　sql = sql & "and 讀者姓名='" & Trim(Text2.Text & " ") & "'"</p><p><b>　　End If</b></p&g

95、t;<p><b>　　End If</b></p><p>　　If Check3.Value = vbChecked Then</p><p>　　If Trim(sql) = "" Then</p><p>　　sql = "讀者類別='" & Trim(Combo1.

96、Text & " ") & "'"</p><p><b>　　Else</b></p><p>　　sql = sql & "and 讀者類別='" & Trim(Combo1.Text & " ") & "&#

97、39;"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　sql = "select * from 讀者信息 where " & sql</p><p>　　rs_findreader.Cu

98、rsorLocation = adUseClient</p><p>　　rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowDelete = False</p

99、><p>　　DataGrid1.AllowUpdate = False</p><p>　　Set DataGrid1.DataSource = rs_findreader</p><p>　　'rs_findreader.Close</p><p><b>　　End Sub</b></p><

100、;p>　　圖書借閱管理模塊的設計與實現(xiàn)</p><p><b>　　代碼實現(xiàn):</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As String</p><p>　　Dim rs_find As New ADODB.Recordset<

101、;/p><p>　　If Option1.Value = True Then</p><p>　　sql = "select * from 書籍信息 where 是否被借出='是'"</p><p><b>　　End If</b></p><p>　　If Option2.Value =

102、 True Then</p><p>　　sql = "select * from 書籍信息 where 是否被借出='否'"</p><p><b>　　End If</b></p><p>　　If Option3.Value = True Then</p><p>　　sql =

103、 "select * from 借閱信息 where 讀者姓名='" & Text1.Text & "'"</p><p><b>　　End If</b></p><p>　　rs_find.CursorLocation = adUseClient</p><p>　　r

104、s_find.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　DataGrid1.AllowAddNew = False</p><p>　　DataGrid1.AllowDelete = False</p><p>　　DataGrid1.AllowUpdate = False</p>

105、<p>　　Set DataGrid1.DataSource = rs_find</p><p><b>　　End Sub</b></p><p>　　3.2.5系統(tǒng)管理模塊的設計與實現(xiàn)</p><p>　　Private Sub Command1_Click()</p><p>　　Dim sql As

106、 String</p><p>　　Dim rs_add As New ADODB.Recordset</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, ""</p

107、><p><b>　　Exit Sub</b></p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select * from 系統(tǒng)管理"</p><p>　　rs_add.Open

108、 sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　While (rs_add.EOF = False)</p><p>　　If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then</p><p>　　MsgBox "已有這個用戶", vbOKOn

109、ly + vbExclamation, ""</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p&

110、gt;<p>　　Combo1.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs_add.MoveNext</p><p><b>　　End If</b

111、></p><p><b>　　Wend</b></p><p>　　If Trim(Text2.Text) <> Trim(Text3.Text) Then</p><p>　　MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, ""</p&g

112、t;<p>　　Text2.SetFocus</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p><b>　　Exit Sub</b></p><p>　　ElseIf Trim(Combo1.Tex

113、t) <> "system" And Trim(Combo1.Text) <> "guest" Then</p><p>　　MsgBox "請選擇正確的用戶權限", vbOKOnly + vbExclamation, ""</p><p>　　Combo1.SetFocus</p

114、><p>　　Combo1.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rs_add.AddNew</p><p>　　rs_add.Fields(0) = Tex

115、t1.Text</p><p>　　rs_add.Fields(1) = Text2.Text</p><p>　　rs_add.Fields(2) = Combo1.Text</p><p>　　rs_add.Update</p><p>　　rs_add.Close</p><p>　　MsgBox "添

116、加用戶成功", vbOKOnly + vbExclamation, ""</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>&

117、lt;b>　　End Sub</b></p><p><b>　　致 謝</b></p><p>　　在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。他認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學習都有一種巨大的幫助，感謝他細心而又耐

118、心的輔導。</p><p><b>　　參考文獻</b></p><p>　　［1］黃孝章.《信息系統(tǒng)分析與設計》.清華大學出版社.2010</p><p>　?。?］郭東強.《現(xiàn)代管理信息系統(tǒng)》.清華大學出版社.2010</p><p>　　［3］吳功宜.《計算機網(wǎng)絡教程》.電子工業(yè)出版社.2010</p>

119、<p>　　［4］高巍巍.《數(shù)據(jù)庫基礎與應用》.清華大學出版社.2011</p><p>　?。?］李春葆.《ASP.NET2.0動態(tài)網(wǎng)站設計教程——基于VB+Access》.2010</p><p>　?。?］陳禹.《信息管理與信息系統(tǒng)概論》.中國人民大學出版社.2005</p><p>　?。?］徐建華.《現(xiàn)代圖書館管理》.南開大學出版社.2010

120、</p><p>　?。?］付立宏.《圖書館管理學》.武漢大學出版社.2005</p><p>　　［9］蘇新寧.《數(shù)據(jù)倉庫與挖掘》.清華大學出版社.2006</p><p>　?。?0］李寶山.《管理系統(tǒng)工程》.中國人民大學出版社.2003</p><p>　　［11］麻志毅.《面向?qū)ο蠓治雠c設計》.機械工業(yè)出版社.2008</p&g