放弃”按钮的事件代码 Private Sub Command Click 数据库控件的检查是否输入合法数据: Command6 Caption=新 Private Sub Datal Validate( Action As Integer, Save As 增 Integer) Command8 Caption="修 If TextI Text=And(Action=6 Or Text l Data Changed)Then Commando Enabled= True MsgBox"数据不完整,必须要有编号!" Command. Enabled= True Datal Update Controls Command 8 Enabled= True End If Command 9 Enabled= False If Action >=1 And Action <=4 Then Datal Update Controls Command6. Caption="新增 Datal Recordset Bookmark Command8 Caption="修改 bookman rk Commando Enabled= True End Sub Command 7 Enabled= True 退出”按钮的事件代码 Command 8 Enabled= True Private Sub Command 9 Enabled= False Command1l Click End if End End Sub End Sub“放弃”按钮的事件代码 Private Sub Command9_Click() Command6.Caption = "新 增" Command8.Caption = "修 改" Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = False Data1.UpdateControls Data1.Recordset.Bookmark = mbookmark End Sub “退出”按钮的事件代码 Private Sub Command11_Click() End End Sub 数据库控件的检查是否输入合法数据： Private Sub Data1_Validate(Action As Integer, Save As Integer) If Text1.Text = "" And (Action = 6 Or Text1.DataChanged) Then MsgBox "数据不完整，必须要有编号！" Data1.UpdateControls End If If Action >= 1 And Action <= 4 Then Command6.Caption = "新增" Command8.Caption = "修改" Command6.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = False End If End Sub