【正文】 i FormSet Inti Activate Form Activate 運行表單時的事件順序 Visual foxpro 漳州師范學院計算中心 63 對象 發(fā)生的事件 Objects When GotFocus Message Valid Lostfocus Destroy Form Unload FormSet Unload Data environment AfterCloseTables Destroy Data environment cursors Destroy Visual foxpro 漳州師范學院計算中心 64 [例 ] 表單界面如圖 所示，在表單數據環(huán)境 中有表 ， 用戶動作如下： [表單文件 ] （ 1）運行表單、 （ 2）在 Text1中輸入文本“ AB”、 （ 3）單擊退出命令按鈕釋放表單。 ? 用戶的一個動作可能觸發(fā)一個或多個事件： ? 動作 1：運行表單 FORM1 () () () Visual foxpro 漳州師范學院計算中心 65 () () () () () () () () ? 動作 2：在 Text1中輸入字符 AB (65,0) () (66,0) () Visual foxpro 漳州師范學院計算中心 66 ? 動作 3：用戶單擊 Command1關閉表單 () () () () () () () 表單關閉和釋放對象之后，將發(fā)生的事件，其次序正好與動作 1中的事件相反 Visual foxpro 漳州師范學院計算中心 67 2. 為代碼指定事件的位置 ? 注意：事件發(fā)生時，若沒有與之相關聯(lián)的代碼，則不會發(fā)生任何操作。而編寫代碼時，應注意： (1)表單中的所有控件對象的 init事件將在表單的 Init事件之前執(zhí)行 (2)表單的 Load事件是最早被觸發(fā)的事件，常在此事件中定義全局變量和環(huán)境設置。 (3)表單的 Load和 Unload及各對象的 Init事件在一個運行周期中只執(zhí)行一次。 (4) InteractiveChange事件是當框 (列表框、組合框或復選框 )內的 值改變時 該事件觸發(fā) (5) Click事件是當單擊框時觸發(fā)該事件 Visual foxpro 漳州師范學院計算中心 68 3. 焦點 (Focus) 對象被選定，它就獲得焦點，一個對象獲得焦點時的現象可能是文本框內的光標，或命令按鈕內的虛線框 …… 4. 對象可用性 Enabled：為 .，該對象可以由用戶觸發(fā)事件， . 5. 對象隱藏性 Visible：為 .，該對象可見，為 .F.時，該對象隱藏。 只要對象的 Enabled和 Visible 為 .點 Visual foxpro 漳州師范學院計算中心 69 用戶定義屬性和方法程序 ? 對于表單或表單集對象， VFP允許用戶向它們添加任意多個的屬性、方法和程序。用戶定義屬性類似于定義“變量”，用戶定義的方法則相當于定義一個“過程”。 ? 對于單表單的表單文件，用戶為表單定義的屬性和方法的作用范圍只是該表單；而表單集中定義的屬性和方法的作用范圍是表單集中的所有表單。 ? 用戶自定義的屬性和方法程序的用法與系統(tǒng)給出的屬性、方法程序用法一樣 Visual foxpro 漳州師范學院計算中心 70 用戶定義屬性 ? 用戶定義屬性分為變量屬性和數組屬性兩種 輸入新建屬性的說明信息 輸入屬性名稱 (1)變量屬性 變量屬性的創(chuàng)建 向表單添加新屬性的步驟如下： 打開表單設計器 表單 /新建屬性 添加 說明 ：新建的屬性值出現在屬性窗口中的最后 Visual foxpro 漳州師范學院計算中心 71 變量屬性的編輯 表單菜單的“編輯屬性 /方法程序” Visual foxpro 漳州師范學院計算中心 72 (2) 數組屬性 一個數組屬性可以像變量屬性一樣都屬于表單或表單集，其創(chuàng)建、刪除、引用格式及作用范圍與變量屬性一樣，但不同的是數組屬性可用 VFP的數組命令和函數處理它。向表單添加一個數組屬性的步驟如下： ①添加新屬性到表單。 ②在“新建屬性”對話框的“屬性名”框中鍵入數組屬性稱，并包括數組的大小和維數。 例如：可在“新建屬性”對話框的“名稱”框中輸入myarray(10,5)，創(chuàng)建一個 10行 5列的二維數組，還可以在“說明”框中輸入需要對該屬性進行說明的內容，如“自定義數組”等。當添加數組屬性到表單時，屬性作為只讀顯示在屬性窗口中?？梢栽谶\行時管理數組，重新設置數組的維數，也可對數組屬性的元素賦值。 Visual foxpro 漳州師范學院計算中心 73 [例 ] 為表單設計三個水平漸變背景，通過單擊它來交替。 [表單文件 ] ① 打開表單設計器，創(chuàng)建 Form1 ② 為 Form1創(chuàng)建一個用戶自定義屬性 Color,通過屬性窗口將 Color的值修改為 1 ③ 在表單的事件中編寫如下代碼： DO CASE CASE =1 FOR J=0 TO =RGB(255,255,； INT(J*255/)) (0,J,J) ENDFOR =黃色 Visual foxpro 漳州師范學院計算中心 74 CASE =2 FOR J=0 TO =RGB(255,； INT(J*255/),255) (0,J,J) ENDFOR =紅色 CASE =3 FOR J=0 TO =RGB(； INT(J*255/),255,255) (0,J,J) ENDFOR =蘭色 ENDCASE =iif(=3,1,+1) ④ 保存并運行 Visual foxpro 漳州師范學院計算中心 75 用戶定義方法程序 用戶定義方法程序：為表單或表單集所定義的過程 1. 方法程序的創(chuàng)建 ① 從 “ 表單 ” 菜單中選擇 “ 新建方法程序 ” 。 ② 在對話框中 ， 輸入方法程序的名稱和說明 。 說明 ：新建的方法程序出現在“屬性”窗口的“方法程序”選項卡末尾；方法程序的編輯與刪除也是利用“編輯屬性 /方法程序”對話框實現?？梢杂谜{用表單類方法程序的方式調用它。調用用戶自定義方法程序和調用基類方法程序一樣，都使用下面的語法： 建立的方法程序同樣可以接受參數并返回值，這種情況下，可以使用賦值語句來調用方法程序： cVariable＝ （ cParameter, nParameter） Visual foxpro 漳州師范學院計算中心 76 方法程序創(chuàng)建后，并無代碼，用戶可雙擊“屬性”窗口中的方法程序，既可打開代碼編輯窗口再為其添加代碼。 [例 ] 設計如圖表單，實現水仙花數的計算顯示。并顯示計算過程。 [表單文件 ] 一個數若滿足 X= (百位 ) X1^3+ (十位 ) X2^3+ (個位 ) X3^3 則為水仙花數，如 153=1^3+5^3+3^3 Visual foxpro 漳州師范學院計算中心 77 表單向導 可以用表單向導建立表單 (單表的表單 、 一對多表單 ) 啟動表單向導有以下四種途徑： （ 1） 項目管理器 “ 文檔 ” 選項卡 表單 新建 在彈出的 “ 新建表單 ” 對話框中單擊 “ 表單向導 ” 按鈕 。 （ 2） 在系統(tǒng)菜單中選擇 【 文件 】 |【 新建 】 命令 ， 或者單擊工具欄上的 “ 新建 ” 按鈕 ，打開 “ 新建 ” 對話框 ， 在文件類型欄中選擇 “ 表單 ” 。然后單擊 “ 向導 ” 按鈕 。 Visual foxpro 漳州師范學院計算中心 78 （ 3） 在系統(tǒng)菜單中選擇 【 工具 】 |【 向導 】 |【 表單 】 （ 4）直接單擊常用工具欄上的“表單向導”圖標按鈕。 按步驟依照 “ 表單向導 ” 完成表單的設計 Visual foxpro 漳州師范學院計算中心 79 [例 ] 使用表單向導創(chuàng)建一個能維護 的表單 Visual foxpro 漳州師范學院計算中心 80 [例 ] 創(chuàng)建一個用于按學號維護成績的表單，表單的數據源有： (父表 )、 (子表 ) Visual foxpro 漳州師范學院計算中心 81 一 .書面作業(yè)： 第 7章思考與練習 (二、判斷題，三、操作題 ) 二 .電子作業(yè)： 第 7章思考與練習 (四、表單設計題 ) 第 7章作業(yè)與上機練習 Visual foxpro 漳州師范學院計算中心 82 End Thank you very much!