【文件属性】：
文件名称：按钮删除一条记录-数据库应用系统开发
文件大小：1.02MB
文件格式：PPT
更新时间：2021-04-24 00:07:34
数据库
按钮（删除一条记录）
Private Sub Command8_Click()
Dim answer As String
On Error GoTo delerror
answer = MsgBox(“确定要删除吗", vbYesNo, "")
If answer = vbYes Then
DataGrid1.AllowDelete = True
rst_student.Delete
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
三、系统实施