【精品】圖書管理系統(tǒng)畢業(yè)論文(優(yōu)秀畢業(yè)論文)

1、2.2圖書管理系統(tǒng)論文(vb+sql)內(nèi)容摘要 弓 | =*笫一章課題簡介.3第二章需求分析.42圖書管理現(xiàn)狀42.2數(shù)據(jù)流程圖5第三章系統(tǒng)邏輯和物理設(shè)計.83數(shù)據(jù)庫的設(shè)計.83.2功能模塊的實現(xiàn).9第四章調(diào)試與分析.504存在問題及解決方案.504.2進(jìn)一步改進(jìn)設(shè)想.50第五章用戶操作說明505.1軟硬件環(huán)境.505.2應(yīng)用系統(tǒng)安裝.505.3操作手冊.50小結(jié).51.52參考文獻(xiàn)內(nèi)容摘要 圖書管理系統(tǒng)是采用visual basic6.0開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。開發(fā)本 系統(tǒng)的基木步驟：需求分析、系統(tǒng)概念設(shè)計、系統(tǒng)邏輯和物理設(shè)計、系 統(tǒng)實現(xiàn)和維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)字典、數(shù)據(jù)流程、系統(tǒng)的

2、功能 結(jié)構(gòu)圖、er圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在系統(tǒng)的設(shè)計過程中，我們 采用了模塊獨立設(shè)計法,比較詳細(xì)的展現(xiàn)了各個模塊的功能。在庫和表的 設(shè)計當(dāng)中，我們力求層次清晰，設(shè)計簡單實用。在系統(tǒng)具體實行階段中, 我們精心細(xì)致的畫出了各個窗體并給出了相應(yīng)的事件和代碼，以實現(xiàn)各 個窗體的作用。本系統(tǒng)雖然設(shè)計簡單，但有一定的實用性。系統(tǒng)的功能較為全面，使用 簡單，基本上可以作為一般大中小學(xué)的圖書管理系統(tǒng)。關(guān)鍵字：數(shù)據(jù)庫sql語言visual basic6.0圖書 圖書管理 窗體 引言當(dāng)今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開信息處 理，這正是計算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的原因。計算機(jī)的最大好 處在

3、于利用它能夠進(jìn)行信息管理。使用計算機(jī)進(jìn)行信息控制，不僅提高 了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理， 計算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計算機(jī)進(jìn)行信息管理與信息管理系統(tǒng) 的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理 好圖書館信息而設(shè)計的。圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多， 包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開始使用, 甚至尚未使用計算機(jī)進(jìn)行信息管理。根據(jù)調(diào)查得知，他們以前對信息管 理的主要方式是基于文本，表格等紙介質(zhì)的手工處理，對于圖書借閱情 況（如借書天數(shù)，超過限定借書時間的天數(shù)）的統(tǒng)計和核實等往往采用 對借書卡的

4、人工檢查進(jìn)行，對借閱者的借閱權(quán)限，以及借閱天數(shù)等用人 工計算，手抄進(jìn)行。數(shù)據(jù)處理工作量大，容易出錯。由于數(shù)據(jù)繁多，容 易丟失，且不易查找?？偟膩碚f，缺乏系統(tǒng)規(guī)范的信息管理手段。盡管 有的圖書館有計算機(jī)，但是尚未用于信息管理，沒有發(fā)揮它的效力，資 源閑置比較突出，這就是管理信息系統(tǒng)的開發(fā)的基于環(huán)境?；谶@個問題，我認(rèn)為有必要建立一個圖書管理系統(tǒng)，使圖書管 理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處 理的速度和準(zhǔn)確性，能夠及時，準(zhǔn)確，有效的查詢和修改圖書情況。第一章課題簡介課題：圖書管理系統(tǒng)。任務(wù)：針對各大中專院校的圖書管理現(xiàn)狀，設(shè)計出適合一般學(xué)校 的計算機(jī)輔助圖書管理系統(tǒng)。實

