阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

应用说明

设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理，其运行界面如下：

(1)数据控件(datal)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。

(2)文本框Txt name、Txt phone和Txt email分别与数据库表中的“姓名”、“电话”和“email”字段绑定，用于显示当前记录的内容。

(3)应用程序启动时，“确定”按钮(Cmd ok)和“取消”按钮(Cmd cancel)不可操作，文本框中显示表中的第一条记录，这时文本框处于不可操作状态。

(4)单击“增加”按钮(Cmd_add)或“修改”按钮(Cmd_modify)后，方可以编辑记录内容，同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。

(5)单击“删除”按钮(Cmd del)后，弹出对话框，再单击“确定”按钮，当前记录被删除。

程序代码

Private Sub enableop(isEnabled As Boolean)

Txt_name.Enabled=isEnabled： Txt_phone.Enabled=isEnabled

Txt_email.Enabled=isEnabled

Cmd_ok.Enabled=isEnabled： Cmd_eancel.Enabled=isEnabled

Cmd_add.Enabled=Not isEnabled： Cmd_del.Enabled=Not isEnabled

Cmd_end.Enabled=Not isEnabled： Cmd_modify.Enabled=Not isEnabled

EndSub

Private Sub Form_Load()

Call enableop(False)

Data1.Refresh

If Data1 .Recordset. RecordCount = 0 Then

Cmd_del. Enabled= False: Cmd_modify. Enabled=(1)

End If End Sub Private Sub Cmd_add_Cliek() '单击“增加”按钮的代码

Call enableop( (2) )

Datal .Recordset. AddNew '在数据库表中添加一个新记录

Txt name. (3) End Sub Private Sub Crud_del_Click() '单击“删除”按钮的代码

On Error GoTo error3

arts = MsgBox("确定删除吗?", vbYesNo + vblnformafion, "操作提示!")

If (ans = vbYes) Then

Datal.Recordset. (4)

Datal .Recordset. MoveNext

If Datal .Recordset. EOF Then Data l.Refiesh

End If

Exit Sub error3:

MsgBox Err. Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click() '单击“确定”按钮的代码

On Error GoTo errorl

Datal.Recordset. (5)

Call enableop(False)

Exit Sub error 1:

MsgBox Err. Description, vbOKOnly, "错误提示!"

Datal.UpdateControls

Call enableop(False) End Sub '“修改”和“取消”按钮的程序代码(略)