foxpro程序设计教程第3版教学课件ppt作者刘瑞新第9章自定义属性与方法

Visual FoxPro程序设计教程 （第3版）,第9章 自定义属性与方法,第9章 自定义属性与方法,属性就是与某对象相联系的数据元素。属性的作用域是整个对象（如表单）存在的时期。属性的使用比传统的xBASE变量作用域（全局、局部、公有、私有）更安全, 在某些场合, 可以使用“属性”来代替使用“变量”。 方法是限制在一个对象中的子程序。 9.1 自定义属性 9.2 自定义方法,9.1 自定义属性,9.1.1 添加自定义属性 打开新建属性对话框。 在“名称（Name）”栏中填入自定义属性的名称Sec, 然后在“说明”栏中填入该属性的简单说明。 单击“添加”按钮, 退出“新建属性”对话框。此时, 在属性窗口的“其他”选项卡中可以看见新建的属性及其说明, 新定义属性的类型为逻辑型, 值为：.F., 可以改为其他类型, 如数值型值：0。,9.1 自定义属性,9.1.1 添加自定义属性 【例9-1】设计一个计时器, 能够设置倒计时的时间, 并进行倒计时。 设计步骤如下： 添加自定义属性。选择“新建”表单, 进入表单设计器, 首先在表单中添加一个自定义属性Sec, 用以记录“秒表”的初始时间。,9.1 自定义属性,9.1.1 添加自定义属性 【例9-1】设计一个计时器, 能够设置倒计时的时间, 并进行倒计时。 设计步骤如下： 建立应用程序用户界面与设置属性。在表单中增加一个命令按钮Command1, 一个文本框Text1, 一个微调器Spinner1和一个计时器控件Timer1, 如图9-3左所示。 属性设置参见表9-1。,9.1 自定义属性,9.1.1 添加自定义属性 【例9-1】设计一个计时器, 能够设置倒计时的时间, 并进行倒计时。 编写代码。 编写微调器Spinner1的InteractiveChange事件代码：,9.1 自定义属性,9.1.1 添加自定义属性 【例9-1】设计一个计时器, 能够设置倒计时的时间, 并进行倒计时。 编写代码。 编写命令按钮Command1的Click事件代码： THISFORM.Timer1.Enabled=.T. THISFORM.Spinner1.Enabled=.F. THIS.Enabled=.F.,9.1 自定义属性,9.1.1 添加自定义属性 【例9-1】设计一个计时器, 能够设置倒计时的时间, 并进行倒计时。 编写代码。 编写计时器Timer1的Timer事件代码：,9.1 自定义属性,9.1.2 数组属性 数组属性是一组具有不同下标的同名属性, 可以在任何使用数组的地方使用数组属性。数组属性是一种依附于表单的数组。要使用数组属性, 必须先在表单中定义数组属性。 数组属性的定义与设置与自定义属性的设置相仿, 也要打开“新建属性”对话框。在“名称”栏中输入数组属性的名称, 以及括号括起来的数组大小, 如图9-4所示。 如果能够事先确定数组的维数和大小, 就在括号中输入其值, 否则可以先随意指定一个, 然后在代码中用DIMENSION再重新定义。,9.1 自定义属性,9.1.2 数组属性 【例9-2】在例7-3中使用数组属性来存放方阵的元素。求出主对角线上元素之和以及方阵的最大元素。 设计步骤如下： 添加自定义属性。选择“新建”表单, 进入表单设计器, 首先在表单中添加一个自定义的数组属性A(5, 5)。 建立应用程序用户界面与设置属性与例7-3基本相同。其中列表框List1的属性设置参见表9-2。,9.1 自定义属性,9.1.2 数组属性 【例9-2】在例7-3中使用数组属性来存放方阵的元素。求出主对角线上元素之和以及方阵的最大元素。 修改代码。 清除表单的Load、UnLoad事件代码, 并修改表单的Activate事件代码：,9.1 自定义属性,9.1.2 数组属性 【例9-2】在例7-3中使用数组属性来存放方阵的元素。求出主对角线上元素之和以及方阵的最大元素。 修改代码。 修改“计算”按钮Command1的Click事件代码：,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 设计步骤如下： 添加自定义属性。选择“新建”表单, 进入表单设计器, 首先在表单中添加一个自定义的数组属性Spi(3), 用来存放微调器对象。,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 建立应用程序用户界面。 首先增加一个命令按钮Command1、一个形状控件Shape1和一个容器控件Container1, 并在Shape1上覆盖一个标签控件Label1。然后进入容器控件的编辑状态, 在容器中增加两个文本框Text1、Text2和3个微调器Spinner1、Spinner2、Spinner3（如图9-5右所示）。,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 设置对象属性, 见表9-3。 按照以下步骤对容器中的控件设置属性：用鼠标右键单击Container1, 在弹出的快捷菜单中选择“编辑”。容器的四周出现淡绿色边界, 可以逐一选定其中的控件, 并在属性窗口设置其属性, 见表9-4。,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 编写程序代码。 编写表单的Init事件代码, 建立属性数组对对象变量的引用： THIS.spi(1) = THIS.Container1.Spinner1 THIS.spi(2) = THIS.Container1.Spinner2 THIS.spi(3) = THIS.Container1.Spinner3,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 编写程序代码。 编写Spanner1的InteractiveChange事件代码： r = THISFORM.spi(1).Value g = THISFORM.spi(2).Value b = THISFORM.spi(3).Value THIS.Parent.Text2.BackColor = RGB(r, g, b) THIS.Parent.Text1.Value = “Color = RGB(“+STR(r, 3)+“, “+STR(g, 3)+“, “+STR(b, 3)+“)“,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 编写程序代码。 编写Spanner2的InteractiveChange事件代码： r = THISFORM.spi(1).Value g = THISFORM.spi(2).Value b = THISFORM.spi(3).Value THIS.Parent.Text2.BackColor = RGB(r, g, b) THIS.Parent.Text1.Value = “Color = RGB(“+STR(r, 3)+“, “+STR(g, 3)+“, “+STR(b, 3)+“)“,9.1 自定义属性,9.1.2 数组属性 【例9-3】使用微调器控制色彩, 还可以返回色彩的RGB值, 如图9-5左所示。 编写程序代码。 编写Spanner3的InteractiveChange事件代码： r = THISFORM.spi(1).Value g = THISFORM.spi(2).Value b = THISFORM.spi(3).Value THIS.Parent.Text2.BackColor = RGB(r, g, b) THIS.Parent.Text1.Value = “Color = RGB(“+STR(r, 3)+“, “+STR(g, 3)+“, “+STR(b, 3)+“)“,9.2 自定义方法,9.2.1 自定义方法的概念 1. 子程序 将重复使用的程序设计成能够完成一定功能的、可供其他程序使用（调用）的独立程序段。这种程序段称为子程序, 它独立存在, 但可以被多次调用, 调用的程序称为主程序。不但重复执行的程序段可以作为子程序独立出去, 即使只执行一次的程序段也可以把它写成子程序, 并把程序应该完成的主要功能都分配给各子程序去完成, 这样主程序可以写得比较短。,9.2 自定义方法,9.2.1 自定义方法的概念 1. 子程序 子程序只是一个相对独立的程序段, 我们可以仍然用顺序、选择、循环这3种基本结构去构造它。 至于子程序的输入输出, 应根据实际情况灵活掌握, 一般表现为主程序与子程序间的数据传递。,9.2 自定义方法,9.2.1 自定义方法的概念 2. 过程、函数与方法 VFP子程序的结构分为过程、函数与方法三类。一般来说, 过程与函数的区别在于函数返回一个值而过程不返回值, 而方法则是VFP中的一个新式的程序组装方式限制在一个对象中的子程序。 在可视化编程中, 我们总是使用“方法”。 “方法”可以像过程那样以传值或传址的方式传递参数, 也可以像函数那样返回值, 集中了过程和函数的所有功能与优点。与过程、函数的不同在于方法总是和一个对象密切相联, 即仅当对象存在并且可见时方法才能被访问。,9.2 自定义方法,9.2.1 自定义方法的概念 2. 过程、函数与方法 VFP的方法分为两类：内部方法和用户自定义方法。 内部方法是VFP预制的子程序, 可供用户直接调用或修改后使用, 如我们在前面章节中所使用过的Release、SetAll、SetFocus等方法。VFP提供了数10种内部方法, 并且允许用户使用自定义的方法。 用户自定义方法其实就是用户为某种需要所编写的子程序。,9.2 自定义方法,9.2.1 自定义方法的概念 3. 自定义方法的建立与调用 自定义方法的建立分为两步：方法的定义和编写方法代码。而自定义方法的调用则要指明调用的路径。 方法的命名遵循VFP中名称的使用原则。另外还要注意, 方法名不要与变量、数组名称相同, 尽量取有意义的名称。,9.2 自定义方法,9.2.1 自定义方法的概念 3. 自定义方法的建立与调用 【例9-4】在例9-3中使用自定义方法来统一处理微调器的操作。 在例9-3的基础上进行修改, 具体步骤如下： 添加新方法。打开“新建方法程序”对话框。 在“名称”栏中填入自定义方法的名称：SpiCh, 然后在“说明”栏中填入新方法的简单说明：“自定义的新方法” 。,9.2 自定义方法,9.2.1 自定义方法的概念 3. 自定义方法的建立与调用 【例9-4】在例9-3中使用自定义方法来统一处理微调器的操作。 编写自定义方法的代码。 r = THISFORM.spi(1).Value g = THISFORM.spi(2).Value b = THISFORM.spi(3).Value THIS.Container1.Text2.BackColor = RGB(r, g, b) THIS.Container1.Text1.Value = “Color = RGB(“+STR(r, 3)+“, “+STR(g, 3)+“, “+STR(b, 3)+“)“,9.2 自定义方法,9.2.1 自定义方法的概念 3. 自定义方法的建立与调用 【例9-4】在例9-3中使用自定义方法来统一处理微调器的操作。 自定义方法的调用。 修改Spanner1的InteractiveChange事件代码： THISFORM.spich 修改Spanner2的InteractiveChange事件代码： THISFORM.spich 修改Spanner3的InteractiveChange事件代码： THISFORM.spich,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 方法可以接收主程序传递的参数, 也可以不接收参数（如上例）, 可以有返回的值（如函数）, 也可以没有返回的值（如过程）。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 若想使方法能够接收参数, 只需在方法代码的开始增加命令行： PARAMETERS 形参表 或 LPARAMETERS 形参表 调用时使用括号将实参括起： 对象名.方法名(实参表),9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 说明： LPARAMETERS与PARAMETERS的区别在于：以PARAMETERS命令所接收的参数变量属于PRIVATE（专用）性质, 而以LPARAMETERS命令所接收的参数变量属于LOCAL（局部）性质。 实参表中实际参数的个数最多不能超过27个。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 说明： 若形参表中形参的个数多于实际参数的个数, 则多余的形参变量的值为.F.。若实际参数的个数多于形参表中形参的个数, 则出现“程序错误”提示：必须指定额外参数。如图9-9所示。 在调用方法时, 无论指定或不指定实际参数方法名后都可以带一对括号。 实参表中的实际参数可以是任何类型的变量、函数、数组、表达式, 甚至是对象。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 【例9-5】在一个窗口中包含3个命令按钮, 当用户单击其中一个时, 要求其他个别按钮不能使用： 分析：本例可以分别建立3个按钮的单击事件过程, 也可以建立一个“方法”来统一处理3个命令按钮的单击事件。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 【例9-5】在一个窗口中包含3个命令按钮, 当用户单击其中一个时, 要求其他个别按钮不能使用： 设计步骤如下： 应用程序用户界面的建立与对象属性的设置参见图9-10, 下面介绍代码的编写。 添加新方法。 打开“新建方法程序”对话框。在“名称”栏中填入自定义方法的名称：CmdClk, 单击“添加”按钮后退出新建方法程序对话框。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 【例9-5】在一个窗口中包含3个命令按钮, 当用户单击其中一个时, 要求其他个别按钮不能使用： 编写自定义方法CmdClk的代码：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 1. 参数的传递 【例9-5】在一个窗口中包含3个命令按钮, 当用户单击其中一个时, 要求其他个别按钮不能使用： 3个命令按钮的Click事件代码完全相同： THISFORM.cmdclk(THIS) 说明：要注意在不同代码中THIS所代表的不同对象。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 2. 参数传递的方式 参数传递的方式分为传址方式和传值方式。 传址方式是指主程序将实际参数在内存中的地址传给被调用的方法, 由形式参数接收, 而形式参数也使用该地址。即实际参数与形式参数使用相同的内存地址, 形式参数的内容一经改变, 实际参数的内容也将跟着改变。 传值方式是指主程序将实际参数的一个备份传给被调用的方法, 这个备份可以被方法改变, 但在主程序中变量的原值不会改变。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 2. 参数传递的方式 传址或传值方式对于数组的影响较大, 如果采用传值方式只能传递数组的第一个元素的内容, 其他元素无法传递。如果采用传址方式, 则将整个数组的地址传给了被调用的方法, 形式参数会自动变成一个与实际参数同样大小的数组。 在默认的情况下, VFP在调用方法时采用传值方式。如果要改变参数的传递方式, 可以采用以下两种方法： 使用SET UDFPARMS TO VALUE|REFERENCE命令来强制改变参数的传递方式。 使用符号来强制VFP使用传址的参数传递方式。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 2. 参数传递的方式 【例9-6】编写求最大公约数的自定义方法, 输入的两个整数按值传递, 求出的最大公约数按地址传递。 设计步骤如下： 应用程序用户界面的建立与对象属性的设置参见图9-11, 下面介绍代码的编写：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 2. 参数传递的方式 【例9-6】编写求最大公约数的自定义方法, 输入的两个整数按值传递, 求出的最大公约数按地址传递。 首先添加自定义方法Hcf。 编写自定义方法Hcf的代码：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 2. 参数传递的方式 【例9-6】编写求最大公约数的自定义方法, 输入的两个整数按值传递, 求出的最大公约数按地址传递。 编写“计算”按钮的Click事件代码, 调用自定义方法Hcf：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 若想使方法能够返回一个值, 只需在方法代码的结束处增加命令行： RETURN 表达式 如果缺省表达式, VFP将自动返回.T.。 当代码执行到RETURN命令, 就会立即返回到主程序中。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-7】改写例9-6中的自定义方法, 使其能够返回值。然后通过在表达式中调用方法, 得到3个整数的最大公约数。 设计步骤如下： 应用程序用户界面的建立与对象属性的设置参见图9-12, 下面介绍代码的编写： 首先添加自定义方法Hcf。,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-7】改写例9-6中的自定义方法, 使其能够返回值。然后通过在表达式中调用方法, 得到3个整数的最大公约数。 编写自定义方法Hcf的代码：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-7】改写例9-6中的自定义方法, 使其能够返回值。然后通过在表达式中调用方法, 得到3个整数的最大公约数。 编写“计算”按钮的Click事件代码, 调用自定义方法Hcf：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-8】验证哥德巴赫猜想：一个不小于6的偶数可以分解为2个奇素数之和。 设计一个程序, 输入一个不小于6的偶数, 然后由计算机将其分解为两个奇素数之和。 设计步骤如下： 应用程序用户界面的建立与对象属性的设置参见图9-13, 下面介绍代码的编写： 首先在表单中增加一个判断素数的自定义方法Prime(),9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-8】验证哥德巴赫猜想：一个不小于6的偶数可以分解为2个奇素数之和。 判断素数的自定义方法Prime()代码为：,9.2 自定义方法,9.2.2 参数的传递与方法的返回值 3. 方法的返回值 【例9-8】验证哥德巴赫猜想：一个不小于6的偶数可以分解