设计一个窗体,使用ADO编程方式实现数据库表的基本操作,.docVIP

设计一个窗体，使用ADO编程方式实现数据库表的基本操作，如图1所示。窗体中包含的控件及其主要属性设置如表所列。 图1 ADO编程窗体的屏幕设计 表1 控件及其对应的属性设置 控件名 属性 设置值 CmdCancel Caption 取消 cmdUpdate Caption 更新 cmdDelete Caption 删除 cmdEdit Caption 编辑 cmdAdd Caption 添加 HScroll1 Enabled -1 True optsex（0） Caption 男 optsex（1） Caption 女 Comnation Text txtName Text txtNo Text txtClass Text Label1 AutoSize -1 True Caption 学号 Label2 AutoSize -1 True Caption 姓名 Label3 AutoSize -1 True Caption 性别 Label4 AutoSize -1 True Caption 民族 Label5 AutoSize -1 True Caption 班号 本窗体中设计的全局变量和事件过程如下： 定义全局变量 Dim bEdit As Boolean Dim bAdd As Boolean Dim RecNum As Integer 记录集中的记录个数 Dim bDataChange As Boolean Dim myBookmark As Variant Dim intScrollpre As Integer Private Conn As ADODB.Connection Private Rs As ADODB.Recordset 以下为事件过程 Private Sub cmdAdd_Click() If RecNum 0 Then myBookmark = Rs.Bookmark Else myBookmark = vbNullString End If bAdd = True Rs.AddNew Rs.Fields(学号) = vbNullString Rs.Fields(姓名) = vbNullString Rs.Fields(性别) = vbNullString Rs.Fields(民族) = vbNullString Rs.Fields(班号) = vbNullString ClearField HScroll1.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = True cmdCancel.Enabled = True cmdAdd.Enabled = False cmdEdit.Enabled = False cmdClose.Enabled = False txtNo.SetFocus End Sub Private Sub ClearField() optsex(0) = True txtNo.Text = txtName.Text = txtClass.Text = Comnation.Text = End Sub Private Sub cmdcancel_Click() bAdd = False bEdit = False cmdUpdate.Enabled = False cmdEdit.Enabled = True cmdCancel.Enabled = False HScroll1.Enabled = True cmdDelete.Enabled = True cmdAdd.Enabled = True cmdEdit.Enabled = True cmdClose.Enabled = True Rs.CancelUpdate bDataChange = False If RecNum = 0 Then DisButton ClearField Exit Sub End If Rs.Bookmark = myBookmark FillText End Sub Private Sub cmdClose_Click() Rs.Close End End Sub Private Sub cmdDelete_Click() If MsgBox(真的要删除吗