5、現(xiàn)對圖書基本信息、讀者基本信息進(jìn)行 計算機(jī)輔助管理，完成借書和還書有關(guān)信息的記錄、修改、查詢、刪除 等一系列任務(wù)的計算機(jī)管理與實現(xiàn)開發(fā)環(huán)境：本圖書管理開發(fā)系統(tǒng)是在pentyum 4以上機(jī)型 的計算機(jī)上進(jìn)行開發(fā)并獲得通過的，同時方便系統(tǒng)開發(fā)，減少 開發(fā)過程的難度，我們是基于以下的軟件環(huán)境。以windows 98為操作系統(tǒng)以visual basic6.0為開發(fā)工具以microsoft sql server作為后臺數(shù)據(jù)庫功能概述：該系統(tǒng)界面完好，操作簡便，能完成添加圖書信息，修 改圖書信息，查詢圖書信息，添加讀者類別，修改讀者類別，查詢讀者 信息，修改讀者信息，添加刪除管理員等一系列圖書管理功能，開

6、發(fā)本 系統(tǒng)的總體任務(wù)是實現(xiàn)圖書管理的系統(tǒng)化和自動化，幫助管理人員更好 更高效地完成圖書管理工作。本著實用性和介紹性的原則，整個系統(tǒng)由 五大模塊組成，每個大的模塊又包括三至四個小的模塊。一、圖書管理部分：包括圖書信息管理和類別管理，其功能是實 現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容進(jìn)行添加、修改、查詢等操作。二、借閱管理部分：包括借書管理和還書管理，其功能是實現(xiàn)對 各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢等操作。三、讀者管理部分：包括讀者信息管理和讀者類別管理，其功能 是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改等操作。四、系統(tǒng)管理部分：包括修改系統(tǒng)用戶密碼和增加新用戶兩項功 能。五、幫助部分：顯示關(guān)于信息。系統(tǒng)具有高效、易操作、易維護(hù)等

7、特點，并且系統(tǒng)結(jié)構(gòu)清晰、界面 友好，功能較為齊全，能有效地協(xié)助管理人員進(jìn)行圖書管工作。如果想 真正把它用到圖書館的圖書自動化管理中，還需要讀者對該系統(tǒng)進(jìn)行一 步的完善工作。第二章需求分析需求分析階段確定的系統(tǒng)邏輯模型是以后設(shè)計和實現(xiàn)目標(biāo) 系統(tǒng)的基礎(chǔ)，因此必須準(zhǔn)確完整地體現(xiàn)用戶的要求。在這一章里，我將給岀系統(tǒng)的數(shù)據(jù)流圖，功能結(jié)構(gòu)圖，數(shù) 據(jù)字典，為系統(tǒng)的設(shè)計奠定基礎(chǔ)。2.1圖書管理現(xiàn)狀隨著計算機(jī)技術(shù)的飛速發(fā)展，其應(yīng)用方面已滲透到社會生活的各個 領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校，尤其是在一些 高校，圖書是學(xué)校的一項重要資源，圖書的管理也是學(xué)校的一項常規(guī)性 的重要工作。而長期以來，學(xué)生

8、圖書管理都是依賴人工進(jìn)行的?，F(xiàn)今， 有很多的學(xué)校都已經(jīng)開始使用計算機(jī)進(jìn)行圖書信息管理，并且起得良好 的效果。近年來我校招生情況越來越好，所以圖書管理工作越來越繁重, 但由于種種原因，管理人員并沒有增加，因此原有的人工管理工作已不 能適應(yīng)現(xiàn)行的t作需要。同吋，陳門的人工管理也不利于推廣計算機(jī)應(yīng) 用。為使圖書管理工作科學(xué)化、規(guī)范化，就必須采用計算機(jī)輔助管理。2.2數(shù)據(jù)流程圖數(shù)據(jù)流程圖(data flow dfd)是描述實際業(yè)務(wù)管理系統(tǒng)工作流程 的一種圖形表示法。它描繪系統(tǒng)的邏輯模型圖，其中沒有任何具 體的物理元素，只是描繪信息在系統(tǒng)中流動和處理的情況。因 為數(shù)據(jù)流程圖是邏輯系統(tǒng)的圖形表示，即使不是

