Question

我在VFP6.0中运行 上面提示 找不到parameter语句

我的程序是 set talk off
close all
clear all
public p_strsql as string
public p_recnum as integer

set sysmenu to
set default to d:\vfp课程设计
modify windows screen title "图书管理系统"
do form 启动
read event
quit

我不知道该怎么改了
跪求高手帮忙！！！ 万分感激

Answer 1

parameters 命令
将调用程序传来的数据赋值给私有内存变量或数组。
语法
PARAMETERS ParameterList

参数
ParameterList
指定接收数据的内存变量或数组。
“ParameterLis”中的参数应用逗号分隔。PARAMETERS 语句中的参数数目至少应与 DO ... WITH 语句中的参数数目相同。如果 PARAMETERS 语句中所列的变量或数组数目比 DO ... WITH 语句传递的多，剩余的变量或数组就初始化为“假”(.F.)。最多可传递 27 个参数。
PARAMETERS( ) 函数返回传递给最近执行程序的参数数目。
说明
当 parameters 命令与 DO ... WITH 语句一起使用时，它必须是被调用程序、过程或用户自定义函数中的第一条可执行语句。
默认情况下，DO ... WITH 语句以引用传递方式向过程传递变量和数组。当一个值在被调用过程中更改时，新值传递回调用程序中相关的变量或数组。如果想以值传递方式向一个过程传递变量或数组，在 DO ... WITH 语句的参数列表中用括号把变量或数组括起来，这样，在被调用过程中对参数的任何更改都不传回调用程序。
默认情况下，变量以引用传递方式向过程传递，以值传递方式向一个用户自定义函数传递。使用 SET UDFPARMS TO REFERENCE 命令，能以引用传递方式向用户自定义函数传递变量。
示例：
on error do errhand with error( ), message( ), ;
message(1),program( ),lineno( )
use nodatabase
on error &&还原系统错误处理例程

procedure errhand
parameters gnerror, gcmess, gnmess1, gcprog, gnlineno
? 'error number: ' + ltrim(str(gnerror))
? 'error message: ' + gcmess
? 'line of code with error: ' + gnmess1
? 'line number of error: '+ ltrim(str(gnlineno))
? 'program with error: ' + gcprog

Answer 2

sdfs