【導(dǎo)讀】1．熟悉VisualFoxpro項(xiàng)目管理器的使用；4．熟練掌握表文件的打開(kāi)、瀏覽、關(guān)閉。1．建立項(xiàng)目管理器“學(xué)生成績(jī)管理系統(tǒng)”；３．直接為“班級(jí)號(hào)名”、“課程”兩個(gè)數(shù)據(jù)表輸入數(shù)據(jù)。開(kāi)始→程序→VisualFoxpro，或：雙擊桌面VisualFoxpro快捷方式圖標(biāo)。在VisualFoxpro的命令窗口中鍵入quit或選VisualFoxpro菜單中文件→退出。·在機(jī)房的學(xué)生數(shù)據(jù)盤(pán)上建一目錄，命名為“成績(jī)管理”。·單擊“表單”選項(xiàng)卡，將“最大設(shè)計(jì)區(qū)”選為1024×768。·單擊“設(shè)置為默認(rèn)值”按鈕，再單擊“確定”按鈕。程序等大量的文件組成的，這些文件的集合叫做“項(xiàng)目”。來(lái)實(shí)現(xiàn)管理和維護(hù)的，并且最終保存為具有擴(kuò)展名PJX的項(xiàng)目文件。項(xiàng)目管理器是VFP的“控制中心”和應(yīng)用程序運(yùn)行的驅(qū)動(dòng)器。項(xiàng)目管理器有6個(gè)選項(xiàng)卡，據(jù)”選項(xiàng)卡包含了一個(gè)項(xiàng)目中的所有數(shù)據(jù)，如數(shù)據(jù)庫(kù)、自由表、查詢(xún)和視圖等。包含了處理數(shù)據(jù)時(shí)的所有文檔，如表單、報(bào)表和標(biāo)簽等。其余選項(xiàng)卡主要用于為最終用戶(hù)創(chuàng)建應(yīng)用程。件夾下，對(duì)隨后出現(xiàn)的“數(shù)據(jù)庫(kù)設(shè)計(jì)器”，直接關(guān)閉。

　　

