Question

VFP如何调用子程序

我写了个小程序
……
Do **.xxx
……
请问 do 后面要加什么格式的文件才好调用~~~也就是xxx=?

Answer 1

在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版》