多语言展示
当前在线:693今日阅读:84今日分享:32

VFP中如何调用子程序

Visual FoxPro ,是Microsoft公司从Fox公司的FoxBase数据库软件经过数次改良,并且移植到Windows之后,得来的应用程序开发软件,主要用于开发数据管理与运算等方面的软件。VFP是Microsoft公司推出的最新可视化数据库管理系统平台,是功能特别强大的32位数据库管理系统。它提供了功能完备的工具、极其友好的用户界面、简单的数据存取方式、独一无二的跨平台技术,具有良好的兼容性、真正的可编译性和较强的安全性,是目前最快捷、最实用的数据库管理系统软件之一。那么VEP中如何调用子程序呢?今天就由小编我教教大家。
工具/原料

VFP

方法/步骤
1

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

2

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

3

*租赁单价的新建*do sdl25use .\dbf\kcwzcbjcopy struct to .\dbf\tempuseuse .\dbf\zydwmcdelete all for zldm=space(3)packusereturnproce sdl12

4

*租赁单价的添加*租赁单价的添加,原有的租赁单位已经存在租赁价格库,*但是中途中,又要租赁新添加的品种,就必须运行本程序use .\dbf\kcwzcbjcopy struct to .\dbf\tempusereturnproce sdl13*租赁单价的修改use .\dbf\kcwzcbjcopy struct to .\dbf\tempusereturn

5

如果我们在调用某方法或函数,要传递参数,在调用某方法中,应该这样写:do rzjjg in abc with ‘P30120',100而 abc.prg中应该有,rzjjg,并且它的第一个语句必须为para 参数1,参数2,。。。

6

『参数的个数与调用必须一一对应』func rzjjg &&计算日租金价格para x3,x2 &&x3:回送材料代码,X2:回送材料数量select 3seek x3x4=iif(found(),rzj*x2*djmj,0) && X4:日租金,djmj:单件面积(租金)select 4replace rzj with x4return .T.func cbjjs &&计算丢失价格para x1,x2select 3seek x1x4=iif(found(),cbj*x2,0)select 4return x4

推荐信息