VB圖書館管理系統(tǒng)課程設計

1、交通運輸學院課程設計交通運輸學院VB課程設計學 院 班 級 姓 名 學 號 成 績 指導老師 2012年 7 月3 日指導教師評語及成績指導教師評語                           成績         導師簽字： 年 月 日 所在系： 課程名稱： 指導教師（簽名）： 專業(yè)班級： 學生姓名： 學號： 一、課程設計題目圖書管理系統(tǒng)二、課程設計的目的1.學習和鞏固VB程序設計的方法（面向過程的程序設計方法和面向

2、對象的程序設計方法），充分體會VB在程序設計方面的強大功能和獨特之處；2.了解用VB開發(fā)項目的一般過程，培養(yǎng)運用VB解決實際問題的工作能力。三、課程設計的主要內(nèi)容和要求（包括原始數(shù)據(jù)、技術參數(shù)、設計要求、工作量要求等） 主要內(nèi)容：1. 學習Access數(shù)據(jù)庫相關知識和軟件的操作方法；2. 實現(xiàn)Visual Basic使用ADO接口與數(shù)據(jù)庫連接的方法，首先使用ADO控件進行簡單測試，如果能夠直接顯示數(shù)據(jù)就算成功；3. 設計實現(xiàn)用戶登錄窗口，需要在數(shù)據(jù)庫中建一個用戶表，在里面保存用戶名和密碼，然后才能與用戶在窗口輸入的信息進行校驗；4. 用一個窗體實現(xiàn)數(shù)據(jù)的添加，刪除和修改；5. 用一至多個窗體實

3、現(xiàn)數(shù)據(jù)的模糊查詢功能。設計基本要求：1. 能夠?qū)崿F(xiàn)圖書的添加、刪除和修改功能；2. 能夠?qū)崿F(xiàn)按書名模糊查詢，即只輸入書名的一部分即可進行查詢；3. 能夠?qū)崿F(xiàn)按作者姓名模糊查詢；4. 能夠?qū)崿F(xiàn)按價格區(qū)間查詢；5. 能夠?qū)崿F(xiàn)按出版年份查詢；6. 能夠?qū)崿F(xiàn)上述多個條件組合查詢，即可以輸入書名，作者，價格區(qū)間，出版社中的幾項來查詢；7. 能夠?qū)崿F(xiàn)輸入一個關鍵詞，由程序在書名，作者和出版社中進行查找；8. 上面的查詢只需列出簡要信息即可，可由用戶單擊書名再查詢某一本書的全部信息。四、工作進度安排 20112012學年第二學期：第19-20周 共計2周。第19周 程序設計及調(diào)試；第20周 撰寫完成課程設計

4、說明書。五、主要參考文獻1Visual Basic+Access 數(shù)據(jù)庫開發(fā)與實例（含光盤）重點推薦作者： 劉文濤 編著出 版 社： 清華大學出版社出版時間： 2006-7-1 2Visual Basic程序設計全程指南(含光盤1張) 作者： 瞿彬，王鳳林 編著出 版 社： 電子工業(yè)出版社出版時間： 2009-4-1 3Visual Basic+Access數(shù)據(jù)庫應用系統(tǒng)開發(fā)與實例（附光盤一張） 作者： 啟明工作室 編著出 版 社： 人民郵電出版社出版時間： 2004-11-1 4Visual BASIC+Access數(shù)據(jù)庫項目開發(fā)實踐（附CD-ROM光盤一張）作者： 周國民 編著出 版 社：

5、 中國鐵道出版社出版時間： 2005-1-1 5Visual Basic+Access數(shù)據(jù)庫應用實例完全解析（附光盤）作者： 李敏業(yè)，王穎 編著出 版 社： 人民郵電出版社出版時間： 2006-4-1 6VB數(shù)據(jù)庫程序設計實驗指導作者： 劉白林主編出 版 社： 西安交通大學出版社出版時間： 2009-3-1 7VB程序設計與數(shù)據(jù)庫全國高職高專一體化教學（信息與通信專業(yè)）通用教材作者： 黃振軒，宋衛(wèi)海，林立松主編出 版 社： 山東科學技術出版社出版時間： 2007-9-1 8Visual Basic 2008從入門到精通（微軟技術叢書）作者： （美）哈爾弗森著，湯涌濤譯出 版 社： 清華大學出版

