【正文】 202101301210 劉盼 0105012 80 0102031 73 0103008 82 202101301211 鐘華 0105012 81 0102031 77 0103008 67 202101301212 李林杰 0105012 85 0102031 89 0103008 91 202101301213 張濤 0105012 86 0102031 79 0103008 69 202101301214 雷克成 0105012 79 0102031 69 0103008 82 202101301215 張峰 0105012 79 0102031 86 0103008 81 202101301240 秦彩霞 0105012 68 0102031 79 0103008 80 202101301241 劉輝 0105012 85 0102031 99 0103008 76 四、思考題與注意事項(xiàng) 1. 查資料弄 清 下拉列表 框 的幾個(gè)常 用 屬性的含 義 。 4. 特別強(qiáng)調(diào) ： 因?yàn)檫@只 是 一個(gè)實(shí)驗(yàn) 用 小型系統(tǒng) ， 對(duì)數(shù)據(jù)輸 入 的容錯(cuò)性 考 慮較少。 5. 寫出實(shí)驗(yàn) 報(bào) 告。 二、實(shí)驗(yàn)內(nèi)容 1. 建立一 個(gè) 滿足對(duì)成 績(jī) 進(jìn)行各種 查 詢所需的 視 圖； 2. 建立一 個(gè) 有多頁(yè)面 頁(yè) 框的表 單 ， 使 表單運(yùn)行 時(shí) 通過(guò)頁(yè)面 的 選擇 ， 能分 別 查詢?nèi)w 學(xué) 生 成績(jī)概況 ， 按班級(jí)、 按 學(xué)號(hào)、按 課 程查詢學(xué) 生 成績(jī)。 2. 打開項(xiàng) 目 管理器“ 學(xué) 生成績(jī)管 理 系統(tǒng)” 從“文件 ” →“打開 ” →找到文 件 “學(xué)生成 績(jī)管理系統(tǒng) .PJX”，選中 并 按“確定 ” 鍵。 單擊項(xiàng) 目 管理 器 “ 數(shù) 據(jù) ” 選項(xiàng) 卡 ， 展 開 “ 數(shù) 據(jù)庫(kù) ”， 單 擊 本地視 圖 → 新建 圖。 添加“ 班 級(jí)號(hào)名 ”， 再 添加“學(xué)生 ”，此時(shí)出 現(xiàn) 圖 41 界面，按“確 定 ”按鈕。 再添加 “ 學(xué)生選課 ”， 在出現(xiàn)上 述 類似界面 時(shí) 同樣按“ 確 定”按鈕。 最后添 加 “課程 ”， 按 “確定” 按 鈕，然后 關(guān) 閉“添加 表 或視圖窗口 ”。 在“視 圖 設(shè)計(jì)器” 中 雙擊“可 用 字段”中 的 下列字段： 學(xué)生 .學(xué)號(hào) 學(xué)生 .姓名 學(xué)生 .班級(jí)編號(hào) 學(xué)生 .出生年月 學(xué)生 .性別 學(xué)生選課 .課程編號(hào) 學(xué)生選課 .成績(jī) 課程 .課程名稱 課程 .任課教師 課程 .學(xué)分 班級(jí)號(hào)名 .班級(jí)簡(jiǎn)稱 將上述字 段 移到右邊 的 可選字段 中 ，如 圖 42。 按 Ctrl+W 保存視圖 ， 取名為“ 成 績(jī)查詢 ”。 單擊項(xiàng) 目 管理器上 方 的“文檔 ” 選項(xiàng)卡。 單擊“ 表 單 ”，再單 擊 右邊的“ 新 建 ”，進(jìn)入 表 單設(shè)計(jì)界 面 。 按“ Ctrl+S”鍵保存表單，取名 為 “成績(jī)查詢 ”。單擊窗 口 右上角最 大 化按鈕， 使 “表單設(shè) 計(jì) －成績(jī)查詢 .SCX”窗口最大化。 移動(dòng)鼠 標(biāo) ，適當(dāng)放 大 表單窗口。 在表單 控 件中單擊 頁(yè) 框按 鈕 ， 在表單 上 畫頁(yè)框 ， 然 后通過(guò)拖 動(dòng) 頁(yè)框邊緣 的 8 個(gè)小 黑方塊， 放 大或縮小 頁(yè) 框，使其 充 滿整個(gè)表 單 ， 將 PageCount 的值修改 為 4，此時(shí)表單如圖 43。 單 擊 Page1，在屬性窗口中 將 Page1 的 Caption 屬性改 為“ 學(xué) 生成績(jī)概況 ”；單 擊 Page2， 在屬性窗 口 中 將 Page2 的 Caption 屬性改 為“ 按 班級(jí)查詢 ”； 單 擊 Page3，在屬性窗 口 中 將 Page3 26 their owncdsvlpa,mxukgf.()ybTqCzjSAX” 的 Caption 屬性改 為 “ 按學(xué)號(hào)查詢 ”； 單 擊 Page4， 在屬性 窗 口中 將 Page4 的 Caption 屬性改 為“按課 程 查詢 ”。此 時(shí) 表單如 圖 44 所示。 圖 45 為表單“成績(jī) 查 詢”設(shè)計(jì) 數(shù) 據(jù)環(huán)境 （五）設(shè) 計(jì) “學(xué)生成 績(jī) 概況”頁(yè)面 “學(xué)生成 績(jī) 概況”的 頁(yè) 面如 圖 46 所示。 設(shè)計(jì)“全 體 學(xué)生平均分 ”、“男生平 均 分 ”、 “女生平均分 ”、 “會(huì)計(jì)班各 門 課總平均 分 ” 等 使用表單控 件 “標(biāo) 簽 ， 只需按圖示文字分 別 將標(biāo)簽 的 Caption 屬性修改 為 “全 體 學(xué)生平 均分 ” “ 男 生平均分 ”、“女生平 均 分 ” 等即 可 ； 設(shè) 計(jì) Text1～ Text6 使用表單控 件 “ 文本框” ，設(shè)計(jì) “返 回”使 用表 單控件 “命 令按 鈕 ” 。 27 their owncdsvlpa,mxukgf.()ybTqCzjSAX 圖 46 頁(yè)面“學(xué)生成 績(jī) 概況”中 的 各個(gè)控件 （ 1）在 “屬性 ” 窗口選擇對(duì) 象 “ Page1”， 雙擊下面 的 “ Activate Event”， 輸入如 下 過(guò) 程代碼： set talk off set filter to calculate avg(成績(jī) ) to c1 calculate avg(成績(jī) ) for 性別 =“男 ” to c2 calculate avg(成績(jī) ) for 性別 =“女 ” to c3 calculate avg(成績(jī) ) for 班級(jí)簡(jiǎn)稱 =“ 02 會(huì)計(jì) ” to c4 calculate avg(成績(jī) ) for 班級(jí)簡(jiǎn)稱 =“ 02 工商 ” to c5 calculate avg(成績(jī) ) for 班級(jí)簡(jiǎn) 稱 =“ 02 國(guó)貿(mào)（經(jīng)紀(jì)人 ）” to c6 =c1 =c2 =c3 =c4 =c5 =c6 （ 2）雙擊“返回”命 令 按鈕，在 其 “ Click”過(guò)程編輯窗 口 輸入下面 的 代碼： close data 28 their owncdsvlpa,mxukgf.()ybTqCzjSAX 圖 47 “學(xué)生成績(jī)概 況 ”頁(yè)面的 運(yùn) 行結(jié)果 （六）設(shè) 計(jì) “按班級(jí) 查 詢”頁(yè)面 “按班級(jí) 查 詢”的頁(yè) 面 如 圖 48 所示?！鞍嗉?jí)簡(jiǎn) 稱 ”、“平 均 分 ” 等 29 their owncdsvlpa,mxukgf.()ybTqCzjSAX” 為表單控 件 “標(biāo) 簽 ”；“ Combo1” 為表單控 件 “ 組 合框 ， Text2～ Text4 為表單控 件 “文 本 “返回 ” 為命令按 鈕 。 在屬性窗口選 擇 Page2， 再單擊 表 單控件中 的 表格按鈕 ， 在頁(yè)框中畫一表 格 ， 該 表格名 為 Grid1，立即在屬性窗口 中 將 其 ColumnCount 屬性 改 為 4。接著 對(duì) Grid1 下的各部分作如下 修 改： Column1 下 的 Header1 的 Caption 屬性改為 “ 姓名 ”； Column2 下 的 Header1 的 Caption 屬性改為 “ 課程名稱 ”； Column3 下 的 Header1 的 Caption 屬性改為 “ 成績(jī) ”； Column4 下 的 Header1 的 Caption 屬性改為 “ 任課教師 ”。 將 Column1～ Column4 的 Enabled 屬性改為“ .F.－假 ”。 圖 49 page2 中的表 格 Grid1 （ 1）雙擊“ Combo1”對(duì)象， 在 Click 過(guò)程編輯 窗 口中輸入 下 列程序： public a a= sele 成績(jī)查詢 set filter to 班級(jí)簡(jiǎn)稱 =a go top 30 their owncdsvlpa,mxukgf.()ybTqCzjSAX calculate avg(成績(jī) ) to cc2 calculate avg(成績(jī) ) for 性別 =“男 ” to cc3 calculate avg(成績(jī) ) for 性別 =“女 ” to cc4 =cc2 =cc3 =cc4 set filter to （ 2）“返 回 ”命令按 鈕 的 Click 過(guò)程代碼與 “ 學(xué)生成績(jī) 概 況”頁(yè)面 的 “返回” 命 令按鈕 相同。 單擊運(yùn) 行 工具按 鈕 ， 再在表單上單 擊 “ 按班級(jí)查 詢 ” 頁(yè)面 ， 在班級(jí)簡(jiǎn)稱 右 邊的下 拉框中選 擇 一個(gè)班級(jí) ， 則右邊依 次 會(huì)出現(xiàn)該 班 的平均分 、 男生平均 分 、女生平 均 分，下面會(huì) 出現(xiàn)該班 所 有同學(xué)所 有 課程的成 績(jī) 、 任課教 師 。 運(yùn)行結(jié)果 如 圖 410。 在“屬性 ” 窗口選擇 對(duì) 象“ Page3”，然后按 圖 411 設(shè)計(jì)頁(yè)面 。 各 控件的字 型 、 字體、 字號(hào)、顏 色 自行設(shè)定。 單擊“ Combo1”對(duì)象 ， 在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ColumnCount 輸 入 1 ControlSource 選“學(xué)生 .學(xué)號(hào)” 31 their owncdsvlpa,mxukgf.()ybTqCzjSAX 圖 411 “按學(xué)號(hào) 查 詢”頁(yè)面 中 的各個(gè)控件 RowSourceType 選 6－字段 RowSource 選“學(xué)生 .學(xué)號(hào)” Style 選 2－下拉列表框 ， 在頁(yè)框中畫一表 格 ， 該 Column1 的“ ControlSource”屬性選“成績(jī) 查 詢 .課程名稱 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .成績(jī) ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .學(xué)分 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .任課教師 ”。 （ 1）雙擊“ Combo1”對(duì)象， 在 Click 過(guò)程編輯 窗 口中輸入 下 列程序： public a a= sele 成績(jī)查詢 32 their owncdsvlpa,mxukgf.()ybTqCzjSAX set filter to 學(xué)號(hào) =a go top （ 2）“返 回 ”命令按 鈕 的 Click 過(guò)程代碼與 前 兩個(gè)頁(yè)面 的 相同。 單擊運(yùn) 行 工具按 鈕 ， 再在表單上單 擊 “ 按學(xué)號(hào)查 詢 ” 頁(yè)面 ， 在學(xué)號(hào)右邊 的 下拉框 中選擇一 個(gè) 學(xué)號(hào)，則 右 邊會(huì)出現(xiàn) 姓 名，下面 會(huì) 出現(xiàn)該生 的 各門課程 的 成績(jī)。 運(yùn) 行結(jié)果如 圖 412。 其頁(yè)面上 各 控件及其 設(shè) 計(jì)方法 與 “ 按班級(jí)查 詢 ” 頁(yè)面類 似 ， 在此不 贅 述 。 在屬性窗口選 擇 Page2， 再單擊 表 單控件中 的 表格按 鈕 ， 在頁(yè)框中畫一表 格 ， 該 表格名 為 Grid1，在屬性窗口將 其 ColumnCount 屬性改 為 4。接著 對(duì) Grid1 下的各部分作如下 修 改： Column1 下 的 Header1 的 Caption 屬性改為 “ 姓名 ”； Column2 下 的 Header1 的 Caption 屬性改為 “ 班級(jí)簡(jiǎn)稱 ”； Column3 下 的 Header1 的 Caption 屬性改為 “ 成績(jī) ”； Column4 下 的 Header1 的 Caption 屬性改為 “ 任課教師 ”。 將 Column1～ Column4 的 Enabled 屬性改為“ .F.－假 ”。 按“返 回 ”按鈕可 退 出。 圖 414 “按課程查 詢 ”頁(yè)面的 運(yùn) 行結(jié)果 如果在查詢某頁(yè) 面 后切換到 另 一頁(yè)面 出現(xiàn)花屏 現(xiàn) 象，建議 在 單擊運(yùn)行 按 鈕后，先 將 4 個(gè)頁(yè)面逐 一 切換，每 選 一頁(yè)面后 不 做任何查 詢立即切 換 到下一頁(yè) 面 ，待每一 頁(yè) 面都選到 后 ，再任意 選 擇頁(yè)面進(jìn) 行 查詢，這 樣 可有效避免 屏幕花屏。 2. 數(shù)據(jù)環(huán)境 的 作用是什 么 ？ 3. 頁(yè)框的作 用 是什么？ 4. 總結(jié)本實(shí) 驗(yàn) 共為哪些 表 單控件設(shè) 置 了哪些事 件 代碼？打 開 相應(yīng)控件 的 屬性窗口 了 解 這些事件 ， 并結(jié)合源 程 序試分析 一 下這些代 碼 的作用。 6. 寫出實(shí)驗(yàn) 報(bào) 告。 三、實(shí)驗(yàn)步驟 （一）設(shè) 計(jì) 表單 打開項(xiàng)目 管 理器“學(xué) 生 成績(jī)管理 系 統(tǒng) ”，新建 一 個(gè)表單， 將 其 Caption 改 為 “學(xué)生 成 績(jī) 打印 ”，表 單 上各控件 按 圖 51 設(shè)計(jì)。 按 Ctrl+ S 鍵保存表單 ,取名 為“成績(jī) 打 印