9、專業(yè)的計算機(jī) 技術(shù)人員也容易理解，所以是極好的通信工具。此外，設(shè)計數(shù) 據(jù)流程圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要 考慮如何具體地實現(xiàn)這些功能，所以它也是軟件設(shè)計的很好的 出發(fā)點。圖書管理系統(tǒng)主要是為了對圖書、讀者基本信息 等進(jìn)行計算機(jī)管理。下面就是功能模塊的流程分析：2.2.1圖書管管理系統(tǒng)基本信息流程流程分析：圖書基本信息的流動首先是以圖書編號為流動方向的 依據(jù)，來達(dá)到添加、修改、記錄、刪除圖書記錄。為了數(shù)據(jù)的 一致性，進(jìn)行這些操作的同時，也對數(shù)據(jù)庫中的記錄進(jìn)行檢查, 檢查是否有重復(fù)的記錄。如有則不能進(jìn)行添加。2.2.2讀者信息管理基本信息流程圖流程圖分析:讀者基本信息的流動首先

10、是以讀者的編號為依 據(jù)，來達(dá)到添加、修改、查詢、刪除讀者信息的記錄。同時， 也對數(shù)據(jù)庫中的讀者信息表的編號進(jìn)行檢查。2.2.3借書管理基本信息流程圖流程圖分析：借書管理基本信息的流動首先是以借閱編號為流動方 向的依據(jù)，來達(dá)到添加、查詢借書記錄。為了數(shù)據(jù)的一致性，進(jìn)行 這些操作的同時，也對數(shù)據(jù)庫屮的記錄進(jìn)行檢查，檢查是否有 重復(fù)的記錄。如沒有則可進(jìn)行添加。2.2.4還書管理基本信息流程圖流程圖分析：借閱管理部分是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添 加和查詢操作，在借閱信息中包括圖書編號、讀者編號，系統(tǒng) 對借書h期進(jìn)行自動添加。并通過添加功能來達(dá)到借閱信息表 的數(shù)據(jù)的更新，通過查詢功能可使管理員很快地了解借

11、閱信息， 從而避免書籍的丟失現(xiàn)象產(chǎn)生。通過上血對各個模塊流程的分析，那么我們就不難對整個系統(tǒng)的大 致流程有一個全面的認(rèn)識。設(shè)計時采用了常用的自頂向下的瀑布式結(jié)構(gòu) 化設(shè)計方法。這樣系統(tǒng)做起來后就便于用戶操作。綜合上面各個模塊的 分析，其總體流程圖如下：啟動界連接數(shù)據(jù)庫,驗證管理員密碼進(jìn)入主畫面添修刪加改除第三章系統(tǒng)邏輯和物理設(shè)計3.1數(shù)據(jù)庫的設(shè)計根據(jù)上面的結(jié)構(gòu)圖，現(xiàn)在需要將數(shù)據(jù)庫結(jié)構(gòu)轉(zhuǎn)化為sql server2000數(shù) 據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。形成數(shù)據(jù) 庫中的表格以及各個表格之間的關(guān)系。圖書管理信息系統(tǒng)數(shù)據(jù)庫中各個 表格的設(shè)計結(jié)果如下面的幾個表格所示。每個表格表示在

12、數(shù)據(jù)庫中的一 個表。3.1.1圖書信息表字段名數(shù)據(jù)類型說明圖書編號文本主鍵，字段大小4書名文本字段大小10類別文本字段大小10價格貨幣類型無出版社文本字段大小40入庫日期日期/時間無是否借出文本字段大小43.1.2事務(wù)信息表字段名數(shù)據(jù)類型說明借閱編號自動編號無讀者編號文本字段大小50圖書編號文本字段大小50歸還日期日期/時間無出借ei期日期/時間無3.1.3讀者信息表字段名數(shù)據(jù)類型說明讀者姓名文本字段大小10讀者編號文本主鍵，字段大小4年齡數(shù)字無家庭住址文本字段大小103.2功能模塊的實現(xiàn)按結(jié)構(gòu)化的程序設(shè)計思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計后， 就可以進(jìn)行系統(tǒng)實現(xiàn)階段了，系統(tǒng)實現(xiàn)是每指把系統(tǒng)的物

13、理模 型轉(zhuǎn)換成實際運行系統(tǒng)的全過程。在打開數(shù)據(jù)表之前應(yīng)該先打 開數(shù)據(jù)庫，系統(tǒng)中創(chuàng)建了一個模塊，該模塊的作用是連接數(shù)據(jù) 庫以及數(shù)據(jù)庫屮數(shù)據(jù)的提取，因為系統(tǒng)需要頻繁的使用數(shù)據(jù)庫 中的數(shù)據(jù)，建立模塊可以使程序簡單化，模塊的代碼如下：public cn as adodb.connection定義連接以及取記錄的對象public rst as adodb.recordsetpublic function cntodb() as booleanon error goto my_debug設(shè)定錯謀機(jī)制，當(dāng)連接錯誤時轉(zhuǎn)到my.debugset cn = new adodb.connectionwith cn設(shè)

