数据库案例教程Visual_FoxPro_6.0 作者 王咏丽 第八单元 表单设计.ppt

第八单元 程序设计基础 本 章 要 点 结构化程序设计基础 子程序、自定义函数和过程文件 程序编译 任务一结构化程序设计基础  子任务一：顺序结构、选择结构 子任务二：循环结构 实训项目 子任务一：顺序结构、选择结构 1．?顺序结构 顺序结构的程序运行时按照语句排列的先后顺序，一条接一条地依次执行，它是程序中最基本的结构。 2.选择结构 支持选择结构的语句包括条件语句和分支语句 如果条件成立，则执行语名序列1；否则，执行语句序列2。然后转向ENDIF的下一条语句如图 ： ②无ELSE子句时，可看作第二组代码不包含任何命令。如果条件成立，则执行语名序列1，然后转向ENDIF的下一条语句；否则直接转向ENDIF的下一条语句去执行如下图所示 ： （2）分支语句 语句格式： DO CASE CASE 条件1 语句序列2 CASE条件2 语句序列1 …… CASE条件n 语句序列n [ OTHERWISE 语句序列] ENDCASE 功能注释： ①不管有几个CASE条件成立，只有最先成立的那个CASE条件的对应命令序列被执行。 ②如果所有CASE条件都不成立，且没有OTHERWISE子句，则跳出本结构。条件1条件2条件n语句序列1语句序列2语句序列nENDCASE后面的语句OTHERWISE语句序列 ③DO CASE和ENDCASE必须成对出现，DO CASE是本结构的入口，ENDCASE是本结构的出口，分支语句的控制流如下图 ： 子任务二：循环结构 Visual FoxPro 支持循环结构的语句包括DO WHILE-ENDDO、FOR-ENDFOR 和SCAN-ENDSCAN语句 DO WHILE-ENDDO 语句 语句格式： DO WHILE条件 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3. ENDDO 。 功能注释： ①如果第一次判断条件时，条件即为假，则循环体一次都不执行。 ②如果循环体包含LOOP命令，那么当遇到LOOP时，就结束循环体的本次执行，不再执行其后面的语句，而是转回DO WHILE 处重新判断条件。 ③如果循环体包含EXIT命令，那么当遇到EXIT时，就结束该语句的执行，转去执行ENDDO后面的语句。条件循环体ENDDO后面的语句 ④通常LOOP或EXIT出现在循环体内嵌套的选择语句中，根据条件来决定是LOOP回去，还是EXIT退出。包括LOOP或EXIT选项的循环语句执行过程如下图 ： 实训项目 任务二 子程序、自定义函数和过程文件 应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序和自定义函数。下面就一起来学习一下。 子任务一：子程序 子任务二：自定义函数 子任务三: 过程 实训项目 子任务一：子程序 1.??调用与返回 命令格式： DO 程序名1 [WITH 参数表] [IN 程序名2] 说明： （1）参数表中的参数可以是表达式，但若为内存变量必须有初值 （2）当程序名1是IN子句程序名2中的一个过程时，DO命令调用该过程，如例8.5所示： 例8.5调计一个计算圆面积的子程序，并要求在主程序中带参数调用它。 子任务二：自定义函数 程序如下： 自定义函数与其调用的语句包含在同一程序中 * root1.prg CLEAR @5,10 SAY “一次项系数：”GET a DEFAULT 1 @7,10 SAY “常 数 项：” GET a DEFAULT 0 READ ?”x:”,root(a,b) FUNCTION root PARAMETERS u,v RETURN IIF(u=0,”无解”,-v/u ) 子任务三：过程 * e8-5.prg SET DECIMALS TO 2 设置小数保留两位 Ymj=0 @5,10 say “请输入半径：”GET bj DEFAULT 0 READ DO js WITH bj,ymj 调用过程 js ?”ymj=”,ymj RETURN 程序结束语句，允许省略 PROCEDURE js 过程js 开始语句 PRAMETERS r,s s=PI()*r*r RETURN 过程js结束语句，允许省略 小知识： 1、自定义函数的扩展名默认为.PRG。 2、子程序：对于两个具有调用关系的程序文件，常称调用程序为主程序，被调用程序为子程序。 3、自定义函数的函数名不能