68

一、基本操作

在考生文件夾下，已有"samp1.accdb"數據庫文件和Teacher.xlsx文件，試按以下要求，完成表的各種操作。

   (1) 在考生文件夾下，"samp1.accdb"數據庫文件中建立表"tTeacher"，表結構如下。

   (2) 將考生文件夾下的Teacher.xlsx文件導入"tTeacher"表中，根據"tTeacher"表的結構，判斷并設置主鍵。

   (3) 將"工作時間"字段的有效性規則設置為只能輸入上一年度5月1日以前（含5月1日）的日期（要求：本年度年號必須用函數獲�。�； 將表的有效性規則設置為輸入的出生日期小于輸入的工作時間。

   (4) 將"在職否"字段的默認值設置為真值，設置"郵箱密碼"字段的輸入掩碼為將輸入的密碼顯示為6位星號，設置"聯系電話"字段的輸入掩碼，要求前四位為"010-"，后八位為數字；將"性別"字段值的輸入設置為"男"、"女"列表選擇。

   (5) 將工作時間超過30年（不含30）的職工的"在職否"字段值改為"否"。

   (6) 設置表格式，確保在瀏覽數據表時，"姓名"字段列不移出屏幕，且網格線顏色為黑色。

   二、簡單應用

考生文件夾下存在一個數據庫文件"samp2.accdb"，里面已經設計好三個關聯表對象"tStud"、"tCourse"和"tScore"。此外，還提供窗體"fTest"，試按以下要求完成設計。

（1）創建一個查詢，查找第三季度入校的學生信息，輸出其"姓名"、"年齡"和"性別"三個字段內容，所建查詢命名為"qT1"。

（2）創建一個查詢，查找年齡在所有學生平均年齡上下2歲（含）范圍內的信息，輸出其"姓名"、"課程名"和"成績"三個字段內容，所建查詢命名為"qT2" 。

（3）創建生成表查詢，組成字段是沒有任何愛好學生的"學號"、"姓名"和"入校年"三列內容（其中"入校年"數據由"入校時間"字段計算得到，顯示為四位數字年的形式），生成的數據表命名為"tTemp"，所建查詢命名為"qT3"。

（4）補充窗體"fTest"上"test1"按鈕（名為"bt1"）的單擊事件代碼，實現以下功能：

當單擊按鈕"test1"，將文本框中輸入的內容與文本串"等級考試測試"連接并消除連接串的前導和尾隨空白字符，用標簽"bTitle"顯示連接結果。

     注意：不允許修改窗體對象"fTest"中未涉及的控件和屬性；只允許在"*****Add1*****"與"*****Add1*****"之間的空行內補充語句、完成設計。

   三、綜合應用

考生文件夾下存在一個數據庫文件"samp3.accdb"，里面已經設計好表對象"tEmployee"和查詢對象"qEmployee"，同時還設計出以"qEmployee"為數據源的報表對象"rEmployee"。試在此基礎上按照以下要求補充報表設計。

（1）在報表的合適頁腳區域添加一個計算控件，以輸出頁碼。計算控件放置在距上邊0.3厘米、距左側7厘米位置，并命名為"tPage"。規定頁碼顯示格式為"當前頁/總頁數"，如1/20、2/20、...、20/20等。

（2）報表的報表頁眉節區位置添加一個標簽控件，其標題顯示為"Employee基本信息"，字號為24，并命名為"bTitle"。

（3）在相關事件代碼中，設置報表標題為引用標簽"bTitle"的值。同時，將其中的英文內容部分大寫輸出。

（4）在相關事件代碼中，依據報表"聘用時間"字段值情況，設置報表文本框"tStatus"的輸出內容。具體規定是：截止2012年，聘用期在30年（含）以上的員工，輸出"老員工"標示信息；否則，輸出 "普通員工"標示信息。

     注意：不允許修改數據庫中的表對象"tEmployee"和查詢對象"qEmployee"；不允許修改報表對象"rEmployee"中未涉及的控件和屬性；代碼只允許在"*****Add*****"與"*****Add*****"之間的空行內補充一條語句、完成設計。

