题目内容
阅读以下说明及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
查看答案
搜索结果不匹配?点我反馈