第二十六節(jié)表單六.doc

教學(xué)標(biāo)題表單設(shè)計與應(yīng)用 六 教學(xué)目標(biāo) 1 掌握表格對象的常用屬性及其應(yīng)用 2 掌握計時器對象常用屬性及其應(yīng)用 3 掌握頂層表單的應(yīng)用 4 掌握快捷菜單與表單的應(yīng)用 教學(xué)重點 1 表格對象的常用屬性及其應(yīng)用 2 頂層表單的應(yīng)用 教學(xué)難點 1 表格對象的應(yīng)用 2 頂層表單的應(yīng)用 教學(xué)過程 一 表格 grid 控件 表格是一個容器對象 表格也能包含列 這些列除了包含標(biāo)頭和控件外 每一個列還擁有自己的一組 屬性 事件和方法程序 從而為表格單元提供了大量的控件 常用屬性如下 1 recordsourcetype recordsource 屬性 recordsourcetype 屬性指明表格數(shù)據(jù)源的類型 recordsource 屬性指定表格數(shù)據(jù)源 屬性值屬性值說明說明 0表 數(shù)據(jù)來源于由 recordsourse 屬性指定的表 該表被自動打開 1 默認(rèn)值 別名 數(shù)據(jù)來源于已打開的表 由 recordsource 屬性指定該表的 別名 可加入數(shù)據(jù)環(huán)境中 2提示 運(yùn)行時出現(xiàn)對話框 由用戶根據(jù)提示選擇表格數(shù)據(jù)源 3查詢 數(shù)據(jù)來源于查詢 由 recordsource 屬性指定一個查詢文件 4sql 語句 數(shù)據(jù)來源于由 recordsource 屬性指定一條 sql select 語句 通常將 查詢結(jié)果存入臨時表中 這兩個屬性在設(shè)計時可用 在運(yùn)行時可讀寫 都適用于表格 2 columncount 屬性 用于設(shè)置表格中列的個數(shù) 3 表頭對象常用屬性 屬性作用 caption列標(biāo)題文本 alignment列標(biāo)題文本的對齊方式 4 設(shè)置表格間記錄指針的聯(lián)動 即一個表格的記錄隨著另一表格的記錄的變化 而變化 A 在數(shù)據(jù)環(huán)境中設(shè)置 1 將用到的表添加到數(shù)據(jù)環(huán)境中 并建立表之間的關(guān)系 由父表公共字段 托向子表公共字段 如有對話框彈出 單擊 確定 即可 2 將建立好關(guān)系的表 托到表單上即可 B 用屬性設(shè)置 1 在父表格上設(shè)置 relationalexpr 屬性 設(shè)置關(guān)聯(lián)表達(dá)式 通常與 childorder 屬性值一致 2 在子表格上設(shè)置 childorder 屬性 設(shè)置子表索引標(biāo)識的名稱 索引標(biāo)識名和 主表中的關(guān)聯(lián)表達(dá)式相對應(yīng) 在子表格上設(shè)置 linkmarter 屬性 設(shè)置與子表相關(guān)聯(lián)的父表名 Eg1 制作一表單 如圖所示 要求 當(dāng)單擊 倉庫 按鈕時 表格中顯示倉庫表的記錄 當(dāng)單擊 職工 按鈕時 表格中顯示職工表的記錄 當(dāng)單擊 訂購單 按鈕時 表格中顯示訂購單表的記錄 命令按鈕組的 click 事件如下 Do case Case thisform optiongroup1 value 1 Thisform grid1 recordsourcetype 0 Thisform grid1 recordsource 倉庫 Case thisform optiongroup1 value 2 Thisform grid1 recordsource 職工 Case thisform optiongroup1 value 3 Thisform grid1 recordsource 訂購單 Endcase 解析 題中要求根據(jù)選項按鈕組中的選擇 表格顯示出相應(yīng)的內(nèi)容 選項按鈕組搭配分支語句 do case 而表格顯示記錄 設(shè)置表格的 recordsourcetype 與 recordsource 屬性 Eg2 制作如下一表單 組合框的 click 事件如下 Thisform grid1 recordsourcetype 4 thisform grid1 recordsource select 訂購單號 訂購日期 供應(yīng)商 from 倉庫 職工 訂購單 供應(yīng)商 where 倉庫 倉庫號 職工 倉庫號 and 職工 職工號 訂購單 職工號 and 訂購單 供應(yīng)商號 供應(yīng)商 供應(yīng)商號 and 倉庫 倉庫號 bo1 value and 職工 職工號 bo2 value into cursor temp 解析 本題主要考查的是表格與組合框的綜合應(yīng)用 查詢與組合框內(nèi)容一致的記錄 可使用如下語句完成 select from where 字段名 bo1 value 根據(jù)題意 將查詢的結(jié)果顯示在表格中 可將表格的數(shù)據(jù)源類型 rowsourcetype 設(shè)置為 4 SQL 說明 最后 將這條 select 語句賦值給表格的 數(shù)據(jù)源屬性 rowsource 即可 注 通常情況下 select 語句的結(jié)果存入臨時表中 Eg3 制作如下一表單 要求如下 在文本框 1 中輸入職工號 單擊命令按鈕后 在文本框 2 中顯示該職工所在的倉庫號 文 本框 3 中顯示倉庫所在的城市 在表格中顯示該職工簽訂的訂單信息 代碼如下 tt alltrim thisform text1 value select 倉庫 倉庫號 城市 from 倉庫 where 倉庫號 in select 倉庫號 from 職工 where 職 工號 tt into array arr thisform text2 value arr 1 thisform text3 value arr 2 thisform grid1 recordsourcetype 4 thisform grid1 recordsource select from 訂購單 where 職工號 in select 職工號 from 職工 where 職工號 tt into cursor tem 解析 本題主要考查表格與文本框的應(yīng)用 查詢與文本框內(nèi)容一致的記錄 可使用如 下語句完成 Select from where 字段名 alltrim thisform textx value 與上題相同 將查詢的內(nèi)容顯示在表格中 表格的數(shù)據(jù)源類型設(shè)置為 4 即可 Eg4 制作如下一表單 要求 表格 1 顯示倉庫表的記錄 表格 2 顯示職工表的記錄 職工表的記錄指針隨著倉庫 表的變化而變化 方法 1 將倉庫表與職工表添加到數(shù)據(jù)環(huán)境中 并建立倉庫表與職工表之間的聯(lián)系 如子 表職工表中無索引 那么可由倉庫表中的倉庫號托向職工表中的倉庫號 出現(xiàn)如 下對話框 單擊 確定 按鈕 系統(tǒng)會自動在職工表中建立索引 并建立起倉庫表與職工 表的聯(lián)系 如圖所示 2 將倉庫表 職工表的 recordsource 賦值為倉庫 職工 解析 本題考查的是表格間記錄指針聯(lián)動的知識 此題采取 在數(shù)據(jù)環(huán)境設(shè)置 這一 方法 注 設(shè)置記錄指針聯(lián)動 即為建立表之間的臨時聯(lián)系 二 計時器 timer 控件 計時器 timer 提供計時功能 即每隔一段指定的時間就觸發(fā)一次 timer 事件 即執(zhí) 行一次 timer 事件中的命令 用于控制某些進(jìn)程 1 常用屬性如下 interval 計時間隔 單位為 ms 即毫秒 此屬性值為 0 時 不產(chǎn)生 timer 事件 enabled 控制計時器是否啟動 2 計時器的常用方法 Timer 事件 用于指定重復(fù)的操作 注 計時器控件在運(yùn)行時是不可見的 所以在設(shè)計時 可把它放置在表單的任意位 置 Eg 制作如下一表單 實現(xiàn)文字閃爍 忽隱忽現(xiàn) 的效果 作法 首先 在表單的 load 事件中 定義一個公共變量 并賦值 Public s S 0 其次 將計時器的 interval 屬性值設(shè)置為 150 即每隔 150 毫秒 觸發(fā)一次 timer 事件 最后 在計時器的 timer 事件中輸入 s s 1 if s 5 0 thisform label1 visible t else thisform label1 visible f endif 三 與菜單的應(yīng)用 1 頂層表單 即將菜單與表單結(jié)合 步驟 1 建立一個菜單 1 設(shè)計菜單 2 顯示 主菜單項 常規(guī)選項 選中 頂層表單 3 保存并生成菜單 2 建立一個表單 1 將表單的 showwindow 屬性設(shè)置為 2 作為項層表單 2 在表單的 init 事件中運(yùn)行菜單 命令為 Do 菜單文件名 mpr with this 菜單內(nèi)部名稱 3 在表單的 destroy 事件中釋放菜單 命令為 Release menu 菜單內(nèi)部名稱 extended 2 為表單設(shè)置快捷菜單 1 建立一個快捷菜單 保存并生成 2 在表單的 rightclick 事件中輸入 Do 菜單文件名 mpr 筆試題筆試題 上機(jī)題上機(jī)題 Eg1 制作帶有滾動字幕的表單 如圖所示 要求 標(biāo)簽中的字每隔 1 秒 向左移動 10 個點 如完全移去表單后 標(biāo)簽從表單右側(cè)移入 代碼如下 1 設(shè)置計時器的 interval 屬性值為 1000 2 在計時器的 timer 事件中輸入 Thisform label1 left thisform label1 left 10 If thisform label1 left thisform label1 width Thisform label1 left thisform width Endif Eg3 制作如下一表單 要求 標(biāo)簽自動顯示當(dāng)前系統(tǒng)時間 當(dāng)單擊 暫停 按鈕時 時間暫停 當(dāng)單擊 開始 按鈕時 時間繼續(xù)顯示 代碼如下 1 計時器的 interval 屬性值為 1000 計時器的 timer 事件代碼為 thisform label1 caption time 2 暫停 按鈕的 click 事件代碼為 thisform timer1 interval 0 3 開始 按鈕的 click 事件代碼為 thisform timer1 interval 1000 Eg1 創(chuàng)建一個頂層表單創(chuàng)建一個頂層表單 myform scx myform scx 表單的標(biāo)題為表單的標(biāo)題為 考試考試 然后創(chuàng)建并在表單中 然后創(chuàng)建并在表單中 添加菜單 菜單的名稱為添加菜單 菜單的名稱為 mymenu mnx mymenu mnx 菜單程序的名稱為菜單程序的名稱為 mymenu mprmymenu mpr 效果如下圖所示 效果如下圖所示 菜單命令菜單命令 統(tǒng)計統(tǒng)計 和和 退出退出 的訪問鍵分別為的訪問鍵分別為 T T 和和 R R 功能都通過執(zhí)行過程完成 功能都通過執(zhí)行過程完成 菜單命令菜單命令 統(tǒng)計統(tǒng)計 的功能是以客戶為單位 從的功能是以客戶為單位 從 customercustomer 和和 ordersorders 表中求出訂單金額表中求出訂單金額 的和 統(tǒng)計結(jié)果包含的和 統(tǒng)計結(jié)果包含 客戶號客戶號 客房名客房名 和和 合計合計 三項內(nèi)容 其中三項內(nèi)容 其中 合計合計 是指與某是指與某 客戶所簽所有訂單金額的和 統(tǒng)計結(jié)果應(yīng)按客戶所簽所有訂單金額的和 統(tǒng)計結(jié)果應(yīng)按 合計合計 降序排序 并存放在降序排序 并存放在 tabletwotabletwo 表 表 菜單命令菜單命令 退出退出 的功能是釋放并關(guān)閉表單 的功能是釋放并關(guān)閉表單 最后 請運(yùn)行表單并依次執(zhí)行其中的最后 請運(yùn)行表單并依次執(zhí)行其中的 統(tǒng)計統(tǒng)計 和和 退出退出 菜單命令 菜單命令 注 注 數(shù)據(jù)源 Customer dbf 客戶號 c 4 客戶名 c 36 地址 c 36 所在城市 c 10 聯(lián)系 電話 c 8 Employee dbf 職員號 c 3 姓名 c 6 性別 c 2 組別 n 1 0 職務(wù) c 10 Orders dbf 訂單號 c 4 客戶號 c 4 職員號 c 3 簽訂日期 d 金額 n 6 2 作法 一 建立菜單 1 建立菜單文件 CREATE MENU mymenu 在 新建菜單 對話框中 單擊 菜單 按鈕 2 在 菜單設(shè)計器 mymenu mnx 中 在 菜單名稱 中輸入 統(tǒng)計 T 再 移到下一個菜單項處中輸入 退出 R 3 選中 統(tǒng)計 T 菜單項 在 結(jié)果 中選擇 過程 并單擊 創(chuàng)建 在 菜 單設(shè)計器 mymenu mnx 統(tǒng)計 T 過程 中輸入下列語句 select customer 客戶號 客戶名 sum 金額 as 合計 from orders customer where orders 客戶號 customer 客戶號 group by customer 客 戶號 order by 合計 desc into table tabletwo 4 選中 退出 R 子菜單項 在 結(jié)果 中選擇 過程 并單擊 創(chuàng)建 在 菜單設(shè)計器 mymenu mnx 退出 R 過程 中輸入下列語句 myform release 5 單擊 顯示 常規(guī)選項 菜單項 在 常規(guī)選項 對話框的 頂層菜單 框中 打勾 再單擊 確定 按鈕 6 在 菜單設(shè)計器 窗口下 單擊 菜單 菜單欄 選擇 生成 菜單項 生成 mymenu mpr 文件 二 建立表單 1 新建表單 CREATE FORM myform 2 在 表單設(shè)計器 中 在 屬性 的Caption處輸入 考試 在ShowWindow 處選擇 2 作為頂層表單 雙擊Init Event事件 在Form1 Init中輸入 do mymenu mpr with this xxx 雙擊Destroy Event事件 在Form1 Destroy中 輸入 release menu xxx extended Eg2 建立表單 表單文件名和表單控件名均為建立表單 表單文件名和表單控件名均為 myform damyform da 為表單建立快捷菜單 為表單建立快捷菜單 scmenu d scmenu d 快捷菜單有選項快捷菜單有選項 時間時間 和和 日期日期 運(yùn)行表單時 在表單上單擊鼠標(biāo)右鍵彈出 運(yùn)行表單時 在表單上單擊鼠標(biāo)右鍵