一、基本操作答案

（1）【操作步驟】

步驟1：打開考生文件夾下的數據庫文件“samp1.accdb”，然后單擊功能區的“創建”選項卡下的“表格”組中的“表設計”按鈕，進入表的“設計視圖”窗口。

步驟2：在第一行“字段名稱”處輸入“教師編號”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“5”；在第二行“字段名稱”處輸入“姓名”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“4”；在第三行“字段名稱”處輸入“性別”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“1”；在第四行“字段名稱”處輸入“出生日期”，在“數據類型”列的下拉列表中選擇“日期/時間”命令，在“字段屬性”區“常規”選項卡下的“格式”行的下三角按鈕，在其下拉框里選擇“短日期”；在第五行“字段名稱”處輸入“工作時間”，在“數據類型”列的下拉列表中選擇“日期/時間”命令，在“字段屬性”區“常規”選項卡下的“格式”行的下三角按鈕，在其下拉框里選擇“短日期”；在第六行“字段名稱”處輸入“學歷”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“5”；在第七行“字段名稱”處輸入“職稱”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下“字段大小”行輸入“5”；在第八行“字段名稱”處輸入“郵箱密碼”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“6”；在第九行“字段名稱”處輸入“聯系電話”，在“數據類型”列的下拉列表中選擇“文本”命令，在“字段屬性”區“常規”選項卡下的“字段大小”行輸入“8”；在第十行“字段名稱”處輸入“在職否”，在“數據類型”列的下拉列表中選擇“是/否”命令，在“字段屬性”區“常規”選項卡下的“格式”行的下三角按鈕，在其下拉框里選擇“是/否”。

步驟3：單擊快速訪問工具欄中的“保存”按鈕，彈出的“另存為”對話框，在“表名稱(N)”行輸入“tTeacher”，然后單擊“確定”按鈕，在彈出的對話框中單擊“否”按鈕，最后關閉“設計視圖”。

（2）【操作步驟】

步驟1：單擊功能區的“外部數據”選項卡下的“導入并鏈接”組中的“Excel”按鈕，彈出“獲取外部數據-Excel電子表格”對話框。

步驟2：在該對話框中單擊“文件名”行的“瀏覽(R)…”按鈕，彈出“打開”對話框，然后在考生文件夾下找到“Teacher.xlsx”文件并選中，然后單擊“打開”按鈕；在“指定數據在當前數據庫中的存儲方式和存儲位置”區域中，選擇“向表中追加一份記錄的副本”，然后在其右側的下拉列表中選擇表“tTeacher”，然后單擊“確定”按鈕。

步驟3：連續單擊“下一步”按鈕，導入到 “tTeacher”表中，然后單擊“完成”按鈕，最后單擊“關閉”按鈕即可。

步驟4：選擇“表”對象，右鍵單擊“tTeacher”表，在彈出的快捷菜單中選擇“設計視圖”命令。

步驟5：右鍵單擊“教師編號”行，在彈出的快捷菜單中選擇“主鍵”命令。然后單擊快速訪問工具欄中的“保存”按鈕。

（3）【操作步驟】

步驟1：單擊“工作時間”字段行任一點，在其“常規”選項卡的“有效性規則”行中輸入“<DateSerial(Year(Date())-1,5,1)”。

步驟2：右鍵單擊“設計視圖”的任一點，在彈出的快捷菜單中選擇“屬性”命令，彈出“屬性表”對話框，在該對話框的“常規”選項卡的“有效性規則”行中輸入“[出生日期]<[工作時間]”，然后關閉“屬性表”對話框。

步驟3：單擊快速訪問工具欄中的“保存”按鈕，在彈出的對話框，單擊“是”按鈕。

（4）【操作步驟】

步驟1：單擊“在職否”字段行任一點，在其“常規”選項卡的“默認值”行中輸入“True”。

步驟2：單擊“郵箱密碼”字段行任一點，單擊其“常規”選項卡的“輸入掩碼”行右側的“輸入掩碼向導”按鈕，彈出“輸入掩碼向導”對話框，在該對話框中單擊選中“密碼”，然后再單擊“完成”按鈕。

