【文章內(nèi)容簡介】 mdb)，單擊 “完成 ”按鈕，出現(xiàn)如圖 11 對話框。 圖 11 置連接 數(shù)據(jù)源 在 “數(shù)據(jù)源名 ”文本框中添加一個名字，單擊 “確定 ”按鈕完成系統(tǒng)默認(rèn)連接設(shè)置。然后在ODBC 對話框中單擊 “確定 ”按鈕完成 ODBC 設(shè)置。 界面設(shè)計 設(shè)計好的界面如圖 12 所示。 圖 12 圖書管理系統(tǒng)界面 這是一個多文檔界面 (MDI)應(yīng)用程序，可以同時顯示多個文檔，每個文檔顯示在各自的窗體中。 MDI 應(yīng)用程序中常有包含子菜單的 “窗體 ”選項，用于在窗體或文檔之間進行切換。 菜單應(yīng)用程序中，有 5 個菜單選項，每個選項對應(yīng)著 ER 圖的一個子項目。 創(chuàng)建主窗體 首先創(chuàng)建一個工程，命名為圖 書管理系統(tǒng)，選擇 “工程 ”→“ 添加 MDI 窗體 ”命令，則在項目中添加了主窗體。該窗體的一些屬性如表1 所示。 表 1 主窗體的屬性 16 屬 性值 Caption 圖書管理系統(tǒng) Name Main Menu Mainmenu1 Windowstate Maxsize Windowstate 的值為 Maxsize，即程序啟動之后自動最大化。 將 “菜單 ”組件從 “工具箱 ”拖到窗體上。創(chuàng)建一個 Text 屬性設(shè)置為 “文件 ”的頂級菜單項，且?guī)в忻麨?“關(guān)閉 ”的子菜單項。類似地創(chuàng)建一些菜單項，如表 2所示。 表 2 菜 單 項 表 菜 單 名 稱 Text 屬性 功 能 描 述 MenuItem1 圖書管理 頂級菜單，包含子菜單 MenuItem2 圖書類別 調(diào)出圖書登記窗體 MenuItem3 圖書信息 調(diào)出圖書借閱窗體 MenuItem4 圖書資料 頂級菜單，包含子菜單 MenuItem5 查詢輸出 調(diào)出查詢輸出窗體 MenuItem6 系統(tǒng)管理 頂級菜單，包含子菜單 MenuItem7 增加用戶 調(diào)出用戶窗體 MenuItem8 修改密碼 調(diào)出密碼窗體 MenuItem9 退出 系統(tǒng)退出 創(chuàng)建各子窗體 選擇 “工程 ”→“ 添加窗體 ”命令，添加子窗體。 在新建 Visual Basic 工程時自帶的窗體中，將其屬性 MIDChild 改成 True，則這個窗體成為 MID 窗體的子窗體。 在這個項目中，要創(chuàng)建的子窗體如表 3 所示。 表 3 所有子窗體 子 窗 體 名 Text 圖書登記 frmdengji 圖書借閱 frmjieyue 增加新用戶 frmadduser 查詢輸出 frmfind 登錄系統(tǒng) frmlogin 修改密碼 frmchangepwd 下面分別給出這些子 窗體，以及它們所使用的控件。 (1) 圖書登記子窗體控件如表 4 所示。 表 4 圖書登記子窗體控件 控 件 類 別 控件 Name 控件 Text Label Label1 編號 Label2 書名 Label3 類型 Label4 購買日期 17 Label5 TextBox Text1 (空 ) Text2 (空 ) Text3 (空 ) Text4 (空 ) Text5 (空 ) CommandButton Command1 Command2 ADO DataAdodc1 (空 ) DataGrid DataGrid1 (空 ) 圖書借閱和圖書賠償子窗體分別，因為它們的控件與圖書登記子窗體的雷同，在此不作介紹。 (2) 增加用戶子窗體如圖 13 所示，其控件如表 5 所示。 圖 13 增加用戶子窗體 表 5 增加用戶子窗體控件 控 件 類 別 控件 Name 控件 Text Label Label1 輸入用戶名 Label2 輸入密碼 Label3 確認(rèn)密碼 TextBox Text1 (空 ) Text2 (空 ) Text3 (空 ) ComboBox Comb1 選擇權(quán)限 CommandButton Commandl 確定 Command2 取消 (3) 修改密碼子窗體如圖 14 所示。 18 圖 14 修改密碼子窗體 （ 4) 用戶登錄子窗體如圖 15 所示。 圖 15 用戶登錄子窗體 19 (5) 添加讀者類別如圖 16，其控件如表 9 所示。 圖 16 建立公共模塊 顯示目錄 建立公共模塊可以提高代碼的效率，同時使得修改和維護代碼都很方便。 創(chuàng)建公共模塊的步驟如下 : (1) 在菜單中選擇 “工程 ”→“ 添加模塊 ”命令，則出現(xiàn)模塊對話 框，如圖 18 所示。 (2) 選擇模塊圖標(biāo)后，單擊 “打開 ”按鈕，則模塊已經(jīng)添加到項目中了。默認(rèn)情況下名為 Module1。 圖 17 模塊對話框 (3) 在模塊中定義整個項目的公共變量。 Public conn As New ’ 標(biāo)記連接對象 Public userID As String ’ 標(biāo)記當(dāng)前用戶 ID Public userpow As String ’ 標(biāo)記用戶權(quán)限 Public find As Boolean ’ 標(biāo)記查詢 Public sqlfind As String ’ 查詢語句 Public rs_data1 As New Public findok As Boolean 20 Public frmdata As Boolean Public Const keyenter = 13 ’ enter 鍵的 ASCII 碼 在主窗體添加完菜單之后，就要為各個子菜單創(chuàng)建事件處理程序。 主窗體代碼 在本項目中，子菜單事件都是 Click 事件，這里先給出主窗體部分的代碼。 下面是響應(yīng) “增加用戶 ”子菜單 Click 事件，調(diào)出增加用戶窗體代碼。 Private Sub add_admin_Click() 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 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 Private Sub find_reader_info_Click() End Sub Private Sub Form_Load() 21 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 各子窗體的代碼 (1) 圖書登記子窗體代碼 本窗體用來填寫圖書登記的信息，用 ADO 來連接數(shù)據(jù)庫，是本窗體的重點。采用 MDI的子程序，所以運行后，它出現(xiàn)在主程序的界面下，如圖 18 所示。 圖 18 圖書登記子窗體 按鈕控件要求先填寫基本信息，然后與數(shù)據(jù)庫信息比較。 Option Explicit 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 22 MsgBox 圖書編號不能為空 , vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then 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 書籍編號 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If Then