ordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
DataGrid1.Refresh
MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
End If
command3error:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command4_Click()
If Not IsNull(DataGrid1.BackColor) Then
DataGrid1.Refresh
End If
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
MsgBox "操作成功!", vbOKOnly + vbExclamation, ""
End Sub
Private Sub Command5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
Command2.Enabled = True
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
End Sub
Private Sub Form_Load()
Command4.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If userpow = "guest" Then
Frame2.Enabled = False
End If
Exit Sub
loaderror:
MsgBox Err.Description
End Sub
窗体名：Form6
代码：
Private Sub Command1_Click()
On Error GoTo commanderror
Command2.Enabled = False
Command3.Enabled = False
Command1.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True
Exit Sub
command1error:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo Command2
Command1.Enabled = False
Command3.Enabled = False
Command2.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command1.Enabled = True
DataGrid1.AllowUpdate = True
Command2:
If Error.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command3_Click()
Dim answer As String
On Error GoTo command3error
answer = MsgBox("确定要删除吗:", vbYesNo, "")
If answer = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
DataGrid1.Refresh
MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
command3error:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command4_Click()
If Not IsNull(DataGrid1.Bookmark) Then
DataGrid1.Refresh
End If
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
MsgBox "操作成功!", vbOKOnly + vbExclamation, ""
End Sub