步驟3：單擊“聯系電話”字段行任一點，在其“常規”選項卡的“輸入掩碼”行中輸入“"010-"00000000”。

步驟4：在“性別”行的“數據類型”列的下拉列表中選擇“查閱向導”命令，在彈出的“查閱向導”對話框中選擇“自行鍵入所需要的值”命令，然后單擊“下一步”按鈕。

步驟5：在彈出的對話框中依次輸入“男”、“女”，然后單擊“完成”按鈕。

步驟6：單擊快速訪問工具欄中的“保存”按鈕，然后關閉“設計視圖”。

（5）【操作步驟】

步驟1：單擊“創建”選項卡下的“查詢”組中的“查詢設計”按鈕。在彈出的“顯示表”對話框中雙擊“tTeacher” 表，然后單擊“關閉”按鈕，關閉“顯示表”對話框。

步驟2：雙擊“在職否”字段，在其下一字段行中輸入“工齡: Year(Date())-Year([工作時間])”，然后單擊“查詢工具”的“設計”選項卡，在該選項卡下的“查詢類型”組中單擊“更新表”按鈕，此時在“設計網格區”會增加出“更新到”一行，在“在職否”字段的“更新到”行中輸入“False”；在“工齡”字段的“條件”行中輸入“>30”。

步驟3：再單擊工具欄中的“運行”按鈕，在彈出的對話框中單擊“是”按鈕，關閉該查詢的視圖，且不保存該“查詢”。

（6）【操作步驟】

步驟1：選擇“表”對象，雙擊“tTeacher”表，即可打開數據表視圖。

步驟2：單擊“姓名”列標題，選中整列，在該列的任一點右鍵單擊，在彈出的快捷菜單中選擇“凍結字段(Z)”選項。

步驟3：單擊“開始”選項卡下“文本格式”組中的“設置數據表格式” 下三角按鈕，彈出“設置數據表格式”對話框，在該對話框中單擊“網格線顏色(G)”下拉列表中的“黑色”按鈕，然后單擊“確定”按鈕。

步驟4：單擊快速訪問工具欄中的“保存”按鈕，最后關閉表。

 二、簡單應用答案

(1)【操作步驟】

步驟１：單擊“創建”選項卡下“查詢”組中的“查詢設計”按鈕。在“顯示表”對話框中雙擊“tStud” 表，然后單擊“關閉”按鈕，關閉“顯示表”對話框。

步驟2：雙擊添加“姓名”、“年齡”、“性別”、“入校時間”字段，在“入校時間”字段的“條件”行中輸入“Month([入校時間])>=7 And Month([入校時間])<=9”，并取消“入校時間”字段 “顯示”行復選框的勾選。

步驟3：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT1”，然后關閉“設計視圖”。

(2) 【操作步驟】

步驟1：單擊“創建”選項卡下“查詢”組中的“查詢設計”按鈕。在彈出的“顯示表”對話框中雙擊“tStud”、“tCourse”和“tScore”表，然后單擊“關閉”按鈕，關閉“顯示表”對話框。

步驟2：選中 “tStud” 表中的“學號”字段，然后拖動鼠標到 “tScore” 表中的“學號”字段，然后放開鼠標，實現“tStud”表和“tScore”表的關聯；選中 “tCourse” 表中的“課程號”字段，然后拖動鼠標到 “tScore” 表中的“課程號”字段，放開鼠標，實現“tCourse”表和“tScore”表的關聯。

步驟3：雙擊“tStud”表中的“姓名”字段，“tCourse”表中的“課程名”字段，“tScore”表中的“成績”字段和“tStud”表中的“年齡”字段；取消“年齡”字段“顯示”行復選框的勾選；在“年齡”字段的“條件”行中輸入“>=(select avg([年齡])-2 from [tStud]) And <=(select avg([年齡])+2 from [tStud])”。

步驟4：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT2”，然后關閉“設計視圖”。

 (3) 【操作步驟】

