vb編程技術數據庫訪問技術(編輯修改稿)

　

【文章內容簡介】 創建數據庫 。 通過 Access建立一個名為 “ 成績管理 .mdb”的數據庫 ， 保存在 D盤根目錄下 ， 在庫中建立一個名為 “ 成績 ” 的表 ， 并向其中添加一些數據記錄 ， 表結構如表 141所示 。 第 14章 數據庫訪問技術 表 141 成績表結構 第 14章 數據庫訪問技術 (2) 設計程序界面 。 本程序分為 3個窗體 ， 如圖 、 圖 。 啟動窗體為 “ 成績管理 ” 。 在主窗體中添加 5個按鈕 ， 其中 “ 刪除 ” 和 “ 更新 ” 按鈕啟動時不可見 ， 并且與 “ 添加 ” 、 “ 修改 ” 按鈕重疊放置 。 其他控件的情況按這幾個圖設置 ， 這里不再贅述 。 第 14章 數據庫訪問技術 圖 設計主程序界面 第 14章 數據庫訪問技術 圖 設計添加記錄界面 第 14章 數據庫訪問技術 圖 設計輸入口令界面 第 14章 數據庫訪問技術 (3) 設置對象屬性 。 將“成績管理”和“添加記錄”窗體中的 Data控件的 DatabaseName屬性設為數據庫存放位置 d:\成績管理 .mdb， RecordSource屬性設為“成績”表。 第 14章 數據庫訪問技術 (4) 編寫程序代碼 。 “ 成績管理 ” 窗體模塊的代碼為 Public panduan As Integer Dim reccount As Integer 39。 用來存放總記錄條數 “ 學號 ” 組合框 Combo1的 Click事件代碼為 Private Sub Combo1_Click() 39。 將記錄指針指向第一條記錄 第 14章 數據庫訪問技術 學號 = 39。 amp。 amp。 39。 = (姓名 ) Call xianshi End Sub 在 “ 學號 ” 組合框中按回車鍵時執行的程序代碼為 Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 第 14章 數據庫訪問技術 學號 = 39。 amp。 amp。 39。 = (姓名 ) If Then 39。 未找到匹配的記錄 ， 則顯示提示信息 MsgBox 查無此人 ！ , 48, 注意 Else Call xianshi 39。 調用 xianshi過程 End If End If End Sub 第 14章 數據庫訪問技術 “姓名 ” 組合框 Combo2的 Click事件代碼為 Private Sub Combo2_Click() 姓名 = 39。 amp。 amp。 39。 = (學號 ) Call xianshi End Sub 在 “ 姓名 ” 組合框中按回車鍵時執行的代碼為 第 14章 數據庫訪問技術 Private Sub Combo2_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 姓名 = 39。 amp。 amp。 39。 = (學號 ) If Then MsgBox 查無此人 ！ , 48, 注意 Else Call xianshi 39。 調用 xianshi過程 End If 第 14章 數據庫訪問技術 End If End Sub “添加 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() panduan = 1 1 39。 顯示輸入口令對話框 End Sub “修改 ” 按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() panduan = 2 1 End Sub 第 14章 數據庫訪問技術 重新計算 “ 總分 ” 和 “ 平均分 ” 字段的值的自定義過程為 Sub gengxin() Do While = False 39。 進入編輯狀態 (總分 ) = (數學 ) + _ (英語 ) + (計算機 ) 第 14章 數據庫訪問技術 39。 將緩沖區中的數據寫入數據庫 (平均分 ) = Format((總分) / 3, ) Loop End Sub 刷新文本框中顯示信息的自定義過程為 第 14章 數據庫訪問技術 Sub xianshi() Text1 = (數學 ) Text2 = (英語 ) Text3 = (計算機 ) Text4 = (總分 ) Text5 = Format((平均分 ), ) 39。保留 1位小數點 = 記錄號： amp。 + 1 amp。 / amp。 reccount End Sub 第 14章 數據庫訪問技術 “刪除 ” 按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() a = MsgBox(當前記錄將被刪除 ， 確定嗎 ？ , 4 + 48, 警告 ) If a = vbNo Then Exit Sub Call chushihua End Sub 第 14章 數據庫訪問技術 “更新 ” 按鈕 Command4的 Click事件代碼為 Private Sub Command4_Click() a = MsgBox(當前記錄將被修改 ， 確定嗎 ？ , 4 + 48, 警告 ) If a = vbNo Then Exit Sub With Data1 .Recordset(學號 ) = .Recordset(姓名 ) = .Recordset(數學 ) = Text1 第 14章 數據庫訪問技術 .Recordset(英語 ) = Text2 .Recordset(計算機 ) = Text3 .Recordset(總分 ) = Val(Text1) + Val(Text2) + Val(Text3) .Recordset(平均分 ) = Format(.Recordset(總分 ) / 3, ) End With Call chushihua Call xianshi