阅读以下说明及Visual Basic程序代码,高尔夫球应填入(n)处的字句写在对应栏内。[说明] 设某单位Ac

阅读以下说明及Visual Basic程序代码，高尔夫球应填入(n)处的字句写在对应栏内。

[说明]

设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：

在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。

[Visual Basic代码]

Private Sub Form_Load( ) " 加载窗体

Combo1. (1) "男"

Combo1. (1) "女"

Combo2. (1) "党员"

Combo2. (1) "团员"

Combo2. (1) "群众"

End Sub

Private Sub CmdAdd_Cliek( ) "增加记录

Datal. Recordset. AddNew

End Sub

Private Sub CmdDel_Click( ) "删除记录

Datal. Recordset. (2)

Datal. Recordset. MoveNext

End Sub

Private Sub CmdUpdate_Click( ) "修改记录

If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then

Datal. Recordset. Edit

Datal. Recordset. (4)

Else

MsgBox "数据表不允许修改!"

End If

End Sub

Private Sub CmdExit_Click ( ) "退出程序

Dim ret As Long

ret : MsgBox("真的要退出吗?", vbQuestion + vbYesNo, "退出" )

If (5) Then

Datal. Reeordset. Close

End

End ff

End Sub