【正文】 單擊單 選 按鈕組 按 鈕 ，在表 單上 畫一組 單選 按鈕組“ Optiongroup1”，將其 屬性 作 如下修改： BackStyle 0透明 BorderStyle 0無 Buttoncount 2 然后 ， 右 鍵 單擊單選 按 鈕組 ， 在 彈 出的快捷 菜 單上 選 “ 編 輯 ”， 再 分 別 單擊其中 任 一按鈕 Option1 或 Option2。 圖 51 “學(xué)生成績(jī)打 印 ”表單及 其 各控件 其 中 “學(xué)生成績(jī)表打印 ”、“班級(jí)簡(jiǎn) 稱 ”、“班級(jí) 編 號(hào) ”、“課 程 名稱 ”、“課程編號(hào) ” 為標(biāo)簽， “ Combo1”、 “ Combo2”為組合框 ，“ Text1”、 “ Text2”為文 本 框 ，“生 成 ”、“預(yù)覽 ”、“ 打印 ”、 36 their owncdsvlpa,mxukgf.()ybTqCzjSAX“退出 ” 為 命令按鈕 ，“ 按班級(jí)打印 ”、“按 課 程 打 印 ” 為單 選 按鈕 組 （ 單 選按鈕組 的 設(shè)計(jì)見本 頁第 2 點(diǎn) ）， 可自行設(shè) 計(jì) 每一控件 的 字型、字 體 、字號(hào)、 顏 色。 35 their owncdsvlpa,mxukgf.()ybTqCzjSAX 實(shí)驗(yàn) 五 打 印成績(jī)表 一、實(shí)驗(yàn)?zāi)康? 1. 設(shè)計(jì)按 不 同的需要 調(diào) 用報(bào)表的 表 單； 2. 熟悉打 印 所需中間 表 的使用； 3. 理解通 過 編程由多 表 產(chǎn)生一個(gè) 臨 時(shí)表的方 法 ； 4. 掌握使 用 報(bào)表設(shè)計(jì) 器 創(chuàng)建和修 改 報(bào)表的方 法 ； 二、實(shí)驗(yàn)內(nèi)容 1. 設(shè)計(jì)一 個(gè) 學(xué)生成績(jī) 打 印表單 ， 在 表 單上通過 單 選按鈕可 分 別選擇按 班 級(jí) 、 按課程 打 印 學(xué)生成績(jī)； 2. 設(shè)計(jì)有 關(guān) 的控件， 并 根據(jù)應(yīng)用 問 題為各控 件 設(shè)計(jì)相應(yīng) 的 程序代碼； 3. 設(shè)計(jì)班 級(jí) 成績(jī)單 、 課 程 成績(jī)單兩 個(gè) 報(bào)表定義 文 件 ， 可通過 運(yùn) 行表單分 別 調(diào) 用這兩 個(gè) 文 件，輸出 所 需報(bào)表。 5. 實(shí)驗(yàn)做完 后 ，將硬盤 “ 成績(jī)管理 ” 文件夾下 的 所有內(nèi)容 拷 貝 到 u 盤 或 軟盤上， 以 防 數(shù)據(jù)丟失 ， 下次上機(jī) 時(shí) ，如硬盤 內(nèi) 容丟失， 再 拷回來。 四、思考題與注意事項(xiàng) 1. 體會(huì)建立 視 圖對(duì)于在 多 個(gè)數(shù)據(jù)表 之 間進(jìn)行各 種 查詢的方 便 之處。 注意 ： 4 個(gè)頁面設(shè) 計(jì) 完成后 ， 可聯(lián)合起來 運(yùn) 行 。運(yùn)行結(jié) 果如 圖 414。 單擊運(yùn) 行 工具按 鈕 ， 再在表單上單 擊 “ 按課程查 詢 ” 頁面 ， 在課程名稱 右 邊的下 拉框中選 擇 一門課程 ， 則右邊依 次 會(huì)出現(xiàn)該 門 課程的平 均 分、最高 分 、最低分 ， 下面會(huì)出現(xiàn) 選修該課 程 所有同學(xué) 的 姓名、所 在 班級(jí)、成 績(jī) 、任課教 師 。 （ 1）雙擊“ Combo1”對(duì)象， 在 Click 過程編輯 窗 口中輸入 下 列程序： public a a= sele 成績(jī)查詢 set filter to 課程名稱 =a go top calculate avg(成績(jī) ) to cc2 calculate max(成績(jī) ) to cc3 calculate min(成績(jī) ) to cc4 =cc2 =cc3 =cc4 34 their owncdsvlpa,mxukgf.()ybTqCzjSAXset filter to （ 2）“返 回 ”命令按 鈕 的 Click 過程代碼與 前 兩個(gè)頁面 的 相同。 Column1 的“ ControlSource”屬性選“成績(jī) 查 詢 .姓名 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .班級(jí)簡(jiǎn)稱 ”； Column3 的“ ControlSource”屬性選“成績(jī) 查 詢 .成績(jī) ”； Column4 的“ ControlSource”屬性選“成績(jī) 查 詢 .任課教師 ”。 33 their owncdsvlpa,mxukgf.()ybTqCzjSAX 圖 413 “按課程查詢 ” 頁面中的 各 個(gè)控件 單擊“ Combo1”對(duì)象 ， 在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ColumnCount 輸 入 1 ControlSource 選“課程 .課程名稱” RowSourceType 選 6－字段 RowSource 選“課程 .課程名稱” Style 選 2－下拉列表框 請(qǐng)按 照 圖 413 并參照“ 按 班級(jí)查詢 ” 頁面加以 設(shè) 計(jì)。 圖 412 “按學(xué)號(hào)查 詢 ”頁面的 運(yùn) 行結(jié)果 （八）設(shè) 計(jì) “按課程 查 詢”頁面 “按課程 查 詢”的頁 面 如 圖 413 所示。按 “ 返回”按鈕 可退出。 將 Column1～ Column4 的 Enabled 屬性改為“ .F.－假 ”。接著 對(duì) Grid1 下的各部分作如下 修 改： Column1 下 的 Header1 的 Caption 屬性改為 “ 課程名稱 ”； Column2 下 的 Header1 的 Caption 屬性改為 “ 成績(jī) ”； Column3 下 的 Header1 的 Caption 屬性改為 “ 學(xué)分 ”； Column4 下 的 Header1 的 Caption 屬性改為 “ 任課教師 ”。 在屬性窗口選 擇 Page3， 再單擊 表 單控件中 的 表格按 鈕 表格名 為 Grid1，在屬性窗口將 其 ColumnCount 屬性改 為 4。 單擊“ Text1”對(duì)象，在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ControlSource 選“學(xué)生 .姓名” Enabled 選“ .F.－假 ”。 “學(xué)號(hào) ”、“姓名” 為 標(biāo) 簽 ，“ Combo1”為組合 框 ”， “ Text1” 為文本框 ，“ 返回 ” 為 命 令按鈕 。 圖 410 “按班級(jí)查 詢 ”頁面的 運(yùn) 行結(jié) 果 （七）設(shè) 計(jì) “按學(xué)號(hào) 查 詢”頁面 “按學(xué)號(hào) 查 詢”的頁 面 如 圖 411 所示。 按 “返 回 ” 按 鈕可退出 。 至此，應(yīng) 得 到 圖 49 的界面。 Column1 的“ ControlSource”屬性選“成績(jī) 查 詢 .姓名 ”； Column2 的“ ControlSource”屬性選“成 績(jī) 查 詢 .課程名稱 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .成績(jī) ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢 .任課教師 ”。 單擊“ Combo1”對(duì)象 ， 在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ColumnCount 輸 入 1 ControlSource 選“班級(jí)號(hào)名 .班級(jí)簡(jiǎn)稱” RowSourceType 選 6－字段 RowSource 選“班級(jí)號(hào)名 .班級(jí)簡(jiǎn)稱” Style 選 2－下拉列表框 各控件 的 字型、字 體 、字號(hào)、 顏 色自行設(shè) 定 。 圖 48 “按班級(jí)查詢 ” 的頁面中 各 個(gè)控件 在 “屬 性 ” 窗口選擇 對(duì) 象 “ Page2”， 然后 按 圖 48 設(shè)計(jì)頁面 。 單擊運(yùn) 行 工具 按 鈕 ， 再在表單上單 擊 “ 學(xué)生成績(jī) 概 況 ” 頁面 ， 運(yùn) 行結(jié)果如 圖 47。在屬性 窗 口中找到 對(duì) 象 Form1，設(shè) 置 TitleBar 屬性為“ 0－關(guān)閉 ”。 各控件 的字 型、字 體、 字號(hào)、 顏色 自 行 設(shè)定（以 下 各頁面均 同 此 ）。 在“屬性 ” 窗口選擇 對(duì)象“ Page1”，然后按 圖 46 設(shè)計(jì)頁面。 圖 43 建立含四個(gè) 頁 面的頁框 圖 44 修改每個(gè)頁面 的 FontName, FontSize,ForeColor （四）設(shè) 置 數(shù)據(jù)環(huán)境 單擊數(shù)據(jù) 環(huán) 境按鈕 ， 在數(shù)據(jù) 環(huán) 境中單 擊 “ 選定 ” 框 中 的 “視 圖 ”， 添 加 “成 績(jī) 查 詢 ” 視圖，再 單 擊“選定 ” 框中的“ 表 ”，添加“ 學(xué) 生 ”、“班 級(jí) 號(hào)名 ”、“ 課 程 ”，再關(guān) 閉 “添加表 或視圖”窗 口，得到 圖 45。然 后 適當(dāng)修改 每 一 個(gè) Page 的 FontName, FontSize,ForeColor,使字體、 字號(hào)、顏 色 美觀。 頁 框 （三）建 立 成績(jī)查詢 表 單 圖 42 在“視圖設(shè) 計(jì) 器”的可 用 字段 中選 擇 字段 圖 41 在新建視圖中 添 加“班級(jí) 號(hào) 名”和“ 學(xué) 生” 25 their owncdsvlpa,mxukgf.()ybTqCzjSAX → 新 建視 （二）建 立 成績(jī)查詢 所 需要的視圖 三、實(shí)驗(yàn)步驟 （一）進(jìn) 入 項(xiàng)目管理器 1. 啟 動(dòng) Visual Foxpro。 24 their owncdsvlpa,mxukgf.()ybTqCzjSAX 實(shí)驗(yàn) 四 成 績(jī)查詢 一、實(shí)驗(yàn)?zāi)康? 1. 熟悉表 單 在查詢方 面 的應(yīng)用； 2. 理解并 掌 握視圖的 概 念和建立 方 法； 3. 掌握頁 框 的使用方 法 ； 4. 掌握查 詢 全體學(xué)生 成 績(jī)概況的 方 法； 5. 掌握按 班 級(jí)、按學(xué) 號(hào) 、按課程 查 詢學(xué)生成 績(jī) 的方法。 為 保 證后面查 詢 、統(tǒng)計(jì)分 析 等實(shí)驗(yàn)所 需 數(shù)據(jù)的完 全 性，請(qǐng)學(xué) 生 盡可能順 序 輸入完學(xué) 生 基 本情況數(shù) 據(jù) 與學(xué)生成 績(jī) 數(shù)據(jù)，如 果 在學(xué)生基 本 情況輸入 后 又輸入了 學(xué) 生成績(jī)， 最 好 不要再回 到 前面去修 改 學(xué)生基本 情 況，否則 可 能引起數(shù) 據(jù) 的混亂， 給 調(diào)試程序 帶 來 麻煩。 2. 思考一下 ： 如果表格 有 4 列 或 5 列 ， 應(yīng)修 改 Grid 的哪個(gè)屬 性 ？ 3. 實(shí)驗(yàn)做完 后 ，將硬盤 “ 成績(jī)管理 ” 文件夾下 的 所有內(nèi)容 拷 貝 到 u 盤 或 軟盤上， 以 防 數(shù)據(jù)丟失 ， 下次上機(jī) 時(shí) ，如硬盤 內(nèi) 容丟失， 再 拷回來。 如果這 時(shí) 系統(tǒng)彈出 提 示信 息 “ 不 能訪問選 定 表 ”， 只 需 按 “確定 ” 按 鈕，即可 退 出。每 個(gè) 學(xué)生三門 課 程的成績(jī) 模 擬列出在 后 面。 7．運(yùn)行 表單輸入成績(jī) sele 學(xué)生選課 dele all for 課程編號(hào) =space(7) and 成績(jī) =0 close data 注 ： 由于使 用 pack 命令 必 須以獨(dú)占 方 式打開文 件 。雙擊“ Combo1”對(duì)象， 在 click 過程代碼編 輯 窗口中輸 入 下列程序： 21 their owncdsvlpa,mxukgf.()ybTqCzjSAXsele 學(xué)生選課 set filter to 學(xué)號(hào) = count to a for i=1 to 12a append blank 圖 38 設(shè)計(jì)“返回” 命 令按鈕 replace 學(xué) 號(hào) with endfor go top 單擊表 單 控件中的 命 令按 鈕 ， 然后再 在 表單下部 畫 一按鈕 ， 在 屬性窗口 中 ， 將命 令按鈕 的 Caption 屬性由原來的“ mand1”改為“返回 ”， 同時(shí) 將 FontSize 屬性 改 為 16 （號(hào)字 ）， 界 面如 圖 38 所示。 單擊“ Combo1”對(duì)象 ， 在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 ， 設(shè)置如下： ControlSource 選“學(xué)生 .學(xué)號(hào)” ColumnCount 輸 入 1 RowSourceType 選 6－字段 RowSource 選“學(xué)生 .學(xué)號(hào)” Style 選 2－下拉列表框 在屬性窗口選 定 “ grd 學(xué)生選課 ” 下面 的 colum1， 如 圖 37， 設(shè) 置 “ Enabled” 屬性為 .F. －假。 2）在表 格 的 C