数据库应用技术-FoBASE+第3版

第7章子程序和过程文件

教学目标掌握子程序和过程文件的概念能编写较简单的子程序和过程文件掌握程序之间进行数据传递的基本方法能编写较简单的自定义函数掌握调用自定义函数的基本方法教学重点难点1、子程序和过程文件的概念2、编写较简单的子程序和过程文件3、程序之间进行数据传递4、自定义函数5、调用自定义函数的基本方法教学方法讲授法、演示法、讨论操作一、子程序

1、建立子程序建立子程序和其他FoxBASE+程序一样，可以使用MODIFYCOMMAND命令进行建立、修改或保存，也可以使用其他编辑软件来建立和修改。每个子程序的扩展名，系统默认为.PRG。子程序和其他程序的惟一区别是在程序的最后一行加上RETURN命令，才能保证返回到调用它的主程序。当执行RETURNTOMASTER命令时，则返回到最高一级的主程序。2、调用子程序

【格式】DO<子程序名>[WITH<参数清单>]【功能】执行指定的子程序。教学步骤二、过程文件

1、建立过程文件建立过程文件和建立其他命令文件一样，可以使用MODIFYCOMMAND<过程文件名>来实现。过程文件的一般格式是：*<过程文件名.PRG>PROCEDURE<过程名1><命令序列1>RETURNPROCEDURE<过程名2><命令序列2>RETURN…PROCEDURE<过程名n><命令序列n>RETURN

过程文件中的每一个过程必须以PROCEDURE语句开头，后面跟过程名，过程名没有扩展名，每个过程以RETURN语句结束。一个过程文件最多包含128个过程。2、调用过程文件调用过程文件前，应先打开相应的过程文件。【格式】SETPROCEDURETO[<过程文件名1>[,<过程文件名2>,…]][ADDITIVE]

【功能】该命令打开一个或多个过程文件。当过程文件中的过程调用结束后，应及时关闭过程文件。关闭过程文件使用下列命令。

【格式】SETPROCEDURETO

或CLOSEPROCEDURE【功能】关闭打开的过程文件。三、参数传递

主程序调用子程序（过程）或函数时，常常需要进行参数传递，把调用程序中的数据传递给子程序（过程）或函数。调用程序所传出的参数称为实际参数，被调用程序所接收的参数称为形式参数。实现带参数程序的调用，主程序调用子程序（过程）的命令格式如下：【格式】DO<程序名>[IN<文件名>]WITH<参数表>【功能】通过DO命令中的<参数表>与被调用的程序进行参数传递。在被调用程序中的第一个语句应为参数接收语句，其格式如下：。【格式】PARAMETERS<参数表>【功能】该语句的功能是接收DO…WITH<参数表>调用命令传递来的参数值。四、自定义函数

【格式】

[PARAMETERS<参变量清单>]<语句序列>RETURN<表达式>调用自定义函数可以使用下列命令：?、??、@…GET、DISPLAY、DOCASE…ENDCASE、DOWHILE…ENDDO、IF…ENDIF、LIST、REPLACE、STORE、UPDATE等命令。

【例5】定义一个计算圆面积的函数，函数名为UDF.PRG。函数如下：

PARAMETERSRS=3.1416*R*RRETURNS【例6】用下列几种方式来调用UDF.PRG函数。⑴用?命令来调用该函数：．?UDF(10)屏幕显示：

314.1600⑵用STORE命令调用该函数：．STOREUDF(10)TOAREA

．?AREA屏