综合久久久久_亚洲欧美韩国_黄色免费影片_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方法则

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

标签

主站蜘蛛池模板: 99精品高清不卡在线观看 | a视频网站 | 亚洲一区二区三区视频 | 在厨房拨开内裤进入在线视频 | 国产一区二区不卡免费观在线 | 亚洲h视频在线观看 | 无码久久精品国产亚洲av影片 | 亚洲成av人片一区二区 | 欧美亚洲综合成人a∨在线 欧美亚洲综合另类成人 | 免费在线观看一级片 | 高清性色 | 亚洲国产理论片在线播放 | 国产欧美精品区一区二区三区 | 怡红院免费的全部视频 | 97久久久精品综合88久久 | 久久精品一区二区三区不卡牛牛 | 国产人成亚洲第一网站在线播放 | 成人 在线 视频自拍 | 男人扒开女人腿桶到爽免费 | 日韩在线一区二区三区视频 | 最近中文字幕大全在线电影视频 | 免费国产成人高清在线电影 | 国产女人高潮抽搐喷水免费视频 | 欧美日韩高清一区二区三区 | 免费看黄视频 | 偷国产乱人伦偷精品视频 | 日韩乱码人妻无码系列中文字幕 | 日韩夜夜高潮夜夜爽无码 | 中文字幕精品一区二区2021年 | 中日韩欧美视频 | 亚州色片 | 性无码一区二区三区在线观看 | 九九精品视频在线观看九九 | 四影虎库最新 | 黄色毛片免费看 | 成人亚洲国产综合精品91 | 亚洲欧美日韩中文久久 | 亚洲最大免费视频网 | 偷青青国产精品青青在线观看 | 亚洲免费网站观看视频 | 欧美精品中文字幕手机免费视频 |