实验七 面向对象的程序设计.docVIP

实验七 面向对象的程序设计 一实验目的 。 二实验内容与步骤 . 掌握并了解根据需要向表单添加任意数量的新属性，并引用表单的其他属性和方法引用它们。 “newx=”+str(Thisform.newx) Window ⑤ 若删去用户添加的属性或方法，可以选择“表单”菜单中的“编辑属性/方法程序”命令，打开对话框。然后在列表框中选择不需要的属性或方法并单击“移去”按钮。 （3）使用新属性和新方法。 ① 通过“表单控件”工具栏向表单添加一个命令按钮Command1。 ② 双击命令按钮，进入命令按钮的click代码窗口，键入以下代码： Thisform.newx=5 Thisform.newf ③ 保存并运行表单，单击命令按钮Command1，结果如图1所示。 2.了解Visual FoxPro 6.0 。⑤ 从“显示”菜单中选择“代码”命令，打开代码编辑窗口。 ⑥从“对象”框中选择Form1，从“过程”框中选择Load，然后在编辑区输入的代码： WAIT “引发表单Load事件!” WINDOW 从“过程”框中选择Init，然后在编辑区输入相应的代码： WAIT “引发表单Init事件!” WINDOW 从“过程”框中选择Destroy，然后在编辑区输入相应的代码： WAIT “引发表单Destroy事件!” WINDOW 从“过程”框中选择Unload，然后在编辑区输入相应的代码： WAIT “引发表单Unload事件!” WINDOW ⑦ 从“对象”框中选择Command1，从“过程”框中选择Click，然后在编辑区输入的代码： Thisform.release ⑧ 从“文件”菜单中选择“保存”命令，保存表单文件。然后单击“关闭”按钮，关闭表单设计窗口。 ⑨ 在命令窗口中输入命令：DO FORM myForm 从运行表单到打开表单后单击“退出”按钮，屏幕显示结果，并分析原因： 3.掌握Visual FoxPro 6.0 。在添加个标签label1,个文本框text1和1个命令按钮command1将autocenter属性设为.（把表单的autocenter属性设为.,运行时，表单会自动居中在主窗口的中央）Label1的caption属性设为“欢迎使用VFP”，command1的caption属性设为“复制”，如图2所示。 ⑤ 单击复制按钮，把标签label1的内容复制到文本框text1中。 编写Command1的Click事件过程代码： 第一种方法：绝对引用的事件过程代码： Thisform.text1.value=thisform.label1.caption 第二种方法：相对引用的事件过程代码： Thisform.text1.value=this.parent.label1.caption （注意：两种方法都可以实现） ⑥ 保存并运行表单。 4.掌握Visual FoxPro 6.0 。 ③ 将MyClass子类的ButtonCount属性值设置为4，即设置命令按钮组中包含的命令按钮个数为4，重新横向排列4个命令按钮，并将4个命令按钮的Caption属性分别设置为“首记录”，“前一个”，“后一个”，“末记录”。 ④ 打开代码生成器，编写MyClass子类的Click事件过程代码，代码如下： sel=This.value do case case sel=1 go top case sel=2 if !bof() skip-1 endif case sel=3 if !bof() skip endif case sel=4 go bottom endcase thisform.refresh ⑤ 关闭类设计器。关闭类设计器后，系统将询问是否将MyClass类保存到Mylib.VCX中，回答“是“ 。 ⑥ 打开表单设计器，在“表单控件“工具栏中单击“查看类”按钮，选择“添加”命令，在“打开”对话框中选定自定义类库Mylib，将其添加到“表单控件”工具栏中，如图5所示。 ⑦ 至此，可以像使用其他常用类一样使用该自定义类。同学们新建一个表单，拖动该自定义类在表单中生成一个对象实例，然后把student表添加到该表单的数据环境中，保存表单，运行表单验证自定义类的使用。 5.设计一个表单，如下图所示，单击显示按钮，文本框显示“欢迎进入VFP天地！”，单击清除按钮，显示内容消失。 - 6 - 自定义类Myclass 图3 “新建类”对话框 图5 自定义类的使用 图4 类设计器 图2 初始属性设置 图1 自定义属性和方法的使用结