可视化程序设计(VB)之Data控件应用例子.docVIP

本应用程序设计一个窗体，如图1所示，窗体中包含的各控件及其属性设置如表1所列。 图1 Data控件应用例子设计界面 表1 控件及其属性设置 控件名字 属性 属性值 Data1 Caption Data1 Connect Access DatabaseName E:\vb\student.mdb DefaultCursorType 0 默认游标 DefaultType 2 使用 ODBC Exclusive 0 False Options 0 ReadOnly 0 False RecordsetType 1 Dynaset RecordSource 学生表 Combo1 DataField 性别 DataSource Data1 Combo2 DataField 民族 DataSource Data1 cmdAdd Caption 添加 cmdDelete Caption 删除 cmdFind Caption 查找 cmdUpdate Caption 更新 cmdClose Caption 关闭 txtFields(0) DataField 学号 DataSource Data1 txtFields(1) DataField 姓名 DataSource Data1 txtFields(2) DataField 班号 DataSource Data1 lblLabels(0) AutoSize -1 True Caption 学号: 续表 控件名字 属性 属性值 lblLabels(1) AutoSize -1 True Caption 姓名: lblLabels(2) AutoSize -1 True Caption 性别: lblLabels(3) AutoSize -1 True Caption 民族: lblLabels(4) AutoSize -1 True Caption 班号: 本例的执行界面如图2所示。在开始时，数据库表中数据为空，先单击“添加”按钮，然后输入或选择各字段的值，然后单击“更新”按钮，则输入了一个记录。 图2 Data控件应用例子执行界面 在本例窗体中设计如下事件过程： Private Sub cmdAdd_Click() Data1.Recordset.AddNew cmdDelete.Enabled = False cmdFind.Enabled = False cmdUpdate.Enabled = True txtFields(0).SetFocus End Sub Private Sub cmdDelete_Click() If MsgBox(真的要删除当前记录吗, vbYesNo, 信息提示) = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst If Data1.Recordset.BOF Then cmdDelete.Enabled = False cmdFind.Enabled = False End If End If End If End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdFind_Click() Dim str As String str = InputBox(输入查找表达式,如年龄=9, 查找) If str = Then Exit Sub Data1.Recordset.FindFirst str If Data1.Recordset.NoMatch Then MsgBox 指定的条件没有匹配的记录, , 信息提示 End If End Sub Private Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified cmdUpdate.Enabled = False cmdDelete.Enabled = True cmdFind.Enabled = True End Sub Private Sub Data1_Error(DataErr As Integer, Response