步驟1：單擊“創建”選項卡下“查詢”組中的“查詢設計”按鈕。在彈出的“顯示表”對話框中雙擊 “tStud” 表，然后單擊“關閉”按鈕，關閉“顯示表”對話框。

步驟2：雙擊“學號”、“姓名”字段，在“姓名”字段的下一行的“字段名稱”處輸入“入校年: Year([入校時間])”，再雙擊“簡歷”字段，并取消“簡歷”字段“顯示”行復選框的勾選；在“簡歷”字段的“條件”行中輸入“Not Like "*愛好*"”。

步驟3：單擊“查詢工具”的“設計”選項卡，在“查詢類型”組中單擊“生成表”按鈕，彈出“生成表”對話框，在該對話框的“表名稱(N)”行中輸入“tTemp”，然后再單擊“確定”按鈕。

步驟4：單擊工具欄中的“運行”按鈕，在彈出的對話框中單擊“是”按鈕。

步驟5：單擊快速訪問工具欄中的“保存”按鈕，另存為“qT3”，然后關閉“設計視圖”。

 (4) 【操作步驟】

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

步驟2：右鍵單擊命令按鈕“bt1”，在彈出的快捷菜單中選擇“屬性”命令，在該對話框中單擊“事件”選項卡，然后再單擊該選項卡下的“加載”行的事件生成器按鈕，進入VBA代碼編輯區。

步驟3：在“'*****Add1*****”區域的空白行中輸入“Me.bTitle.Caption = Trim(Me.tText) & "等級考試測試"”。

步驟4：單擊快速工具欄中的“保存”按鈕，關閉VBA代碼編輯區。

步驟5：單擊快速工具欄中的“保存”按鈕，關閉“屬性表”，關閉“設計視圖”。

三、綜合應用答案

(1)【操作步驟】

步驟1：雙擊打開“samp3.accdb”數據庫，選擇“報表”對象，右鍵單擊“rEmployee”報表，從彈出的快捷菜單中選擇“設計視圖”命令，打開報表的設計視圖。

步驟2：展開“頁面頁腳”節區，選擇“設計”選項卡下“控件”組中的“文本框”控件，單擊“頁面頁腳”節區任一點，彈出“Text”標簽和“未綁定”文本框。

步驟3：選中“Text”標簽，按住鍵盤上的“Delete”鍵，刪除“Text”標簽；右鍵單擊“未綁定”文本框，從彈出的快捷菜單中選擇“屬性”命令，單擊“全部”選項卡，在該選項卡的“名稱”行中輸入“tPage”，在“控件來源”行中輸入“= & "/" & [Pages]”，在“上邊距”行中輸入“0.3cm”，在“左”行中輸入“7cm”。

步驟4：單擊快速工具欄中的“保存”按鈕，然后關閉“屬性表”。

(2) 【操作步驟】

步驟1：展開報表頁眉節區，選擇“設計”選項卡下“控件”組中的“標簽”控件，單擊報表頁眉節區任一點，出現標簽控件，單擊標簽控件并輸入“Employee基本信息”，右鍵單擊該標簽控件，從彈出的快捷菜單中選擇“屬性”命令，打開“屬性表”對話框，在該對話框的“全部”選項卡下的“名稱”行中輸入“bTitle”，在“字號”行中輸入“24”。

步驟2：單擊快速工具欄中的“保存”按鈕，然后關閉“屬性表”。

 (3) 【操作步驟】

步驟1：雙擊標尺相交處的“報表選擇器”，彈出“屬性表”對話框，在該對話框中單擊“事件”選項卡，然后再單擊該選項卡下的“打開”行的事件生成器按鈕，進入VBA代碼編輯區。

步驟2：在“'*****Add1*****”區域的空白行中輸入“Me.Caption = UCase(Me.bTitle.Caption)”。

(4) 【操作步驟】

步驟1：在“*****Add2*****”區域的空白行處輸入“tStatus.ControlSource = "=IIf((2012-Year([聘用時間]))>=30,'老員工','普通員工')"”。

步驟2：單擊快速工具欄中的“保存”按鈕，關閉VBA代碼編輯區。

步驟3：單擊快速工具欄中的“保存”按鈕。