楊國椿vb圖書管理系統(tǒng)設(shè)計(jì)

1、 成人高等學(xué)歷教育本科畢業(yè)論文 題目： VB圖書管理系統(tǒng)設(shè)計(jì) 學(xué)習(xí)形式： 函 授 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 層次學(xué)制： 專升本 年 級： 2013級 學(xué) 號： 226A1301055 學(xué)生姓名： 楊國椿 導(dǎo)師姓名： 林暉 2015年 7月15 日VB圖書管理系統(tǒng)設(shè)計(jì)學(xué)號：226A1301055 作者：楊國椿 指導(dǎo)教師：林暉【摘要】計(jì)算機(jī)的應(yīng)用越來越廣泛，在圖書管理系統(tǒng)中，用計(jì)算機(jī)管理圖書管理是一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前圖書管理都是由圖書管理人員手工記帳的方式來操作的.現(xiàn)在一般的圖書館都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)圖書管理程序來幫助圖書館管理員進(jìn)行更有效的圖書管理。該

2、論文著重論述了運(yùn)用vb程序設(shè)計(jì)與后臺數(shù)據(jù)庫鏈接等關(guān)鍵技術(shù)所建立系統(tǒng)界面的布局分析，功能的實(shí)現(xiàn)及管理。圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面?！娟P(guān)鍵字】圖書，面向?qū)ο螅浖こ?，管理系統(tǒng)，設(shè)計(jì)目 錄第一章 概述. 21.1開發(fā)背景. 21.2管理信息系統(tǒng)產(chǎn)生的背景. 21.3系統(tǒng)功能要求的分析. 2第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)介紹. 32.1開發(fā)環(huán)境. 32.2開發(fā)工具簡介. 4第三章 圖書管理系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn). 83.1系統(tǒng)的設(shè)計(jì). 83.1.1概要設(shè)計(jì). 83.1.2詳細(xì)設(shè)計(jì) 83.2系統(tǒng)的實(shí)現(xiàn) 93.2.1主界面的設(shè)計(jì)與

3、實(shí)現(xiàn).93.2.2圖書管理模塊的設(shè)計(jì)與實(shí)現(xiàn).113.2.3讀者管理模塊的設(shè)計(jì)與實(shí)現(xiàn).133.2.4圖書借閱管理模塊的實(shí)現(xiàn)163.2.5系統(tǒng)管理模塊的設(shè)計(jì)與實(shí)現(xiàn).17第四章 圖書管理系統(tǒng)的運(yùn)行說明.184.1運(yùn)行環(huán)境18致 謝19參考文獻(xiàn)20第一章 概述1.1開發(fā)背景在信息化時(shí)代，數(shù)據(jù)庫系統(tǒng)的建設(shè)實(shí)現(xiàn)對數(shù)據(jù)信息化的管理。在此基礎(chǔ)上建立了圖書管理系統(tǒng)，為其信息時(shí)代管理和交流提供了極大的便利.現(xiàn)在一般的圖書館都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)圖書管理程序來幫助圖書館管理員進(jìn)行更有效的圖書管理。1.2圖書管理系統(tǒng)產(chǎn)生的背景圖書管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維

4、護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。 1.3 系統(tǒng)功能要求的分析圖書管理系統(tǒng)主要服務(wù)與圖書管理人員,包含的功能模塊主要有:一. 圖書管理:圖書類別管理,圖書信息管理二. 讀者管理:讀者管理,讀者信息管理.三. 圖書借

5、閱管理:借書管理,還書管理.四. 系統(tǒng)管理:添加管理員,修改密碼,退出系統(tǒng)第二章 開發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)介紹2.1開發(fā)環(huán)境硬件平臺CPUIntel P4 1.5G主板Intel 850芯片組的GA-8TX-C內(nèi)存2×128M的三星Rambus內(nèi)存硬盤Seagate Barracuda 7200.7 80G顯卡Unika 小妖G9800顯示器美格770PF，17寸純平顯示器軟件環(huán)境操作系統(tǒng)Microsoft WindowsXP簡體中文專業(yè)版SP1辦公軟件Microsoft Office 2003顯卡驅(qū)動nVIDIA ForceWare驅(qū)動56.72版For Win2000/XP硬件平臺：&

