[工學(xué)]第9章visualfoxpro60及其程序設(shè)計(jì)郭盈發(fā)(編輯修改稿)
2024-11-09 13:35 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 用控件，就可以平滑地移動(dòng)該控件，但這樣不利于表單上多個(gè)控件的對(duì)齊工作。 使用代碼編輯器 代碼編輯器是編寫 VFP事件程序代碼的地方 。 代碼由命令 、常數(shù)等組成 。 具體的語(yǔ)法規(guī)則請(qǐng)參見第五章 。 進(jìn)入代碼編輯器的方法有以下兩種： (1) 雙擊要編寫代碼的對(duì)象或控件 。 (2) 選定要編寫代碼的對(duì)象或控件 ， 單擊鼠標(biāo)右鍵 ， 在彈出菜單中選擇 “ 代碼 … ‖。 代碼編輯器如圖 9–4所示 。 圖 9–4 代碼編輯器 代碼編輯器包含以下元素： (1) 對(duì)象列表框：顯示所選對(duì)象的名稱 。 單擊列表框右邊的箭頭 ， 顯示和該表單有關(guān)的所有對(duì)象的清單 。 (2) 過(guò)程列表框：列出所選對(duì)象的過(guò)程或事件。該框顯示選定過(guò)程的名稱（如圖中是 Cick事件）。單擊該框右邊的箭頭可以顯示這個(gè)對(duì)象的全部事件。 (3) 編輯框：用來(lái)輸入選定對(duì)象的選定過(guò)程的代碼 ， 該代碼將在事件發(fā)生 （ 例如單擊鼠標(biāo) ） 時(shí)被執(zhí)行 。 下面用一個(gè)簡(jiǎn)單的例子加以說(shuō)明 。 例 3 在 ， 使其可以查閱職工表中的信息 ， 并可以添加和刪除記錄 。 向職工表中添加 6個(gè)按鈕：第一個(gè) 、 下一個(gè) 、 最后一個(gè) 、添加 、 刪除 、 退出 ， 其具體步驟為： ① 單擊工具欄的命令按鈕 。 ② 單擊工具欄的按鈕鎖定按鈕 。 (3) 編輯框：用來(lái)輸入選定對(duì)象的選定過(guò)程的代碼 ， 該代碼將在事件發(fā)生 （ 例如單擊鼠標(biāo) ） 時(shí)被執(zhí)行 。 下面用一個(gè)簡(jiǎn)單的例子加以說(shuō)明 。 例 3 在 ， 使其可以查閱職工表中的信息 ， 并可以添加和刪除記錄 。 向職工表中添加 6個(gè)按鈕：第一個(gè) 、 下一個(gè) 、 最后一個(gè) 、添加 、 刪除 、 退出 ， 其具體步驟為： ① 單擊工具欄的命令按鈕 。 ② 單擊工具欄的按鈕鎖定按鈕 。 ③ 單擊表單的適當(dāng)位置 ， 放置按鈕 （ 放置 6次 ） 。 ④ 單擊表單控件工具欄的按鈕鎖定按鈕 。 ⑤ 移動(dòng)表單中的標(biāo)簽控件 、 對(duì)應(yīng)的域控件及命令按鈕到適當(dāng)位置 ， 使其美觀 。 ⑥ 將 6個(gè)按鈕的 “ Caption‖屬性分別改為 “ 第一個(gè) ” 、“ 下一個(gè) ” 、 “ 最后一個(gè) ” 、 “ 添加 ” 、 “ 刪除 ” 、 “ 退出 ” 。 ⑦ 給 6個(gè)按鈕布置任務(wù) 。 選中某個(gè)按鈕 ， 在代碼對(duì)話框的“ 過(guò)程 ” 下拉框中 ， 選擇 “ cick‖事件 ， 輸入代碼 。 “ 第一個(gè) ”按鈕的 “ Cick‖事件代碼： goto top amp。amp。指針指向表頭 refresh thisform amp。amp。刷新表單控件內(nèi)容 該代碼的作用是：當(dāng)鼠標(biāo)發(fā)生 “ Cick‖（ 單擊 ） 事件時(shí) ， 指針指向表中的第一條記錄 ， 并刷新表單中域控件的內(nèi)容 。 “ 下一個(gè) ” 按鈕的 “ Cick‖事件代碼： if !eof(?) amp。amp。如果當(dāng)前記錄不是末記錄 skip amp。amp。指針下移 ese wait window 已到了最后一個(gè)記錄 ！ endif refresh thisform ―最后一個(gè) ” 按鈕的 “ Cick‖事件代碼： go bottom amp。amp。使末記錄為當(dāng)前記錄 refresh thisform ―添加 ” 按鈕的 “ Cick‖事件代碼： append bank amp。amp。在表尾添加一空記錄 ， 并使 為當(dāng)前記錄 refresh thisform ―刪除 ” 按鈕的 “ Cick‖事件代碼： deete amp。amp。給當(dāng)前記錄打上刪除標(biāo)記 choice=messagebox(確實(shí)要?jiǎng)h除此記錄嗎 ？ , 0+17+0, 系統(tǒng)提示 )amp。amp。彈出提示框 if choice = 1 amp。amp。如果選擇 “ 確定 ” pack amp。amp。刪除有刪除標(biāo)記的記錄 ese amp。如果選擇 “ 取消 ” reca amp。恢復(fù)刪除標(biāo)記的記錄 endif refresh thisform ―退出 ” 按鈕的 “ Cick‖事件代碼： reease thisform amp。amp。從內(nèi)存中釋放表單 ⑧ 保存表單 ， 供以后使用 。 ⑨ 運(yùn)行表單 ， 操作為：表單 → 執(zhí)行表單 ， 添加控件后的職工信息表單如圖 9–5所示 。 圖 9–5 添加控件后的職工信息表單 設(shè)置表單的數(shù)據(jù)環(huán)境 與報(bào)表相同 ， 表單也可有自己的數(shù)據(jù)環(huán)境 。 數(shù)據(jù)環(huán)境中包含了表單可以顯示的表和視圖 ， 用戶可以像處理報(bào)表的數(shù)據(jù)環(huán)境一樣處理表單的數(shù)據(jù)環(huán)境 ， 并可方便地把新控件與表或視圖中的字段進(jìn)行關(guān)聯(lián) 。 在表單中打開數(shù)據(jù)環(huán)境的操作過(guò)程是：顯示 → 數(shù)據(jù)環(huán)境 。 如果該表單還沒有設(shè)置數(shù)據(jù)環(huán)境 ， 則系統(tǒng)自動(dòng)打開 “ 添加表或視圖 ” 窗口 ， 否則 ， 系統(tǒng)打開數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口顯示與該表單相關(guān)的表或視圖 。 向數(shù)據(jù)環(huán)境中添加表或視圖 添加表或視圖的操作步驟為： ① 在數(shù)據(jù)環(huán)境設(shè)計(jì)器中單擊鼠標(biāo)右鍵 ， 在彈出菜單中選擇 “ 添加 ” 。 ② 在 “ 添加表或視圖 ” 對(duì)話框中 ， 從列表中選擇一個(gè)表和視圖 （ 如果當(dāng)前沒有打開的數(shù)據(jù)庫(kù) ， 可以單擊 “ 其它 ” 來(lái)選擇表 ） 。 ③ 單擊 “ 添加 ” 。 向數(shù)據(jù)環(huán)境中添加一個(gè)表或視圖的同時(shí)也創(chuàng)建了一個(gè)臨時(shí)表對(duì)象 ， 在屬性窗口中可以設(shè)置臨時(shí)表對(duì)象
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1