6、社出版時間： 2008-6-1除上述圖書以外，關于Visual Basic和Access 開發(fā)的網(wǎng)絡資源非常豐富，也非常詳細，請大家多上網(wǎng)搜索相關資料。審核批準意見系主任（簽字） 年月日目 錄第一章 概述1.1開發(fā)背景1.2管理信息系統(tǒng)產(chǎn)生的背景1.3系統(tǒng)功能要求的分析第二章 開發(fā)環(huán)境及實現(xiàn)技術介紹2.1開發(fā)環(huán)境2.2開發(fā)工具簡介第三章 圖書管理系統(tǒng)的設計和實現(xiàn)3.1系統(tǒng)的設計3.1.1概要設計3.1.2詳細設計3.2系統(tǒng)的實現(xiàn)3.2.1主界面的設計與實現(xiàn)3.2.2圖書管理模塊的設計與實現(xiàn)3.2.3讀者管理模塊的設計與實現(xiàn)3.2.4圖書借閱管理模塊的實現(xiàn)3.2.5系統(tǒng)管理模塊的設計與實現(xiàn)第四章

7、 總結第一章 概述1.1開發(fā)背景在圖書管理系統(tǒng)用計算機管理圖書是一種計算機應用技術的創(chuàng)新,在計算機還未普及之前圖書管理都是由圖書管理人員手工記帳的方式來操作的.現(xiàn)在一般的圖書館都是采用計算機作為工具的實用的計算機圖書管理程序來幫助圖書館管理員進行更有效的圖書管理。1.2圖書管理系統(tǒng)產(chǎn)生的背景圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提

8、供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。 1.3 系統(tǒng)功能要求的分析圖書管理系統(tǒng)主要服務與圖書管理人員,包含的功能模塊主要有:一. 圖書管理:圖書類別管理,圖書信息管理二. 讀者管理:讀者管理,讀者信息管理.三. 圖書借閱管理:借書管理,還書管理.四. 系統(tǒng)管理:添加管理員,修改密碼,退出系統(tǒng)第二章 開發(fā)環(huán)境及實現(xiàn)技術介紹2.1開發(fā)環(huán)境2.2 開發(fā)軟件介紹本系統(tǒng)所采用的編程語言為visual basic 6.0與 微軟的 access作為操作數(shù)

9、據(jù)庫.現(xiàn)分別對其簡單介紹:Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Basic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得Visual Basic越來越適合一般的應用程序開發(fā)。正如Bill Gate所說，世界上絕大多數(shù)的Windows應用程序是用Visual Basic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual Basic6.0呢？因為VB具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下：u 開發(fā)的高效u 語言的高效u 編譯的高效u 執(zhí)行的高效u

10、維護的高效基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具！主要的控件及其基本屬性，事件簡介u 命令按鈕類的控件：1) Caption屬性：用來顯示在控件上的標題。2) Enable屬性：控制控件的激活狀態(tài)灰色或可用。3) Appearance屬性：值為1時,則以3D效果顯示該控件,0則不然。4) Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。5) Cancel屬性：該屬性決定按鈕是否為一個”取消”按鈕。6) Default屬性:決定哪一個命令按鈕控件是窗體的缺省命令按鈕.7) Font屬性:控制各種文字字體類型.8) Left,top,height,width屬性:

11、設定控件的位置與大小.9) Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).10) Visible屬性:確定控件運行時是否為可見.11) Index屬性:當控件為一控件數(shù)組時,此屬性值為該控件在數(shù)組的下標值.12) DownPicture屬性：設置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時顯示。13) DisabledPicture屬性：設置/返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。14) MaskColor屬性：設置/返回一個在按鈕的圖片中作為“掩碼“的的顏色15) Picture屬性：設置返回commandButton控件中要顯示的圖片。u

