1、12返回34567891011121314返回15161718返回192021事 件事件被激發后的動作Init創建對象Activate用戶激活FormSet、Form或Page對象Load裝載對象。在創建對象之前Destroy從內存中釋放對象Click用戶使用鼠標左鍵單擊對象DblClick用戶使用鼠標左鍵雙擊對象RightClick用戶使用鼠標右鍵單擊對象GotFocus對象接收焦點，由用戶動作引起或者在代碼中使用SetFocus方法程序LostFocus對象失去焦點，由用戶動作引起或者在代碼中使用SetFocus方法程序KeyPress用戶按下或釋放鍵MouseDown當鼠標指針停在一個對

2、象上時，單擊它MouseMove用戶在對象上移動鼠標MouseUp當鼠標指針停在一個對象上時，用戶釋放鼠標When控件接收到焦點（focus）之前Valid控件失去焦點（focus）之前2223方法方法格式格式功能說明功能說明AddItem控件控件.AddItem(cItem , nIndex , nColumn)在組合框或列表框中添加一個新數據項，在組合框或列表框中添加一個新數據項，并且可以指定數據項索引。例：并且可以指定數據項索引。例：Thisform.List1.Additem(職工職工.姓名姓名)AddObject對象對象.AddObject(cName, cClass , cOLEC

3、lass , aInit1, aInit2 .)運行時，在容器對象中添加對象。例：運行時，在容器對象中添加對象。例：ThisForm.Addobject(Text1,TextBox)CloseTablesDataEnvironment.CloseTables關閉與數據環境相關的表和視圖。關閉與數據環境相關的表和視圖。Clear對象對象.Clear清除列表框或組合框中的文本。例：清除列表框或組合框中的文本。例：Thisform.List1.ClearHide對象對象.Hide隱藏表單，并將表單的隱藏表單，并將表單的Visible屬性設置為屬性設置為.F.。例：。例：Thisformset.For

4、m1.HidePrint表單集表單集. 對象對象.Print (cText)在表單對象上打印一個字符串。在表單對象上打印一個字符串。Refresh表單集表單集.對象對象.Refresh重新繪制表單或控件，并刷新它的所有值。重新繪制表單或控件，并刷新它的所有值。當表單被刷新時，表單上的所有控件當表單被刷新時，表單上的所有控件也都被刷新。當頁框被刷新時，只有也都被刷新。當頁框被刷新時，只有活動頁被刷新。例：活動頁被刷新。例：Thisform.Refresh24方法方法格式格式功能說明功能說明Release對象對象.Release從內存中釋放表單集或表單。例：從內存中釋放表單集或表單。例：Thisf

5、orm.ReleaseRemoveItem控件控件.RemoveItem(nIndex)在組合框或列表框中移出（刪除）一個數在組合框或列表框中移出（刪除）一個數據項，并且可以指定數據項索引。例：據項，并且可以指定數據項索引。例：Thisform.List1.RemoveItem(1)Requery控件控件.Requery重新查詢列表框或組合框控件重新查詢列表框或組合框控件RowSource屬性，并且使用新的值更新列表屬性，并且使用新的值更新列表SetAll容器容器.SetAll(cProperty, Value , cClass)為容器對象中的所有控件或某類控件指定為容器對象中的所有控件或某類

6、控件指定一個屬性設置。例：一個屬性設置。例：ThisForm.Grid1.Setall(Forecolor, RGB(0, 255, 0), Header)SetFocus控件控件.SetFocus為一個控件指定焦點，即確定當前操作的為一個控件指定焦點，即確定當前操作的對象。如果一個控件的對象。如果一個控件的Enabled屬性值屬性值或或Visible屬性值為屬性值為.F.，將不能獲得焦，將不能獲得焦點。例：點。例：Thisform.Text1.SetFocusShow表單集表單集.對象對象.Show(nStyle)顯示表單，并將表單的顯示表單，并將表單的Visible屬性設置為屬性設置為.T

7、.，使表單成為活動對象。例：，使表單成為活動對象。例：Thisformset.Form1.Show 25返回262728293031323334353637返回383940414243444546容容 器器可以包含可以包含表單集表單集表單、工具欄表單、工具欄表單表單頁框、表格、任何控件頁框、表格、任何控件命令按鈕組命令按鈕組 命令按鈕命令按鈕選項按鈕組選項按鈕組 選項按鈕選項按鈕表格表格列列列列標頭，除了表單、表單集、工具欄、計時器和其他列標頭，除了表單、表單集、工具欄、計時器和其他列控件之外的任何控件控件之外的任何控件頁框頁框頁面頁面頁面頁面表格、任何控件表格、任何控件47484950容容

