(精品論文)圖書管理系統(tǒng)論文

代寫：各專業(yè)專、本、碩、博畢業(yè)論文，職稱論文；代發(fā)：省級、國家級、核心期刊、CSSCI來源核心期刊論文。QQ:757518360電話：01087832641.圖書管理系統(tǒng)論文(VB+SQL)目 錄內(nèi)容摘要2引言.2第一章 課題簡介.3第二章 需求分析.42.1圖書管理現(xiàn)狀.42.2數(shù)據(jù)流程圖. 5第三章 系統(tǒng)邏輯和物理設計.83.1數(shù)據(jù)庫的設計.83.2功能模塊的實現(xiàn).9第四章 調(diào)試與分析.504.1存在問題及解決方案.504.2進一步改進設想.50第五章 用戶操作說明505.1軟硬件環(huán)境.505.2應用系統(tǒng)安裝.505.3操作手冊.50小結.51參考文獻.52內(nèi)容摘要圖書管理系統(tǒng)是采用Visual Basic6.0開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。開發(fā)本系統(tǒng)的基本步驟：需求分析、系統(tǒng)概念設計、系統(tǒng)邏輯和物理設計、系統(tǒng)實現(xiàn)和維護。在系統(tǒng)分析中先后用數(shù)據(jù)字典、數(shù)據(jù)流程、系統(tǒng)的功能結構圖、ER圖分析了系統(tǒng)所需的各種數(shù)據(jù)。在系統(tǒng)的設計過程中,我們采用了模塊獨立設計法,比較詳細的展現(xiàn)了各個模塊的功能。在庫和表的設計當中, 我們力求層次清晰，設計簡單實用。在系統(tǒng)具體實行階段中，我們精心細致的畫出了各個窗體并給出了相應的事件和代碼，以實現(xiàn)各個窗體的作用。本系統(tǒng)雖然設計簡單，但有一定的實用性。系統(tǒng)的功能較為全面，使用簡單，基本上可以作為一般大中小學的圖書管理系統(tǒng)。關鍵字：數(shù)據(jù)庫 SQL 語言 Visual Basic6.0 圖書 圖書管理 窗體 引言當今時代是飛速發(fā)展的的信息時代。在各行各業(yè)中離不開信息處理，這正是計算機被廣泛應用于信息管理系統(tǒng)的原因。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。計算機進行信息管理與信息管理系統(tǒng)的開發(fā)密切相關，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。本系統(tǒng)就是為了管理好圖書館信息而設計的。圖書館作為一種信息資源的集散地，圖書和用戶借閱資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的圖書館都是初步開始使用，甚至尚未使用計算機進行信息管理。根據(jù)調(diào)查得知，他們以前對信息管理的主要方式是基于文本，表格等紙介質的手工處理，對于圖書借閱情況（如借書天數(shù)，超過限定借書時間的天數(shù)）的統(tǒng)計和核實等往往采用對借書卡的人工檢查進行，對借閱者的借閱權限，以及借閱天數(shù)等用人工計算，手抄進行。數(shù)據(jù)處理工作量大，容易出錯。由于數(shù)據(jù)繁多，容易丟失，且不易查找。總的來說，缺乏系統(tǒng)規(guī)范的信息管理手段。盡管有的圖書館有計算機，但是尚未用于信息管理，沒有發(fā)揮它的效力，資源閑置比較突出，這就是管理信息系統(tǒng)的開發(fā)的基于環(huán)境?；谶@個問題，我認為有必要建立一個圖書管理系統(tǒng)，使圖書管理工作規(guī)范化，系統(tǒng)化，程序化，避免圖書管理的隨意性，提高信息處理的速度和準確性，能夠及時，準確，有效的查詢和修改圖書情況。第一章 課題簡介課題：圖書管理系統(tǒng)。任務：針對各大中專院校的圖書管理現(xiàn)狀，設計出適合一般學校的計算機輔助圖書管理系統(tǒng)。實現(xiàn)對圖書基本信息、讀者基本信息進行計算機輔助管理，完成借書和還書有關信息的記錄、修改、查詢、刪除等一系列任務的計算機管理與實現(xiàn).。開發(fā)環(huán)境：本圖書管理開發(fā)系統(tǒng)是在Pentyum 4 以上機型的計算機上進行開發(fā)并獲得通過的，同時方便系統(tǒng)開發(fā)，減少開發(fā)過程的難度，我們是基于以下的軟件環(huán)境。以Windows 98為操作系統(tǒng)以Visual Basic6.0為開發(fā)工具以Microsoft SQL Server作為后臺數(shù)據(jù)庫功能概述：該系統(tǒng)界面完好，操作簡便，能完成添加圖書信息，修改圖書信息，查詢圖書信息，添加讀者類別，修改讀者類別，查詢讀者信息，修改讀者信息，添加刪除管理員等一系列圖書管理功能，開發(fā)本系統(tǒng)的總體任務是實現(xiàn)圖書管理的系統(tǒng)化和自動化，幫助管理人員更好更高效地完成圖書管理工作。本著實用性和介紹性的原則，整個系統(tǒng)由五大模塊組成，每個大的模塊又包括三至四個小的模塊。一、 圖書管理部分：包括圖書信息管理和類別管理，其功能是實現(xiàn)對各部分數(shù)據(jù)內(nèi)容進行添加、修改、查詢等操作。二、 借閱管理部分：包括借書管理和還書管理，其功能是實現(xiàn)對各部分數(shù)據(jù)內(nèi)容的添加和查詢等操作。三、 讀者管理部分：包括讀者信息管理和讀者類別管理，其功能是實現(xiàn)對各部分數(shù)據(jù)內(nèi)容的添加和修改等操作。四、 系統(tǒng)管理部分：包括修改系統(tǒng)用戶密碼和增加新用戶兩項功能。 五、 幫助部分：顯示關于信息。系統(tǒng)具有高效、易操作、易維護等特點，并且系統(tǒng)結構清晰、界面友好，功能較為齊全，能有效地協(xié)助管理人員進行圖書管工作。如果想真正把它用到圖書館的圖書自動化管理中，還需要讀者對該系統(tǒng)進行一步的完善工作。第二章 需求分析需求分析階段確定的系統(tǒng)邏輯模型是以后設計和實現(xiàn)目標系統(tǒng)的基礎，因此必須準確完整地體現(xiàn)用戶的要求。在這一章里，我將給出系統(tǒng)的數(shù)據(jù)流圖，功能結構圖，數(shù)據(jù)字典，為系統(tǒng)的設計奠定基礎。2.1圖書管理現(xiàn)狀隨著計算機技術的飛速發(fā)展，其應用方面已滲透到社會生活的各個領域。它已經(jīng)成為我們學習和工作的得力助手。在學校，尤其是在一些高校，圖書是學校的一項重要資源，圖書的管理也是學校的一項常規(guī)性的重要工作。而長期以來，學生圖書管理都是依賴人工進行的。現(xiàn)今，有很多的學校都已經(jīng)開始使用計算機進行圖書信息管理，并且起得良好的效果。近年來我校招生情況越來越好，所以圖書管理工作越來越繁重，但由于種種原因，管理人員并沒有增加，因此原有的人工管理工作已不能適應現(xiàn)行的工作需要。同時，陳舊的人工管理也不利于推廣計算機應用。為使圖書管理工作科學化、規(guī)范化，就必須采用計算機輔助管理。2.2 數(shù)據(jù)流程圖數(shù)據(jù)流程圖（Data Flow DFD）是描述實際業(yè)務管理系統(tǒng)工作流程的一種圖形表示法。它描繪系統(tǒng)的邏輯模型圖，其中沒有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動和處理的情況。因為數(shù)據(jù)流程圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計算機技術人員也容易理解，所以是極好的通信工具。此外，設計數(shù)據(jù)流程圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實現(xiàn)這些功能，所以它也是軟件設計的很好的出發(fā)點。圖書管理系統(tǒng)主要是為了對圖書、讀者基本信息等進行計算機管理。下面就是功能模塊的流程分析：2.2.1 圖書管管理系統(tǒng)基本信息流程流程分析：圖書基本信息的流動首先是以圖書編號為流動方向的依據(jù)，來達到添加、修改、記錄、刪除圖書記錄。為了數(shù)據(jù)的一致性，進行這些操作的同時，也對數(shù)據(jù)庫中的記錄進行檢查，檢查是否有重復的記錄。如有則不能進行添加。2.2.2 讀者信息管理基本信息流程圖流程圖分析：讀者基本信息的流動首先是以讀者的編號為依據(jù)，來達到添加、修改、查詢、刪除讀者信息的記錄。同時，也對數(shù)據(jù)庫中的讀者信息表的編號進行檢查。 2.2.3借書管理基本信息流程圖 流程圖分析：借書管理基本信息的流動首先是以借閱編號為流動方向的依據(jù)，來達到添加、查詢借書記錄。為了數(shù)據(jù)的一致性，進行這些操作的同時，也對數(shù)據(jù)庫中的記錄進行檢查，檢查是否有重復的記錄。如沒有則可進行添加。2.2.4 還書管理基本信息流程圖流程圖分析：借閱管理部分是實現(xiàn)對各部分數(shù)據(jù)內(nèi)容的添加和查詢操作，在借閱信息中包括圖書編號、讀者編號，系統(tǒng)對借書日期進行自動添加。并通過添加功能來達到借閱信息表的數(shù)據(jù)的更新，通過查詢功能可使管理員很快地了解借閱信息，從而避免書籍的丟失現(xiàn)象產(chǎn)生。通過上面對各個模塊流程的分析，那么我們就不難對整個系統(tǒng)的大致流程有一個全面的認識。設計時采用了常用的自頂向下的瀑布式結構化設計方法。這樣系統(tǒng)做起來后就便于用戶操作。綜合上面各個模塊的分析，其總體流程圖如下： 啟動界面登錄 連接數(shù)據(jù)庫， 驗證管理員密碼進入主畫面數(shù)據(jù)管理 記錄瀏覽 借還操作 系統(tǒng)設置 幫助 顯示 關于信息 讀者 借閱 借閱 歸還 添加 刪除記錄 記錄 書籍 書籍 管理員 管理員添 修 刪加 改 除第三章 系統(tǒng)邏輯和物理設計3.1數(shù)據(jù)庫的設計根據(jù)上面的結構圖，現(xiàn)在需要將數(shù)據(jù)庫結構轉化為SQL Server2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結構。形成數(shù)據(jù)庫中的表格以及各個表格之間的關系。圖書管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設計結果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。3.1.1圖書信息表字段名數(shù)據(jù)類型說明圖書編號文本主鍵，字段大小4書名文本字段大小10類別文本字段大小10價格貨幣類型無出版社文本字段大小40入庫日期日期/時間無是否借出文本字段大小43.1.2事務信息表字段名數(shù)據(jù)類型說明借閱編號自動編號無讀者編號文本字段大小50圖書編號文本字段大小50歸還日期日期/時間無出借日期日期/時間無3.1.3讀者信息表字段名數(shù)據(jù)類型說明讀者姓名文本字段大小10讀者編號文本主鍵，字段大小4年齡數(shù)字無家庭住址文本字段大小103.2功能模塊的實現(xiàn)按結構化的程序設計思想，在完成了系統(tǒng)分析、系統(tǒng)設計后，就可以進行系統(tǒng)實現(xiàn)階段了，系統(tǒng)實現(xiàn)是每指把系統(tǒng)的物理模型轉換成實際運行系統(tǒng)的全過程。在打開數(shù)據(jù)表之前應該先打開數(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.Recordset Public Function CnToDB() As BooleanOn Error GoTo My_Debug設定錯誤機制，當連接錯誤時轉到My_Debug Set cn = New ADODB.Connection With cn設定訪問數(shù)據(jù)庫的參數(shù)，對象SQLserver，數(shù)據(jù)庫booksys .ConnectionString = provider=sqloledb;uid=sa;pwd=;server=. .ConnectionTimeout = 5 .CursorLocation = adUseClient .Open .DefaultDatabase = booksys End With CnToDB = True Exit FunctionMy_Debug:當出錯時，取消連接數(shù)據(jù)庫 Set con = Nothing CnToDB = FalseEnd FunctionPublic Function QueryData(ByVal strSql As String) As Boolean On Error GoTo My_Debug If CnToDB = True Then當連接到數(shù)據(jù)庫后才能取得記錄 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: Set rst = Nothing QueryData = FalseEnd FunctionPublic Function getRS(ByRef rst As ADODB.Recordset, ByVal strSql As String) As BooleanOn 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 IfrsErr: getRS = False MsgBox Err.Number & Err.Description, vbCritical + vbOKOnly, 錯誤信息End Function注意:當程序不再使用數(shù)據(jù)庫時,應該調(diào)用Connection對象的Close方法將其關閉,但此時它還會占用一定的系統(tǒng)資源,完全將資源釋放給系統(tǒng)的方法是使用下面的語句:Set con=Nothing.不過,這兩個步驟往往會被省略,因為當程序關閉時,程序所打開的數(shù)據(jù)也會隨之關閉,Connection對象所占用的系統(tǒng)資源也會自動釋放給系統(tǒng).登錄窗體的實現(xiàn)其代碼如下：Private Sub Command1_Click()Dim uid定義用戶名變量Dim pwd定義密碼的變量 Dim strFu As String定義查找用戶名的變量 Dim strFp As String定義查找密碼的變量 strFu = select * from yh where userid= & Text1.Text & 查找與輸入的用戶名一致的用戶名If QueryData(strFu) Then如果找到了用戶名，則保存記錄符合記錄的條數(shù)uid = rst.RecordCountEnd If strFp = select * from yh where pwd= & Text2.Text & If QueryData(strFp) Thenpwd = rst.RecordCountEnd IfIf pwd = 1 And uid = 1 Then用戶名與密碼數(shù)據(jù)表里都有則顯示主畫面MDIForm1.ShowUnload Me關閉本窗口Else MsgBox 您輸入的用戶名或密碼有錯誤!, vbInformation + vbOKOnly, 登錄失敗End IfEnd SubPrivate Sub Command2_Click()取消按鈕的點擊事件Unload MeEnd SubPrivate Sub Form_Load()如果沒有連上數(shù)據(jù)庫，則顯示相應信息If CnToDB = False Then MsgBox 網(wǎng)絡未響應！出現(xiàn)此情況可能是與服務器沒有物理連接或數(shù)據(jù)庫不在指向的服務器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfText1.Text = 加載窗體時清空text1與text2的內(nèi)容Text2.Text = End Sub注意:工程屬性對話框中的”啟動選項”用來選取擇運行VB時顯示的第一個窗體,或者Sub Main.主窗體中的代碼不多,基本上都是實現(xiàn)單擊某個菜單選項即彈出相應窗體的語句,這些語句將分別在各個窗體中介紹。單擊“幫助” “關于”菜單，系統(tǒng)代碼如下：Private Sub mun_help_about_Click()about.ShowEnd Sub系統(tǒng)主窗體的實現(xiàn)其代碼如下：Private rs As ADODB.RecordsetPrivate rs1 As ADODB.RecordsetPrivate rs2 As ADODB.RecordsetPrivate strSql As StringPrivate Sub Command1_Click()borrow.ShowEnd SubPrivate Sub Command2_Click()reback.ShowEnd SubPrivate Sub Command4_Click()Text2.Text = If CnToDB = False Then MsgBox 網(wǎng)絡未響應！出現(xiàn)此情況可能是與服務器沒有物理連接或數(shù)據(jù)庫不在指向的服務器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失?。?End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate Sub Command5_Click()delbook.ShowEnd SubPrivate Sub Image1_Click()Dim strF As String搜索按鈕 strF = select * from book where bookname like % & Text2.Text & %If QueryData(strF) Then Set DataGrid1.DataSource = rstEnd IfEnd SubPrivate Sub MDIForm_Load()Text2.Text = If CnToDB = False Then MsgBox 網(wǎng)絡未響應！出現(xiàn)此情況可能是與服務器沒有物理連接或數(shù)據(jù)庫不在指向的服務器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查詢失敗！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄！ End If End 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_Click()addbook.ShowEnd SubPrivate Sub mun_del_book_Click()delbook.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 Sub mun_rework_stu_Click()reworkreader.ShowEnd SubPrivate Sub mun_sys_admin_Click()addmange.ShowEnd SubPrivate Sub mun_sys_sys_Click()delmange.ShowEnd Sub數(shù)據(jù)管理的實現(xiàn)當單擊數(shù)據(jù)管理添加書籍記錄菜單時，窗體如下：代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo nore If MsgBox(確實要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Subnore: MsgBox 圖書編號重復或者輸入錯誤！, vbOKOnly + vbCritical, 提示End SubPrivate 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 Else MsgBox 查詢失敗！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate 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.UpdateEnd Sub當單擊數(shù)據(jù)管理添加讀者記錄菜單時，彈出如下代碼：添加讀者的窗體代碼如下：Private Sub Command1_Click()On Error GoTo error If MsgBox(確實要添加嗎？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Suberror: MsgBox 讀者編號重復或者輸入錯誤！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate 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 Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 沒有任何記錄！ End IfEnd SubPrivate 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.UpdateEnd Sub當單擊數(shù)據(jù)管理修改更改書籍菜單時，窗體如下：代碼如下：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 Subno: MsgBox 修改成功End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %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 IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate 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.TextEnd Sub當單擊數(shù)據(jù)管理修改更改讀者菜單時，窗體如下代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate 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 Subno: MsgBox 修改成功End SubPrivate 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 IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate 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.TextEnd Sub當單擊數(shù)據(jù)管理刪除刪除書籍菜單時，窗體如下代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate 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 Subno: MsgBox 修改成功End SubPrivate Sub Command4_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒有數(shù)據(jù)！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數(shù)據(jù) Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %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).ValueEnd IfEnd SubPrivate Sub Form_Load() Call txtClsEnd SubPrivate 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.TextEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate 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).ValueEnd Sub當單擊數(shù)據(jù)管理刪除刪除讀者菜單時，窗體如下代碼如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 沒有數(shù)據(jù)！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 沒有數(shù)據(jù) Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate 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 IfEnd SubPrivate Sub Form_Load()txtClsEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate 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當單擊記錄瀏覽讀者記錄菜單時，窗體如下代碼如下：Private Sub Command1_Click()Dim strF As StringIf Combo1.Text = 編號 Then strF = select * from reader where readerid like % & Text1.Text & %If Qu