二、进入 VFP 后 可以有以下方式进入:
1、点击菜单栏打开,然后在对话框下的下拉框中选中程序,然后点击你所要打开的程序就可以了。
2.在项目管理器中打开
在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版》
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)