6、#160;  CPU:2.3GH。   內(nèi)存：2GB。   顯示器：1024×768或更高。軟件平臺：    操作系統(tǒng)：Windows7。    數(shù)據(jù)庫：SQL Server 2008.    開發(fā)環(huán)境：Microsoft  .NET Framework SDK 開發(fā)軟件介紹本系統(tǒng)所采用的編程語言為visual b

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

8、高效u 語言的高效u 編譯的高效u 執(zhí)行的高效u 維護(hù)的高效基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具！主要的控件及其基本屬性，事件簡介u 命令按鈕類的控件：1) Caption屬性：用來顯示在控件上的標(biāo)題。2) Enable屬性：控制控件的激活狀態(tài)灰色或可用。3) Appearance屬性：值為1時(shí),則以3D效果顯示該控件,0則不然。4) Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。Index屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.5) DownPicture屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。u 命令

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

10、GotFoucs事件處理過程為：Private Sub Object-GotFocus（Index As Integer）3） LostFocus事件：當(dāng)一個(gè)對象失去焦點(diǎn)時(shí)發(fā)生4） KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生5） KeyUp事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。u 標(biāo)簽框類的控件類的控件：1) Caption屬性：在應(yīng)用程序界面上加入說明。2) Autosize屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。3) Backstyle屬性：用以指示標(biāo)簽是否透明.4) Bordstyle屬性:用以設(shè)定控件是否有邊框。u 文本框類的控件：1) Text屬性：通過像

11、text屬性賦值的方法來改變該屬性的值。2) Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。3) Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。4) Scrollbars屬性：該屬性決定是否為文本框加滾動條。5) Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計(jì)密碼程序時(shí)非常有用。6) Change事件屬性：文本框的內(nèi)容發(fā)生改變時(shí),相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時(shí)性。7) Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。8) Alignment屬性：設(shè)定控件中的文本對其方式9) Appearance屬性：設(shè)定一個(gè)對象

12、在運(yùn)行時(shí)是否可以3D效果顯示。10) BackColor屬性：設(shè)置返回背景色u 文本框類的事件：1） Change事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生2） Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生3） DblClick事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生4） DragDrop事件：在一個(gè)完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生u 單選按鈕類的控件：1) Caption屬性：顯示在控件上的文本,是單選按鈕的標(biāo)題。2) Alignment屬性：決定單選按鈕的標(biāo)題在控件上的位置。3) Enable屬性：該控件為灰色時(shí)為false,表示運(yùn)行時(shí)不可用。4) Index屬性：屬性值表示為單選

13、按鈕組成的控件中某個(gè)按鈕的索引值。5) Tabindex屬性：建立控件時(shí),vb自動為其分配一個(gè)tabindex值,利用tab鍵可以在控件之間切換焦點(diǎn)。6) MaskColor 屬性：設(shè)置/返回一個(gè)在控件的圖片中作為掩碼的顏色。7) MousePointer 屬性：設(shè)置/返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動到對象上時(shí)顯示的指針類型。u 單選按鈕類的常用事件：1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2） DbClick事件： 當(dāng)在一個(gè)對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。復(fù)選按鈕類的控件：2) Caption屬性：缺省為check1。3) Index屬性:該屬性值為復(fù)選

14、框控件數(shù)組的下標(biāo).4) Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.5) Container屬性：Form控件上的容器。6) DataChangeed屬性：設(shè)置/返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。u 復(fù)選按鈕類的控件的基本事件：1） Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2） DragDrop事件：在一個(gè)完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生。3） DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。u 框架類的控件：1) List屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲列表控件的一個(gè)表項(xiàng)u 滾動

