请教vb代码解释

来源：百度知道 编辑：UC知道 时间：2024/06/23 00:13:15
Option Explicit
Dim rs_reader As New ADODB.Recordset

Private Sub cmdcancel_Click()
rs_reader.CancelUpdate
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
cmdmodify.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
cmdupdate.Enabled = False
End Sub

Private Sub cmddel_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then
DataGrid1.AllowDelete = True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

Private Sub cmdmodify_Click()
Dim answer As String

Option Explicit
Dim rs_reader As New ADODB.Recordset '定义一个数据集

Private Sub cmdcancel_Click()
rs_reader.CancelUpdate '取消数据集更新
DataGrid1.Refresh '刷新datagrid控件数据
DataGrid1.AllowAddNew = False 'DataGrid1控件不允许新增
DataGrid1.AllowUpdate = False 'DataGrid1控件不允许更新
cmdmodify.Enabled = True ‘设置cmdmodify状态为可用
cmddel.Enabled = True ‘设置cmddel状态为可用
cmdcancel.Enabled = False ‘设置状态为不可用
cmdupdate.Enabled = False ‘设置状态为不可用
End Sub

Private Sub cmddel_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then ’当用户点击对话框的yes
DataGrid1.AllowDelete = True ‘datagrid可更新
rs_reader.Delete ’删除数据集数据
rs_reader.Update ‘更新数据集数据到数据库
DataGrid1.Refresh ’刷新datagrid控件数据
MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If