【正文】 Head和 title分別是在報表屬性窗口給報表標(biāo)頭節(jié)和標(biāo)題標(biāo)簽控件所設(shè)置的的稱 ?打印預(yù)覽報表 End Sub 。 Private Sub cmdPRT_Click() (Head).Controls(title)= amp。 ? “ 打印報表 ” 按鈕事件代碼。 Private Sub DataCombo2_Change() If Then = 年度= amp。 ? “ 年度選擇 ” 組合框事件代碼。記錄集 rscmdKP按 DataList1所選員工的工號篩選 = 年度 Set = DataEnvironment1 = cmdKP 39。 39。 amp。年度組合框清空 = False 39。 單擊其中的姓名時，將返回的工號作為記錄集 rscmdKP的篩選條件，使綁定的表格 DataGrid1顯示篩選出的員工考評記錄。, ?打開記錄集對象 rsName，數(shù)據(jù)源為 SQL命令文本，連接為數(shù)據(jù)環(huán)境中的 Connection1 Set = rsName ? 設(shè)置列表項來源為記錄集對象 rsName = “姓名 ” ‘ 設(shè)置列表項取自 “ 姓名 ” 字段 = 工號 ? 設(shè)置列表返回 “ 工號 ” 字段 End Sub 安徽理工大學(xué)計算機(jī)學(xué)院 60 ⑤ 編寫控件的事件代碼。 amp。 Private Sub DataCombo1_Change() Dim rsName As ?聲明 ADO記錄集對象rsName Set rsName = New ?創(chuàng)建 ADO記錄集對象 rsName select 工號 ,姓名 from 員工 where 部門 ID=39。 ?“ 部門選擇 ” 組合框的事件代碼。 在報表注腳節(jié)放置函數(shù)控件，分別綁定到各考評數(shù)字字段，報表頁腳中的函數(shù)控件設(shè)置如下表所示。 安徽理工大學(xué)計算機(jī)學(xué)院 58 ④ 創(chuàng)建報表。 選擇 “ 工程 ” 菜單中的 “ 添加 Data Report”命令，在工程中添加報表 DataReport2。在 DataGrid1屬性頁的 “ 通用 ” 中設(shè)置 “ 允許添加 ” 、 “ 允許刪除 ” 、“ 允許更新 ” ，有關(guān)綁定屬性放在代碼中動態(tài)綁定。 ? 設(shè)置 DataCombo2 的有關(guān)數(shù)據(jù)屬性，實(shí)現(xiàn)用年度考核表中的年度數(shù)據(jù)填充 DataCombo2的列表 屬性 屬性值 RowSource DataEnvironment1 RowMember cmdYEAR ListField 年度 BoundColumn 年度 Text 刪空 安徽理工大學(xué)計算機(jī)學(xué)院 57 ③ 設(shè)置綁定控件的有關(guān)數(shù)據(jù)屬性。 安徽理工大學(xué)計算機(jī)學(xué)院 55 ③ 設(shè)置綁定控件的有關(guān)數(shù)據(jù)屬性。 ② 添加窗體。 安徽理工大學(xué)計算機(jī)學(xué)院 54 ① 在數(shù)據(jù)環(huán)境中添加和設(shè)置命令。 ?添加命令 cmdKP，數(shù)據(jù)源為 SQL命令文本，直接輸入或通過 “ SQL生成器 ” 生成命令： SELECT 工號 , 年度 , 出勤率 , 任務(wù)完成率 , 工作表現(xiàn)得分 , 綜合評價得分 FROM 年度考評 ORDER BY 年度 鎖定類型設(shè)為 “ 開放式 ” ，以便允許錄入和編輯考評成績。這些在數(shù)據(jù)環(huán)境設(shè)計器中創(chuàng)建的命令對象，運(yùn)行時也要通過程序代碼按選定的條件進(jìn)行篩選。 ② 對需要根據(jù)用戶操作而變化的數(shù)據(jù)，如列表框中的名單要根據(jù)用戶所選的部門確定，采用編寫代碼的方法動態(tài)創(chuàng)建記錄集對象。 安徽理工大學(xué)計算機(jī)學(xué)院 51 [例 76] 在本例中，由于要訪問的數(shù)據(jù)較多，因此采用數(shù)據(jù)環(huán)境設(shè)計器和編寫代碼相結(jié)合的方法。 安徽理工大學(xué)計算機(jī)學(xué)院 50 [例 76] 選擇年度后，表格中顯示出所有員工該年度的考評記錄，如圖 717所示；若年度清空，表格中顯示出所有員工各年度的考評記錄。要求：利用組合框選擇部門后，左側(cè)列表框顯示該部門員工名單，單擊其中的任一姓名后，表格中顯示出該員工歷年的考評記錄，并可以修改。 例 75通過 VB數(shù)據(jù)窗體向?qū)?chuàng)建數(shù)據(jù)訪問窗體。 ⑤ 利用對象的屬性、方法和事件進(jìn)行操作。 ③ 設(shè)置對象屬性。與在 VB中用代碼創(chuàng)建其他對象一樣，需要進(jìn)行以下操作： ① 在工程中引用對象的類型庫（例 :選擇 “ 工程 ” 菜單中的 “ 引用 ” 后選中 Microsoft ActiveX Data Object Library）。此外，也可以在例 73的員工查詢窗體中添加 “ 報表 ” 按鈕，再添加一行單擊事件代碼： ，即可在查詢后單擊該按鈕預(yù)覽報表。 對報表頁腳中的統(tǒng)計函數(shù)控件設(shè)置如下表所示。 單擊工具箱中的 “ 數(shù)據(jù)報表 ” 按鈕，打開報表控件工具，根據(jù)需要在報表的細(xì)節(jié)區(qū)域添加直線，在標(biāo)頭節(jié)添加標(biāo)題（標(biāo)簽控件），在報表的注腳節(jié)添加合計函數(shù)（函數(shù)控件）并通過 FunctionType屬性的常數(shù)或值確定函數(shù)功能。 從數(shù)據(jù)環(huán)境設(shè)計器窗口將命令對象中所需的字段拖放到報表細(xì)節(jié)區(qū)域，然后將其中的字段標(biāo)題拖到頁標(biāo)頭節(jié)，調(diào)整位置和設(shè)置格式。 安徽理工大學(xué)計算機(jī)學(xué)院 45 [例 74] 利用數(shù)據(jù)報表設(shè)計器設(shè)計 “ 員工信息報表 ” 。 ②將報表綁定到數(shù)據(jù)對象。 ① 在工程中添加報表。當(dāng)報表運(yùn)行時，細(xì)節(jié)區(qū)部分隨每條記錄重復(fù)輸出顯示。 ③ 頁注腳區(qū)包含每一頁底部的信息。 ① 報表標(biāo)頭區(qū)包含整個報表最開頭的信息，報表注腳區(qū)包含整個報表尾部的信息，一個報表只有一個報表頭和一個報表注腳區(qū)，一般在報表標(biāo)頭區(qū)使用 “ 標(biāo)簽 ” 控件建立報表標(biāo)題，在報表注腳區(qū)用報表函數(shù)控件顯示數(shù)據(jù)的統(tǒng)計結(jié)果。) = tj 39。 Text1 amp。 and 姓名 like 39。 and 職務(wù) ID= amp。 Private Sub Command1_Click() Dim tj As String tj = IIf( = , 部門 ID 0, 部門 ID= amp。 用鼠標(biāo)右鍵將該命令從 “ 數(shù)據(jù)環(huán)境設(shè)計器 ” 窗口拖放到窗體，在快捷菜單中選擇綁定控件的類型：數(shù)據(jù)網(wǎng)格、綁定控件或 FlexGrid控件（對于從數(shù)據(jù)環(huán)境設(shè)計器拖放的控件，已自動設(shè)好其數(shù)據(jù)綁定屬性）。 在命令對象的快捷菜單中選擇 “ 屬性 ” ， 設(shè)置數(shù)據(jù)源等。 從 Connection1的快捷菜單中選擇 “ 添加命令 ” ，可以在連接對象下添加一個命令對象，默認(rèn)的命令名稱為 Command1。 添加數(shù)據(jù)環(huán)境設(shè)計器后，雙擊設(shè)計器中的 Data Environment1，打開數(shù)據(jù)環(huán)境設(shè)計器窗口，右擊Data Environment1下的連接對象 Connection1，從彈出的快捷菜單中選擇 “ 屬性 ” ，可對該連接對象進(jìn)行數(shù)據(jù)連接屬性的設(shè)置。 如果在創(chuàng)建工程時選擇的是 “ 數(shù)據(jù)工程 ” ，則在工程中就會有一個數(shù)據(jù)環(huán)境設(shè)計器 Data Environment1, 若在工程資源管理器中看不到該設(shè)計器，可以選擇 “ 工程 ” → “ 添加 Data Environment” 添加數(shù)據(jù)環(huán)境設(shè)計器。分別用組