综合久久久久_亚洲欧美韩国_黄色免费影片_91国内视频在线_91国内免费视频_久操app

万能百科  > 所属分类  > 

阅读以下说明及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

正确答案:

(1)Addhem(2)Delete(3)False(4)Update(5) ret=vbYes(1)Addhem(2)Delete(3)False(4)Update(5) ret=vbYes 解析:(1)组合列表框中的列表项是在窗体加载时添加的,其方法是调用组合框控件对象的Addhem方法;(2)从数据集中删除记录应使用Delete方法;(3)若数据控件的ReadOnly(只读)属性为真,则数据记录不可更改,因此此处取假值;(4)数据集的Edit方法用于对可更新的当前记录进行编辑修改。Update方法则

词条内容仅供参考,如果您需要解决具体问题
(尤其在法律、医学等领域),建议您咨询相关领域专业人士。

标签

主站蜘蛛池模板: 色男人网 | 玖玖青草| 亚洲性无码一区二区三区 | 特黄aa级毛片免费视频播放 | 又粗又硬整进去好爽视频 | 欧美丰满熟妇乱xxxxx网站 | 91精品成人福利在线播放 | 亚洲愉拍99热成人精品热久久 | 性色av无码一区二区三区人妻 | 又色又爽又黄的视频网站 | 少妇性饥渴无码a区免费 | 自拍偷拍网址 | 青草五月天 | 在线免费视频一区 | 精品人妻无码一区二区三区蜜桃一 | 久久精品成人免费看 | 色噜噜狠狠一区二区三区 | 露脸内射熟女--69xx | 国外av无码精品国产精品 | 国产精品视频一区二区三区无码 | 思思久久99热只有精品 | 综合色亚洲 | 欧美污视频网站 | 4hu四虎最新免费地址 | 无码人妻一区二区三区免费视频 | 日韩成人免费一级毛片 | 久久久久久国产精品无码下载 | 特级黄一级播放 | 国产精品一区视频 | 视频福利网站 | 无套内射在线无码播放 | 小蝌蚪亚洲精品国产 | 日本高清精品 | 男女啪啪无遮挡免费网站 | 亚洲第一在线综合网站 | 黑人大荫蒂老太大 | 国内精品久久久久久久久野战 | 成人福利在线免费观看 | 无码人妻精品一区二区三 | 99久久精品免费看国产情侣 | 草草在线观看视频 |