继续VB+access图书管理系统问题，希望高手帮忙详细解释下...谢谢了！！

来源：百度知道 编辑：UC知道 时间：2024/09/20 22:46:57
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
On Error GoTo

这是一个对读者信息进行修改更新的窗口.其操作是数据库中的一些基本操作,如删除更新等.同时设计到对按扭可用性的操纵,对照程序和代码多看几下就好了.
Option Explicit '强制声明变量
Dim rs_reader As New ADODB.Recordset '定义数据集

Private Sub cmdcancel_Click() '取消按钮
rs_reader.CancelUpdate '数据集取消更新
DataGrid1.Refresh 'datagrid1刷新
DataGrid1.AllowAddNew = False 'datagrid1表格不允许添加
DataGrid1.AllowUpdate = False 'datagrid1表格不允许更新
cmdmodify.Enabled = True 'modify按扭可用,应该是修改按扭
cmddel.Enabled = True '应该是删除按扭可用
cmdcancel.Enabled = False '取消按扭不可用
cmdupdate.Enabled = False '更新按扭可用
End Sub

Private Sub cmddel_Click() '删除按扭
Dim answer As String
On Error GoTo delerror '如果错误跳转到delerror位置
answer = MsgBox("确定要删除吗？", vbYesNo, "")
If answer = vbYes Then '确定删除
DataGrid1.AllowDelete = True 'datagrid1允许删除
rs_reader.Delete '记录删除
rs_reader.Update '记录集更新
DataGrid1.Refresh 'datagrid