默认情况下,vfp在调用子程序时采用什么方式

采用传址方式。

根据Visual FoxPro软件应用设置，在默认情况下，Visual FoxPro在调用子程序时采用传址方式。

vfp是Microsoft公司从Fox公司的FoxBase数据库软件经过数次改良，并且移植到Windows之后，得来的应用程序开发软件。

方法/步骤:

1.

首先在vfp中调用某方法,应该这样写:do sdl11 in abc

2.

而abc.prg中是存储过程的,如:proce sdl11

3.

*租赁单价的新建*do sdl25use .\dbf\kcwzcbjcopy s...

4.

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

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

---