圖書(shū)管理系統(tǒng)畢業(yè)論文(優(yōu)秀畢業(yè)論文)

圖書(shū)管理系統(tǒng)論文 (VB+SQL) 目 錄 內(nèi)容摘要 2 引言 .2 第一章 課題簡(jiǎn)介 .3 第二章 需求分析 .4 2.1圖書(shū)管理現(xiàn)狀 .4 2.2數(shù)據(jù)流程圖 . 5 第 三 章 系統(tǒng)邏輯和物理設(shè)計(jì) .8 3.1數(shù)據(jù)庫(kù)的設(shè)計(jì) .8 3.2功能模塊的實(shí)現(xiàn) .9 第 四 章 調(diào)試與分析 .50 4.1存在問(wèn)題及解決方案 .50 4.2進(jìn)一步改進(jìn)設(shè)想 .50 第 五 章 用戶操作說(shuō)明 50 5.1軟硬件環(huán)境 .50 5.2應(yīng)用系統(tǒng)安裝 .50 5.3操作手冊(cè) .50 小結(jié) .51 參考文獻(xiàn) .52 2 內(nèi)容摘要 圖 書(shū)管理系統(tǒng)是采用 Visual Basic6.0開(kāi)發(fā)的一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)。開(kāi)發(fā)本系統(tǒng)的基本步驟：需求分析、系統(tǒng)概念設(shè)計(jì)、系統(tǒng)邏輯和物理設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)和維護(hù)。在系統(tǒng)分析中先后用數(shù)據(jù)字典、數(shù)據(jù)流程、系統(tǒng)的功能結(jié)構(gòu)圖、 ER圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在系統(tǒng)的設(shè)計(jì)過(guò)程中 ,我們采用了模塊獨(dú)立設(shè)計(jì)法 ,比較詳細(xì)的展現(xiàn)了各個(gè)模塊的功能。在庫(kù)和表的設(shè)計(jì)當(dāng)中 , 我們力求層次清晰，設(shè)計(jì)簡(jiǎn)單實(shí)用。在系統(tǒng)具體實(shí)行階段中，我們精心細(xì)致的畫(huà)出了各個(gè)窗體并給出了相應(yīng)的事件和代碼，以實(shí)現(xiàn)各個(gè)窗體的作用。 本系統(tǒng)雖然設(shè)計(jì)簡(jiǎn)單，但有一定的實(shí)用性 。系統(tǒng)的功能較為全面，使用簡(jiǎn)單，基本上可以作為一般大中小學(xué)的圖書(shū)管理系統(tǒng)。 關(guān)鍵字：數(shù)據(jù)庫(kù) SQL 語(yǔ)言 Visual Basic6.0 圖書(shū) 圖書(shū)管理 窗體 引言 當(dāng)今時(shí)代是飛速發(fā)展的的信息時(shí)代。在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的原因。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開(kāi)發(fā)密切相關(guān)， 系統(tǒng)的開(kāi)發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書(shū)館信息而設(shè)計(jì)的。 圖書(shū)館作為一種信息資源的集散地，圖書(shū)和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書(shū)館都是初步開(kāi)始使用，甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理。根據(jù)調(diào)查得知，他們以前對(duì)信息管理的主要方式是基于文本，表格等紙介質(zhì)的手工處理，對(duì)于圖書(shū)借閱情況（如借書(shū)天數(shù)，超過(guò)限定借書(shū)時(shí)間的天數(shù)）的統(tǒng)計(jì)和核實(shí)等往往采用 3 對(duì)借書(shū)卡的人工檢查進(jìn)行，對(duì)借閱者的借閱權(quán)限，以及借閱天數(shù)等用人工計(jì)算，手抄進(jìn)行。數(shù)據(jù)處理工作量大，容易出錯(cuò)。由于數(shù)據(jù)繁多，容易丟失，且不 易查找?？偟膩?lái)說(shuō)，缺乏系統(tǒng)規(guī)范的信息管理手段。盡管有的圖書(shū)館有計(jì)算機(jī)，但是尚未用于信息管理，沒(méi)有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開(kāi)發(fā)的基于環(huán)境。 基于這個(gè)問(wèn)題，我認(rèn)為有必要建立一個(gè)圖書(shū)管理系統(tǒng)，使圖書(shū)管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書(shū)管理的隨意性，提高信息處理的速度和準(zhǔn)確性，能夠及時(shí)，準(zhǔn)確，有效的查詢和修改圖書(shū)情況。 第一章 課題簡(jiǎn)介 課題：圖書(shū)管理系統(tǒng)。 任務(wù)： 針對(duì)各大中專院校的圖書(shū)管理現(xiàn)狀，設(shè)計(jì)出適合一般學(xué)校的計(jì)算機(jī)輔助圖書(shū)管理系統(tǒng) 。實(shí)現(xiàn)對(duì)圖書(shū)基本信息、讀者基本信息進(jìn)行計(jì)算機(jī)輔助管理，完成借書(shū)和還書(shū)有關(guān)信息的記錄、修改、查詢、刪除等一系列任務(wù)的計(jì)算機(jī)管理與實(shí)現(xiàn) .。 開(kāi)發(fā)環(huán)境： 本圖書(shū)管理開(kāi)發(fā)系統(tǒng)是在 Pentyum 4 以上機(jī)型的計(jì)算機(jī)上進(jìn)行開(kāi)發(fā)并獲得通過(guò)的，同時(shí)方便系統(tǒng)開(kāi)發(fā)，減少開(kāi)發(fā)過(guò)程的難度，我們是基于以下的軟件環(huán)境。 以 Windows 98 為操作系統(tǒng) 以 Visual Basic6.0 為開(kāi)發(fā)工具 以 Microsoft SQL Server 作為后臺(tái)數(shù)據(jù)庫(kù) 功能概述：該系統(tǒng)界面 完 好，操作簡(jiǎn)便，能完成添加圖書(shū)信息，修改圖書(shū)信息，查詢圖 書(shū)信息，添加讀者類別，修改讀者類別，查詢讀者信息，修改讀者信息 ，添加刪除管理員 等一系列圖書(shū)管理功能，開(kāi)發(fā)本系統(tǒng)的總體任務(wù)是實(shí)現(xiàn)圖書(shū)管理的系統(tǒng)化和自動(dòng)化，幫助管理人員更好 4 更高效地完成圖書(shū)管理工作。本著實(shí)用性和介紹性的原則，整個(gè)系統(tǒng)由五大模塊組成，每個(gè)大的模塊又包括三至四個(gè)小的模塊。 一、 圖書(shū)管理部分：包括圖書(shū)信息管理和類別管理，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容進(jìn)行添加、修改、查詢等操作。 二、 借閱管理部分：包括借書(shū)管理和還書(shū)管理，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢等操作。 三、 讀者管理部分：包括 讀者信息管理和讀者類別管理，其功能是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加和修改等操作。 四、 系統(tǒng)管理部分：包括修改系統(tǒng)用戶密碼和增加新用戶兩項(xiàng)功能。 五、 幫助部分： 顯示關(guān)于信息 。 系統(tǒng)具有高效、易操作、易維護(hù)等特點(diǎn)，并且系統(tǒng)結(jié)構(gòu)清晰、界面友好，功能較為齊全，能有效地協(xié)助管理人員進(jìn)行圖書(shū)管工作。如果想真正把它用到圖書(shū)館的圖書(shū)自動(dòng)化管理中，還需要讀者對(duì)該系統(tǒng)進(jìn)行一步的完善工作。 第二章 需求分析 需求分析階段確定的系統(tǒng)邏輯模型是以后設(shè)計(jì)和實(shí)現(xiàn)目標(biāo)系統(tǒng)的基礎(chǔ)，因此必須準(zhǔn)確完整地體現(xiàn)用戶的要求。 在這一章里， 我將給出系統(tǒng)的數(shù)據(jù)流圖，功能結(jié)構(gòu)圖，數(shù)據(jù)字典，為系統(tǒng)的設(shè)計(jì)奠定基礎(chǔ)。 2.1 圖書(shū)管理現(xiàn)狀 隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，其應(yīng)用方面已滲透到社會(huì)生活的各個(gè)領(lǐng)域。它已經(jīng)成為我們學(xué)習(xí)和工作的得力助手。在學(xué)校，尤其是在一些高校，圖書(shū)是學(xué)校的一項(xiàng)重要資源，圖書(shū)的管理也是學(xué)校的一項(xiàng)常規(guī)性 5 的重要工作。而長(zhǎng)期以來(lái)，學(xué)生圖書(shū)管理都是依賴人工進(jìn)行的?，F(xiàn)今，有很多的學(xué)校都已經(jīng)開(kāi)始使用計(jì)算機(jī)進(jìn)行圖書(shū)信息管理，并且起得良好的效果。近年來(lái)我校招生情況越來(lái)越好，所以圖書(shū)管理工作越來(lái)越繁重，但由于種種原因，管理人員并沒(méi)有增加，因此原有的人 工管理工作已不能適應(yīng)現(xiàn)行的工作需要。同時(shí)，陳舊的人工管理也不利于推廣計(jì)算機(jī)應(yīng)用。為使圖書(shū)管理工作科學(xué)化、規(guī)范化，就必須采用計(jì)算機(jī)輔助管理。 2.2 數(shù)據(jù)流程圖 數(shù)據(jù)流程圖（ Data Flow DFD）是描述實(shí)際業(yè)務(wù)管理系統(tǒng)工作流程的一種圖形表示法。 它描繪系統(tǒng)的邏輯模型圖，其中沒(méi)有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動(dòng)和處理的情況。因?yàn)閿?shù)據(jù)流 程 圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解，所以是極好的通信工具。此外，設(shè)計(jì)數(shù)據(jù)流 程 圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如 何具體地實(shí)現(xiàn)這些功能，所以它也是軟件設(shè)計(jì)的很好的出發(fā)點(diǎn)。圖書(shū)管理系統(tǒng)主要是為了對(duì)圖書(shū)、讀者基本信息等進(jìn)行計(jì)算機(jī)管理。下面就是功能模塊的流程分析： 2.2.1 圖書(shū) 管 管理 系統(tǒng) 基本信息流程 流程分析： 圖書(shū)基本信息的流動(dòng)首先是以圖書(shū)編號(hào)為流動(dòng)方向的依據(jù)，來(lái)達(dá)到添加、修改、記錄、刪除圖書(shū)記錄。為了數(shù)據(jù)的一致性，進(jìn)行這些操作的同時(shí)，也對(duì)數(shù)據(jù)庫(kù)中的記錄進(jìn)行檢查，檢查是否有重復(fù)的記錄。如有則不能進(jìn)行添加。 2.2.2 讀者信息管理基本信息流程圖 6 流程圖分析： 讀者基本信息的流動(dòng)首先是以讀者的編號(hào)為依據(jù)，來(lái)達(dá)到添加、修改、查詢、刪除讀者信息的記錄。同時(shí)，也對(duì)數(shù)據(jù)庫(kù)中的讀者信息表的編號(hào)進(jìn)行檢查。 2.2.3 借書(shū)管理基本信息流程圖 流程圖分析：借書(shū)管理基本信息的流動(dòng)首先是以借閱編號(hào)為流動(dòng)方向的依據(jù)，來(lái)達(dá)到添加、查詢借書(shū)記錄。 為了數(shù)據(jù)的一致性，進(jìn)行這些操作的同時(shí)，也對(duì)數(shù)據(jù)庫(kù)中的記錄進(jìn)行檢查，檢查是否有重復(fù)的記錄。如沒(méi)有則可進(jìn)行添加。 2.2.4 還書(shū)管理基本信息流程圖 流程圖分析：借閱管理部分是實(shí)現(xiàn)對(duì)各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢操作，在借閱信息中包括 圖書(shū) 編號(hào)、讀者編號(hào) ，系統(tǒng)對(duì)借書(shū)日期進(jìn)行自動(dòng)添加 。并通過(guò)添加功能來(lái)達(dá)到借閱信息表的數(shù)據(jù)的更新，通過(guò)查 詢 功能 可使管理員很快地了解借閱信息，從而避免書(shū)籍的丟失現(xiàn)象產(chǎn)生。 通過(guò)上面對(duì)各個(gè)模塊流程的分析，那么我們就不難對(duì)整個(gè)系統(tǒng)的大致流程有一個(gè)全面的認(rèn)識(shí)。設(shè)計(jì)時(shí)采用了常用的自頂向下的瀑布式結(jié)構(gòu)化設(shè)計(jì)方法。這樣系統(tǒng)做起來(lái)后就便于用戶操作。綜合上面各個(gè)模塊的分析，其總體流程圖如下： 7 啟動(dòng)界面 登錄 連接數(shù)據(jù)庫(kù)， 驗(yàn)證管 理員密碼 進(jìn)入主畫(huà)面 數(shù)據(jù)管理 記錄瀏覽 借還操作 系統(tǒng)設(shè)置 幫助 顯示 關(guān)于信息 讀者 借閱 借閱 歸還 添加 刪除 記錄 記錄 書(shū)籍 書(shū)籍 管理員 管理員 添 修 刪 加 改 除 8 第 三 章 系統(tǒng)邏輯和物理設(shè)計(jì) 3.1 數(shù) 據(jù)庫(kù)的設(shè)計(jì) 根據(jù)上面的 結(jié)構(gòu) 圖，現(xiàn)在需要將數(shù)據(jù)庫(kù)結(jié)構(gòu)轉(zhuǎn)化為 SQL Server2000 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。形成數(shù)據(jù)庫(kù)中的表格以及各個(gè)表格之間的關(guān)系。圖書(shū)管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示。每個(gè)表格表示在數(shù)據(jù)庫(kù)中的一個(gè)表。 3.1.1 圖書(shū)信息表 字段名 數(shù)據(jù)類型 說(shuō)明 圖書(shū)編號(hào) 文本 主鍵， 字段大小 4 書(shū)名 文本 字段大小 10 類別 文本 字段大小 10 價(jià)格 貨幣類型 無(wú) 出版社 文本 字段大小 40 入庫(kù) 日期 日期 /時(shí)間 無(wú) 是否借出 文本 字段大小 4 3.1.2 事務(wù) 信息表 字段名 數(shù)據(jù)類型 說(shuō)明 借閱編號(hào) 自動(dòng)編號(hào) 無(wú) 讀者編號(hào) 文本 字段大小 50 圖書(shū)編號(hào) 文本 字段大小 50 歸還日期 日期 /時(shí)間 無(wú) 出借日期 日期 /時(shí)間 無(wú) 9 3.1.3 讀者信息表 字段名 數(shù)據(jù)類型 說(shuō)明 讀者姓名 文本 字段大小 10 讀者編號(hào) 文本 主鍵， 字段大小 4 年齡 數(shù)字 無(wú) 家庭住址 文本 字段大小 10 3.2 功能模塊的實(shí)現(xiàn) 按結(jié)構(gòu)化的程序設(shè)計(jì)思想，在完成了系統(tǒng)分析、系統(tǒng)設(shè)計(jì)后，就可以進(jìn)行系統(tǒng)實(shí)現(xiàn)階段了，系統(tǒng)實(shí)現(xiàn)是每指把系 統(tǒng)的物理模型轉(zhuǎn)換成實(shí)際運(yùn)行系統(tǒng)的全過(guò)程。在打開(kāi)數(shù)據(jù)表之前應(yīng)該先打開(kāi)數(shù)據(jù)庫(kù)， 系統(tǒng)中創(chuàng)建了一個(gè)模塊，該模塊的作用是連接數(shù)據(jù)庫(kù)以及數(shù)據(jù)庫(kù)中數(shù)據(jù)的提取，因?yàn)橄到y(tǒng)需要頻繁的使用數(shù)據(jù)庫(kù)中的數(shù)據(jù)，建立模塊可以使程序簡(jiǎn)單化，模塊的代碼如下 ： Public cn As ADODB.Connection 定 義連 接 以及 取 記錄 的 對(duì)象 Public rst As ADODB.Recordset Public Function CnToDB() As Boolean On Erro r GoTo My_ Deb ug 設(shè) 定 錯(cuò)誤 機(jī) 制，當(dāng) 連接 錯(cuò) 誤時(shí) 轉(zhuǎn)到 M y _Debu g Set cn = New ADODB.Connection With cn 設(shè)定 訪問(wèn)數(shù)據(jù)庫(kù) 的參 數(shù) ，對(duì) 象 SQL s erv er， 數(shù)據(jù) 庫(kù) b ooksy s .ConnectionString = provider=sqloledb;uid=sa;pwd=;server=. .ConnectionTimeo ut = 5 .CursorLocation = adUseClient 10 .Open .DefaultDatabas e = booksys End With CnToDB = True Exit Function My_Debug:當(dāng) 出錯(cuò) 時(shí) ，取 消 連接 數(shù) 據(jù)庫(kù) Set con = Nothing CnToDB = False End Function Public Function QueryData(ByVal strSql As String) As Boolean On Error GoTo My_Debug If CnToDB = True Then 當(dāng)連接到 數(shù)據(jù) 庫(kù) 后才 能 取得 記 錄 Set rst = New ADODB.Recordset With rst 定義取記錄的參 數(shù) .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With QueryData = True End If Exit Function My_Debug: 11 Set rst = Nothing QueryData = False End Function Public Function getRS(ByRef rst As ADODB.Recordset, ByVal strSql As String) As Boolean On Error GoTo rsErr Set rst = New ADODB.Recordset With rst .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With If rst.State Then getRS = True Exit Function End If rsErr: getRS = False MsgBox Err.Number & Err.Description, vbCritical +vbOKOnly, 錯(cuò)誤信息 End Function 12 注意 :當(dāng)程序不再使用數(shù)據(jù)庫(kù)時(shí) ,應(yīng)該調(diào)用 Connectio n對(duì)象的Close 方法將其關(guān)閉 ,但此時(shí)它還會(huì)占用一定的系統(tǒng)資源 ,完全將資源釋放給系統(tǒng)的方法是使用下面的語(yǔ)句 : Set con=Nothing.不過(guò) ,這兩個(gè)步驟往往會(huì)被省略 ,因?yàn)楫?dāng)程序關(guān)閉時(shí) ,程序所打開(kāi)的數(shù)據(jù)也會(huì)隨之關(guān)閉 ,Connectio n 對(duì)象所占用的系統(tǒng)資源也會(huì)自動(dòng)釋放給系統(tǒng) . 登錄窗體的實(shí)現(xiàn) 其代碼如下： Private Sub Command1_Click() Dim uid 定義 用戶 名 變量 Dim pwd 定義密碼的變量 Dim strFu As String 定義 查找 用 戶名 的 變量 Dim strFp As String 定義 查找 密碼 的變量 13 strFu = select * from yh where userid= & Text1.Text & 查找與輸入的用戶名一致的用戶名 If QueryData(strF u) Then 如果找到 了用 戶 名， 則 保存 記 錄符 合 記錄 的 條數(shù) uid = rst.RecordCount End If strFp = select * from yh where pwd= & Text2.Text & If QueryData(strFp) Then pwd = rst.RecordCount End If If pwd = 1 And uid = 1 Then 用戶名與 密 碼數(shù) 據(jù) 表里 都 有則 顯 示主 畫(huà) 面 MDIForm1.Show Unload Me 關(guān)閉本窗口 Else MsgBox 您輸入的用戶名或密碼有錯(cuò)誤 !, vbInformation + vbOKOnly, 登錄失敗 End If End Sub Private Sub Command2_Click()取消 按 鈕的 點(diǎn) 擊事 件 Unload Me End Sub Private Sub Form_Load()如果沒(méi)有 連 上數(shù) 據(jù) 庫(kù)， 則 顯示 相 應(yīng)信 息 If CnToDB = False Then 14 MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù)庫(kù)不在指向的服務(wù)器上！ , vbCritic al + vbOKOnly, Connecting Error End If Text1.Text = 加載窗體時(shí)清空 t e xt 1 與 t e xt 2 的內(nèi) 容 Text2.Text = End Sub 注意 :工程屬性對(duì)話框中的 ”啟動(dòng)選項(xiàng) ”用來(lái)選取擇運(yùn)行 VB 時(shí)顯示 的第一個(gè)窗體 ,或者 Sub Main. 主窗體中的代碼不多 ,基本上都是實(shí)現(xiàn)單擊某個(gè)菜單選項(xiàng)即彈出相應(yīng)窗體的語(yǔ)句 ,這些語(yǔ)句將分別在各個(gè)窗體中介紹。單擊“ 幫助 ” “ 關(guān)于 ”菜單，系統(tǒng)代碼如下： Private Sub mun_help_about_Click() about.Show End Sub 系統(tǒng)主窗體的實(shí)現(xiàn) 15 其代碼如下： Private rs As ADODB.Recordset Private rs1 As ADODB.Recordset Private rs2 As ADODB.Recordset Private strSql As String Private Sub Command1_Click() borrow.Show End Sub Private Sub Command2_Click() reback.Show End Sub 16 Private Sub Command4_Click() Text2.Text = If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù)庫(kù)不在指向的服務(wù)器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失??！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒(méi)有任何記錄！ End If End Sub Private Sub Command5_Click() delbook.Show End Sub 17 Private Sub Image1_Click() Dim strF As String 搜索按鈕 strF = select * from book where bookname like % & Text2.Text & % If QueryData(strF ) Then Set DataGrid1.DataSource = rst End If End Sub Private Sub MDIForm_Load() Text2.Text = If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù) 庫(kù)不在指向的服務(wù)器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失??！ End If Exit Sub fmerr: 18 If rst.BOF = True And rst.EOF = True Then MsgBox 沒(méi)有任何記錄！ End If End Sub Private Sub mun_add_data_recstu_Click() addreader.Show End Sub Private Sub mun_borr_giv_Click() reback.Show End Sub Private Sub mun_borr_ow_Clic k() borrow.Show End Sub Private Sub mun_data_add_recbook_Click() addbook.Show End Sub Private Sub mun_del_book_Click() delbook.Show End Sub Private Sub mun_del_stu_Click() delreader.Show 19 End Sub Private Sub mun_exp_borrow_Clic k() booktran.Show End Sub Private Sub mun_exp_stu_Click() reader.Show End Sub Private Sub mun_help_about_Click() about.Show End Sub Private Sub mun_rework_book_Click() reworkbook.Show End Sub Private Sub mun_rework_stu_Click() reworkreader.Show End Sub Private Sub mun_sys_admin_Click() addmange.Show End Sub Private Sub mun_sys_sys_Click() 20 delmange.S how End Sub 數(shù)據(jù)管理 的實(shí)現(xiàn) 當(dāng)單擊 數(shù)據(jù)管理添加書(shū)籍記錄 菜單時(shí)， 窗體如下： 代碼如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error GoTo nore 21 If MsgBox(確實(shí)要添加嗎？ , vbYesNo + vbQuestion,提示 ) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Sub nore: MsgBox 圖書(shū)編號(hào)重復(fù)或者輸入錯(cuò)誤！ , vbOKOnly + vbCritical, 提示 End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = On Error GoTo fmerr If QueryData(select * from book) = True Then 22 Else MsgBox 查詢失??！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒(méi)有任何記錄！ End If End Sub Private Sub upD() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text7.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text5.Text rst.Update End Sub 23 當(dāng)單擊 數(shù)據(jù)管理添加讀者記錄 菜單時(shí)，彈出如下代碼： 添加 讀者的 窗體 代碼如下： Private Sub Command1_Click() On Error GoTo error If MsgBox(確實(shí)要添加嗎？ , vbYesNo + vbQuestion, 提示 ) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Sub error: 24 MsgBox 讀者編號(hào)重復(fù)或者輸入錯(cuò)誤！ , vbOKOnly + vbCritical,提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = On Error GoTo fmerr If QueryData(select * from reader) = True Then Else MsgBox 查詢失??！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then 25 MsgBox 沒(méi)有任何記錄！ End If End Sub Private Sub upD1() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Update End Sub 當(dāng)單擊 數(shù)據(jù)管理修改更改書(shū)籍 菜單時(shí)， 窗體如下： 26 代碼如下： Private Sub Command2_Click() On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub no: MsgBox 修改成功 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command5_Click() Dim strF As String strF = select * from book where bookid like % & Text1.Text & % 27 If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End If End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub Private Sub upD2() 28 rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.Text End Sub 當(dāng)單擊 數(shù)據(jù)管理修改更改讀者 菜單時(shí)， 窗體如下代碼如下： Private Sub Command1_Click() Unload Me End Sub 29 Private Sub Command4_Click() On Error GoTo no Call upD3 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub no: MsgBox 修改成功 End Sub Private Sub Command5_Click() Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value 30 Text5.Text = rst.Fields(email).Value End If End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub upD3() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text End Sub 當(dāng)單擊 數(shù)據(jù)管理刪除刪除書(shū)籍 菜單時(shí)， 窗體如下 31 代碼如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub 32 no: MsgBox 修改成功 End Sub Private Sub Command4_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒(méi)有數(shù)據(jù)！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒(méi)有數(shù)據(jù) Call txtCls End If Call showDB End If End Sub Private Sub Command5_Click() Dim strF As String strF = select * from book where bookid like %& Text1.Text & % If QueryData(strF) Then 33 Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End If End Sub Private Sub Form_Load() Call txtCls End Sub Private Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.Text End Sub Private Sub txtCls() 34 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub Private Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value Text6.Text = rst.Fields(5).Value Text7.Text = rst.Fields(6).Value End Sub 當(dāng)單擊 數(shù)據(jù)管理刪除刪除讀者 菜單時(shí)， 窗體如下 35 代碼如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒(méi)有數(shù)據(jù)！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒(méi)有數(shù)據(jù) 36 Call txtCls End If Call showDB End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command5_Click() Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End If End Sub Private Sub Form_Load() 37 txtCls End Sub Private Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value End Sub 當(dāng)單擊 記錄瀏覽讀者記錄 菜單時(shí)， 窗體如下 38 代碼如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 編號(hào) Then strF = select * from reader where readerid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 名字 Then strF = select * from reader where readername like % & Text1.Text & % 39 If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 城市 Then strF = select * from reader where readercity like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If End Sub Private Sub Form_Load() Text1.Text = Combo1.AddItem 編號(hào) Combo1.AddItem 名字 Combo1.AddItem 城市 If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響應(yīng)！出現(xiàn)此情況可能是與服務(wù)器沒(méi)有物理連接或數(shù)據(jù)庫(kù)不在指向的服務(wù)器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from reader) = True Then 40 Set DataGrid1.DataSource = rst Else MsgBox 查詢失??！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒(méi)有任何記錄！ End If End Sub 當(dāng)單擊 記錄瀏覽借閱記錄 菜單時(shí)， 窗體如下 41 代碼如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 讀者編號(hào) Then strF = select * from booktran where readerid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 圖書(shū)編號(hào) Then strF = select * from booktran where bookid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 借閱日期 Then strF = select *from booktran where BorrowDate LIKE% & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 歸還日期 Then 42 strF = select * from booktran where returndate like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If End Sub Private Sub Form_Load() Text1.Text = Combo1.AddItem 讀者編號(hào) Combo1.AddItem 圖書(shū)編號(hào) Combo1.AddItem 借閱日期 Combo1.AddItem 歸還日期 If CnToDB = False Then MsgBox 網(wǎng)絡(luò)未響