《VF程序设计》PPT课件.ppt
程序设计初步（程序设计初步（程序设计初步（程序设计初步（3 3 3 3）要点：要点：1、建立模块化程序设计的观念、建立模块化程序设计的观念2、掌握自定义方法的使用、掌握自定义方法的使用 3、掌握变量的作用域、掌握变量的作用域 4、了解过程、自定义函数、了解过程、自定义函数 程序设计的三种基本结构：顺序结构分支结构循环结构一、程序设计为什么要引入模块化一、程序设计为什么要引入模块化模块化设计思想模块化设计思想【例1】设计如图所示表单，计算组合数C(m,n)。其中，m和n是正整数，且mn。“计算计算”命令按钮的命令按钮的CLICKCLICK事事件代码如下：件代码如下：M=thisform.text1.valueN=thisform.text2.valuep1=1for i=1 to m p1=p1*iendforp2=1for i=1 to n p2=p2*iendforp3=1for i=1 to m-n p3=p3*iendforresult=p1/(p2*p3)Thisform.text3.value=resultreturn数据数据输入输入求求m!求求n!求求(m-n)!将求阶乘的问题写成一个共有的代码将求阶乘的问题写成一个共有的代码,代码如下：代码如下：*自定义方法自定义方法JCparameters xy=1for i=1 to x y=y*iendforReturn Y*“计算计算”命令按钮的命令按钮的CLICK事事件：件：M=THISFORM.TEXT1.VALUEN=THISFORM.TEXT2.VALUES1=THISFORM.JC(M)S2=THISFORM.JC(N)S3=THISFORM.JC(M-N)THISFORM.TEXT3.VALUE=S1/(S2*S3)二、模块化的基本思想二、模块化的基本思想 u分而治之的策略是人们处理复分而治之的策略是人们处理复杂问题时的一般策略。它将一个大杂问题时的一般策略。它将一个大的任务分解为多个任务，分而治之，的任务分解为多个任务，分而治之，协作处理，共同完成。协作处理，共同完成。u分解优化。不同的人分解的策略是分解优化。不同的人分解的策略是不一样，因此分解也有好有坏。不一样，因此分解也有好有坏。u模块化程序就是采用模块化程序就是采用“自顶向下、逐自顶向下、逐步求精步求精”的方法，从整体到局部，从抽的方法，从整体到局部，从抽象到具体的分解过程。象到具体的分解过程。（1 1）精简主程序）精简主程序 提高可读性，同时便于以后程序的维护。提高可读性，同时便于以后程序的维护。（2 2）减少重复片段）减少重复片段 sub1内的命令原本在主程序会出现两次，而改成调用子内的命令原本在主程序会出现两次，而改成调用子程序后，便只出现两次程序后，便只出现两次“调用调用sub1”命令，因此可以减少重复命令，因此可以减少重复片段，并且以后片段，并且以后sub1内的命令若需修改时，只要改一个地方就内的命令若需修改时，只要改一个地方就可以了，而不需要同时修改多处。可以了，而不需要同时修改多处。三、模块化程序设计的主要优点三、模块化程序设计的主要优点在在Visual FoxPro中，子程序的结构可分为中，子程序的结构可分为下列几种：下列几种：过程过程自定义函数自定义函数自定义方法自定义方法 结构化程序结构化程序可视化程序可视化程序自定义方法自定义方法（1）方法的分类）方法的分类 VFP的方法分为两类：内部方法和用内部方法和用户自定义方法户自定义方法。内部方法是VFP预制的子程序，可供用户直接调用或修改后使用，如在前面章节中所使用过的Release、SetFocus等方法。用户自定义方法其实就是用户为某种需要编写的子程序。1、自定义方法的建立和调用、自定义方法的建立和调用（2）方法的命名规则）方法的命名规则VFP中方法的命名规则如下：由字母、汉字、下划线和数字组成，并且必须以字母、汉字或下划线开头。可以是1128个字符。不能使用vfp的保留字方法名不要与变量名、数组名相同，取名尽量“见名知意”。（3）方法建立的步骤）方法建立的步骤 定义方法 编写方法代码。(教材教材P71)P71)【例例3-153-15】自定义方法自定义方法addtxtaddtxt，将文本框，将文本框中输入的文本添加到编辑框中，并将文本框中的文本中输入的文本添加到编辑框中，并将文本框中的文本设置为蓝颜色，编辑框中的文本设置为红颜色。设置为蓝颜色，编辑框中的文本设置为红颜色。1）方法定义（1）添加新方法addtxt。打开表单设计器选择“表单”中的“新建方法程序”命令打开的“新建方法程序”对话框在“名称”框中输入方法的名称(如图所示)单击添加按钮单击关闭按钮，退出该对话框。注意：只有表单对象可以添加自定义方法。注意：只有表单对象可以添加自定义方法。输入方法名输入方法名输入对该方法的描述，也可以不加输入对该方法的描述，也可以不加（2）编写addtxt方法的代码。双击表单空白处，打开“代码”窗口，在“过程”下拉列表中选择“addtxt”，然后编写代码，如图所示。将文本框中输入的内容添加到编辑框将文本框中输入的内容添加到编辑框回车键回车键2）编写控件的事件代码（1）“添加”命令按钮的“Click”事件代码如下：thisform.addtxt()（2）“关闭”命令按钮的“Click”事件代码如下：thisform.release表单的自定义方法表单的自定义方法addtxt表单的内部方法表单的内部方法release文本框的内部方法文本框的内部方法3）运行结果2、参数传递与方法的返回值、参数传递与方法的返回值（1）参数传递）参数传递 如果需要方法能够接收参数，则在方法如果需要方法能够接收参数，则在方法代码开始部分增加下面的命令行：代码开始部分增加下面的命令行：PARAMETERS PARAMETERS 或或 LAPRAMETERS LAPRAMETERS 调用时使用括号将实参括起来：调用时使用括号将实参括起来：对象名对象名.方法名方法名()说明：见教材说明：见教材P75（2）方法的返回值）方法的返回值 如果需要一个返回值，则要在方法代码如果需要一个返回值，则要在方法代码的结束处增加下面的命令行：的结束处增加下面的命令行：RETURN RETURN 如果如果缺省缺省 ，vfpvfp将自动返回将自动返回.T.T.。当代码执行到。当代码执行到 RETURN命令时，程序流程立命令时，程序流程立即返回到主程序中。即返回到主程序中。（3）方法的调用形式）方法的调用形式 在主程序中可以使用以下形式调用方法：在主程序中可以使用以下形式调用方法：在表达式中调用方法在表达式中调用方法，例如，例如，y=2+Thisform.New(x)。在赋值语句中调用方法在赋值语句中调用方法，例如，例如，y=Thisform.New(x)。以等号命令调用方法以等号命令调用方法，例如，例如，=Thisform.New(x)。以该形式调用的方法将舍弃返回值。以该形式调用的方法将舍弃返回值。(教材教材P74)P74)【例例3-163-16】编写分数化简程序，在其中调编写分数化简程序，在其中调用求最大公约数的自定义方法用求最大公约数的自定义方法gysgys。编写求最大公约数的自定义方法gys代码 编写“=”按钮的Click事件代码：a=Thisform.Text1.Valueb=Thisform.Text2.ValueIF a*b0s=Thisform.gys(a,b)Thisform.Text3.value=INT(a/s)Thisform.Text4.value=INT(b/s)ENDIF 在赋值语句中调用方法在赋值语句中调用方法EXM1EXM1（p83)p83)：设计如图所示表单，：设计如图所示表单，3 3文本框的初值为文本框的初值为0 0，运行表单后运行表单后，在在3 3个文本框中都输入个文本框中都输入1 1，单击单击“command1command1”按钮按钮，标签标签label2label2和和label3label3分别会显示什分别会显示什么么？Command1的的click事件代码：事件代码：i=thisform.text1.valuea=thisform.text2.valueb=thisform.text3.valuey1=DO WHILE i=3thisform.prog1()y1=y1+P(+STR(i,1)+)=+STR(a,2)+i=i+1ENDDOthisform.label2.caption=y1thisform.label3.caption=b=+STR(b,2)自定义方法程序自定义方法程序prog1:a=a*2b=b+areturnP(1)=2 P(2)=4 P(3)=8b=15 变量的作用域变量的作用域 根据使用范围，可以将变量分成以下根据使用范围，可以将变量分成以下3类：类：私有变量私有变量全局变量全局变量局部变量局部变量私有变量私有变量 私有变量的使用原则是：上层程序（主程私有变量的使用原则是：上层程序（主程序）中，所定义的私有变量，可以在下层程序序）中，所定义的私有变量，可以在下层程序（子程序）中使用，而（子程序）中使用，而下层程序（子程序）中，下层程序（子程序）中，所定义的私有变量，却不可以在上层程序（主程所定义的私有变量，却不可以在上层程序（主程序）中使用序）中使用；这是因为定义该私有变量的子程序；这是因为定义该私有变量的子程序结束时，私有变量便被释放的缘故。结束时，私有变量便被释放的缘故。定义私有变量：定义私有变量：Private 教材教材P77没有赋值，没有赋值，变量不存在变量不存在 假设一私有变量在假设一私有变量在“子程序子程序SUB2”中定义时，中定义时，则子程序则子程序SUB2A、SUB2B也可以使用该私有变量，也可以使用该私有变量，但但主程序主程序与其他子程序（与其他子程序（SUB1、SUB1A、SUB1B），则无法使用该私有变量。），则无法使用该私有变量。(教材教材P75-76)P75-76)【例例3-173-17】表单界面如图所示，计算表单界面如图所示，计算按钮的按钮的clickclick事件代码和自定义方法代码如下，当文事件代码和自定义方法代码如下，当文本框本框text1text1、text2text2中分别输入中分别输入1 1、2 2，单击，单击“计算计算“按按钮，文本框钮，文本框text3text3、text4text4中显示什么？中显示什么？计算按钮的计算按钮的Click事件代码：事件代码：a=thisform.text1.valueb=thisform.text2.values=0thisform.summ()thisform.text4.value=s自定义方法summ代码：private ss=a+bthisform.text3.value=s 全局变量全局变量 全局变量的使用范围包括全局变量的使用范围包括整个应用程序整个应用程序，从主程序到所有子程序都可以使用全局变量的内从主程序到所有子程序都可以使用全局变量的内容；因此通常是用来存放密码、当天日期、用户容；因此通常是用来存放密码、当天日期、用户ID或其他常用的系统信息等。或其他常用的系统信息等。但因全局变量的生命周期相当长，从应用程但因全局变量的生命周期相当长，从应用程序开始到结束，序开始到结束，全局变量会一直占据内存空间，全局变量会一直占据内存空间，除非必要否则尽量少用除非必要否则尽量少用。定义全局变量：定义全局变量：PUBLIC 教材教材P77没有赋值，变没有赋值，变量初值为量初值为.F.假设一个全局变量在子程序假设一个全局变量在子程序SUB1中定义时，则从中定义时，则从主程序主程序到全部子程序（到全部子程序（SUB1、SUB2、SUB1A、SUB1B、SUB2A、SUB2B）,都可以使用该全局变都可以使用该全局变量。量。(教材教材P77)P77)【例例3-183-18】如如【例例3-173-17】中如下图所示表中如下图所示表单，若计算按钮的单，若计算按钮的clickclick事件代码和自定义方法代码事件代码和自定义方法代码如下，当文本框如下，当文本框text1text1、text2text2中分别输入中分别输入1 1、2 2，单击，单击“计算计算“按钮，文本框按钮，文本框text3text3、text4text4中显示什么？中显示什么？计算按钮的计算按钮的Click事件代码：事件代码：a=thisform.text1.valueb=thisform.text2.valuethisform.summ()thisform.text4.value=s 自定义方法summ代码：Public ss=a+bthisform.text3.value=s 局部变量局部变量 局部变量是局部变量是Visual FoxPro新增的变量种类，新增的变量种类，但与私有变量非常相似，私有变量的使用范围是但与私有变量非常相似，私有变量的使用范围是程序本身及下层的子程序，而程序本身及下层的子程序，而局部变量的使用的局部变量的使用的范围则只限于定义变量的程序本身范围则只限于定义变量的程序本身。定义局部变量：定义局部变量：LOCAL 教材教材P78没有赋值，变没有赋值，变量初值为量初值为.F.假设一局部变量在假设一局部变量在“子程序子程序SUB1”中自定义时，中自定义时，则只有则只有“子程序子程序SUB1”可以使用此局部变量，可以使用此局部变量，主主程序程序和其它子程序（和其它子程序（SUB2、SUB1A、SUB1B、SUB2A、SUB2B）都无法使用该局部变量。）都无法使用该局部变量。变量的屏蔽变量的屏蔽 为了避免在不同层次的模块中因为了避免在不同层次的模块中因为使用相同名字的变量而相互影响为使用相同名字的变量而相互影响值的变化，可在子模块中使用值的变化，可在子模块中使用privateprivate、locallocal、parametersparameters命令屏命令屏蔽掉主模块或上级模块中蔽掉主模块或上级模块中同名的变同名的变量量，使得这些变量在子模块中，使得这些变量在子模块中暂时暂时无效无效。只要返回主模块或上级模块，。只要返回主模块或上级模块，原来同名变量会重新出现，并且原来同名变量会重新出现，并且其其值保持不变值保持不变。EXM2EXM2：设计如图所示表单，文本框：设计如图所示表单，文本框text1text1、text2text2、text3text3的初值为的初值为0 0，运行表单后，在文本框，运行表单后，在文本框text1text1、text2text2、text3text3中分别输入数值中分别输入数值2 2、3 3、4 4，单击，单击“command1command1”按钮，文本框按钮，文本框text412text412中分别会显中分别会显示什么？示什么？Command1的的click事件代码：事件代码：a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value thisform.sub1()thisform.text10.value=a thisform.text11.value=b thisform.text12.value=c retu 自定义方法程序自定义方法程序sub1:private b,c a=20 b=30 c=40 thisform.sub2()thisform.text7.value=a thisform.text8.value=b thisform.text9.value=c retu 自定义方法程序自定义方法程序sub2:private a a=100 b=2*a thisform.text4.value=a thisform.text5.value=b thisform.text6.value=c retu 100 200 40 20 200 40 20 3 4 EXM3EXM3：设计如图所示表单，运行表单后，在文本：设计如图所示表单，运行表单后，在文本框框text1text1和和text2text2中都输入数值中都输入数值1 1，单击，单击“command1command1”按钮，文本框按钮，文本框text36text36中分别会显示中分别会显示什么？什么？Form1的load事件代码：public a,bCommand1的click事件代码：a=thisform.text1.valueb=thisform.text2.value thisform.test1()thisform.text5.value=a thisform.text6.value=b return 自定义方法程序自定义方法程序test1:private a a=2 local b thisform.test2()thisform.text3.value=athisform.text4.value=b b=5 return 自定义方法程序自定义方法程序test2:a=建国建国 b=60年大庆年大庆 return建国 F 1 60年大庆
