Ø       删除记录

当用户单击“删除”命令按钮时，为了防止用户误删除数据，程序将调用Msgbox（）函数以弹出对话框，询问用户是否真的要删除该记录。如果用户单击对话框上的“确定”按钮，程序调用记录集的Delete方法，将记录集的当前记录设置为空，并从原始的表中删掉当前记录。但是删除的记录仍然是当前记录，只是将其变为了无效的记录，任何对其的引用都会产生错误。

其主要程序如下：

Private Sub Command6_Click()

xg = True

Command3.Enabled = True

Command4.Enabled = True

'取消其他按钮功能

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = False

Command1.Enabled = False

Command2.Enabled = False

'对记录进行编辑

Data1.Recordset.Edit

Text1.SetFocus

End Sub

Private Sub Command7_Click()

ss = MsgBox("真的要删除吗？", vbYesNo + vbInformation, "删除记录")

'如果要删除

If (ss = vbYes) Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

Command2.Enabled = False

End If

End If

End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>