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

2、clear

?"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

??alltrim(str(i))+space(2)

s=s+i

endif

endfor

?"它们的和余郑是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显竖唯颂示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参山吵数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

---