Command l Caption="添加 End If End Sub 删除按钮的 Click事件代礓 Private Sub Command2 Click On Error resume next Datal Recordset Delete Datal Recordset MoveNext If Datal Recordset EoF Then Datal. Recordset movelast End Sub 修改按钮的 Click事件代礓: Private Sub Command3 Click On Error resume next Command. Enabled= Not Command l Enabled Command2 Enabled= Not Command2 Enabled Command. Enabled= Not Command. Enabled Commands. Enabled= Not Commands. Enabled Command 10 Enabled= not Command 10 Enabled If Command3 Caption=”修改"Then Text1 Enabled True Text2 Enabled= true Text3 Enabled= True Text4 Enabled= True Text5 Enabled= True Text6 Enabled= True Text7 Enabled= True Text8 Enabled= True Text9 Enabled= True Image l Enabled= True Datal Recordset EDIt Text1. Set Focus Command3 Caption="确定 Command3 Caption="修改 Datal Recordset. Update Text1 Enabled= False Text2 Enabled= False Text3 Enabled= False Text4 Enabled= False Texts. Enabled= False9 Command1.Caption = "添 加" End If End Sub 删除按钮的 Click 事件代码： Private Sub Command2_Click() On Error Resume Next Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub 修改按钮的 Click 事件代码： Private Sub Command3_Click() On Error Resume Next Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled Command4.Enabled = Not Command4.Enabled Command5.Enabled = Not Command5.Enabled Command10.Enabled = Not Command10.Enabled If Command3.Caption = "修 改" Then Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Image1.Enabled = True Data1.Recordset.EDIT Text1.SetFocus Command3.Caption = "确 定" Else Command3.Caption = "修 改" Data1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False