【正文】 31 圖 411 “按學(xué)號(hào) 查 詢(xún)”頁(yè)面 中 的各個(gè)控件 RowSourceType 選 6－字段 RowSource 選“學(xué)生 .學(xué)號(hào)” Style 選 2－下拉列表框 單擊“ Text1”對(duì)象，在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ControlSource 選“學(xué)生 .姓名” Enabled 選“ .F.－假 ”。 在屬性窗口選 擇 Page3， 再單擊 表 單控件中 的 表格按 鈕 表格名 為 Grid1，在屬性窗口將 其 ColumnCount 屬性改 為 4。 接著 對(duì) Grid1 下的各部分作如下 修 改： Column1 下 的 Header1 的 Caption 屬性改為 “ 課程名稱(chēng) ”； Column2 下 的 Header1 的 Caption 屬性改為 “ 成績(jī) ”； Column3 下 的 Header1 的 Caption 屬性改為 “ 學(xué)分 ”； Column4 下 的 Header1 的 Caption 屬性改為 “ 任課教師 ”。 ， 在頁(yè)框中畫(huà)一表 格 ， 該 Column1 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .課程名稱(chēng) ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .成績(jī) ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .學(xué)分 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .任課教師 ”。 將 Column1～ Column4 的 Enabled 屬性改為“ .F.－假 ”。 （ 1）雙擊“ Combo1”對(duì)象， 在 Click 過(guò)程編輯 窗 口中輸入 下 列程序： public a a= sele 成績(jī)查詢(xún) 32 set filter to 學(xué)號(hào) =a go top （ 2）“返 回 ”命令按 鈕 的 Click 過(guò)程代碼與 前 兩個(gè)頁(yè)面 的 相同。 單擊運(yùn) 行 工具按 鈕 ， 再在表單上單 擊 “ 按學(xué)號(hào)查 詢(xún) ” 頁(yè)面 ， 在學(xué)號(hào)右邊 的 下拉框 中選擇一 個(gè) 學(xué)號(hào)，則 右 邊會(huì)出現(xiàn) 姓 名，下面 會(huì) 出現(xiàn)該生 的 各門(mén)課程 的 成績(jī)。按 “ 返回”按鈕 可退出。 運(yùn) 行結(jié)果如 圖 412。 圖 412 “按學(xué)號(hào)查 詢(xún) ”頁(yè)面的 運(yùn) 行結(jié)果 （八）設(shè) 計(jì) “按課程 查 詢(xún)”頁(yè)面 “按課程 查 詢(xún)”的頁(yè) 面 如 圖 413 所示。 其頁(yè)面上 各 控件及其 設(shè) 計(jì)方法 與 “ 按班級(jí)查 詢(xún) ” 頁(yè)面類(lèi) 似 ， 在此不 贅 述 。 請(qǐng)按 照 圖 413 并參照“ 按 班級(jí)查詢(xún) ” 頁(yè)面加以 設(shè) 計(jì)。 單擊“ Combo1”對(duì)象 ， 在屬性窗 口 中為此對(duì) 象 設(shè)置屬性 值 如下： ColumnCount 輸 入 1 ControlSource 選“課程 .課程名稱(chēng)” RowSourceType 選 6－字段 RowSource 選“課程 .課程名稱(chēng)” Style 選 2－下拉列表框 在屬性窗口選 擇 Page2， 再單擊 表 單控件中 的 表格按 鈕 ， 在頁(yè)框中畫(huà)一表 格 ， 該 表格名 為 Grid1，在屬性窗口將 其 ColumnCount 屬性改 為 4。 33 圖 413 “按課程查詢(xún) ” 頁(yè)面中的 各 個(gè)控件 接著 對(duì) Grid1 下的各部分作如下 修 改： Column1 下 的 Header1 的 Caption 屬性改為 “ 姓名 ”； Column2 下 的 Header1 的 Caption 屬性改為 “ 班級(jí)簡(jiǎn)稱(chēng) ”； Column3 下 的 Header1 的 Caption 屬性改為 “ 成績(jī) ”； Column4 下 的 Header1 的 Caption 屬性改為 “ 任課教師 ”。 Column1 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .姓名 ”； Column2 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .班級(jí)簡(jiǎn)稱(chēng) ”； Column3 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .成績(jī) ”； Column4 的“ ControlSource”屬性選“成績(jī) 查 詢(xún) .任課教師 ”。 將 Column1～ Column4 的 Enabled 屬性改為“ .F.－假 ”。 （ 1）雙擊“ Combo1”對(duì)象， 在 Click 過(guò)程編輯 窗 口中輸入 下 列程序： public a a= sele 成績(jī)查詢(xún) set filter to 課程名稱(chēng) =a go top calculate avg(成績(jī) ) to cc2 calculate max(成績(jī) ) to cc3 calculate min(成績(jī) ) to cc4 =cc2 =cc3 =cc4 34 set filter to （ 2）“返 回 ”命令按 鈕 的 Click 過(guò)程代碼與 前 兩個(gè)頁(yè)面 的 相同。 單擊運(yùn) 行 工具按 鈕 ， 再在表單上單 擊 “ 按課程查 詢(xún) ” 頁(yè)面 ， 在課程名稱(chēng) 右 邊的下 拉框中選 擇 一門(mén)課程 ， 則右邊依 次 會(huì)出現(xiàn)該 門(mén) 課程的平 均 分、最高 分 、最低分 ， 下面會(huì)出現(xiàn) 選修該課 程 所有同學(xué) 的 姓名、所 在 班級(jí)、成 績(jī) 、任課教 師 。按“返 回 ”按鈕可 退 出。運(yùn)行結(jié) 果如 圖 414。 圖 414 “按課程查 詢(xún) ”頁(yè)面的 運(yùn) 行結(jié)果 注意 ： 4 個(gè)頁(yè)面設(shè) 計(jì) 完成后 ， 可聯(lián)合起來(lái) 運(yùn) 行 。 如果在查詢(xún)某頁(yè) 面 后切換到 另 一頁(yè)面 出現(xiàn)花屏 現(xiàn) 象，建議 在 單擊運(yùn)行 按 鈕后，先 將 4 個(gè)頁(yè)面逐 一 切換，每 選 一頁(yè)面后 不 做任何查 詢(xún)立即切 換 到下一頁(yè) 面 ，待每一 頁(yè) 面都選到 后 ，再任意 選 擇頁(yè)面進(jìn) 行 查詢(xún)，這 樣 可有效避免 屏幕花屏。 四、思考題與注意事項(xiàng) 1. 體會(huì)建立 視 圖對(duì)于在 多 個(gè)數(shù)據(jù)表 之 間進(jìn)行各 種 查詢(xún)的方 便 之處。 2. 數(shù)據(jù)環(huán)境 的 作用是什 么 ？ 3. 頁(yè)框的作 用 是什么？ 4. 總結(jié)本實(shí) 驗(yàn) 共為哪些 表 單控件設(shè) 置 了哪些事 件 代碼？打 開(kāi) 相應(yīng)控件 的 屬性窗口 了 解 這些事件 ， 并結(jié)合源 程 序試分析 一 下這些代 碼 的作用。 5. 實(shí)驗(yàn)做完 后 ，將硬盤(pán) “ 成績(jī)管理 ” 文件夾下 的 所有內(nèi)容 拷 貝 到 u 盤(pán) 或 軟盤(pán)上， 以 防 數(shù)據(jù)丟失 ， 下次上機(jī) 時(shí) ，如硬盤(pán) 內(nèi) 容丟失， 再 拷回來(lái)。 6. 寫(xiě)出實(shí)驗(yàn) 報(bào) 告。 35 實(shí)驗(yàn) 五 打 印成績(jī)表 一、實(shí)驗(yàn)?zāi)康? 1. 設(shè)計(jì)按 不 同的需要 調(diào) 用報(bào)表的 表 單； 2. 熟悉打 印 所需中間 表 的使用； 3. 理解通 過(guò) 編程由多 表 產(chǎn)生一個(gè) 臨 時(shí)表的方 法 ； 4. 掌握使 用 報(bào)表設(shè)計(jì) 器 創(chuàng)建和修 改 報(bào)表的方 法 ； 二、實(shí)驗(yàn)內(nèi)容 1. 設(shè)計(jì)一 個(gè) 學(xué)生成績(jī) 打 印表單 ， 在 表 單上通過(guò) 單 選按鈕可 分 別選擇按 班 級(jí) 、 按課程 打 印 學(xué)生成績(jī)； 2. 設(shè)計(jì)有 關(guān) 的控件， 并 根據(jù)應(yīng)用 問(wèn) 題為各控 件 設(shè)計(jì)相應(yīng) 的 程序代碼； 3. 設(shè)計(jì)班 級(jí) 成績(jī)單 、 課 程 成績(jī)單兩 個(gè) 報(bào)表定義 文 件 ， 可通過(guò) 運(yùn) 行表單分 別 調(diào) 用這兩 個(gè) 文 件，輸出 所 需報(bào)表。 三、實(shí)驗(yàn)步驟 （一）設(shè) 計(jì) 表單 打開(kāi)項(xiàng)目 管 理器“學(xué) 生 成績(jī)管理 系 統(tǒng) ”，新建 一 個(gè)表單， 將 其 Caption 改 為 “學(xué)生 成 績(jī) 打印 ”，表 單 上各控件 按 圖 51 設(shè)計(jì)。 圖 51 “學(xué)生成績(jī)打 印 ”表單及 其 各控件 其 中 “學(xué)生成績(jī)表打印 ”、“班級(jí)簡(jiǎn) 稱(chēng) ”、“班級(jí) 編 號(hào) ”、“課 程 名稱(chēng) ”、“課程編號(hào) ” 為標(biāo)簽， “ Combo1”、 “ Combo2”為組合框 ，“ Text1”、 “ Text2”為文 本 框 ，“生 成 ”、“預(yù)覽 ”、“ 打印 ”、 36 “退出 ” 為 命令按鈕 ，“ 按班級(jí)打印 ”、“按 課 程 打 印 ” 為單 選 按鈕 組 （ 單 選按鈕組 的 設(shè)計(jì)見(jiàn)本 頁(yè)第 2 點(diǎn) ）， 可自行設(shè) 計(jì) 每一控件 的 字型、字 體 、字號(hào)、 顏 色。 按 Ctrl+ S 鍵保存表單 ,取名 為“成績(jī) 打 印 ”。 單擊單 選 按鈕組 按 鈕 ，在表 單上 畫(huà)一組 單選 按鈕組“ Optiongroup1”，將其 屬性 作 如下修改： BackStyle 0透明 BorderStyle 0無(wú) Buttoncount 2 然后 ， 右 鍵 單擊單選 按 鈕組 ， 在 彈 出的快捷 菜 單上 選 “ 編 輯 ”， 再 分 別 單擊其中 任 一按鈕 Option1 或 Option2，就可進(jìn)行編 輯 ， 將 Option1 的 Caption 改為“按班級(jí)打印 ”， Option2 的 Caption 改為“按 課 程打印 ”， 其 余如字型 、 字體、字 號(hào) 、顏色可 自 行設(shè)計(jì)。 在數(shù)據(jù)環(huán) 境 中添加“ 班 級(jí)號(hào)名 ”、“ 課程 ”。 Combo1 主 要屬性為： ControlSource 選“班級(jí)號(hào)名 .班級(jí)簡(jiǎn)稱(chēng)” ColumnCount 輸 入 1 RowSourceType 選 6－字段 RowSource 選“班級(jí)號(hào)名 .班級(jí)簡(jiǎn)稱(chēng)” Style 選 2－下拉 列表框 Combo2 主 要屬性為： ControlSource 選“課程 .課程名稱(chēng)” ColumnCount 輸 入 1 RowSourceType 選 6－字段 RowSource 選“課程 .課程名稱(chēng)” Style 選 2－下拉列表框 Text1 主要屬性： ControlSource 選 “班級(jí)號(hào)名 .班級(jí)編號(hào)” Enabled . Text2 主要屬性： ControlSource 選 “課程 .課程編號(hào)” Enabled . （ 1）單選按鈕 組 Optiongroup1 的 Click 過(guò)程代碼： public n n= do case case n=1 sele 班 級(jí)號(hào)名 37 go top =.t. =.f. case n=2 sele 課程 go top =.t. =.f. endcase （ 2）雙 擊 Combo1，為 其 Click 過(guò)程輸入代碼： （ 3）雙 擊 Combo2，為 其 Click 過(guò)程輸入代碼： （ 4）雙擊命令按鈕“ 生 成 ”， 為 其 Click 過(guò)程輸入代碼： （注意：這一段程序 代 碼比較長(zhǎng)，實(shí)驗(yàn)過(guò)程 中 可以先輸 入 調(diào) 試 case n=1 程序段， 再輸 入 調(diào) 試 case n=2 程序段 ， 以 減少調(diào)試 的 復(fù)雜度 。 如 實(shí)驗(yàn)課時(shí) 不 夠 ， 也可 只 輸 入 case n=1 所對(duì)應(yīng) 的“按班 級(jí) 打印”程 序 段，且后 面 也只設(shè)計(jì) 相 應(yīng)的按班 級(jí) 打印報(bào)表 文 件 。 ） public n,kc1,kc2,kc3,bjbh,bjjc amp。amp。 n 存放選擇 單 選按鈕的 值 ， kc1kc3 分別存放課 程名，后 兩 個(gè)變量存 放 班級(jí)編號(hào) 和 班級(jí)簡(jiǎn)稱(chēng) public kcmc,kcbh,xf,rkjs amp。amp。kcmc 存放課程 名 ， kcbh 存放課程編號(hào)， xf 存放學(xué) 分 ， rkjs 存放任課教師 set safe off clos data n= do case case n=1 amp。amp。按班級(jí)打印 store space(20) to kc1,kc2,kc3 amp。amp。賦初值 bjjc= bjbh= if !file() 由多 amp。amp。個(gè)表產(chǎn)生的臨 時(shí) 表 amp。amp。 為按班級(jí) 打 印所需中 間 表，是一個(gè) create table bjlsb［姓 名 c(6),班級(jí)編 號(hào) c(9),班級(jí)簡(jiǎn) 稱(chēng) c(9),kc1 n(3), kc2 n(3),kc3 n(3)］ else sele use endif F bjlsb 38 sele bjlsb zap appe from 學(xué)生 dele all for 班 級(jí) 編號(hào) 班級(jí)號(hào)名 .班級(jí)編號(hào) pack se