3[簡答題]
考生文件夾下存在一個數據庫文件“samp3.aeedb”,里面已經設計好表對象“tStud”,同時還設計出窗體對象“/Stud”和子窗體對象“fDetail”。請在此基礎上按照以下要求補充“fStud”窗體的設計。
(1)將窗體標題改為“學生查詢”。
(2)將窗體的邊框樣式改為“細邊框”,取消窗體中水平和垂直滾動條、記錄選擇器、瀏覽按鈕(導航按鈕)和分隔線;將子窗體邊框樣式改為“點線”,取消子窗體中的記錄選擇器、瀏覽按鈕(導航按鈕)和分隔線。
(3)在窗體中有兩個標簽控件,名稱分別為“La—bell”和“Label2”,將這兩個標簽上的文字顏色改為白色,背景顏色改為紫藍色(紫藍色代碼為8388608)。
(4)將窗體主體節中控件的Tab次序改為:“CItem”→“TxtDetail”→“CmdRefer”→“Cm.dEist”→“CmdClear”→“fDtail”→“簡單查詢”→“Frame18”。
(5)按照以下窗體功能,補充事件代碼設計。
在窗體中有一個組合框控件和一個文本框控件,名稱分別為“CItem”和“TxtDetail”;有兩個標簽控件,名稱分別為“Label3”和“Ldetail”;還有三個命令按鈕,名稱分別為“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”組合框中選擇某一項目后,“Ldetail”標簽控件將顯示出所選項目名加上“內容:”。在“TxtDetail”文本框中輸入具體項目值后,單擊“CmdRefer”命令按鈕,如果“CItem”和“TxtDetail”兩個控件中均有值,則在子窗體中顯示找出的相應記錄,如果兩個控件中不全有值,顯示消息框,消息框標題為“注意”,提示文字為“查詢項目和查詢內容不能為空!!!’,消息框中只有一個“確定”按鈕;單擊“CmdList”命令按鈕,在子窗體中顯示“tStud”表中的全部記錄;單擊“CmdClear”命令按鈕,將“CItem”和“TxtDetail”兩個控件中的值清空。
注意:不允許修改窗體對象“fStud”和子窗體對象“fDetail”中未涉及的控件、屬性和任何VBA代碼;不允許修改表對象“tStud”。代碼設計只允許補充一條語句、完成設計,不允許增刪和修改其他位置已存在的語句。
參考解析:【考點分析】本題考點:窗體控件屬性設置。
(1)【操作步驟】
步驟1:選擇“窗體”對象,右擊“fStud”,在彈出的快捷菜單中選擇“設計視圖”命令,打開設計視圖。
步驟2:在窗體的任一位置右擊,在彈出的快捷菜單中選擇“屬性”命令,在打開的“屬性表”下拉列表中選擇“窗體”,在“全部”選項卡下的“標題”行輸入“學生查詢”,如圖3.230所示。
(2)【操作步驟】
步驟1:在“屬性表”的“格式”選項卡中,選擇“邊框樣式”下拉列表中的“細邊框”選項。
步驟2:分別選擇“滾動條”、“記錄選擇器”、“導航按鈕”和“分隔線”下拉列表中的“兩者均無”或“否”。
步驟3:按照同樣的方法設置子窗體的“邊框樣式”為“點線”,如圖3.231所示。
(3)【操作步驟】
在“屬性表”中分別選擇“Labe11”和“Labe12”,在“格式”選項卡中設置“前景色”為“#FFFFFF”(白色),設置“背景色”為“#2F3699”,如圖3.232所示。關閉“屬性表”。
步驟2:單擊“確定”按鈕,關閉“Tab鍵次序”對話框。
(5)【操作步驟】
在設計視圖中的任一位置右擊,在彈出的快捷菜單中選擇“事件生成器”命令,在彈出的對話框中選擇“代碼生成器”,如圖3.234所示,單擊“確定”按鈕,在空行內依次輸入以下代碼:
‘* * * * * * * * *Add1* * * * * * *
* *
Dim aa
Aa = cltem.Value
Ldetail.Caption=aa +”內容:”
'* * * * * * * * * Add1* * * * * * *
* *
'* * * * * * * * *Add2* * * * * * *
* *
fDetail.Form.RecordSource=”tStud”
'* * * * * * * * * Add2* * * * * * *
* *
'* * * * * * * * * Add3* * * * * * *
* *
MsgBox”查詢項目和查詢內容不能為空”,
vbOKOnly,”注意”
'* * * * * * * * *Add3* * * * * * *
* *
如圖3.235所示。關閉編程環境窗口,按Ctrl+S保存修改。
微信搜索"考試吧"了解更多考試資訊、下載備考資料
相關推薦: