无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡av-无码一区二区三区不卡-无码一区二区三区va在线播放

萬能百科  > 所屬分類  > 

閱讀以下說明及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方法則

詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫學等領域),建議您咨詢相關領域專業人士。

標簽

主站蜘蛛池模板: 东京热av人妻无码专区 | 激情一区二区三区 | 中文字幕在线无码一区二区三区 | 亚洲成a人片在线观看无码3d | 国产69精品麻豆久久久久 | 亚洲精品乱码久久久久66 | 涩涩视频在线看 | 99日本亚洲黄色三级高清网站 | 国产免费A片好硬好爽好深小说 | 四虎影在线 永久免费 | 插插插综合视频 | 日韩视频网址 | 精品国产综合乱码久久久久久 | 91久久综合精品国产丝袜长腿 | 欧美黑人肉体狂欢交换大派对在线播放 | 欧美又大又黄又粗又长A片 欧美又大又色又爽AAAA片 | 一级特黄aa大片欧美网站 | 91精品福利资源在线观看 | 99久久人妻精品免费一区二区 | 精品国产免费一区二区三区香蕉 | 欧美日韩另类在线观看视频 | 国产a一级无码毛片一区二区三区 | 久久久久久久国产精品视频 | 精品一区二区久久久久久久网站 | 国产露脸国语对白在线 | 国产精品玖玖玖在线资源爆乳老 | 丁香五月一区韩日av成人免费在线观看七月丁香天天肏天天 | 2024av亚洲男人的天堂 | 无线乱码一二三区免费看久久 | 色哟哟免费视频播放网站 | 国产成人精品午夜福利v免 国产成人精品午夜福利在线播放 | AV国产乱码一区二区三视频 | 天美传媒影视在线网址 | 国产精品久久久无码A片小说 | 四虎影视在线永久免费观看 | 亚洲国产精品无码久久一区二 | 国产午夜精品理论片a级在线观看 | 免费国产美女爽到喷出水来视频 | 国产精品无码电影 | 亚洲精品久久精品一区二区 | 午夜国产视频 |