14、定訪問數(shù)據(jù)庫的參數(shù)，對象sql server,數(shù)據(jù)庫booksys.co nnectionstring = nprovider=sqloledb;uid=sa;pwd=;server=.h.connectiontimeout = 5.cursorlocation = aduseclient.open.defaultdatabase = nbooksysnend withcntodb = trueexit functionmy_debug:當(dāng)出錯時，取消連接數(shù)據(jù)庫set con = nothingcntodb = falseend functionpublic function querydat

15、a(byval strsql as string) asbooleanon error goto my_debugif cntodb = true then當(dāng)連接到數(shù)據(jù)庫后才能取得記錄set rst = new a dodb. record setwith rst定義取記錄的參數(shù).source = strsql.activeconnection = cn.cursorlocation = aduseclient.cursortype = adopendynamic.locktype = adlockoptimistic openend withquerydata = trueend ifexi

16、t functionmy_debug:set rst = nothingquerydata = falseend functionpublic function getrs(byref rst as adodb.recordset, byvai strsql as string) as booleanon error goto rserrset rst = new adodb.recordsetwith rst.source = strsql.activeconnection = cn cursorlocation = aduseclient.cursortype = adopendynami

17、c.locktype = adlockoptimistic.openend withif rst.state thengetrs = trueexit functionend ifrserr:getrs = falsemsgbox err.number & err.description, vbcritical + vbokonly, ”錯誤信息”end function注意:當(dāng)程序不再使用數(shù)據(jù)庫時，應(yīng)該調(diào)用connection對象的close方法將其關(guān)閉，但此時它還會占用一定的系統(tǒng)資源,完全將資源釋放給系統(tǒng)的方法是使用下而的語句:set con=nothing.不過，這兩個步驟往往會

18、被省略，因為當(dāng)程 序關(guān)閉吋，程序所打開的數(shù)據(jù)也會隨之關(guān)閉connection對象所 占用的系統(tǒng)資源也會自動釋放給系統(tǒng).登錄窗體的實現(xiàn)密碼textl*確定qe)取消c)賬號其代碼如下:private sub command l_click()dim uid定義用戶名變量dim pwd定義密碼的變量dim strfu as string定義查找用戶名的變量dim strfp as string定義查找密碼的變量strfu = nselect * from yh where userid=n' & text 1.text& 査找與輸入的用戶名一致的用戶名if querydat

19、a(strfu) then如果找到了用戶名，則保存記錄符合記錄的條數(shù)uid = rst.recordcountend if strfp = "select * from yh where pwd='h & text2.text & n ! t!if querydata(strfp) thenpwd = rst.recordcountend ifif pwd =1 and uid = 1 then mj戶名與密碼數(shù)據(jù)表里都有則顯示主畫面mdiforml .showunload me關(guān)閉本窗口elsemsgbox ”您輸入的用戶名或密碼有錯誤!”, vblnfor

20、matio n + vbokonly, n登錄失敗”end ifend subprivate sub command2_click()取消按鈕的點擊事件unload meend subprivate sub form_load()如果沒有連上數(shù)據(jù)庫，則顯示相應(yīng)信息if cntodb = false thenmsgbox ”網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒 有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上！ ”，vbcritical + vb okonly, "connecting error'1end iftext ! .text = ”加載窗體時清空textl與text2的內(nèi)容t

21、ext2.text = nnend sub注意:工程屬性對話框中的"啟動選項''用來選取擇運行vb時顯 示的第一個窗體，或者sub main.主窗體中的代碼不多，基本上都是實現(xiàn)單擊某個菜單選項 即彈出相應(yīng)窗體的語句，這些語句將分別在各個窗體中介紹。單 擊“幫助” “關(guān)于”菜單，系統(tǒng)代碼如下：private sub mun_help_about_click() about.showend sub系統(tǒng)主窗體的實現(xiàn)其代碼如下：private rs as adodb.recordsetprivate rsl as a dodb. record setprivate rs2 a

