jizzjizz欧美69巨大,18禁网站点击进入在线,美女兔女郎粉逼被操网站,欧美精品区一区二区三区

萬能百科  > 所屬分類  > 

閱讀以下說明及Visual Basic程序代碼,高爾夫球應填入(n)處的字句寫在對應欄內(nèi)。[說明] 設某單位Ac

閱讀以下說明及Visual Basic程序代碼,高爾夫球應填入(n)處的字句寫在對應欄內(nèi)。

[說明]

設某單位Acess數(shù)據(jù)庫中有一張員工信息表,其中記錄了員工編號、姓名、性別等基本信息。下面的應用程序利用數(shù)據(jù)控件(Data)實現(xiàn)了對這張表中記錄的增加、刪除和修改操作。其運行界面如下:

在開發(fā)過程中,數(shù)據(jù)控件Data1與員工數(shù)據(jù)表相連接,各文本框、“性別”組合列表框Combo1、“政治面貌”組合列表框Combo2都分別與數(shù)據(jù)表的相應字段綁定,界面上從左到右各操作按鈕分別取名為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 "數(shù)據(jù)表不允許修改!"

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)組合列表框中的列表項是在窗體加載時添加的,其方法是調(diào)用組合框控件對象的Addhem方法;(2)從數(shù)據(jù)集中刪除記錄應使用Delete方法;(3)若數(shù)據(jù)控件的ReadOnly(只讀)屬性為真,則數(shù)據(jù)記錄不可更改,因此此處取假值;(4)數(shù)據(jù)集的Edit方法用于對可更新的當前記錄進行編輯修改。Update方法則

詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。

標簽

大渡口区| 佛学| 连南| 五原县| 永嘉县| 菏泽市| 清流县| 金门县| 东乡族自治县| 萨嘎县| 阜阳市| 沙田区| 衡阳县| 德江县| 武强县| 潜山县| 兴国县| 电白县| 定兴县| 沂南县| 郧西县| 紫金县| 贵州省| 陕西省| 和平区| 印江| 平罗县| 南郑县| 康马县| 武陟县| 东山县| 虹口区| 基隆市| 老河口市| 吉水县| 阿合奇县| 芜湖市| 湖南省| 广汉市| 翼城县| 崇仁县|