m程序设计 2.过程调用 必须先打开过程文件,才可以调用过程文件中的过程。 打开过程文件: SET PROCDURE TO【过程文件名>] 调用过程 Do<过程名>[TH<参数表> &&实际参数 关闭过程文件:主程结束前必须关闭过程文件 SET PROCDURE TO CLOSE PROCEDURE FoxproForWindowshttp://cc.synu.edu.cn 6
FoxPro For Windows http://cc.synu.edu.cn 6 FoxPro程序设计 2．过程调用 必须先打开过程文件，才可以调用过程文件中的过程。 打开过程文件： SET PROCDURE TO [<过程文件名>] 调 用 过 程： DO <过程名> [WITH <参数表>] &&实际参数 关闭过程文件：主程结束前必须关闭过程文件 SET PROCDURE TO CLOSE PROCEDURE
m程序设计 【例531】调用过程文件 *主程序Main,prg 过程文件[ gcW. prg set talk off proc gc1 clear ?这是过程1,过程名为gc1 ?‘这是主程序! retu set proc to gci do gc1 proc gc2 do gc2 ?这是过程2,过程名为gc2 close proc retu retu 程序执行后的显示结果:这是主程序! 这是过程1,过程名为gc1 这是过程2,过程名为gc2 FoxproForWindowshttp://cc.synu.edu.cn 7
FoxPro For Windows http://cc.synu.edu.cn 7 FoxPro程序设计 【例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 这是主程序！ 这是过程1，过程名为gc1 这是过程2，过程名为gc2 程序执行后的显示结果：