22、s adodb. record setprivate strsql as stringprivate sub commandl_click()borrow .showend subprivate sub command4_click()text2.text ="if cntodb = false thenmsgbox ”網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù) 器沒有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上！ ”，vbcritical + vbokonly, ''connecting error11end ifon error goto fmerrif querydata(hse

23、lect * from book'1) = true thenset datagrid 1.datasource = rstelsemsgbox ”查詢失敗！”end ifexit subfmerr:if rst.bof = true and rst.eof = true thenmsgbox ”沒有任何記錄！”end ifend subprivate sub imagel_click()dim strf as string 搜索按鈕strf = "select * from book where bookname like& text2.text & h%n

24、,if querydata(strf) thenset datagrid 1.datasource = rstend ifend subprivate sub mdiform_load()text2.text = hnif cntodb = false thenmsgbox ”網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù) 器沒有物理連接或數(shù)據(jù)庫不在指向的服務(wù)器上！ ”，vbcritical + vbokonly, connecting error'*end ifon error goto fmerrif querydata(hselect * from book'1) = true th

25、enset datagridl .datasource = rstelseif rst.bof = true and rst.eof = true thenmsgbox ”沒有任何記錄！”end ifend subprivate sub mun_add_data_recstu_click()addreader.showend subprivate sub mun_borr_giv_click()reback .showend subprivate sub mun_borr_ow_click()borrow .showend subprivate sub mun_data_add_recbook

26、_click()addbook.showend subprivate sub mun_del_stu_click()delreader.showend subprivate sub mun_exp_borrow_click()booktran.showend subprivate sub mun_exp_stu_click()reader.showend subprivate sub mun_help_about_click()about.showend subprivate sub mun_rework_book_click()reworkbook. showend subprivate s

27、ub mun_rework_stu_click()reworkreader. showend subprivate sub mun_sys_admin_click() addmange .showend subprivate sub mun sys svs clickodelmange.showend sub數(shù)據(jù)管理的實現(xiàn)當(dāng)單擊數(shù)據(jù)管理一添加一書籍記錄菜單吋，窗體如下:代碼如下：private sub commandl_click()unload meend subprivate sub command2 click()on error goto noreif msgbox (，z確實要添加嗎

28、？ "、vbyesno + vbquestion, "提示)-vbyes thencall updrst.updatemsgbox 添加成功end ifexit subnore :msgbox 圖書編號重復(fù)或者輸入錯誤！，vbokonly+ vbcri t ical, 捉示end subprivate sub form load ()text 1. text 二text2. text 二text3. text 二text4. text 二tcxt5.text 二text6 text =on error goto fmerrif query data (，z select *

29、 from book") 二 true thenelsemsgbox 查詢失?。nd ifexit subfinerr :thenif rst.bof 二 true and rst.eof 二 trueprivatesub upd ()rst.addnewrst. fields (0) .valuetext 1textrst.fields (1)valuetext2 textrst.fields (2).valuetext3 textrst.fields (3).valuetext4.textrst.fields (4).valuetcxt7.textrst.fields (5)v

30、aluetext6 textrst.fields (6).valuetext5.textmsgbox 沒有任何記錄！endifend subrst.updateend sub當(dāng)單擊數(shù)據(jù)管理一添加一讀者記錄菜單時，彈出如下代碼: 添加讀者的窗體代碼如下：private sub cominandl_click()on error goto errorif msgboxc'確實要添加嗎？ "、vbyesno + vbquestion, 提示)二 vbyes thencall updlrst updatemsgbox 添加成功end ifexit suberror:msgbox 讀者

31、編號重復(fù)或者輸入錯誤！ ”，vbokonly + vbcritical,"提示end subprivate sub command2_click()unload meend subprivate sub form_load()tcxtl.text 二”"tcxt2.text 二”"text3.text =text4.text 二text5 text 二on error goto fmerrif querydata("select * from reader)二 true thenelsemsgbox 查詢失??！end ifexit subfmerr:if

32、 rst. boe 二 true and rst. eof = true thenend tfend subprivate sub updl ()rst. addnew rstfields(0)value = text 1. textrstfields(l)value 二 text2.text rstfields(2)value 二 text3.textrstficlds(3)value 二 text4.textrstficlds(4). value 二 tcxt5.text rst.updateend sub當(dāng)單擊數(shù)據(jù)管理一修改一更改書籍菜單時，窗體如下:代碼如下：pri vate sub

