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

　　

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