第5章面向对象程序设计基础

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