8、器器收集屬性收集屬性記數屬性記數屬性表單集表單集FormSetForms(i)FormCount表單表單FormObjects(i)、Controls(i) ControlCount頁框頁框PageFramePages(i)PageCount頁頁PageControls(i)ControlCount表格表格GridColumns(i)ColumnCount命令組命令組CommandButtonButtons(i)ButtonCount選項組選項組OptionButtonButtons(i)ButtonCount列列ColumnControls(i)ControlCount工具欄工具欄ToolB

9、arControls(i)ControlCount容器容器ContainerControls(i)ControlCount51525354返回5556575859關鍵字引 用Parent當前對象的直接容器當前對象的直接容器This當前對象當前對象ThisForm包含對象的表單包含對象的表單ThisFormSet 包含對象的表單集包含對象的表單集返回606162636465666768返回697071727374表單表單Form1的的Init事件代碼：事件代碼： Thisform.Timer1.Enabled=.F. &設設置置計時計時器不工作器不工作 Thisform.Text1.Va

10、lue=以以職職工工號號和姓名抽和姓名抽獎獎 &設設置文本框置文本框顯顯示示要求的文字要求的文字 SET DELETE ON &邏輯刪邏輯刪除有效，即中除有效，即中獎獎的的記錄邏輯刪記錄邏輯刪除，不除，不再再參參加下次抽加下次抽獎獎計時計時器器Timer1的的Timer事件代事件代碼碼： SKIP&每每過過0.1秒下移一秒下移一條記錄條記錄 IF EOF()&如果到文件尾就回到第一如果到文件尾就回到第一條記錄條記錄 GO TOP ENDIF Thisform.Text1.Value=職職工工號號+ +姓名姓名 &文本框文本框顯顯示示當當前前的的職職工工號

11、號和姓名和姓名 Thisform.Refresh&刷新刷新顯顯示最新的示最新的屏屏幕幕內內容容75開開始按始按鈕鈕Command1的的Click事件代事件代碼碼： Thisform.Timer1.Enabled=.T.&使使計時計時器器開開始工作，每隔始工作，每隔0.1秒秒執執行行Timer事件事件 Thisform.Text1.ForeColor=RGB(0,0,0)&文本框的文字以文本框的文字以黑色黑色顯顯示示 Thisform.Refresh&刷新刷新顯顯示最新的示最新的屏屏幕幕內內容容停止按停止按鈕鈕Command2的的Click事件代事件代碼碼： Th

12、isform.Timer1.Enabled=.F.&使使計時計時器停止工作器停止工作 Thisform.Text1.ForeColor=RGB(0,0,255) &文本框的文字以文本框的文字以藍藍色色顯顯示示 DELETE&當當前前記錄邏輯刪記錄邏輯刪除除 Thisform.Refresh退出按退出按鈕鈕Command3的的Click事件代事件代碼碼： Thisform.Release&退出即退出即釋釋放表放表單單 767778Form1的的Init事件代碼：事件代碼： S=LEFT(TIME(),2) &取出取出時時 F=SUBSTR(TIME(),4

13、,2) &取出分取出分 M=RIGHT(TIME(),2) &取出秒取出秒 Thisform.Text1.Value=S+時時+F+分分+M+秒秒 &嵌入嵌入漢漢字字并顯并顯示在文本框中示在文本框中Timer1的的Timer事件代碼：事件代碼： Thisform.Init &重重復復做做Form1的的Init事件代事件代碼碼，即事件可以像方法，即事件可以像方法一一樣調樣調用用 Thisform.Refresh 79對對 象象事事 件件數據環境數據環境表單集表單集表單表單數據環境臨時表數據環境臨時表數據環境數據環境BeforeOpenTablesBeforeOpe

14、nTablesLoadLoadLoadLoadInitInitInitInit對象對象1 1表單表單表單集表單集表單集表單集表單表單InitInitInitInitInitInitActivateActivateActivateActivate對對 象象事事 件件對象對象1 12 2表單表單對象對象1 1對象對象1 1對象對象1 1對象對象1 1WhenWhenGotFocusGotFocusGotFocusGotFocusMessageMessageValid Valid 3 3LostFocusLostFocus對象對象2 2 3 3對象對象2 2對象對象2 2對象對象2 2對象對象2 2WhenWhenGotFocusGotFocusMessageMessa