使用对象变量访问数据库OpenDatabase-Read.PPT

删除按钮的事件响应 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控件的记录集里的数据自动设置，从而提供了大量的“已就绪”的功能，它们允许浏览和编辑完整的数据库表和查询结果。 当创建DBGrid控件时，它只有一列和一行。在运行时它还包括一个空行，用星号(*)来表示，用于添加新记录。在“属性”窗口通过设置可改变DBGrid控件的任何可视属性。如果一个单元表格的文本太长，在单元表格中显示不下，此文本会自动地在同一单元折叠到下一行。要显示被折叠的文本，可以加宽单元表格的Column对象的Width属性或者DBGrid控件本身的RowHeight属性。在设计时，可以通过重定列的尺寸或者通过改变Column对象的属性页中的列宽