12、 命令按鈕類的事件：1） 單擊事件Click事件（1） 觸發(fā)與適用此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發(fā)生。命令按鈕的Click事件僅對當單擊鼠標時發(fā)生。（2） 事件處理過程按鈕單擊事件的處理過程為： Private Sub object-Click（Index As Integer）其中Object為引發(fā)該事件的對象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標識該控件。2） 獲得焦點GotFocus事件（1） 觸發(fā)與適用 當命令按鈕獲得焦點產(chǎn)生該事件，獲得焦點可以通過諸如Tab切換或單擊對象之類的用戶動作，或在代碼中用SetFocus方法改變焦點來實現(xiàn)。（2

13、） 事件處理過程命令按鈕GotFoucs事件處理過程為：Private Sub Object-GotFocus（Index As Integer）3） LostFocus事件：當一個對象失去焦點時發(fā)生4） KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生5） KeyUp事件：當命令按鈕具有焦點時釋放一個鍵時發(fā)生。6） KeyPress事件：當用戶按下或松開一個ANSI鍵時發(fā)生。7） MouseDown事件：當在命令按鈕上按下鼠標按鈕時發(fā)生。8） MouseMove事件：當命令按鈕上移動鼠標時發(fā)生。9） MouseUp事件：當在命令按鈕上釋放鼠標按鈕時發(fā)生。 u 標簽框類的控件類的控件：

14、1) Caption屬性：在應用程序界面上加入說明。2) Autosize屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。3) Backstyle屬性：用以指示標簽是否透明.4) Bordstyle屬性:用以設定控件是否有邊框。u 文本框類的控件：1) Text屬性：通過像text屬性賦值的方法來改變該屬性的值。2) Maxlength屬性：該屬性設定在文本框控件中能夠輸入的最大字符數(shù)。3) Multline屬性：該屬性設定text字符串中是否接受換行符。4) Scrollbars屬性：該屬性決定是否為文本框加滾動條。5) Passwordchar屬性：該屬性設定輸入文本的特殊顯示字符,在設計

15、密碼程序時非常有用。6) Change事件屬性：文本框的內(nèi)容發(fā)生改變時,相應的控件之間發(fā)生相應的改變,具有即時性。7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。8) Alignment屬性：設定控件中的文本對其方式9) Appearance屬性：設定一個對象在運行時是否可以3D效果顯示。10) BackColor屬性：設置返回背景色11) BorderStyle屬性：設置對象的邊框樣式12) DataField屬性：設定數(shù)據(jù)使用者將被綁定到的字段名13) DataFormat屬性：設定DataFormat對象，用于數(shù)據(jù)綁定14) DataMember屬性：從數(shù)據(jù)供應程序提供的幾

16、個數(shù)據(jù)成員中返回/設定一個特定的數(shù)據(jù)成員15) DataSource屬性：設定控件綁定的一個數(shù)據(jù)源16) DragIcon屬性：設定圖標，它將在拖放操作中作為指針顯示17) DragMode模式：設定一個值，確定在拖放操作中所用方式18) Enabled屬性：設置/返回運行時TextBox是否相應用戶事件19) Font屬性：設置/返回字體屬性20) ForeColor屬性：設置/返回文本的前景色21) Height屬性：設置/返回TextBox的高度22) IMEMode屬性：設置/返回數(shù)值用來確定輸入方法編輯器的狀態(tài)23) Index屬性：設置/返回唯一的標識控件數(shù)組中該控件的編號24)

17、Left屬性：設置/返回TextBox控件的水平位置25) Locked屬性：設置/返回TextBox中文本是否可編輯26) LinkItem屬性：設置/返回DDE與另一個應用程序會話時，傳給接受端的數(shù)據(jù)27) MaxLength屬性：設置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值28) MouseIcon屬性：設置/返回自定義鼠標的圖標29) Top屬性：設置/返回TextBox控件的垂直位置30) Tag屬性：存儲過程所需的附加數(shù)據(jù)u 文本框類的事件：1） Change事件：當改變文本框內(nèi)容時發(fā)生2） Click事件：鼠標單擊控件時發(fā)生3） DblClick事件：用鼠標左

