第8章面向对象程序设计8·1面向对象程序设计的基本要素8·18·18·18·18.2用表单设计器设计表单8.2.1打开表单设计器方法2：菜单方式调用(1)单击"文件"菜单中的"新建"命令，打开"新建"对话框。(2)选择"表单"文件类型，然后单击"新建文件"按钮。8.2.2表单设计器包含的设计工具8.2.28.3使用表单设计器创建表单【例8-1】为STUDENT.DBF表创建如下图所示的表单，以实现记录的翻页浏览与编辑。2.设置数据环境1）向数据环境中添加／移去表或视图(1)如果添加表或视图，在“数据环境设计器”空白处中，单击右键，在拉出快捷菜单中，选择“添加”命令，屏幕显示“添加表或视图”对话框。(2)选择表或视图，单击“添加”按钮，然后再单击“关闭”按钮，屏幕显示“数据环境设计器”窗口；(3)如果要从“数据环境设计器”窗口中移去表，先选择要移出的表或视图，然后在“数据环境”的子菜单中，选择“移去”命令，或单击右键，在快捷菜单中，选择“移去”命令，或按Del键。2.设置数据环境2.设置数据环境3.对象的添加4.调整对象的位置5.设置对象的属性5.设置对象的属性6.事件代码的编写6.事件代码的编写6.事件代码的编写6.事件代码的编写7．保存表单8．执行表单8．4VFP的事件代码编写一、在容器分层结构中引用对象3．引用格式引用关键字．对象名．对象的属性、事件或方法程序(1)引用可以是单级的。例：THIS.Caption&&引用本对象的Caption属性THISFORM.Refresh&&引用包含本对象表单的Refresh方法(2)引用也可以是多级的，但要逐级引用。例：THISFORM.Textl.Caption&&引用本表单的对象Textl的Caption属性THIS.Column1.Header1.Caption&&引用本表格对象Columnl列的Headerl标头的Caption属性(3)控件也可引用包含它的直接容器。例：THIS.PARENT.Caption&&引用包含本对象的直接容器的Caption属性二、编程设置属性和调用方法程序【例8-2】设计包含一个命令按钮的表单，单击该命令按钮将使它在屏幕上随机移动。表单的背景色为蓝色且运行时在屏幕上居中。P.186(1)创建表单：命令窗口键入命令ModiFormLocatechange(2)添加命令按钮Command1。(3)在表单Form的Init事件中输入如下事件代码：Thisform.Backcolor=RGB(0,0,255)&&RGB()为颜色函数Thisform.Autocenter=.T.Thisform.Caption=“跳动的对象”(4)Commandl的Click事件代码编写如下：THIS.Left=Int(Thisform.Width*Rand())&&Rand()为一个可产生随机数的函数．THIS.Top=Int(Thisform.Height*Rand())(5)保存表单并运行之。1）Release方法格式：OBJECT.Release功能：释放表单或表单集例：THISFORM.Release2）Refresh方法格式：OBJECT.Refresh功能：用于重新绘制对象，并刷新它的所有值例：THISFORM.Refresh3）Setfocus方法格式：OBJECT.Setfocus功能：用于给对象设置焦点例：THISFORM.Text1.SetFocus&&使Text1对象获得焦点4）Line方法功能：用于在表单上绘制一条线。格式：OBJECT.LINE(nXCoord2,nYCoord2)或者OBJECT.LINE(nXCoord1,nYCoord1,nXCoord2,nYCoord2)参数：nXCoord1，YCoord1用于指定线的起始点坐标。nXCoord2，nYCoord2用于指定线的终止点坐标【例8-3】在表单上显示九九乘法表，单击表单则清除该乘法表。P.187(1)创建表单Form1。(2)Form1的Init事件代码编写如下：THISFORM.Width=425&&指定表单的宽度THISFORM.Height=130&&指定表单的高度THISFORM.CurrentX=0&&指定乘法表的初始横坐标THISFORM.CurrentY=2&&指定乘法表的初始纵坐标FORi=1to9&&开始乘法表的显示FORj=1toiexpr1=Str(i,1)+”*”+Str(j,1)+；“=”+Str(i*j,2)+Space(2)THISFORM.Print(expr1)&&调用Print方法实现显示ENDFORTHISFORM.