新VisualBasic实用教程 薛亮 第13章.pptVIP

② 表单frmAddDelete的事件处理程序如下： Option Explicit Option Compare Binary ? 添加按钮的事件响应 Private Sub AddBttn_Click( ) AddBttn.Enabled = False DelBttn.Enabled = False OkBttn.Enabled = True CancelBttn.Enabled = True Data1.Recordset.AddNew End Sub 删除按钮的事件响应 Private Sub CancelBttn_Click( ) Data1.Refresh AddBttn.Enabled = True DelBttn.Enabled = True OkBttn.Enabled = False CancelBttn.Enabled = False End Sub ? 删除按钮的事件响应 Private Sub DelBttn_Click( ) Dim boolYesNo, DelMemo On Error Resume Next boolYesNo = MsgBox(确实要删除 + Text1.Text + ?, vbYesNo) DelMemo = Text1.Text If boolYesNo vbYes Then Exit Sub Data1.Recordset.Delete If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext ElseIf Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else MsgBox 这是表中的最后一条记录! End If MsgBox DelMemo + 已被删除! End Sub 确定按钮的事件响应 Private Sub OkBttn_Click( ) On Error GoTo CancelUpdate Data1.Recordset.Edit Data1.Recordset.Update Data1.Recordset.MoveLast AddBttn.Enabled = True DelBttn.Enabled = True OkBttn.Enabled = False CancelBttn.Enabled = False Exit Sub CancelUpdate: MsgBox Err.Description Data1.Recordset.CancelUpdate 写入出错时放弃 AddBttn.Enabled = True DelBttn.Enabled = True OkBttn.Enabled = False CancelBttn.Enabled = False End Sub 更新按钮的事件响应 Private Sub updateBttn_Click( ) Dim boolYesNo% boolYesNo = MsgBox(确实要保存修改!, vbYesNo) If boolYesNo = vbYes Then Data1.Recordset.Edit 调用Edit方法 Data1.Recordset.Update 保存修改 End If End Sub (4) 程序运行结果。 ① frmData表单运行结果如图13.3所示。 图13.3 表单frmData的运行结果 ② 表单frmData的Find(查询)按钮运行结果如图13.4所示。 图13.4 表单frmData上的查询(Find)按钮显示结果 ③ 表单frmAddDelete运行结果如图13.5所示。 图13.5 表单frmAddDelete运行结果 13.2.4 高级约束数据控件 1．数据库网格 Visual Basic软件包提供了数据库网格控件DBGrid，几乎不用写代码就可直接将数据库的记录显示在网格内。 当把DBGrid控件的DataSource属性设置为一个Data控件时，DBGrid控件会被自动地填充并且其列标题会用Data控件的记录集里的数据自动设置，从而提供了大量的“已就