33、command2_click()on error goto nocall upd2rst.updaterst.movenextif rst. eof or rst. bof thenrst move firstend ifexit subno:msgbox 修改成功end subprivate sub command3 click()unload meend subprivate subcommand5_click()dim strf as stringstrf 二"select * from book where bookid like ' % & textl.te

34、xt & ' if querydata（strf） thentext2. textrst.fields （bookname） valuetext3. textrst. fields（booktype） valuetext4. textrst. fields（bookprice）. valuetexts. textrst. fields（bookstate）. valuetext6. textrst. fields（bookpublish）. valuetext7.textrst. fields（bookintime） valueend ifend subprivate sub

35、form_load（）textl.text 二text2. text =text3 text =text4. text 二tcxt5 text 二text6 text =text7. text 二end subprivate sub upd2 （）rstfields(o)value 二 text 1. text rst. fi el ds(1). value = text2. textrst. fields(2)value = text3. textrstfields(3)value 二 text4. textrstfields(4)value 二 text5.textrstfields(5)

36、value 二 text6.textrstfields(6)value = text7. textend sub當(dāng)單擊數(shù)據(jù)管理一修改一更改讀者菜單時，窗體如下代碼如下:private sub commandl_click()unload meend subpr i vate sub command4_cli ck()on error goto nocall upd3rst.updaterst movenextif rst.eof or rst.bof thenrst move firstend ifexit subno :msgbox 修改成功end subprivate sub comman

37、d5 click()dim strfl as stringstrfl = "select * from reader where readeridlike '% & textl. text & if querydata(strfl) thentext2.text 二 rstf ields ("readername") valuetext3 .text 二 rst f ields (，readerage，/) valuetcxt4.text = rstfields("rcadcrcity“).valuetext5 textrst.f

38、ields("email") valueend tfend subprivate subform_load()text 1 text 二 text2.text 二 text3.text = text4.text 二 tcxt5 text = end subprivate sub upd3 ()tex11 texttext2.texttext3.texttext4.texttext5.textrst.fields (0).valuerst.fields(1).valuerst.fields (2) valuerst.fields (3) valuerst.fields (4)

39、 valueend sub當(dāng)單擊數(shù)據(jù)管理一刪除一刪除書籍菜單時，窗體如下代碼如下：private sub commandl_click()unload meend subprivate sub command2_click()on error goto nocall upd2rst updaterst movenextif rst.eof or rst.bof thenrst.move firstend ifexit subno :msgbox "修改成功end subprivate sub command4_click()if rst. eof 二 true and rst. bo

40、f 二 true thenmsgbox 沒有數(shù)據(jù)！elserst deleterst movcfirstif rst.bof or rst.eof thenmsgbox 沒有數(shù)據(jù)call txtclsend ifcal 1 showdbend ifend subprivate subcommand5 cl ick ()dim slrf as stringstrf 二 "select * from book where bookid like '%& textl. text & ' if qucrydata (strf) thentext2.textrs

41、t. fields(bookname)valuetext3.textrst. fields("booktype).valuetextd.textrst. fields(bookprice)valuetext5.textrst. fields (/z books tat ez/). valuetext6.textrst.fields ("bookpublish). valuetext7.textrst. fields (/z bo ok inti mez/). valueend ifend subprivate sub form_load ()call txtclsend s

42、ubpd2()fields(0). vaiuefields (1).valuefields (2).valuefields (3) valuefields (4).valuefields (5) valuefields (6) valueprivate sub irst.rst.rst.rst.rst.rst.rst.end sub二 text 1 text二 text2.text二 text3.text二 text4.text二 tcxt5 text=text6 text二 text7.textprivate sub txtcls ()text 1 text 二text2.text =tex

43、t3.text 二text4.text 二text5.text 二text6 text 二text7.text 二end subprivate sub showdb ()text 1 text =tcxt2.text =text3.text 二text4.text 二text5 text 二text6 text =text7 text 二end subrst fields (0).value rst fields (1).value rst.fields(2) value rst.fields (3) value rst.fields (4).value rst.fields(5) value

