实验七面向对象的程序设计新版

1、实验七 面向对象的程序设计一、 实验目的1 掌握面向对象程序中对象、 属性、 方法和事件等概念。2了解面向对象程序设计的特点。3掌握对象的相对引用和绝对引用。4掌握自定义类的创立、 修改和使用。二、 实验内容与步骤1. 掌握并了解根据需要向表单添加任意数量的新属性 , 并引用表 单的其它属性和方法引用它们。( 1) 表单添加新属性的步骤如下 : 选择”文件 / 新建 / 表单” , 进入表单设计器。 选择”表单”菜单中的”新建属性”命令 , 打开”新建属性”对 话框。 在”名称”框中输入属性名 Newx。 有选择地在”说明”框中输入新建属性的说明信息。这些信息将 显示在”属性”窗口的底部。Ne

2、wx。 在表单的”属性”窗口的列表框中显示出新建的属性( 2) 表单添加新方法的步骤如下 : 选择”表单”菜单中的”新建方法程序”命令 , 打开”新建方法 程序”对话框。 在”名称”框中输入方法名 newf 。 有选择地在”说明”框中输入新建方法的说明信息。 在表单的”属性”窗口的列表框中显示出新建的方法Newf。能够双击它 , 打开代码编辑窗口 , 然后输入或修改方法的代码 :Thisform.newx=Thisform.newx+5Wait ” newx=” +str(Thisform.newx) Window 若删去用户添加的属性或方法 , 能够选择”表单”菜单中的”编 辑属性 / 方法

3、程序”命令 , 打开对话框。然后在列表框中选择不需要的属 性或方法并单击”移去”按钮。( 3) 使用新属性和新方法。 经过”表单控件”工具栏向表单添加一个命令按钮Comma nd。 双击命令按钮 , 进入命令按钮的 click 代码窗口 , 键入以下代 码:Thisform.newx=5Thisform.newf 保存并运行表单，单击命令按钮Commandl,结果如图1所示10图1自定义属性和方法的使用2. 了解常见的事件和方法，并为不同对象设置相应的事件代码， 启动 Visual FoxPro 6.0。 在命令窗口输入命令：Create form myForm, 打开表单设计器窗 口。 从”

4、文件”菜单中选择”保存”命令，保存表单文件。 过”表单控件”工具栏向表单添加一个命令按钮，在属性窗口设置其Caption属性为”退出”。 从”显示”菜单中选择”代码”命令，打开代码编辑窗口。 从”对象”框中选择 Form1,从”过程”框中选择 Load,然后在 编辑区输入的代码：WAIT ”引发表单Load事件！” WINDOW从”过程”框中选择In it,然后在编辑区输入相应的代码：WAIT ”引发表单In it 事件！” WINDOW从”过程”框中选择 Destroy,然后在编辑区输入相应的代码WAIT ”引发表单 Destroy 事件!” WINDOW 从”过程”框中选择 Unload,

5、 然后在编辑区输入相应的代码 :WAIT ”引发表单 Unload 事件 ! ” WINDOW 从”对象”框中选择 Command1, 从”过程”框中选择 Click, 然 后在编辑区输入的代码 :Thisform.release 从”文件”菜单中选择” 保存”命令 , 保存表单文件。 然后单击” 关闭”按钮 , 关闭表单设计窗口。 在命令窗口中输入命令 : DO FORM myForm 从运行表单到打开表单后单击”退出”按钮 , 屏幕显示结果 , 并分析原因 :3. 掌握和熟悉对象的引用。 启动 Visual FoxPro 6.0 。 选择”文件 / 新建 / 表单” , 进入表单设计器 在

6、表单上添加1个标签Iabel1,1 个文本框textl和1个命令按钮 commandl 在”属性”窗口，将表单的autocenter属性设为.（把表单的autocenter属性设为.，运行时，表单会自动居中在主窗口的中央），Labell 的 caption 属性设为”欢迎使用 VFP” , commandl 的 caption 属 性设为”复制”，如图2所示。图2初始属 单击复制按钮，把标签labell的内容复制到文本框textl中编写Comma nd的Click事件过程代码：第一种方法：绝对引用的事件过程代码：Thisform.text1.value二thisfor m.l abel1.ca

7、ptio n第二种方法：相对引用的事件过程代码：Thisform.text1.value=this.pare nt.label1.captio n（注意：两种方法都能够实现） 保存并运行表单。4. 掌握自定义类的建立和使用。 启动 Visual FoxPro 6.0。 选择”文件/新建类/新建文件”，启动”类设计器”。在”新建类”对话框的”类名”文本框输入新类的名称MyClass,在”派生于”栏中为新类指定基类CommandGroup在”存储于”栏中输入保存新类的类库 名为MyLib.VCX,如图3所示，单击”确定”按钮，系统打开”类设计器” 如图4所示。图3 ”新建类”对 将MyClass子类的Butt on Cou nt属性值设置为4,即设置命令按钮组中包含的命令按钮个数为4,重新横向排列4个命令按钮，并将4个命令按钮的Caption属性分别设置为”首记录”，”前一个”，”后 一个”，”末记录”图4类设计 打开代码生