3[簡答題]

　　考生文件夾下存在一個數(shù)據(jù)庫文件“samp3.aeedb”，里面已經(jīng)設(shè)計好表對象“tStud”，同時還設(shè)計出窗體對象“/Stud”和子窗體對象“fDetail”。請在此基礎(chǔ)上按照以下要求補(bǔ)充“fStud”窗體的設(shè)計。

　　(1)將窗體標(biāo)題改為“學(xué)生查詢”。

　　(2)將窗體的邊框樣式改為“細(xì)邊框”，取消窗體中水平和垂直滾動條、記錄選擇器、瀏覽按鈕(導(dǎo)航按鈕)和分隔線;將子窗體邊框樣式改為“點(diǎn)線”，取消子窗體中的記錄選擇器、瀏覽按鈕(導(dǎo)航按鈕)和分隔線。

　　(3)在窗體中有兩個標(biāo)簽控件，名稱分別為“La—bell”和“Label2”，將這兩個標(biāo)簽上的文字顏色改為白色，背景顏色改為紫藍(lán)色(紫藍(lán)色代碼為8388608)。

　　(4)將窗體主體節(jié)中控件的Tab次序改為：“CItem”→“TxtDetail”→“CmdRefer”→“Cm.dEist”→“CmdClear”→“fDtail”→“簡單查詢”→“Frame18”。

　　(5)按照以下窗體功能，補(bǔ)充事件代碼設(shè)計。

　　在窗體中有一個組合框控件和一個文本框控件，名稱分別為“CItem”和“TxtDetail”;有兩個標(biāo)簽控件，名稱分別為“Label3”和“Ldetail”;還有三個命令按鈕，名稱分別為“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”組合框中選擇某一項目后，“Ldetail”標(biāo)簽控件將顯示出所選項目名加上“內(nèi)容：”。在“TxtDetail”文本框中輸入具體項目值后，單擊“CmdRefer”命令按鈕，如果“CItem”和“TxtDetail”兩個控件中均有值，則在子窗體中顯示找出的相應(yīng)記錄，如果兩個控件中不全有值，顯示消息框，消息框標(biāo)題為“注意”，提示文字為“查詢項目和查詢內(nèi)容不能為空!!!’，消息框中只有一個“確定”按鈕;單擊“CmdList”命令按鈕，在子窗體中顯示“tStud”表中的全部記錄;單擊“CmdClear”命令按鈕，將“CItem”和“TxtDetail”兩個控件中的值清空。

　　注意：不允許修改窗體對象“fStud”和子窗體對象“fDetail”中未涉及的控件、屬性和任何VBA代碼;不允許修改表對象“tStud”。代碼設(shè)計只允許補(bǔ)充一條語句、完成設(shè)計，不允許增刪和修改其他位置已存在的語句。

　　參考解析：【考點(diǎn)分析】本題考點(diǎn)：窗體控件屬性設(shè)置。

　　(1)【操作步驟】

　　步驟1：選擇“窗體”對象，右擊“fStud”，在彈出的快捷菜單中選擇“設(shè)計視圖”命令，打開設(shè)計視圖。

　　步驟2：在窗體的任一位置右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性表”下拉列表中選擇“窗體”，在“全部”選項卡下的“標(biāo)題”行輸入“學(xué)生查詢”，如圖3.230所示。

　　(2)【操作步驟】

　　步驟1：在“屬性表”的“格式”選項卡中，選擇“邊框樣式”下拉列表中的“細(xì)邊框”選項。

　　步驟2：分別選擇“滾動條”、“記錄選擇器”、“導(dǎo)航按鈕”和“分隔線”下拉列表中的“兩者均無”或“否”。

　　步驟3：按照同樣的方法設(shè)置子窗體的“邊框樣式”為“點(diǎn)線”，如圖3.231所示。

　　(3)【操作步驟】

　　在“屬性表”中分別選擇“Labe11”和“Labe12”，在“格式”選項卡中設(shè)置“前景色”為“#FFFFFF”(白色)，設(shè)置“背景色”為“#2F3699”，如圖3.232所示。關(guān)閉“屬性表”。

　　步驟2：單擊“確定”按鈕，關(guān)閉“Tab鍵次序”對話框。

　　(5)【操作步驟】

　　在設(shè)計視圖中的任一位置右擊，在彈出的快捷菜單中選擇“事件生成器”命令，在彈出的對話框中選擇“代碼生成器”，如圖3.234所示，單擊“確定”按鈕，在空行內(nèi)依次輸入以下代碼：

　　‘* * * * * * * * *Add1* * * * * * *

　　* *

　　Dim aa

　　Aa = cltem.Value

　　Ldetail.Caption=aa +”內(nèi)容：”

　　'* * * * * * * * * Add1* * * * * * *

　　* *

　　'* * * * * * * * *Add2* * * * * * *

　　* *

　　fDetail.Form.RecordSource=”tStud”

　　'* * * * * * * * * Add2* * * * * * *

　　* *

　　'* * * * * * * * * Add3* * * * * * *

　　* *

　　MsgBox”查詢項目和查詢內(nèi)容不能為空”，

　　vbOKOnly，”注意”

　　'* * * * * * * * *Add3* * * * * * *

　　* *

　　如圖3.235所示。關(guān)閉編程環(huán)境窗口，按Ctrl+S保存修改。

掃描/長按二維碼幫助考試通關(guān)

2017等考各科真題答案

2017等考各科通關(guān)技巧

2017各科最新預(yù)測試卷

2017等考成績查詢時間

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　全國計算機(jī)等級考試教材目錄（2017年版）

　　各地2017年全國計算機(jī)等級考試準(zhǔn)考證打印時間匯總

　　2017年全國計算機(jī)等級考試考前必做試題及答案匯總

　　2017年計算機(jī)等級考試備考經(jīng)驗及應(yīng)試技巧匯總

　　歷年真題匯總|考試吧特別策劃：2017年計算機(jī)等級考試報考指南