VFP如何调用子程序

在腔绝码哗vfp中调用某方法,应该这样写：

do sdl11 in abc

而abc.prg中是存储过程的,如：

proce sdl11

*租赁单价的新建

*do sdl25

use .\dbf\kcwzcbj

copy struct to .\dbf\temp

use

use .\dbf\zydwmc

delete all for zldm=space(3)

pack

use

return

proce sdl12

*租赁单价的添加

*租赁单价的添加,原有的租赁单位已经存在租赁价格库,

*但是中途中,又要租赁新添加的品种,就必须运行本程序

use .\dbf\kcwzcbj

copy struct to .\dbf\temp

use

return

proce sdl13

*租赁单价的修改

use .\dbf\kcwzcbj

copy struct to .\dbf\temp

use

return

如果我们在调用某方法或函数，要传递参数，在调用某方法中,应该这样写：

do rzjjg in abc with ‘P30120',100

而 abc.prg中应该有，rzjjg，并且它的第一个语句必须为

para 参数1，参数2，。。。

『参数的个数与调用必须一一对应』

func rzjjg &&计算日租金价格

para x3,x2 &&x3:回送材料代码,X2:回送材料数量

select 3

seek x3

x4=iif(found(),rzj*x2*djmj,0) &&X4:日租金,djmj:单件面积(租金)

select 4

replace rzj with x4

return .T.

func cbjjs &&计算丢失价格

para x1,x2

select 3

seek x1

x4=iif(found(),cbj*x2,0)

select 4

return x4

以上的伍模姿均为本人商业软件《建筑机具租赁管理系统-VFP版》的一个很小很小部分。

参考资料：本人商业软件《建筑机具租赁管理系统-VFP版》

m的值取上面的值（跳到6）

!=以及m的值

return

&&。6定义一个子程序,y(接收主程序x=n。2清屏

m=1

&&.11际意义

return

&&，直到8的判断中x>

to

n

&&，使x=x-1!=".到6执行猛宏,y=m的值)

if

x>。13显示n=以及n的值

。3赋值1给m

input

",m

&&.9执行程序factz，你可以建立完程序之后调用程序调试器,n

&&，首先是9中的x>0执行

do

factz

with

x-1.

4用户输入一个数值n="：如果x>.7定义变量x，之后跳到下一步10）

store

x*y

to

y

&&,m

&&set

talk

off

&&1不成立。12返回上一层程序这里有几步次数?",y

&&,y

&&。上面的次数完了之后就回到13执行。15返回上一层程序

procedure

factz

&&，执行其中的跟踪，使y=x*y

endif

&&?"请输入n，看看下一步是哪里；

**

也即是每次运行到10-11-12就返回101执行了几次那么就返回到10几次。14显示n，一步步执行.8

判冲核断。10赋值，n:",y=y(从这里开始**1

&&。

其实n，存放散知掘到n中

do

factz

with

n。5执行程序factz.1关闭系统对话

clear

&&，具体次数由你输入的值决定，factz

parameters

x

---