18、鍵雙擊控件時發(fā)生4） DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設置為2時發(fā)生5） DragOver事件：在拖放操作正在進行時發(fā)生6） GotFocus事件：當一個命令按鈕獲得焦點時發(fā)生7） LinkClose事件：當一個DDE對話結束時發(fā)生8） LinkError事件：當一個DDE對話框過程中出現(xiàn)錯誤時，該事件發(fā)生9） KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生10） Validate事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的Causes Validation 屬性值設置為Trueu 單選按鈕類的控件：1) Caption屬

19、性：顯示在控件上的文本,是單選按鈕的標題。2) Alignment屬性：決定單選按鈕的標題在控件上的位置。3) Enable屬性：該控件為灰色時為false,表示運行時不可用。4) Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。5) Tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。6) Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。7) Appearance 屬性：設置/返回一個對象在運行時是否以3D效果顯示。8) BackColor 屬性：設置/返回背景色。9) Container 屬性：

20、設置/返回Form上的控件屬性。10) DataField 屬性：設置/返回數(shù)據(jù)使用者將被綁定到的字段名。11) DataFormat 屬性：設置/返回DataFormat對象，一個綁定對象將附加到它。12) DisabledPicture 屬性：設置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。13) DownPicture 屬性：設置/返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。14) DragMode 屬性：設置/返回一個值，確定在拖放操作中所用的方式。15) Font 屬性：設置/返回字體屬性。16) FontBold 屬性：設置/返回字體粗體樣式。17) F

21、ontItalic 屬性：設置/返回字體斜體樣式。 18) FontStrikethru 屬性：設置/返回字體刪除線樣式。19) FontUnderLine 屬性：設置/返回字體下劃線樣式。20) FontName 屬性：設置/返回控件中顯示文本所用的字體大小。21) FontSize 屬性：設置/返回控件中顯示文本所用的字體大小22) Height 屬性：設置/返回控件的高度。23) MaskColor 屬性：設置/返回一個在控件的圖片中作為掩碼的顏色。24) MousePointer 屬性：設置/返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。u 單選按鈕類的常用事件：1）

22、 Click 事件：鼠標單擊控件時發(fā)生。2） DbClick事件： 當在一個對象上按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發(fā)生。3） DragDrop事件：在一個完整的拖放動作或使用Drag方法，并將其Action參數(shù)設置位2時，該事件發(fā)生。4） DragOver事件： 在拖放操作正在進行時發(fā)生。5） GotFocus事件： 當獲的對象焦點時發(fā)生。6） LostFocus事件：當對象失去焦點時發(fā)生。7） KeyDown事件：當控件具有焦點時按下一個鍵時發(fā)生。8） KeyUp事件： 當控件具有焦點時釋放一個鍵時發(fā)生。9） KeyPress事件：當用戶按下或釋放ANSI一個鍵時發(fā)生。10）

23、 MouseDown事件：當在控件上按下鼠標鍵時發(fā)生。11） MouseMove事件：在控件上移動鼠標時發(fā)生。12） MouseUp事件：在控件上釋放鼠標時發(fā)生。u 復選按鈕類的控件：1) Caption屬性：缺省為check1。2) Index屬性:該屬性值為復選框控件數(shù)組的下標.3) Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.4) Container屬性：Form控件上的容器。5) DataChangeed屬性：設置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。6) DataField屬性：設置或返回數(shù)據(jù)使用者將被綁定到的字段名。7) DataForma

24、t 屬性：設置或返回DataFormat對象，用于數(shù)據(jù)綁定。8) Datasource屬性：設置或返回控件綁定的一個數(shù)據(jù)源。9) DisabledPicture屬性：設置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。10) DownPicture 屬性：設置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。11) DragIcon屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。12) DragMode屬性：設置返回一個值，確定在拖放操作中所用方式。13) Font屬性：設置或返回字體的屬性。14) Name屬性：設置或返回控件的標識名。15) Value屬性：設置或返

25、回控件的狀態(tài)。u 復選按鈕類的控件的基本事件：1） Click事件：鼠標單擊控件時發(fā)生。2） DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設置為2時發(fā)生。3） DragOver事件：在拖放操作正在進行時發(fā)生。4） GotFocus事件：在對象獲的焦點時發(fā)生。，5） OLECompleteDrag事件：當源部件被放到目標時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。6） OLEDragDrag事件：當源部件決定放操作能發(fā)生，卻源部件被放到目標部件時，此事件發(fā)生。u 框架類的控件：1) List屬性：列表框控件的表項是使用數(shù)組的方式保存,數(shù)組的每一個元素存儲