44、 rst fields(6) value當(dāng)單擊數(shù)據(jù)管理一刪除一刪除讀者菜單時，窗體如下代碼如下：private sub command1_c1ick()unload meend subprivate sub command2 click ()if rst. eof = true and rst bof = true thenmsgbox 沒有數(shù)據(jù)！elserst deleterst movefirstif rst.bof or rst.eof thenmsgbox 沒有數(shù)據(jù)call txtclsend tfcall showdbend ifend subprivate sub command3

45、_click()unload meend subprivate sub command5_click()dim strfl as stringstrfl 二"select * from reader where readeridlike '%" & text 1. text &tf querydata (strfl) thentext2 textrs t.fields("readername").valuetext3.textrs t.fields (z/readerage/z) valuetext4.textrst.fields

46、 (/zreadercity/z). valuetcxt5-textrst.fields("email).valueend ifend subprivate sub form load ()txtclsend subprivate sub txtcls ()text 1.text 二text2.text 二"”text3.text 二“text4.text 二text5 text 二end subprivate sub showdb ()text 1.texttext2.texttext3 texttext4.texttext5 textend sub二 rstfields

47、(0)value二 rstfields(l)value=rst. fields(2). value二 rstfields(3)value二 rstfields(4)value當(dāng)單擊記錄瀏覽一讀者記錄菜單時，窗體如下查找n：編號zjmtextim查詢 i：代碼如下：private sub command l_click()dim strf as stringif combo 1.text = ”編號,thenstrf = "select * from reader where readerid like & textl .text & n%n,if querydata(

48、strf) thenset datagrid 1 .datasource = rstend ifend ifif combo 1.text = ”名字,thenstrf = "select * from reader where readername like & textl.text & h%n,if querydata(strf) thenset datagridl .datasource = rstend ifend ifif combo 1.text = ”城市” thenstrf = nselect * from reader where readercit

49、y like % & textl.te xt & u%,nif querydata(strf) thenset datagrid 1 .datasource = rstend ifend ifend subprivate sub form_load()text 1.text ="combo 1.additem "編號”combo 1.additem ”名字”combo 1.additem ”城市”if cntodb = false thenmsgbox憫絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒有物理連 接或數(shù)據(jù)庫不在指向的服務(wù)器上！ ”，vbcritical +

50、 vbokonly, nconnecti ng error11end ifon error goto fmerrif querydata(nselect * from reader") = true thenset datagrid 1 .datasource = rstelsemsgbox ”查詢失??！”end ifexit subfmerr:if rst.bof = true and rst.eof = true thenmsgbox ”沒有任何記錄！”end ifend sub當(dāng)單擊記錄瀏覽一借閱記錄菜單時，窗體如下代碼如下：private sub commandl_click

51、()dim strf as stringif combo 1.text = ”讀者編號” thenstrf = "select * from booktran where readerid like %” & textl.text & h%,nif querydata(strf) thenset datagrid 1 .datasource = rstend ifend ifif combo 1.text = ”圖書編號” thenstrf = ''select * from booktran where bookid like %” & te

52、xtl.text & n%h,if querydata(strf) thenset datagrid 1 .datasource = rstend ifend ifif combo 1.text = ”借閱日期” thenstrf = ”select *from booktran where borrowdate like'%” & textl.text & h%h,if querydata(strf) thenset datagrid 1 .datasource = rstend ifend ifif combo 1.text = ”歸還日期” thenstr

53、f = nselect * from booktran where retumdate like & text 1.text & n%n,if querydata(strf) thenset datagrid 1 .datasource = rstend ifend ifend subprivate sub form_load()text 1.text ="combo 1.additem ”讀者編號”combo 1 .additem "圖書編號,combo 1.additem ”借閱日期”combo 1 .additem”歸還日期”if cntodb = f

54、alse thenmsgbox ”網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒有物理連 接或數(shù)據(jù)庫不在指向的服務(wù)器上！蔦vbcritical + vbokonly, hconnecti ng errornend ifon error goto fmerrif querydata(nselect * from booktrann) = true thenset datagrid 1 .datasource = rstelsemsgbox ”查詢失?。　眅nd ifexit subfmerr:if rst.bof = true and rst.eof = true thenmsgbox ”沒有任何記錄！”end ifend sub當(dāng)單擊借還操作一借閱書籍菜單時，窗體如下代碼為：private strsql as stringprivate rs as adodb.recordsetprivate sub command l_click()strsql