圖書管理系統論文 (VB+SQL) 目 錄 內容摘要 2 引言 .2 第一章 課題簡介 .3 第二章 需求分析 .4 2.1圖書管理現狀 .4 2.2數據流程圖 . 5 第 三 章 系統邏輯和物理設計 .8 3.1數據庫的設計 .8 3.2功能模塊的實現 .9 第 四 章 調試與分析 .50 4.1存在問題及解決方案 .50 4.2進一步改進設想 .50 第 五 章 用戶操作說明 50 5.1軟硬件環境 .50 5.2應用系統安裝 .50 5.3操作手冊 .50 小結 .51 參考文獻 .52 2 內容摘要 圖 書管理系統是采用 Visual Basic6.0開發的一個數據庫管理系統。開發本系統的基本步驟：需求分析、系統概念設計、系統邏輯和物理設計、系統實現和維護。在系統分析中先后用數據字典、數據流程、系統的功能結構圖、 ER圖分析了系統所需的各種數據。在系統的設計過程中 ,我們采用了模塊獨立設計法 ,比較詳細的展現了各個模塊的功能。在庫和表的設計當中 , 我們力求層次清晰，設計簡單實用。在系統具體實行階段中，我們精心細致的畫出了各個窗體并給出了相應的事件和代碼，以實現各個窗體的作用。 本系統雖然設計簡單，但有一定的實用性 。系統的功能較為全面，使用簡單，基本上可以作為一般大中小學的圖書管理系統。 關鍵字：數據庫 SQL 語言 Visual Basic6.0 圖書 圖書管理 窗體 引言 當今時代是飛速發展的的信息時代。在各行各業中離不開信息處理，這正是計算機被廣泛應用于信息管理系統的原因。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復雜的信息管理，計算機能夠充分發揮它的優越性。計算機進行信息管理與信息管理系統的開發密切相關， 系統的開發是系統管理的前提。本系統就是為了管理好圖書館信息而設計的。 圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數據的管理，現今，有很多的圖書館都是初步開始使用，甚至尚未使用計算機進行信息管理。根據調查得知，他們以前對信息管理的主要方式是基于文本，表格等紙介質的手工處理，對于圖書借閱情況（如借書天數，超過限定借書時間的天數）的統計和核實等往往采用 3 對借書卡的人工檢查進行，對借閱者的借閱權限，以及借閱天數等用人工計算，手抄進行。數據處理工作量大，容易出錯。由于數據繁多，容易丟失，且不 易查找。總的來說，缺乏系統規范的信息管理手段。盡管有的圖書館有計算機，但是尚未用于信息管理，沒有發揮它的效力，資源閑置比較突出，這就是管理信息系統的開發的基于環境。 基于這個問題，我認為有必要建立一個圖書管理系統，使圖書管理工作規范化，系統化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準確性，能夠及時，準確，有效的查詢和修改圖書情況。 第一章 課題簡介 課題：圖書管理系統。 任務： 針對各大中專院校的圖書管理現狀，設計出適合一般學校的計算機輔助圖書管理系統 。實現對圖書基本信息、讀者基本信息進行計算機輔助管理，完成借書和還書有關信息的記錄、修改、查詢、刪除等一系列任務的計算機管理與實現 .。 開發環境： 本圖書管理開發系統是在 Pentyum 4 以上機型的計算機上進行開發并獲得通過的，同時方便系統開發，減少開發過程的難度，我們是基于以下的軟件環境。 以 Windows 98 為操作系統 以 Visual Basic6.0 為開發工具 以 Microsoft SQL Server 作為后臺數據庫 功能概述：該系統界面 完 好，操作簡便，能完成添加圖書信息，修改圖書信息，查詢圖 書信息，添加讀者類別，修改讀者類別，查詢讀者信息，修改讀者信息 ，添加刪除管理員 等一系列圖書管理功能，開發本系統的總體任務是實現圖書管理的系統化和自動化，幫助管理人員更好 4 更高效地完成圖書管理工作。本著實用性和介紹性的原則，整個系統由五大模塊組成，每個大的模塊又包括三至四個小的模塊。 一、 圖書管理部分：包括圖書信息管理和類別管理，其功能是實現對各部分數據內容進行添加、修改、查詢等操作。 二、 借閱管理部分：包括借書管理和還書管理，其功能是實現對各部分數據內容的添加和查詢等操作。 三、 讀者管理部分：包括 讀者信息管理和讀者類別管理，其功能是實現對各部分數據內容的添加和修改等操作。 四、 系統管理部分：包括修改系統用戶密碼和增加新用戶兩項功能。 五、 幫助部分： 顯示關于信息 。 系統具有高效、易操作、易維護等特點，并且系統結構清晰、界面友好，功能較為齊全，能有效地協助管理人員進行圖書管工作。如果想真正把它用到圖書館的圖書自動化管理中，還需要讀者對該系統進行一步的完善工作。 第二章 需求分析 需求分析階段確定的系統邏輯模型是以后設計和實現目標系統的基礎，因此必須準確完整地體現用戶的要求。 在這一章里， 我將給出系統的數據流圖，功能結構圖，數據字典，為系統的設計奠定基礎。 2.1 圖書管理現狀 隨著計算機技術的飛速發展，其應用方面已滲透到社會生活的各個領域。它已經成為我們學習和工作的得力助手。在學校，尤其是在一些高校，圖書是學校的一項重要資源，圖書的管理也是學校的一項常規性 5 的重要工作。而長期以來，學生圖書管理都是依賴人工進行的。現今，有很多的學校都已經開始使用計算機進行圖書信息管理，并且起得良好的效果。近年來我校招生情況越來越好，所以圖書管理工作越來越繁重，但由于種種原因，管理人員并沒有增加，因此原有的人 工管理工作已不能適應現行的工作需要。同時，陳舊的人工管理也不利于推廣計算機應用。為使圖書管理工作科學化、規范化，就必須采用計算機輔助管理。 2.2 數據流程圖 數據流程圖（ Data Flow DFD）是描述實際業務管理系統工作流程的一種圖形表示法。 它描繪系統的邏輯模型圖，其中沒有任何具體的物理元素，只是描繪信息在系統中流動和處理的情況。因為數據流 程 圖是邏輯系統的圖形表示，即使不是專業的計算機技術人員也容易理解，所以是極好的通信工具。此外，設計數據流 程 圖只需考慮系統必須完成的基本邏輯功能，完全不需要考慮如 何具體地實現這些功能，所以它也是軟件設計的很好的出發點。圖書管理系統主要是為了對圖書、讀者基本信息等進行計算機管理。下面就是功能模塊的流程分析： 2.2.1 圖書 管 管理 系統 基本信息流程 流程分析： 圖書基本信息的流動首先是以圖書編號為流動方向的依據，來達到添加、修改、記錄、刪除圖書記錄。為了數據的一致性，進行這些操作的同時，也對數據庫中的記錄進行檢查，檢查是否有重復的記錄。如有則不能進行添加。 2.2.2 讀者信息管理基本信息流程圖 6 流程圖分析： 讀者基本信息的流動首先是以讀者的編號為依據，來達到添加、修改、查詢、刪除讀者信息的記錄。同時，也對數據庫中的讀者信息表的編號進行檢查。 2.2.3 借書管理基本信息流程圖 流程圖分析：借書管理基本信息的流動首先是以借閱編號為流動方向的依據，來達到添加、查詢借書記錄。 為了數據的一致性，進行這些操作的同時，也對數據庫中的記錄進行檢查，檢查是否有重復的記錄。如沒有則可進行添加。 2.2.4 還書管理基本信息流程圖 流程圖分析：借閱管理部分是實現對各部分數據內容的添加和查詢操作，在借閱信息中包括 圖書 編號、讀者編號 ，系統對借書日期進行自動添加 。并通過添加功能來達到借閱信息表的數據的更新，通過查 詢 功能 可使管理員很快地了解借閱信息，從而避免書籍的丟失現象產生。 通過上面對各個模塊流程的分析，那么我們就不難對整個系統的大致流程有一個全面的認識。設計時采用了常用的自頂向下的瀑布式結構化設計方法。這樣系統做起來后就便于用戶操作。綜合上面各個模塊的分析，其總體流程圖如下： 7 啟動界面 登錄 連接數據庫， 驗證管 理員密碼 進入主畫面 數據管理 記錄瀏覽 借還操作 系統設置 幫助 顯示 關于信息 讀者 借閱 借閱 歸還 添加 刪除 記錄 記錄 書籍 書籍 管理員 管理員 添 修 刪 加 改 除 8 第 三 章 系統邏輯和物理設計 3.1 數 據庫的設計 根據上面的 結構 圖，現在需要將數據庫結構轉化為 SQL Server2000 數據庫系統所支持的實際數據模型，也就是數據庫的邏輯結構。形成數據庫中的表格以及各個表格之間的關系。圖書管理信息系統數據庫中各個表格的設計結果如下面的幾個表格所示。每個表格表示在數據庫中的一個表。 3.1.1 圖書信息表 字段名 數據類型 說明 圖書編號 文本 主鍵， 字段大小 4 書名 文本 字段大小 10 類別 文本 字段大小 10 價格 貨幣類型 無 出版社 文本 字段大小 40 入庫 日期 日期 /時間 無 是否借出 文本 字段大小 4 3.1.2 事務 信息表 字段名 數據類型 說明 借閱編號 自動編號 無 讀者編號 文本 字段大小 50 圖書編號 文本 字段大小 50 歸還日期 日期 /時間 無 出借日期 日期 /時間 無 9 3.1.3 讀者信息表 字段名 數據類型 說明 讀者姓名 文本 字段大小 10 讀者編號 文本 主鍵， 字段大小 4 年齡 數字 無 家庭住址 文本 字段大小 10 3.2 功能模塊的實現 按結構化的程序設計思想，在完成了系統分析、系統設計后，就可以進行系統實現階段了，系統實現是每指把系 統的物理模型轉換成實際運行系統的全過程。在打開數據表之前應該先打開數據庫， 系統中創建了一個模塊，該模塊的作用是連接數據庫以及數據庫中數據的提取，因為系統需要頻繁的使用數據庫中的數據，建立模塊可以使程序簡單化，模塊的代碼如下 ： Public cn As ADODB.Connection 定 義連 接 以及 取 記錄 的 對象 Public rst As ADODB.Recordset Public Function CnToDB() As Boolean On Erro r GoTo My_ Deb ug 設 定 錯誤 機 制，當 連接 錯 誤時 轉到 M y _Debu g Set cn = New ADODB.Connection With cn 設定 訪問數據庫 的參 數 ，對 象 SQL s erv er， 數據 庫 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:當 出錯 時 ，取 消 連接 數 據庫 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 當連接到 數據 庫 后才 能 取得 記 錄 Set rst = New ADODB.Recordset With rst 定義取記錄的參 數 .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, 錯誤信息 End Function 12 注意 :當程序不再使用數據庫時 ,應該調用 Connectio n對象的Close 方法將其關閉 ,但此時它還會占用一定的系統資源 ,完全將資源釋放給系統的方法是使用下面的語句 : Set con=Nothing.不過 ,這兩個步驟往往會被省略 ,因為當程序關閉時 ,程序所打開的數據也會隨之關閉 ,Connectio 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 如果找到 了用 戶 名， 則 保存 記 錄符 合 記錄 的 條數 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 用戶名與 密 碼數 據 表里 都 有則 顯 示主 畫 面 MDIForm1.Show Unload Me 關閉本窗口 Else MsgBox 您輸入的用戶名或密碼有錯誤 !, vbInformation + vbOKOnly, 登錄失敗 End If End Sub Private Sub Command2_Click()取消 按 鈕的 點 擊事 件 Unload Me End Sub Private Sub Form_Load()如果沒有 連 上數 據 庫， 則 顯示 相 應信 息 If CnToDB = False Then 14 MsgBox 網絡未響應！出現此情況可能是與服務器沒有物理連接或數據庫不在指向的服務器上！ , vbCritic al + vbOKOnly, Connecting Error End If Text1.Text = 加載窗體時清空 t e xt 1 與 t e xt 2 的內 容 Text2.Text = End Sub 注意 :工程屬性對話框中的 ”啟動選項 ”用來選取擇運行 VB 時顯示 的第一個窗體 ,或者 Sub Main. 主窗體中的代碼不多 ,基本上都是實現單擊某個菜單選項即彈出相應窗體的語句 ,這些語句將分別在各個窗體中介紹。單擊“ 幫助 ” “ 關于 ”菜單，系統代碼如下： Private Sub mun_help_about_Click() about.Show End Sub 系統主窗體的實現 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 網絡未響應！出現此情況可能是與服務器沒有物理連接或數據庫不在指向的服務器上！ , 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 沒有任何記錄！ 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 網絡未響應！出現此情況可能是與服務器沒有物理連接或數據 庫不在指向的服務器上！ , 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 沒有任何記錄！ 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 數據管理 的實現 當單擊 數據管理添加書籍記錄 菜單時， 窗體如下： 代碼如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error GoTo nore 21 If MsgBox(確實要添加嗎？ , vbYesNo + vbQuestion,提示 ) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Sub nore: MsgBox 圖書編號重復或者輸入錯誤！ , 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 沒有任何記錄！ 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 當單擊 數據管理添加讀者記錄 菜單時，彈出如下代碼： 添加 讀者的 窗體 代碼如下： Private Sub Command1_Click() On Error GoTo error If MsgBox(確實要添加嗎？ , vbYesNo + vbQuestion, 提示 ) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Sub error: 24 MsgBox 讀者編號重復或者輸入錯誤！ , 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 沒有任何記錄！ 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 當單擊 數據管理修改更改書籍 菜單時， 窗體如下： 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 當單擊 數據管理修改更改讀者 菜單時， 窗體如下代碼如下： 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 當單擊 數據管理刪除刪除書籍 菜單時， 窗體如下 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 沒有數據！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數據 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 當單擊 數據管理刪除刪除讀者 菜單時， 窗體如下 35 代碼如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒有數據！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數據 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 當單擊 記錄瀏覽讀者記錄 菜單時， 窗體如下 38 代碼如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 編號 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 編號 Combo1.AddItem 名字 Combo1.AddItem 城市 If CnToDB = False Then MsgBox 網絡未響應！出現此情況可能是與服務器沒有物理連接或數據庫不在指向的服務器上！ , 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 沒有任何記錄！ End If End Sub 當單擊 記錄瀏覽借閱記錄 菜單時， 窗體如下 41 代碼如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 讀者編號 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 = 圖書編號 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 讀者編號 Combo1.AddItem 圖書編號 Combo1.AddItem 借閱日期 Combo1.AddItem 歸還日期 If CnToDB = False Then MsgBox 網絡未響