26、列表控件的一個表項1) Listcount屬性:控件列表部分項目的個數(shù)。2) Mutselect屬性:可以設置列表框為單選或允許多選屬性.3) Selectd屬性:標示一個數(shù)組,數(shù)組各元素為:4) Selected(0),selected(1)u 滾動條類的控件：1) Value屬性：滾動條上滑塊所在位置由value值所決定。2) Max和min屬性：對value值的最大,最小進行限制。3) Largechange屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時,value的改變量。4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。u 定時器類類的控件：1) Interval屬性：表示定

27、時的時間間隔,以毫秒為單位。2) Enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態(tài).數(shù)據(jù)庫連接方式選擇Visual basic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveX Data Objects)進行編程:現(xiàn)在我們來大致對這幾種技術應用介紹：一、 用data控件進行數(shù)據(jù)庫鏈接.第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，

28、在庫中建立一個表Myset，給表添加四個字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有Access，可通過VB建庫。二、 利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用DAO對數(shù)據(jù)庫進行操縱:在visual basic 中提供了兩種與

29、jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.DAO模型是設計關系數(shù)據(jù)庫系統(tǒng)結構的對象類的集合.他們提供了管理關系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關系,定位和查詢數(shù)據(jù)庫等.關系數(shù)據(jù)庫介紹:關系數(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ā)展的歷史上，最重要的成就就

30、是關系模型。 關系數(shù)據(jù)庫系統(tǒng)與非關系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關系系統(tǒng)只有“表“這一種數(shù)據(jù)結構；而非關系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結構，對這些數(shù)據(jù)結構有其他的操作。結構化查詢語言SQL（Structured Query Language）是一種介于關系代數(shù)與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數(shù)據(jù)庫語言。目前已成為關系數(shù)據(jù)庫的標準語言 Microsoft Access介紹:使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空

31、間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時，Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在

32、“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。第三章 圖書管理系統(tǒng)的設計與實現(xiàn)3.1 系統(tǒng)的設計3.1.1系統(tǒng)的概要設計該系統(tǒng)考慮將整個系統(tǒng)分解成如下模塊:主界面圖書管理圖書信息管理讀者類別管理讀者信息管理圖書借閱管理借書管理還書管理系統(tǒng)管理登錄圖書類別管理讀者管理3.1.2 系統(tǒng)的詳細設計1.讀者類別表2.讀者信息表:3. 借閱信息表:4. 書籍信息表:5.圖書類別表:6.系統(tǒng)管理表:3.2 系統(tǒng)的設計與實現(xiàn)

33、3.2.1 系統(tǒng)的主界面的設計與實現(xiàn)主界面代碼:Private Sub add_admin_Click()frmadduser.ShowEnd SubPrivate Sub add_back_book_Click()frmbackbookinfo.ShowEnd SubPrivate Sub add_book_info_Click()frmaddbookinfo.ShowEnd SubPrivate Sub add_book_style_Click()frmaddbookstyle.ShowEnd SubPrivate Sub add_lend_book_Click()frmfindbook.

34、ShowEnd SubPrivate Sub add_reader_info_Click()frmaddreaderinfo.ShowEnd SubPrivate Sub add_reader_style_Click()frmaddreaderstyle.ShowEnd SubPrivate Sub change_pwd_Click()frmchangepwd.ShowEnd SubPrivate Sub del_book_info_Click()frmmodifybookinfo.ShowEnd SubPrivate Sub del_book_style_Click()frmmodifybo

35、okstyle.ShowEnd SubPrivate Sub del_reader_info_Click()frmreaderinfo.ShowEnd SubPrivate Sub del_reader_style_Click()frmmodifyreaderstyle.ShowEnd SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()frmfindbook.ShowEnd SubPrivate Sub find_lend_book_Click()frmfindborrowinfo.ShowEn