15、條類的控件：1) Value屬性：滾動條上滑塊所在位置由value值所決定。2) Max和min屬性：對value值的最大,最小進(jìn)行限制。3) Largechange屬性：用戶點(diǎn)擊滾動條與鍵頭之間的區(qū)域時(shí),value的改變量。4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。u 定時(shí)器類類的控件：1) Interval屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。2) Enable屬性:為true時(shí)(缺省值),激活定時(shí)器開始計(jì)時(shí);為false時(shí)處于休眠狀態(tài).數(shù)據(jù)庫連接方式選擇Visual basic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是利用

16、adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進(jìn)行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：一、 用data控件進(jìn)行數(shù)據(jù)庫鏈接.第一步：給窗體添加一個(gè)Data控件。第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫，在庫中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有Access，可通過VB建庫。二、 利用a

17、dodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問數(shù)據(jù)庫的界面,用來實(shí)現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用DAO對數(shù)據(jù)庫進(jìn)行操縱:在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合.他們提供了

18、管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀(jì)70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系

19、演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access介紹:使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就

20、要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。第三章 圖書管理系統(tǒng)的設(shè)

21、計(jì)與實(shí)現(xiàn)3.1 系統(tǒng)的設(shè)計(jì)3.1.1系統(tǒng)的概要設(shè)計(jì)該系統(tǒng)考慮將整個(gè)系統(tǒng)分解成如下模塊:主界面圖書管理圖書信息管理讀者類別管理讀者信息管理圖書借閱管理借書管理還書管理系統(tǒng)管理登錄圖書類別管理讀者管理3.1.2 系統(tǒng)的詳細(xì)設(shè)計(jì)1.讀者類別表 2.讀者信息表: 3. 借閱信息表: 4. 書籍信息表: 5.圖書類別表: 6.系統(tǒng)管理表: 3.2 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)3.2.1 系統(tǒng)的主界面的設(shè)計(jì)與實(shí)現(xiàn)主界面代碼:Private Sub add_admin_Click()frmadduser.ShowEnd SubPrivate Sub add_back_book_Click()frmbackbookinf

22、o.ShowEnd SubPrivate Sub add_book_info_Click()frmaddbookinfo.ShowEnd SubPrivate Sub add_book_style_Click()frmaddbookstyle.ShowEnd SubPrivate Sub add_lend_book_Click()frmfindbook.ShowEnd SubPrivate Sub add_reader_info_Click()frmaddreaderinfo.ShowEnd SubPrivate Sub add_reader_style_Click()frmaddreader

23、style.ShowEnd SubPrivate Sub change_pwd_Click()frmchangepwd.ShowEnd SubPrivate Sub del_book_info_Click()frmmodifybookinfo.ShowEnd SubPrivate Sub del_book_style_Click()frmmodifybookstyle.ShowEnd SubPrivate Sub del_reader_info_Click()frmreaderinfo.ShowEnd SubPrivate Sub del_reader_style_Click()frmmodi

24、fyreaderstyle.ShowEnd SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()frmfindbook.ShowEnd SubPrivate Sub find_lend_book_Click()frmfindborrowinfo.ShowEnd SubPrivate Sub find_reader_info_Click()frmfindreader.ShowEnd SubPrivate Sub modify_book_info_Click()frmmodifybookinfo.Sh

25、owEnd SubPrivate Sub modify_book_style_Click()frmmodifybookstyle.ShowEnd SubPrivate Sub modify_reader_info_Click()frmreaderinfo.ShowEnd SubPrivate Sub modify_reader_style_Click()frmmodifyreaderstyle.ShowEnd Sub3.2.2 圖書管理模塊的設(shè)計(jì)與實(shí)現(xiàn)圖書管理模塊主要由:圖書類別管理,圖書信息管理.圖書類別管理又分別由以下幾個(gè)界面構(gòu)成:1. 添加圖書類別添加圖書類別代碼:Private Sub

26、 Command1_Click()Dim rs_bookstyle As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "圖書種類不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "種類編號不能為空", vbOKOnly + vbExclamat

