[试题]

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

[说明]

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

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

[Visual Basic代码]

Private Sub Form_Load( ) ' 加载窗体

C.ombo1. (1) "男"

C.ombo1. (1) "女"

C.ombo2. (1) "党员"

C.ombo2. (1) "团员"

C.ombo2. (1) "群众"

E.nd Sub

Private Sub CmdAdd_Cliek( ) '增加记录

D.atal. Recordset. AddNew

E.nd Sub

Private Sub CmdDel_Click( ) '删除记录

D.atal. Recordset. (2)

D.atal. Recordset. MoveNext

E.nd Sub

Private Sub CmdUpdate_Click( ) '修改记录

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

D.atal. Recordset. Edit

D.atal. Recordset. (4)

E.lse

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

E.nd If

E.nd Sub

Private Sub CmdExit_Click ( ) '退出程序

D.im ret As Long

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

If (5) Then

D.atal. Reeordset. Close

E.nd

E.nd ff

E.nd Sub

参考答案与解析:

相关试题

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