36、d SubPrivate Sub find_reader_info_Click()frmfindreader.ShowEnd SubPrivate Sub modify_book_info_Click()frmmodifybookinfo.ShowEnd SubPrivate Sub modify_book_style_Click()frmmodifybookstyle.ShowEnd SubPrivate Sub modify_reader_info_Click()frmreaderinfo.ShowEnd SubPrivate Sub modify_reader_style_Click()

37、frmmodifyreaderstyle.ShowEnd Sub3.2.2 圖書管理模塊的設計與實現(xiàn)圖書管理模塊主要由:圖書類別管理,圖書信息管理.圖書類別管理又分別由以下幾個界面構成:1. 添加圖書類別添加圖書類別代碼:Private Sub Command1_Click()Dim rs_bookstyle As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "圖書種類不能為空", vbOKOnly + vbExclamation, "&quo

38、t; Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "種類編號不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd Ifsql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & "'"rs_bookstyle.Open sql, conn, adOpenKe

39、yset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text2.Text) rs_bookstyle.Update MsgBox "添加圖書類別成功！", vbOKOnly, "" rs_bookstyle.CloseElse MsgBox "讀者類別重復！", vbOKOnly + vbExclamation

40、, "" Text1.SetFocus Text1.Text = "" rs_bookstyle.Close Exit SubEnd IfEnd Sub2. 修改圖書類別:修改圖書類別代碼:Private Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 圖書類別"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPe

41、ssimistic '打開數(shù)據(jù)庫cmdupdate.Enabled = False'設定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '權限相關 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readerExit Subloaderror:

42、MsgBox Err.DescriptionEnd Sub3.2.3 讀者管理模塊的設計與實現(xiàn)1.添加讀者類別界面:Private Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "讀者種類不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "借書數(shù)量不能為

43、空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = "" Then MsgBox "借書期限不能為空", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = "" Then MsgBox "有限期限不能為空", vbOKOnly + vbExcl

44、amation, "" Text4.SetFocus Exit SubEnd Ifsql = "select * from 讀者類別 where 種類名稱='" & Text1.Text & "'"rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_readerstyle.EOF Then rs_readerstyle.AddNew rs_readerstyle.Fields(0) = Trim(Text1.Text)

45、rs_readerstyle.Fields(1) = CInt(Text2.Text) rs_readerstyle.Fields(2) = CInt(Text3.Text) rs_readerstyle.Fields(3) = CInt(Text4.Text) rs_readerstyle.Update MsgBox "添加讀者類別成功！", vbOKOnly, "" rs_readerstyle.CloseElse MsgBox "讀者類別重復！", vbOKOnly + vbExclamation, "" T

46、ext1.SetFocus Text1.Text = "" rs_readerstyle.Close Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_Click()Dim rs_findreader As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then sql = "讀者編號='" & Trim(Text1.Text & " ") & "&#

47、39;"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "讀者姓名='" & Trim(Text2.Text & " ") & "'" Else sql = sql & "and 讀者姓名='" & Trim(Text2.Text & " ") & "'" End IfEn

48、d IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "讀者類別='" & Trim(Combo1.Text & " ") & "'" Else sql = sql & "and 讀者類別='" & Trim(Combo1.Text & " ") & "'" End IfEnd Ifsql =

49、 "select * from 讀者信息 where " & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findreader'rs_findreader.Clo

50、seEnd Sub3.2.4 圖書借閱管理模塊的設計與實現(xiàn)代碼實現(xiàn):Private Sub Command1_Click()Dim sql As StringDim rs_find As New ADODB.RecordsetIf Option1.Value = True Then sql = "select * from 書籍信息 where 是否被借出='是'"End IfIf Option2.Value = True Then sql = "select * from 書籍信息 where 是否被借出='否'"End

51、 IfIf Option3.Value = True Then sql = "select * from 借閱信息 where 讀者姓名='" & Text1.Text & "'"End If rs_find.CursorLocation = adUseClient rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.Allo

52、wUpdate = False Set DataGrid1.DataSource = rs_findEnd Sub3.2.5系統(tǒng)管理模塊的設計與實現(xiàn)Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse sql = "selec