09级VFP6电子教案(7-10章).pptVIP

面向对象方法的基本概念 7.1.1 对象与类 1．对象：对象可以用来表示客观世界中的任何实体。 例如，一个人、一家公司、一个窗口、贷款和借款等都可以作为一个对象。 7．2．2 常用事件与方法 一、运行时事件 1．Init事件 在对象建立时引发。在表单对象的Init事件引发之前，将先引发它所包含的控件对象的Init事件。 2．Load事件 在表单对象建立之前引发，即运行表单时，先引发表单的Load事件，再引发表单的Init事件。 二、关闭时事件 3．Destroy事件 在对象释放时引发。表单对象的Destroy事件在它所包含的控件对象的Destroy事件引发之前引发，所以在表单对象的Destroy事件代码中能够访问它所包含的所有控件对象。 4．Unload事件 在表单对象释放时引发，是表单对象释放时最后一个要引发的事件。比如在关闭包含一个命令按钮的表单时，先引发表单的Destroy事件，然后引发命令按钮的Destroy事件，最后引发表单的Unload事件。 7．4 表单设计器 7．4．1 表单设计器环境 表单设计器启动后，Visual FoxPro主窗口上将出现“表单设计器”窗口、“属性”窗 口、“表单控件”工具栏、 “表单设计器”工具栏以及“表单”菜单。 1．表单设计器窗口 “表单设计器”窗口内含正在设计的表单的表单窗口。用户可在表单窗口上可视化地添加和修改控件。表单窗口只能在“表单设计器”窗口内移动。 例7．3 表单中有三个标签，如图8．17所示。当用鼠标单击任何一个标签时，都使其他两个标签的标题文本互换。 内容要点：假设三个标签的名称(Name属性值)分别是Labell、Label2、Label3，它们可以从属性窗口中获得。 ①标签Labell的Click事件代码为： t=thisform.Label2.Caption thisform.Label2.Caption=thisform.Label3.Caption thisform.Label3.Caption=t ②标签Label2的Click事件代码为： t=thisform.Labell.Caption hisform.Labell.Caption=thisform.Label3.Caption thisform.Label3.Caption=t 2．Enabled属性 指定表单或控件能否响应由用户引发的事件。默认值为.T.，即对象是有效的，能被选择，能响应用户引发的事件。 3．Visible属性 指定对象是可见还是隐藏。在表单设计器中，默认值为.T.，即对象是可见的：在程序代码中，默认值为.F.，即对象是隐藏的。 例7.4 设计求圆面积的表单：要求在一个文本框内输入圆的半径，命令按钮进行计算，求出圆的面积在另外一个文本框内显示出来。 步骤： (1)创建表单，添加两个标签，一个为：“请输入圆的半径：”，另一个为：“圆的面积：”，再添加一个命令按钮，为“计算”。 (2)设置两个标签的标题与命令按钮标题，将命令按钮Default值设为.T.。 (3)命令按钮的代码为： a=Thisform.text1.value thisform.text2.value=round(a^2*pI(),2) 例7.5 设计一个浏览学生数据的表单Wbbd，当表中显示的是第一条学生记录时，命令按钮“上一条”应置为无效；当表单中显示的是最后一条记录时，命令按钮“下一条”应置为无效。 (5)设置表单的Init和Destroy事件代码。 *Init事件代码 PUBLIC ss PUBLIC num,nTop,nBottom SELECT 学生 num=reccount() 记录数 GO BOTTOM nBottom=RECNO() 末条记录记录号 GO TOP nTop=RECNO() 首条记录记录号 This.myMethod *Destroy 事件代码： RELEASE ss,num,nTop,nBottom (6)为表单添加一个新方法myMethod。根据当前记录指针的当前位置设置按钮是否有效，根据“性别”字段的取值设置对应文本框(Text1)要显示的内容，最后刷新表单。方法在表单初始化以及用户单击“上一条”、“下一条”命令按钮时被调用 。代码如下： (7)设置命令按钮“上一条”的Click事件代码： *“上一条”事件代码： SELECT 学生 SKIP -1 IF BOF() GO TOP ENDIF Thisform.myMethod (8)设置“下一条”的Clic