【文章內(nèi)容簡介】 1012 202101301240 秦彩霞 B02021012 202101301241 劉輝 B02021012 四、思考題與注意事項 1．認(rèn)真體會每一步的 作 用。 2．思考題： ① 本實驗中 數(shù) 據(jù)的輸入 方 式與實驗 一 數(shù)據(jù)的輸 入 方式有何 不 同？ ② 分別描述 每 個命令按 鈕 的 click 過程的主要 功 能。 3． 實驗做完后 ， 將硬 盤 “成績管 理 ” 文件夾 下 的所有內(nèi) 容 拷貝 到 u 盤 或軟盤上 ， 以防數(shù) 據(jù)丟失， 下 次上機時 ， 如硬盤內(nèi) 容 丟失，再 拷 回來。 4．寫出實驗報告。 17 their owncdsvlpa,mxukgf.()ybTqCzjSAX 實驗 三 利 用表格進行成績輸入 一、實驗?zāi)康? 1．熟悉表格在輸入數(shù) 據(jù) 方面的應(yīng) 用 ； 2． 掌 握 Visual Foxpro 表 格 （ Grid） 的編輯方 法 。 表單或 頁 框中的頁 面 均可以添 加 表格 （ Grid） 控 件 ， 主要用于 顯 示后臺數(shù) 據(jù) 表中的字段 ， 用戶可以 修 改表格中 的 數(shù)據(jù) 。 表 格（ Grid） 控件由若 干 行和列組 成 ，可以通 過 數(shù)據(jù)環(huán)境 創(chuàng) 建，也可 以 利用表格 生 成器創(chuàng)建； 3．掌握表格與數(shù)據(jù)表 對 應(yīng)關(guān)系的 建 立方法。 二、實驗內(nèi)容 1．建立一個“學(xué)生成 績 輸入 ”表 單 ，為表單 設(shè) 計輸入數(shù) 據(jù) 所需的控 件 ； 2．為表單設(shè)計應(yīng)用所 需 的數(shù)據(jù)環(huán) 境 ； 3．通過數(shù)據(jù)環(huán)境在表 單 上創(chuàng)建表 格 ，并為有 關(guān) 控件建立 相 應(yīng)的應(yīng)用 程 序； 4．運行表單，在表格 中 輸入相應(yīng) 的 數(shù)據(jù)。 三、實驗步驟 （一）進 入 項目管理器 1．按實驗一的方法啟 動 Visual Foxpro 2．打開項目管理器“ 學(xué) 生成績管 理 系統(tǒng)” 文 件 → 打 開 → 找到文件“ 學(xué) 生成績管 理 系統(tǒng) .PJX”， 選中并按 “ 確定”鍵。 （二）建 立 成績輸入 表 單 1．進入表單設(shè)計界面 單擊項 目 管理器上 方 的“文檔 ” 選項卡。 單擊“ 表 單 ”，再單 擊 右邊的“ 新 建 ”，進入 表 單設(shè)計界 面 。 按“ Ctrl+S”鍵保存表單，取名 為 “成績輸入 ”。 單擊窗 口 右上角最 大 化按鈕， 使 “表單設(shè) 計 －成績輸入 .SCX”窗口最大化。 移動鼠 標(biāo) ，適當(dāng)放 大 表單窗口。 激活 “ 屬 性－ 成 績 輸 入 .SCX”窗口，找 到屬 性“ CAPTION”，將原 來的 名字“ Form1” 改名為“ 學(xué) 生成績輸入 ”。此時， 應(yīng) 得到 圖 31。 圖 31 建立成績輸入 表 單 18 their owncdsvlpa,mxukgf.()ybTqCzjSAX簽 2．輸入標(biāo)題 單擊 表 單 控件 中 的 標(biāo) 按鈕，使 其 凹 下 去， 此 時 鼠 標(biāo)變 成 十 字 形狀 ， 用 鼠 標(biāo)在表 單上方拖 放 ，松開鼠 標(biāo) 后，出現(xiàn)“ Label1”標(biāo)簽。 在 “屬 性 ” 窗口中 找 到對 象 “ Label1”的 “ Caption” 屬性 ， 改名 為 “ 學(xué)生成績 輸 入 ”。 設(shè) 置 字 體 、字 號 ： 在 “屬 性 ” 窗 口中 找 到 對 象“ Label1”的“ FontName”屬性 ， 將其 設(shè)置為“ 楷 體 ”，同時 將 “ FontSize”屬性設(shè) 置 為 24（號字 ）。 在表單 中 用鼠標(biāo)適 當(dāng) 拖動“學(xué) 生 成績輸入 ”， 使其居于 上 部中間。 如 圖 32。 圖 32 設(shè)置一個標(biāo)簽 “ 學(xué)生成績 輸 入” 3．建立下拉列表框和 表 格 單擊表單控件中的標(biāo)簽按 鈕 ，使其凹 下 去，此時鼠標(biāo)變成十字形狀，用鼠 標(biāo)在表 單上方拖 放 ，松開鼠 標(biāo) 后，出現(xiàn)“ Label2”標(biāo)簽，在“屬 性 ”窗口中 找 到對象“ Label2” 的 “ Caption”屬性，改 名 為“學(xué)號 ”。 單擊表單控件中的組合框按 鈕 ，使其凹 下去，此時鼠標(biāo)變成十字形狀，用鼠標(biāo)在 表單中上 方 拖放，松 開 鼠標(biāo)后， 出 現(xiàn)“ bo1”組合框。 調(diào) 整 label2 和 bo1 大小及位 置 ，使其如 圖 33 所示。 圖 33 單擊表 單 控件中的 標(biāo) 簽按 鈕 ， 使其凹 下 去 ， 此時 鼠 標(biāo)變成十 字 形狀 ， 用 鼠 標(biāo)在表 單上方拖 放 ，松開鼠 標(biāo) 后，出現(xiàn)“ Label3”標(biāo)簽，在“屬 性 ”窗口中 找 到對象“ Label3” 的 “ Caption”屬性，改 名 為“姓名 ”。 圖 34 設(shè) 置 label3 和 Text1 19 their owncdsvlpa,mxukgf.()ybTqCzjSAX 單擊表單控件中的文本框按鈕，使其凹下去，此時鼠標(biāo)變成十字形狀，用鼠標(biāo)在表 單 上方拖放 ， 松開鼠標(biāo) 后 ，出現(xiàn)“ Text1” . 調(diào) 整 label3 和 Text1 大小 及 位置，使 其 如 圖 34 所示。 單擊屏 幕 上方的“ 數(shù) 據(jù)環(huán)境” 工 具按 鈕 。 按住 此 處拖動 圖 35 在數(shù)據(jù)環(huán)境 中 添加“ 學(xué) 生 ”和“學(xué) 生 選課”兩 個 表 添加“ 學(xué) 生”和“ 學(xué) 生選課” 兩 個表，如 圖 35，然后關(guān)閉“添加 表 或視圖” 窗 口。 按住“ 數(shù) 據(jù)環(huán)境設(shè) 計 器 — 成績 輸 入 .scx”中的“學(xué)生 選 課 ”，如 圖 35。將其拖到成績 輸入表單 中 ，釋放， 得 到 圖 36。 分別按住 此 兩 處調(diào)整列寬 圖 36 將數(shù)據(jù)環(huán)境中 的 “學(xué)生選 課 ”拖到表 單 中 20 their owncdsvlpa,mxukgf.()ybTqCzjSAX 右鍵單 擊 表格，在 快 捷菜單中 選 “編輯 ”， 再 將鼠標(biāo)在 上 圖指示處 拖 動以調(diào)整 列 寬。 注： 1）要編輯表格，必須先將表格設(shè)置為編輯狀態(tài)，可通過右擊表格彈 出快捷菜單， 選 擇 其 中 的 編 輯 命 令 完成，也 可 以設(shè)置相 應(yīng) 的屬性值 ， 例 如 調(diào) 整 表 格 的 列 寬 時 ，可 令 =100。 2）在表 格 的 ColumnCount 屬 性 中設(shè)置表 格 的列數(shù)， 可 以改變表 格 的列數(shù)。 在屬性窗口選 定 “ grd 學(xué)生選課 ” 下面 的 colum1， 如 圖 37， 設(shè) 置 “ Enabled” 屬性為 .F. －假。 圖 37 選定“ grd 學(xué)生選課”下 面 的 colum1 4．為組合 框 Combo1 及文本 框 Text1 設(shè)置屬性 單擊“ Combo1”對象 ， 在屬性窗 口 中為此對 象 設(shè)置屬性 ， 設(shè)置如下： ControlSource 選“學(xué)生 .學(xué)號” ColumnCount 輸 入 1 RowSourceType 選 6－字段 RowSource 選“學(xué)生 .學(xué)號” Style 選 2－下拉列表框 單擊“ Text1”對象，在屬性窗 口 中為此對 象 設(shè)置屬性 ， 設(shè)置如下： ControlSource 選 “學(xué)生 .姓名” Enabled .F. 假 5．“返回 ” 按鈕的設(shè)置 單擊表 單 控件中的 命 令按 鈕 ， 然后再 在 表單下部 畫 一按鈕 ， 在 屬性窗口 中 ， 將命 令按鈕 的 Caption 屬性由原來的“ mand1”改為“返回 ”， 同時 將 FontSize 屬性 改 為 16 （號字 ）， 界 面如 圖 38 所示。 6．過程代碼設(shè)置 雙擊“ Combo1”對象， 在 click 過程代碼編 輯 窗口中輸 入 下列程序： 21 their owncdsvlpa,mxukgf.()ybTqCzjSAXsele 學(xué)生選課 set filter to 學(xué)號 = count to a for i=1 to 12a append blank 圖 38 設(shè)計“返回” 命 令按鈕 replace 學(xué) 號 with endfor go top 雙 擊 “返回 ” 按鈕 ， 進入對象 與 過程的代 碼 編輯窗口 ， 鍵入如下 命 令后關(guān)閉 窗 口 ， 回到 表單編輯 狀 態(tài)。 sele 學(xué)生選課 dele all for 課程編號 =space(7) and 成績 =0 close data 注 ： 由于使 用 pack 命令 必 須以獨占 方 式打開文 件 。為使問 題 簡化起見 ， 在退出之 前 ，僅 用 dele 命令對 數(shù) 據(jù)表“學(xué) 生 選課”中 多 余的空紀(jì) 錄 做邏輯刪 除 ，不作物 理 刪除。 7．運行 表單輸入成績 單擊運 行 工具按 鈕 ，運行表單，界面如 圖 39。 先選學(xué) 號 ，再在課 程 編號欄中 輸 入課程編 號 ，再輸入 成 績，如果 某 學(xué)生成績 輸 入錯誤， 只需重輸 入 該生的成 績 即可。每 個 學(xué)生三門 課 程的成績 模 擬列出在 后 面。所有 成 績輸入完成 后 按 “返 回 ” 按鈕退 出 。 如果這 時 系統(tǒng)彈出 提 示信 息 “ 不 能訪問選 定 表 ”， 只 需 按 “確定 ” 按 鈕，即可 退 出。 22 their owncdsvlpa,mxukgf.()ybTqCzjSAX 圖 39 運行“成績輸 入 ”表單后 的 界面 學(xué) 號 姓名 課程編 號 成 績 課程編 號 成 績 課程編 號 成績 202101202101 王曉偉 0105012 85 0102031 79 0103008 87 202101202102 夏巖 0105012 89 0102031 98 0103008 76 202101202103 陳凱 0105012 84 0102031 89 0103008 81 202101202104 曹俊 0105012 85 0102031 69 0103008 83 202101202105 沈鵬 0105012 81 0102031 86 0103008 85 202101202106 周輝 0105012 79 0102031 77 0103008 86 202101202109 張波 0105012 66 0102031 78 0103008 82 202101202110 孫思坤 0105012 85 0102031 79 0103008 84 202101202111 代志漢 0105012 76 0102031 76 0103008 78 202101202112 肖超 0105012 66 0102031 74 0103008 79 202101202113 彭錦錦 0105012 48 0102031 73 0103008 75 202101202114 諶華僑 0105012 92 0102031 72 0103008 86 202101202115 夏歡 0105012 75 0102031 71 0103008 82 202101202116 朱其松 0105012 83 0102031 70 0103008 85 202101101301 謝謙 0105012 88 0102031 69 0103008 83 202101101302 江瑋 0105012 69 0102031 66 0103008 88 202101101303 吳江 0105012 68 0102031 66 0103008 83 202101101304 肖凱 0105012 91 0102031 65 0103008 85 202101101317 喻偌晶 0105012 86 0102031 63 0103008 92 202101101318 門彥 0105012 75 0102031 79 0103008 90 202101101319 張穎 0105012 56 0102031 45 0103008 50 23 their owncdsvlpa,mx