问答题

试题七（15 分，每空3 分） 阅读以下应用说明及Visual Basic 部分程序代码，将应填入 (n) 处的字句写在答题纸的对应栏内。 [应用说明] 设一个简单的“通讯录”存储在一个ACCESS 类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理，其运行界面如下：
（1）数据控件(data1)与“通讯录”数据库表相连接，用户可通过“”和“”按钮指定表中的当前记录。 （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_cancel.Enabled = isEnabled Cmd_add.Enabled = Not isEnabled: Cmd_del.Enabled = Not isEnabled Cmd_end.Enabled = Not isEnabled: Cmd_modify.Enabled = Not isEnabled End Sub 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_Click() ’单击“增加”按钮的代码 Call enableop( (2) ) Data1.Recordset.AddNew ’在数据库表中添加一个新记录 Txt_name. (3) End Sub Private Sub Cmd_del_Click() ’单击“删除”按钮的代码 On Error GoTo error3 ans = MsgBox("确定删除吗？", vbYesNo + vbInformation, "操作提示!") If (ans = vbYes) Then Data1.Recordset. (4) Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Refresh End If Exit Sub error3: MsgBox Err.Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click() ’单击“确定”按钮的代码 On Error GoTo error1 Data1.Recordset. (5) Call enableop(False) Exit Sub error1: MsgBox Err.Description, vbOKOnly, "错误提示!" Data1.UpdateControls Call enableop(False) End Sub ’ “修改”和“取消”按钮的程序代码(略)