【数据库应用基础】子程序、过程、自定义函数.pptVIP

第7讲 子程序、过程、自定义函数 学生管理系统程序 子程序 子程序的建立： MODI COMM (*.prg) 【例】现有一个主程序MAIN和二个子程序SUB1.PRG和SUB2.PRG. *MAIN.PRG ? # # # #1 DO SUB1 ? # # # #2 DO SUB2 ? # # # #3 RETURN 过程文件: 把一个个分散的子程序组合成一个大的文件。 执行时，用打开过程文件命令一次调入内存。 过 程: 过程文件中的每一个子程序叫做一个过程。 2．过程调用 必须先打开过程文件，才可以调用过程文件中的过程。 【例5.31】调用过程文件 *主程序Main.prg *过程文件[gcwj.prg] set talk off proc gc1 clear ? 这是过程1，过程名为gc1 ? ‘这是主程序！’ retu set proc to gcwj do gc1 proc gc2 do gc2 ? 这是过程2，过程名为gc2 close proc retu retu 3．参数传递 只有定义过程时先定义参数，过程调用时才可向被调用过程传递参数。 【例5.32】 编写把输入的汉字串按每字一行的形式输出的程序。 ***主程序MAIN.PRG SET TALK OFF SET PROC TO PROTEST 打开过程文件 ACCEPT 请输入一个汉字串： TO str DO Vertica WITH str 带参Str调用过程vertica SET PROC TO 关闭过程文件 SET TALK ON RETURN 【例5.33】调用过程文件，计算圆的面积并输出。 *主程序MJ.PRG SET TALK OFF SET PROC TO YMJ s=0 INPUT 请输入圆的半径: TO r DO S1 WITH s,r 带参 s,r 调用过程S1 DO S2 SET PROC TO SET TALK ON RETURN **过程文件YMJ.PRG 过程文件名：YMJ.PRG PROC S1 过程名：S1 PARAMETERS x,r 定义形参　s x x=3.14159*r*r r r RETURN PROC S2 过程名：S2 ? s RETURN 函数是能返回值的子程序。 FoxPro提供了200多个系统函数，自己建立的函数称自定义函数。 1、函数的定义： [FUNCTION 函数名] [PARAMETERS 参数表] 语句序列 RETURN 表达式 2、函数的调用 自定义函数名 （[参数表]） 参数定义相同： 用PARA语句说明，且为定义语句后的第一语句； 调用不同： 调用函数，直接调用函数名，括号中是实际参数。 调用过程，do...withpara，with后是实际参数。 函数有返回值 retu expr，过程无返回值。 练习： 【例】 子程序调用 *B.PRG *A1+A2+A3=? STORE 2 TO A1,A2,A3 A1=A1+A2 A1=4 DO B1 ? A1+A2+A3 RETU *B1.PRG A2=A2+2 A2=4 DO B2 A1=A1+1 RETU * B2.PRG A3=A3+2 A3=4 RETU TO MASTER 【例】过程调用 *y=1*2*3*4=? SET TALK OFF SET PROC TO SP 打开过程文件SP S=0 DO SP1 WITH 5,S 带参5，0调用SP1 ? S SET PROC TO RETU *SP.PRG PROC SP1 PARA X,Y X=5,Y=0