【正文】 徽理工大學(xué)計(jì)算機(jī)學(xué)院 53 ① 在數(shù)據(jù)環(huán)境中添加和設(shè)置命令。 ?添加命令 cmdKP，數(shù)據(jù)源為 SQL命令文本，直接輸入或通過 “ SQL生成器 ” 生成命令： SELECT 工號(hào) , 年度 , 出勤率 , 任務(wù)完成率 , 工作表現(xiàn)得分 , 綜合評(píng)價(jià)得分 FROM 年度考評(píng) ORDER BY 年度 鎖定類型設(shè)為 “ 開放式 ” ，以便允許錄入和編輯考評(píng)成績(jī)。 ?添加命令 cmdKPRPT，數(shù)據(jù)源為 SQL命令文本，通過“ SQL生成器 ” 生成包含 3張表的查詢命令： SELECT 部門 .部門名稱 , 員工 .工號(hào) , 員工 .姓名 , 年度考評(píng) .年度 , 年度考評(píng) .出勤率 , 年度考評(píng) .任務(wù)完成率 , 年度考評(píng) .工作表現(xiàn)得分 , 年度考評(píng) .綜合評(píng)價(jià)得分 FROM 員工 , 年度考評(píng) , 部門 WHERE 員工 .工號(hào) = 年度考評(píng) .工號(hào) AND 員工 .部門 ID = 部門 .部門 ID ORDER BY 員工 .工號(hào) 鎖定類型設(shè)為 “ 只讀 ” ，只供瀏覽打印。 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 54 ① 在數(shù)據(jù)環(huán)境中添加和設(shè)置命令。 添加命令 cmdYEAR，數(shù)據(jù)源為 SQL命令文本，直接輸入或通過 “ SQL生成器 ” 生成命令： SELECT DISTINCT 年度 FROM 年度考評(píng) 其中，關(guān)鍵字 DISTINCT 用來(lái)過濾掉結(jié)果中的重復(fù)行。 ② 添加窗體。 添加窗體，命名為 frmKP，放置 ActiveX控件DataCombo1（選擇部門）、 DataCombo2（選擇年度）、 DataList1（選擇員工）、 DataGrid1（顯示或編輯結(jié)果）。 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 55 ③ 設(shè)置綁定控件的有關(guān)數(shù)據(jù)屬性。 ? 設(shè)置 DataCombo1 的有關(guān)數(shù)據(jù)屬性，實(shí)現(xiàn)用部門表的數(shù)據(jù)填充 DataCombo1的列表 屬性 屬性值 RowSource DataEnvironment1 RowMember cmdDep ListField 部門名稱 BoundColumn 部門 ID Text 刪空 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 56 ③ 設(shè)置綁定控件的有關(guān)數(shù)據(jù)屬性。 ? 設(shè)置 DataCombo2 的有關(guān)數(shù)據(jù)屬性，實(shí)現(xiàn)用年度考核表中的年度數(shù)據(jù)填充 DataCombo2的列表 屬性 屬性值 RowSource DataEnvironment1 RowMember cmdYEAR ListField 年度 BoundColumn 年度 Text 刪空 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 57 ③ 設(shè)置綁定控件的有關(guān)數(shù)據(jù)屬性。 設(shè)置 DataGrid1的屬性。在 DataGrid1屬性頁(yè)的 “ 通用 ” 中設(shè)置 “ 允許添加 ” 、 “ 允許刪除 ” 、“ 允許更新 ” ，有關(guān)綁定屬性放在代碼中動(dòng)態(tài)綁定。 ④ 創(chuàng)建報(bào)表。 選擇 “ 工程 ” 菜單中的 “ 添加 Data Report”命令，在工程中添加報(bào)表 DataReport2。 打開 DataReport2，通過屬性窗口將報(bào)表的DataSource屬性設(shè)為 DataEnvironment1，DataMember屬性設(shè)為 cmdKPRPT； 從數(shù)據(jù)環(huán)境設(shè)計(jì)器將 cmdKPRPT拖放到其中，將每個(gè)字段的標(biāo)簽控件移到頁(yè)標(biāo)頭，文本控件放到細(xì)節(jié)區(qū)域，調(diào)整各控件的位置和節(jié)的高度。 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 58 ④ 創(chuàng)建報(bào)表。 通過屬性窗口將報(bào)表標(biāo)頭命名為 Head，其中放置Label控件，命名為 title。 在報(bào)表注腳節(jié)放置函數(shù)控件，分別綁定到各考評(píng)數(shù)字字段，報(bào)表頁(yè)腳中的函數(shù)控件設(shè)置如下表所示。 屬 性 控 件 DataSource DataMember DataField FunctionType 總?cè)藬?shù) DataEnvironment1 cmdKPRPT 工號(hào) rptFuncRCnt 平均出勤率 DataEnvironment1 cmdKPRPT 出勤率 rptFuncAve 平均綜合考評(píng) DataEnvironment1 cmdKPRPT 綜合考評(píng)分?jǐn)?shù) rptFuncAve 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 59 ⑤ 編寫控件的事件代碼。 ?“ 部門選擇 ” 組合框的事件代碼。 當(dāng)組合框選項(xiàng)發(fā)生變化時(shí)，對(duì)列表框的數(shù)據(jù)屬性重新賦值，使得按所選部門的名單重新填充列表 DataList1的列表項(xiàng)。 Private Sub DataCombo1_Change() Dim rsName As ?聲明 ADO記錄集對(duì)象rsName Set rsName = New ?創(chuàng)建 ADO記錄集對(duì)象 rsName select 工號(hào) ,姓名 from 員工 where 部門 ID=39。 _ amp。 amp。 39。, ?打開記錄集對(duì)象 rsName，數(shù)據(jù)源為 SQL命令文本，連接為數(shù)據(jù)環(huán)境中的 Connection1 Set = rsName ? 設(shè)置列表項(xiàng)來(lái)源為記錄集對(duì)象 rsName = “姓名 ” ‘ 設(shè)置列表項(xiàng)取自 “ 姓名 ” 字段 = 工號(hào) ? 設(shè)置列表返回 “ 工號(hào) ” 字段 End Sub 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 60 ⑤ 編寫控件的事件代碼。 ? “ 員工選擇 ” 列表框的事件代碼。 單擊其中的姓名時(shí)，將返回的工號(hào)作為記錄集 rscmdKP的篩選條件，使綁定的表格 DataGrid1顯示篩選出的員工考評(píng)記錄。 Private Sub DataList1_Click() = 39。年度組合框清空 = False 39。使打印報(bào)表按鈕不可用 = 工號(hào) =39。 amp。 amp。 39。 39。記錄集 rscmdKP按 DataList1所選員工的工號(hào)篩選 = 年度 Set = DataEnvironment1 = cmdKP 39。DataGrid1綁定到命令 cmdKP End Sub 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 61 ⑤ 編寫控件的事件代碼。 ? “ 年度選擇 ” 組合框事件代碼。 對(duì) cmdKPRPT的記錄集 rscmdKPRPT，利用 Filter屬性過濾出所選年度的記錄。 Private Sub DataCombo2_Change() If Then = 年度= amp。 Else = 年度 0 End If Set = DataEnvironment1 = cmdKPRPT End Sub 安徽理工大學(xué)計(jì)算機(jī)學(xué)院 62 ⑤ 編寫控件的事件代碼。 ? “ 打印報(bào)表 ” 按鈕事件代碼。 使報(bào)表標(biāo)題根據(jù)所選年度顯示為： XXXX年度考評(píng)報(bào)表 ” 。 Private Sub cmdPRT_Click() (Head).Controls(title)= amp。 年度考評(píng)報(bào)表 ” 39。Head和 title分別是在報(bào)表屬性窗口給報(bào)表標(biāo)頭節(jié)和標(biāo)題標(biāo)簽控件所設(shè)置的的稱 ?打印預(yù)覽報(bào)表 End Sub