2. 计算机
  3. 阅读以下说明及Visual Basic程序代码，高尔夫球应填入(n)处的字句写在对应栏内。 [说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增

阅读以下说明及Visual Basic程序代码，高尔夫球应填入(n)处的字句写在对应栏内。 [说明] 设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增

admin2009-02-15  72
问题 阅读以下说明及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
选项
答案(1)Addhem(2)Delete(3)False(4)Update(5) ret=vbYes
解析 (1)组合列表框中的列表项是在窗体加载时添加的，其方法是调用组合框控件对象的Addhem方法；
(2)从数据集中删除记录应使用Delete方法；
(3)若数据控件的ReadOnly(只读)属性为真，则数据记录不可更改，因此此处取假值；
(4)数据集的Edit方法用于对可更新的当前记录进行编辑修改。Update方法则用于将修改的记录内容保存到数据库中。
(5)询问窗口返回两种值，一是单击按钮“是(Y)”返回的vbYes，二是单击按钮“否(N)”按钮返回的vbNo。选择前者将结束程序。
转载请注明原文地址:https://kaotiyun.com/show/nbjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)