27、ion, "" Text2.SetFocus Exit SubEnd Ifsql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & "'"rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle

28、.Fields(1) = Trim(Text2.Text) rs_bookstyle.Update MsgBox "添加圖書類別成功！", vbOKOnly, "" rs_bookstyle.CloseElse MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_bookstyle.Close Exit SubEnd IfEnd Sub2. 修改圖書類別:修改圖書類別代碼:Private

29、 Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 圖書類別"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打開數(shù)據(jù)庫cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDele

30、te = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readerExit Subloaderror: MsgBox Err.DescriptionEnd Sub3.2.3 讀者管理模塊的設(shè)計(jì)與實(shí)現(xiàn)1.添加讀者類別界面:Private Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text)

31、 = "" Then MsgBox "讀者種類不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "借書數(shù)量不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = "" Then MsgBo

32、x "借書期限不能為空", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = "" Then MsgBox "有限期限不能為空", vbOKOnly + vbExclamation, "" Text4.SetFocus Exit SubEnd Ifsql = "select * from 讀者類別 where 種類名稱='" & Text1.Text

33、& "'"rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_readerstyle.EOF Then rs_readerstyle.AddNew rs_readerstyle.Fields (0) = Trim(Text1.Text) rs_readerstyle.Fields (1) = CInt(Text2.Text) rs_readerstyle.Fields (2) = CInt(Text3.Text) rs_readerstyle.Fields (3) = CIn

34、t(Text4.Text) rs_readerstyle.Update MsgBox "添加讀者類別成功！", vbOKOnly, "" rs_readerstyle.CloseElse MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_readerstyle.Close Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_C

35、lick()Dim rs_findreader As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then sql = "讀者編號='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "讀者姓名='" & Tr

36、im(Text2.Text & " ") & "'" Else sql = sql & "and 讀者姓名='" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "讀者類別='" & Trim(Combo1.T

37、ext & " ") & "'" Else sql = sql & "and 讀者類別='" & Trim(Combo1.Text & " ") & "'" End IfEnd Ifsql = "select * from 讀者信息 where " & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn

38、, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findreader'rs_findreader.CloseEnd Sub3.2.4 圖書借閱管理模塊的設(shè)計(jì)與實(shí)現(xiàn)代碼實(shí)現(xiàn):Private Sub Command1_Click()Dim sql As StringDim rs_find As New ADODB.RecordsetIf Op

39、tion1.Value = True Then sql = "select * from 書籍信息 where 是否被借出='是'"End IfIf Option2.Value = True Then sql = "select * from 書籍信息 where 是否被借出='否'"End IfIf Option3.Value = True Then sql = "select * from 借閱信息 where 讀者姓名='" & Text1.Text & "

40、9;"End If rs_find.CursorLocation = adUseClient rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_findEnd Sub3.2.5系統(tǒng)管理模塊的設(shè)計(jì)與實(shí)現(xiàn)Private Sub Command1_Click()Dim sql As Strin

41、gDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse sql = "select * from 系統(tǒng)管理" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_a

42、dd.Fields(0) = Trim(Text1.Text) Then MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) <> Trim(T

43、ext3.Text) Then MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" Text3.Text = "" Exit Sub ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then MsgBox "請選擇正確的用戶權(quán)限", vbO

44、KOnly + vbExclamation, "" Combo1.SetFocus Combo1.Text = "" Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox "添加用戶成功", vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd Sub第四章 圖書管理系統(tǒng)運(yùn)行環(huán)境4.1運(yùn)行環(huán)境 硬件平臺：CPU Intel P4 1.5G主板：Intel 850芯片組的GA-8TX-C內(nèi)存2×128M的三星Rambus內(nèi)存硬盤Seagate Barracuda 7200.7 80G顯卡Unika 小妖G9800顯示器美格770PF，17寸純平顯示器軟件環(huán)境操作系統(tǒng)Microsoft WindowsXP簡體中文專業(yè)版SP1致 謝總體來說基本完成