1、實驗 9 VB 數據庫應用編程示例一、目的與要求掌握 VB中開發數據庫應用程序的過程。二、實驗準備1熟悉“學生管理”數據庫中的用戶表。2復習第15 章中的數據訪問接口技術。3復習第16 章中的 ADO以及數據綁定控件。三、實驗內容1. 進入 SQL Server 2000 企業管理器，并附加“學生管理”數據庫。2進入 VB6.0 集成開發環境，添加ADO 控件，并將FORM1 窗體調整到合適的大小。3布局控件對象名對象類型屬性名屬性值AdodcStudentADOConnectionString連接到 “學生管理”數據庫CommandTypeadCmdTableRecordSourceStud

2、entVisibleFalseLabel1LabelCaption學號TxtSnoTextDataSourceAdodcStudentDataFieldSnoLabel2LabelCaption姓名TxtSnameTextDataSourceAdodcStudentDataFieldSnameLabel3LabelCaption性別TxtSsexTextDataSourceAdodcStudentDataFieldSsexLabel4LabelCaption年齡TxtSageTextDataSourceAdodcStudentDataFieldSageLabel5LabelCaption所在系

3、TxtSdeptTextDataSourceAdodcStudentDataFieldSdeptcmdAddCommandCaption添加cmdDelCommandCaption刪除cmdUpdateCommandCaption更新cmdCancelCommandCaption取消cmdFirstCommandCaption第一條cmdPreviousCommandCaption上一條cmdNextCommandCaption下一條cmdLastCommandCaption末一條cmdExitCommandCaption退出4添加菜單菜單結構為：標題名稱翻頁menu1第一條 menuFirs

4、t上一條 menuPrevious下一條 menuNext末一條 menuLast操作menu2添加 menu Add刪除 menuDel更新 menuUpdate取消 menuCancel退出menuExit5編寫并輸入代碼程序代碼如下：（1）窗體啟動時的初始化代碼Private Sub Form_Load()'初始時使“取消”按鈕為不可用狀態CmdCancel.Enabled = FalseEnd Sub（2）數據操作按鈕組代碼Private Sub CmdAdd_Click()' “添加”命令按鈕'使“添加”和“刪除”按鈕為不可用狀態CmdAdd.Enabled

5、= FalseCmdDel.Enabled = False'使“更改”和“取消”按鈕為可用狀態CmdUpdate.Enabled = TrueCmdCancel.Enabled = TrueEnd SubPrivate Sub CmdCancel_Click()' “取消”命令按鈕'使“添加”和“刪除”按鈕為可用狀態CmdAdd.Enabled = TrueCmdDel.Enabled = True'使“取消”按鈕為不可用狀態CmdCancel.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()' “刪除”命

6、令按鈕Dim res As Integerres = MsgBox(" 確實要刪除此行記錄嗎？", _vbExclamation + vbYesNo + vbDefaultButton2)'提示用戶If res = vbYes Then'如果確實要刪除End IfEnd IfEnd SubPrivate Sub CmdUpdate_Click()' “更新”命令按鈕'將文本框中的當前值寫入結果集相應字段中'使更新生效'使“添加”和“刪除”按鈕為可用狀態CmdAdd.Enabled = TrueCmdDel.Enabled =

7、True'使“取消”按鈕為不可用狀態CmdCancel.Enabled = FalseEnd Sub（3）數據操作菜單組代碼Private Sub menuAdd_Click()' “添加”菜單選項'使“添加”和“刪除”按鈕為不可用狀態CmdAdd.Enabled = FalseCmdDel.Enabled = False'使“更改”和“取消”按鈕為可用狀態CmdUpdate.Enabled = TrueCmdCancel.Enabled = TrueEnd SubPrivate Sub menuCancel_Click()' “取消”菜單選項'

8、使“添加”和“刪除”按鈕為可用狀態CmdAdd.Enabled = TrueCmdDel.Enabled = True'使“取消”按鈕為不可用狀態CmdCancel.Enabled = FalseEnd SubPrivate Sub menuDel_Click()' “刪除”菜單選項Dim res As Integerres = MsgBox(" 確實要刪除此行記錄嗎？", _vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes Then'如果確實要刪除'提示用戶End IfEnd

9、 IfEnd SubPrivate Sub menuUpdate_Click()' “更新”菜單選項'將文本框中的當前值寫入結果集相應字段中'使更新生效'使“添加”和“刪除”按鈕為可用狀態CmdAdd.Enabled = TrueCmdDel.Enabled = True'使“取消”按鈕為不可用狀態CmdCancel.Enabled = FalseEnd Sub（ 4）移動指針方法組代碼Private Sub CmdFirst_Click()' “第一條”命令按鈕End SubPrivate Sub CmdLast_Click()'End

10、 Sub“末一條”命令按鈕Private Sub CmdNext_Click()' “下一條”命令按鈕'如果已經移到了最后一行之后，則將指針定位在最后一行End IfEnd Sub(5) 翻頁菜單代碼Private Sub menuFirst_Click()' “第一條”End Sub菜單選項Private Sub menuLast_Click()'“末一條”菜單選項End SubPrivate Sub menuNext_Click()' “下一條”菜單選項'如果已經移到了最后一行之后，則將指針定位在最后一行End IfEnd SubPrivate Sub menuPrevious_Click()' “上一條”菜單