【正文】 End Sub Private Sub add_back_book_Click() End Sub Private Sub add_book_info_Click() End Sub Private Sub add_book_style_Click() End Sub 33 Private Sub add_lend_book_Click() End Sub Private Sub add_reader_info_Click() End Sub Private Sub add_reader_style_Click() End Sub Private Sub change_pwd_Click() End Sub Private Sub del_book_info_Click() End Sub Private Sub del_book_style_Click() End Sub Private Sub del_reader_info_Click() End Sub Private Sub del_reader_style_Click() End Sub Private Sub exit_sys_Click() End End Sub Private Sub find_book_info_Click() End Sub Private Sub find_lend_book_Click() End Sub 34 Private Sub find_reader_info_Click() End Sub Private Sub gu_Click() End Sub Private Sub H_Click() End Sub Private Sub modify_book_info_Click() End Sub Private Sub modify_book_style_Click() End Sub Private Sub modify_reader_info_Click() End Sub Private Sub modify_reader_style_Click() End Sub 添加圖書信息： Private Sub Command1_Click() Dim rs_addbook As New Dim sql As String If Trim() = Then MsgBox 請選擇圖書種類 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 圖書編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then 35 MsgBox 書名不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate() Then MsgBox 請按照 yyyymmdd 格式輸入日期 , vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate() Then MsgBox 請按照 yyyymmdd 格式輸入日期 , vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 書籍信息 where 書籍編號 =? amp。同時，也使我認(rèn)識到自己所學(xué)的知識還很膚淺，這也正是我今后要努力提高的。另外，合理的數(shù)據(jù)結(jié)構(gòu)將非常有利于程序的實現(xiàn)。前臺是應(yīng)用程序的開發(fā)：功能模塊設(shè)計、源代碼開發(fā)。 6 用戶操作說明 運行環(huán)境說明 軟硬件環(huán)境 硬件配置： 586以上檔次的計算機，彩色顯示器， 操作方法 1．直接啟動應(yīng)用系統(tǒng) 2．在登錄窗體中輸入用戶名及密碼就可以直接進入主界面。 ? sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = 否 MsgBox 添加書籍信息成功！ , vbOKOnly, Else MsgBox 圖書編號重復(fù)！ , vbOKOnly + vbExclamation, 30 = Exit Sub End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_leibie As New Dim sql As String sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimistic Do While Not (0) Loop End Sub 5 調(diào)試與分析 系統(tǒng)集成 系統(tǒng)調(diào)試 1. 采用各模塊獨立調(diào)試，整體合成測試的方法 。 If Then (0) = Trim() (1) = Trim() MsgBox 添加圖書類別成功！ , vbOKOnly, Else 如果有重復(fù)，則給出提示，然后將焦點設(shè)置給 TEXT1，并將所有的文本框清空，代碼如下。 Private Sub Command1_Click() 27 Dim rs_bookstyle As New Dim sql As String If Trim() = Then 使用 RECORDSET對象的 OPEN方法打開數(shù)據(jù)表。 _ data source= connectionstring CNt = 0 23 End Sub 注意 :工程屬性對話框中的 ”啟動選項 ”用來選取擇運行 VB時顯示的第一個窗體 ,或者 Sub Main. 主窗體中的代碼不多 ,基本上都是實現(xiàn)單擊某個菜單選項即彈出相應(yīng)窗體的語句 ,這些語句將分別在各個窗體中介紹。_ “data source=” connectionstring 21 ?? End Sub 注意 :當(dāng)程序不再使用數(shù)據(jù)庫時 ,應(yīng)該調(diào)用 Connection 對象的 Close 方法將其關(guān)閉 ,但此時 它還會占用一定的系統(tǒng)資源 ,完全將資源釋放給系統(tǒng)的方法是使用下面的語句 : Set conn= ,這兩個步驟往往會被省略 ,因為當(dāng)程序關(guān)閉時 ,程序所打開的數(shù)據(jù)也會隨之關(guān)閉 ,Connection對象所占用的系統(tǒng)資源也會自動釋放給系統(tǒng) . 登錄窗體的實現(xiàn) 其代碼如下： Option Explicit Dim CNt As Integer ?記錄確定次數(shù) 程序裝載的過程中將此變量初始化為 0 Dim sql As String Dim rs_login As New If Trim() = Then ?判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =? amp。在打開數(shù)據(jù)表之前應(yīng)該先打開數(shù)據(jù)庫，使用公共模塊中定義的 conn 對象。 3. 數(shù)據(jù)庫性能的監(jiān)督、分析和改造 利用 Microsoft SQL Server2021 提供的檢 測系統(tǒng)性能參數(shù)的工具，在數(shù)據(jù)庫運行過程中，監(jiān)督數(shù)據(jù)進行分析，找出改進系統(tǒng)性能的方法，并做適當(dāng)調(diào)整。 2. 數(shù)據(jù)庫的安全性、完整性控制 在數(shù)據(jù)庫運行過程中由于應(yīng)用環(huán)境的變化，對安全性的要求也會發(fā)生變化，如原來機密的數(shù)據(jù)現(xiàn)在可以公開查詢了，新加入的數(shù)據(jù)又可能是機密的了。圖書管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面的幾個表格所示。 3)全局 ER模式的優(yōu)化 在得到全局 ER 模式后，為了提高數(shù)據(jù)庫系統(tǒng)的效率，還應(yīng)進一步依據(jù)處理需求對 E 17 R 模式進行優(yōu)化。一般把同名實體類型作為公共實體類型的一類候選，把具有相同鍵的實體類型作為公共實體類型的另一類候選。 所有局部 ER 模式都設(shè)計好了后，接下來就是把它們綜合成單一的全局概念結(jié)構(gòu)。 （ 1） 設(shè)計局部 ER模式 1．讀者類別表與讀者信息表之間的 ER圖： 2．讀者信息表與圖書信息表之間的 ER圖： 15 3．圖書類別表與圖書信息表之間的 ER圖： 4．圖書信息表與借閱信息表之間的表之間的 ER圖： 16 5．讀者信息表與圖書類別表之間的 ER圖： ER 模型的 “聯(lián)系 ”用于刻畫實體之間的關(guān)聯(lián)。 在概念設(shè)計階段中，設(shè)計人員從用戶的角度看待數(shù)據(jù)及處理要求和約束，產(chǎn)生一個反映用戶觀點的概念模式。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。 幫助部分：包括系統(tǒng)設(shè)計前臺和后臺簡概述等功能。 12 （ 2）讀者類別管理：包括讀者類別的添加、讀者類別的修改、讀者類別的刪除 3部分功能。其中，還書信息與借閱信息部分明細(xì)相同。 借閱管理部分：包括借書管理和還書管理，其功能是實現(xiàn)對各部分?jǐn)?shù)據(jù)內(nèi)容的添加和查詢等操作。各管理部分的明細(xì)如下： （ 1）圖書信息管理：包括圖書信息的添加、圖書信息的修改、圖書信息的查詢