VFP命令、函数及程序语句大全

1、VFP命令、函数及程序语句大全（1）VFP命令是一种实现对数据库系统进行操作的动词或短语。VFP命令可在VFP命令窗口中单独运行，也可编制成程序成批运行，由命令和函数编制的程序可对数据库系统进行自动、复杂的操作，使数据库系统应用起来更加友好、方便。¨ VFP常用命令分类表类别 命令 建立文件类 CREATE，MODIFY，COPY，SAVE等数据库操作类 USE,CLOSE,COPY,MODIFY STRUCTURE等 数据编辑类 BROWSE,EDIT,CHANG,REPLACE,UPDATE等 记录指针操作类 GOTO,LOCATE,SEEK,FIND,SKIP等 记录操作类 A

2、PPEND,DELETE,INSERT等 数据显示类 BROWSE,LIST,DISPLAY等 数据统计类 SUM,COUNT,AVERAGE,TOTAL等 存变量操作类 ACCEPT,INPUT,READ,SAVE等 程序控制类 DO，DO WHILEENDDO，IFENDIF等 系统设置类 SET TALK，SET DEFAULT TO等¨ 命令格式 VFP命令一般由命令动词和控制短语构成。一般格式命令动词FROM<源文件>TO<目标文件>记录范围FOR/WHILE<条件>FIELDS<字段名表> 表示可选，<>表示必选

3、， / 表示或选 例如：（1）APPEND FROM C:RSDA.DBF FOR 基本工资>100 FIELDS 编号,姓名,职称,基本工资。 从C:RSDA.DBF 表中把基本工资大于100元的记录添加到当前表添加字段为：编号，姓名，职称，基本工资。（2）COUNT FOR 职称="高工"TO GG 统计高工的记录数到内存变量GG。 控制短语规定了对数据库操作的限制条件：.指向输入输出目标FROM/TO APPEND FROM，COPY FILE TO <目标文件>2.限制记录范围（SCOPE）ALL 所有记录NEXT<n> 本记录后的第几

4、个记录 RECORD<1> 第1个记录REST 当前记录之后所有记录3.选择字段 FIELDS<字段表>选择输入/输出的字段。 4.限制条件 FOR/WHILE<条件> FOR 基本工资>100 .AND.基本工资<200¨ 命令格式规则 命令的行为单位，一行书写不完，在未尾加上“；”第二行接着写。 必须以命令动词开头,动词后的短语顺序不限。 命令中大小写字母等效 命令动词和关键字可以只写前4个字符。 不得用命令动词或关键字作为自定义变量、 函数、程序名。一.表结构的操作1创建表结构命令1：CREATE 路径表名例子：在A盘创建GZ2数

5、据表。CREATE A:GZ2命令2：CREATE 新表名 FROM 旧表名例子：在A盘由GZ1创建GZ3数据表。CREATE A:GZ3 FROM A:GZ1命令3：COPY STRUCTRUE TO 路径表名例子：在D盘生成一个与正在使用的表结构相同的新表文件MYCOPY STRUCTRUE TO D:MY2表结构的显示命令：LIST STRUCTURE DISPLAY STRUCTURE例子：显示当前数据表在结构。LIST STRUCTURE3表结构的修改命令：MODIFY STRUCTURE作用：显示表文件结构，并允许修改此表的结构说明：只有在用USE命令打开表文件以后，才能显示或修改

6、表文件的结构。例子：修改当前数据表的结构。MODIFY STRUCTURE二.表文件的打开和关闭1打开命令：USE 表名 INDEX 索引文件名 EXCLUSIVE例子：打开A盘GZ1数据表。USE A:GZ1例子：以独占方式打开当前表文件XXUSE XX EXCLUSIVE2关闭命令：USE例子：关闭当前打开的表。USE三.记录指针的定位1. 绝对定位命令：GOTO n|TOP|BOTTOM说明： n定位到第n条记录，TOP定位到最上面一条记录，BOTTOM定位到最下端一条记录2相对定位命令：SKIP +|-n说明：它以当前记录为基准前移（-）或后移（+）n个记录，不选任选项，则默认记录指针

7、后移一条记录。四.表数据的添加1记录的追加命令：APPEND BLANK例子：向当前数据表尾部追加记录。APPEND例子：向当前数据表尾部追加一条空记录。APPEND BLANK2记录的插入命令：INSERT BLANKBEFORE例子：在当前记录后插入一条空记录。INSERT BLANK例子：在第3条记录前插入一条记录。GO 3INSERT BEFORE3用复制方法建新表记录命令：COPY TO 新表名 范围FIELDS 字段表FOR 条件例子：把当前表中“应发合计”大于1000元的记录复制到新数据表GZ2中。COPY TO A:GZ2 FOR 应发合计>10004从其他表取数据命令：

8、APPEND FROM 表名 FOR 条件例子：把GZ1表中“应发合计”大于1000的记录复制到当前的表后面。APPEND FROM GZ1 FOR 应发合计>1000五.表记录的显示1浏览显示命令：BROWSE FIELDS 字段表FOR 条件例子：显示当前表中“应发合计”大于1000元的记录的职工编号、姓名、应发合计三个字段。BROWSE FIELDS 职工编号,姓名,应发合计 FOR 应发合计>1000说明：此命令的结果以浏览窗口的形式出现，具有修改功能。2显示输出 命令：LIST|DISPLAY OFF <范围> FIELDS <表达式表> WHIL

9、E <条件> FOR <条件> TO PRINT|TO FILE <文件>说明：（1）命令带OFF参数表示不显示记录号（2）范围指定对哪些记录进行操作，（范围包括：RECORD n ：第几号记录；NEXT n： 当前记录开始的几个记录；REST： 自当前记录开始至文件末尾的所有记录；ALL 所有的记录。不选范围则隐含范围为ALL）（3）字段名表指在结果中需要出现的字段名，字段名与字段名之间用逗号分隔。不带时指显示所有字段。（4）WHILE后跟条件，FOR后面也跟条件，区别是，WHILE后的条件如果满足，便停止查找；FOR后的条件查找所有满足条件的记录。（5）

10、TO PRINT和TO FILE <文件>分别表示将显示结果在打印机上打印出来和将显示结果输出到文件。（6）DISPLAY命令在显示记录满屏后，要求用户按任意键继续显示，并且在该命令中，如果省略范围仅显示当前记录。LIST不分屏，如果省略范围显示所有记录。六.修改记录内容1 编辑或修改的特定记录命令：CHANG|EDIT 范围FIELDS字段表FOR 条件 WHILE <条件>例子：修改第五条记录CHANGE|EDIT RECORD 52成批自动替换记录命令：REPLACE 范围 字段 WITH 表达式 FOR 条件例子：计算各记录“应发合计”字段的值。REPLACE

11、ALL 应发合计 WITH 职务工资+岗位津贴+保留奖金+保留津贴七.删除记录1逻辑删除命令：DELETE 范围FOR 条件 (打删除标记)2物理删除 命令： PACK （删除有删除标记的记录） ZAP （删除所有记录） 例子：删除“职工编号”空白的记录。DELETE ALL FOR 职工编号=""PACK八.数据表排序1物理排序，生成一个新的表文件。命令：SORT TO 新表名 ON 字段名 /A/D 范围FOR 条件例子：把当前表中记录按“应发合计”从大到小重新排序。SORT TO A:GZ3 ON 应发合计 /D2逻辑排序，生成一个索引文件。（一）标准索引文件：IDX

12、命令：新建索引：INDEX ON 字段名表达式 TO 索引文件名 同时打开：USE 表名 INDEX 索引文件名之后打开：SET INDEX TO 索引文件名重新索引：INDEX ON 字段名表达式 TO 索引文件名关闭索引：SET INDEX TO例子：对当前数据表以“应发合计”从大到小排列。INDEX ON -应发合计 TO GZ（二）复合索引文件：CDX命令：新建索引：INDEX ON 字段名 TAG 标记 ASCEDING|DESCENDING 同时打开：USE 表名 ORDER TAG 标记改变索引：SET ORDER TO TAG 标记重新索引：INDEX ON 字段名 TAG 标

13、记关闭索引：SET ORDER TO删除索引：DELETE TAG 标记例子：对当前数据表以“应发合计”从大到小排列。INDEX ON 应发合计 TAG HJ DESC九.查找记录1顺序查找命令：LOCATE FOR 条件 范围继续查找命令：CONTINUE例子：在当前的表中查找姓“张”的记录。LOCATE FOR 姓名="张"2.索引查找说明:根据当前的索引来查找记录。在使用命令前先要按准备查找的字段建立索引或排序命令：FIND 字符串 SEEK 表达式 用FOUND()检查找到否例子：在当前的表中查找姓“张”的记录。FIND 张SEEK "张"3.查

14、找函数说明: 在使用命令前先要按准备查找的字段建立索引或排序函数：SEEK()例子：在当前的表中查找姓“张”的记录。SEEK("张")十.统计数据表记录个数命令：COUNT 范围FOR 条件TO 变量例子：统计当前表中“应发合计”大于1000元的人数。COUNT FOR 应发合计>1000十一.数据表数值字段的求和命令：SUM 范围FOR 条件TO 变量例子：统计当前表中“应发合计”字段的总和。SUM 应发合计十二.算术平均值的计算命令：AVERAGE 范围FOR 条件TO 变量例子：统计当前表中“应发合计”字段的平均值。AVERAGE 应发合计十三.多功能计算命令：

15、CALCULATE 表达式 范围FOR 条件TO 变量例子：分别统计当前表中“应发合计”字段的人数、总和、平均值。CALCULATE CNT(应发合计),SUM(应发合计),AVG(应发合计)VFP命令、函数及程序语句大全（2）一.数值运算函数函数操作 例 结果 SQRT(x) 求平方根 SQRT（9） 3 INT(x) 取整数 INT（3.14） 3 ROUND(x) 四舍五入 ROUND(3.14159,4) 3.1416 MOD(x,y) 求X除以Y的余数 MOD(25,4) 1 MAX(x,y) 求X，Y中的最大值 MAX(7,8) 8 MIN(x,y) 求X，Y中的最小值 MIN(1

16、,2,3) 1二.字符中操作函数函数名 操作 例 结果UPPER（S） 小写字母 UPPER(abc) ABC LOWER（S） 大写字母 LOWER(ACD) acdLEN（S） 求字符串的长度 LEN("中国1号") 7AT(S1,S2） 在字符串S2，找字符串S1 AT("H","CHINA") 2SUBSTR（S,I,N） 在S字符串中的第I个字符起取N个字符 SUBSTR('TECHNOLO',3,3) CHNLEFT（S，N） 从字符串S左边取N个字符 LEFT（“中国人”，4） 中国 RIGHT（S，N）

17、 从字符串S右边取N个字符 S=12345RIGHT（S，3） 345SPACE（N） 生成N个空格 "合计"+SPACE(2)+"123" 合计123 TRIM（S） 消除字符串尾部空格 TRIM("姓名 ") 姓名ALLTRI（S） 消除字符串中所有空格 ALLTRIM（"李 丽"） 李丽STUFF（S1,N1,N2,S2) 用字符串S2替换S1中第N1个字符起的N2个字符 STUFF（"NOW",2，1,"E"） NEW& 宏替换 P=“G2”USE &

18、P USE G2三.日期和时间函数函数名 操作 例 结果 DATE（） 求当前日期 DATE() 2001/11/12 DATETIME() 求当前日期和时间 DATETIME() 2001/11/12/0：22：33am YEAR（D） 求年份 YEAR(DATE() 2001 MONTH（D） 求月份（数值） MONTH(DATETIME() 11 CMONTH(D） 求月份（字符） MONTH(DATETIME() Novenber DAY（D） 求日期 DAY(DATE() 12 DOW（D） 求星期几（数值） DOW（DATE（） 1 CDOW（D） 求星期几（英文） CDOW（DA

19、TE（） sunday TIME（D） 求当前时间 TIME（DATE（） 10:20:38am 四.数据类型转换函数函数名 操作 例 结果 ASC（S） 求第一个字符串的ASCII码 ASC("what") 87 CHR（N） 求ASCII码的字符 CHR(87) wSTR(R,L,D) 数值转换成字符，L为长度,D为小数位数 X=3.1415STR(X,6,2) 3.14VAL（S） 字符串转换为数值 VAL("123") 123.00CTOD（S） 字符串转日期 CTOD('11/01/2002') 11/01/2002DTOC（D

20、） 日期转换成字符串 DTOC(DATE() 11/01/2002DTOS（D） 把日期转成年月日式的字符串 DTOS(DATE() 20021101CTOT（C） 字符串转成日期时间型 CTOT(11/01/2002 10:30:50am) 11/01/2002 10:30:50amDTOT（D） 日期型转为日期时间型 DTOT(DATE() 11/25/2001 00:00:01amTTOC（T） 日期时间型转为字符型 TTOC(DATETIME() 11/25/2001 00:00:01amTTOD（T） 日期时间型转为日期型 TTOD(DATETIME() 11/25/2001IIF(

21、LE,E1,E2） 逻辑判断 IIF(A>0,"YES","NO") YES五.检测函数函数名 操作 例 结果 RECNO（） 检测当前记录号 RECNO（） 1 RECCOUNT（） 检测当前记录数 RECCOUNT（） 12 BOF（） 开始记录 BOF（） 1 EOF（） 最后记录 EOF（） 12 FOUND（） 返回查找结果 FOUND（） .T. ROW（） 返回当前行坐标 ROW（） 1 COL（） 返回当前列坐标 COL（） 1 SYS（N） 返回系统状态 SYS（13） 联机状态VFP命令、函数及程序语句大全（3）VFP提供一些简

22、单的程序设计语言命令， 包括赋值语句、控制语句、设置命令等，我们可根据某种功能的需要，利用这些命令及数据库操作的有关命令构成语句，分行存在文件中（称为命令文件，以 PRG为扩展名，在项目管理器中标为“程序”） 或一些对象的过程或事件处理程序中。 如被调用，系统将一条条顺序执行各行命令，如遇到控制语句（IF，DO，CALL，FOR等），依据控制语句的指定，转移到指定语句再一条条顺序执行。这些命令书写时， 每条语句应在一行中写完， 如不能写完，可用分号“；”结束，表示下一行继续。两条语句不能写在一行上。每条语句中命令字及选项中保留字大多数可只书写前四个字符。一般一个简单的VFP应用系统由若干模块组

23、成， 各自完成一定的功能，总的系统用一个总控模块去控制，通过它调用子模块，层层调用以实现全系统的功能。这种结构如图54所示。这种方式便于设计、调试，保证程序的正确性，也容易实现模块共亭，实现软件重用，提高程序设计效率。主模块可由主封面表单、主命令文件和主菜单文件构成；各个模块可由过程、自定义函数、表单、表单集、应用程序或子菜单等构成。一个表单或一个表单集中可有一到多个用户界面，可设置一到多个命令按钮及其他程序控件，用户可利用按钮及程序控件，产生特定的消息触发执行一个程序，完成一个功能。应用程序是对一个模块编译后的 APP执行文件，“过程”是由命令组成的程序，以RETURN语句结束，它可为另一个

24、程序所调用，调用执行时遇到RETURN语句将返回其调用程序。图 54 VFP程序总体结构一.变量赋值与显示语句在项目管理器中选“代码程序新建”或在命令框利用命令MODIFY COMMAND建立命令文件。1MODIFY COMMAND意义：创建命令文件。命令格式：MODIFY COMMAND 文件名例如：MODIFY COMMAND PROC1执行此命令后，将进入全屏幕编辑状态。 如原已建立了该文件proc1，将调出该文件在屏幕上显示，用户可对之修改。如是新文件，则用户可利用全屏幕编辑键，输入自己的程序。新文件将自动加上扩展名PRG。2DO意义：执行命令文件程序，有三种方法：在项目管理器中选“代

25、码程序选择程序名运行”。在主菜单中选“程序运行输入（选择）程序名运行”。在程序中或命令窗日中使用DO命令。命令格式：DO 程序名WITH 表达式表程序名可以是上述方式建立的命令文件（.PRG文件）、可执行文件（.EXE文件）、应用程序（.APP文件），及对.PRG文件编译后的文件（.FXP文件）。如调用DO命令时不带扩展名，则按.EXE文件、.APP文件、.FXP文件、.PRG文件的顺序查找同名程序并执行之。例如：DO PROC1此外，程序名还可能是菜单程序，调用时必须带扩展名（.MPR）。例如，有菜单程序MAIN.MPR，则可如下调出执行：DO MAIN.MPR程序名还可以是事件名或过程名。

26、其中表达式表由多个表达式组成，用逗号分开，在执行时首先计算各表达式的值，并带入被调程序，被调程序第一句应是LPARAMETERS形参表语句,形参表是以逗号分隔的多个内存变量名，其个数应等于调用时的表达式的个数，执行时，首先用调用语句中各表达式的值对应给它们赋值。例如：主程序中：DO PROC1 WITH “AB”，21被调程序：LPARAMETERS M1，X0执行时，首先完成赋值：M1=“AB”；X0=21，再往下执行。当使用DO运行一个程序时，包含在其中的命令一直执行，直到下列某一事件发生。遇到RETURN语句，返回到调用程序DO命令的下一句，遇到了CANCEL命令，返回VFP命令状态。遇

27、到QUIT命令退出程序并退出VFP；到达文件尾回到调用前状态；再遇到另一个DO命令，将转人新程序执行。3PUBLIC意义：设置全局性内存变量命令。格式：PUBLIC 变量名1，变量名2在不同程序或过程或事件中，同名内存变量的值不一定相同，如要将一个程序（过程、事件）中变量的值传到另一程序（过程、事件）中，可应用上述命令将它定义成全局变量。4PRIVATE意义：设置局部变量的命令。格式：PRIVATEALLLIKEEXCEPT 通配符内存变量表其中选项意义：ALL将所有内存变量说明为局部性变量，ALLLIKEEXCEPT 通配符将变量名能与通配符相匹配的内存变量说明为局部性变量。“ALL EXC

28、EPT通配符”将除了能与通配符相匹配的变量名之外的内存变量说明为局部性变量。在程序中，为了一个程序的运行结果不影响另一个程序的执行，不希望同名变量将值从一个程序带到另一个程序而造成干扰。为此，可将该变量定义成局部性变量。5DIMENSION意义：定义内存变量数组命令，VFP中可定义一维或二维数组。格式：DIMENSION 数组名（数字表达式1，数字表达式2），数组名2（数字表达式1，数字表达式2）每个数组的每个元素都可单独使用，如同一个内存变量，称为下标变量，下标起始值为1。例如，DIMENSION ARRAY1（8，20），X1（30）定义了两个数组，数组名分别为ARRAY1和X1，前一个数

29、组共有20×8160个元素：ARRAY1（l，l）、ARRAY1（l，2） ARRAY1（l，20），ARRAY1（2，1）ARRAY1（8，20）。对各元素也可用单下标取用其值，如用ARRAY1（l），ARRAY1（2）ARRAY1（160）也可访问该数组各元素，与前面双下标表示形式一一对应。6PUBLIC ARRAY意义：定义全局性内存变量数组。格式：PUBLIC ARRAY 数组名（数字表达式1，数字表达式2），数组名2（数字表达式1，数字表达式2）7=意义：赋值语句。将表达式的值赋值给一个内存变量。对变量赋值后，该变量类型也即确定为表达式返回值的类型。对一个变量可重复赋值，也

30、可改变变量的类型。但为了保证程序的清晰和结构完整，建议在一个系统中每个变量名应有确定的意义和数据类型。8STORE意义：同时对多个变量赋值命令。格式：STORE 表达式 TO变量1，变量2在程序运行时常要求用户输入控制参数或数据，实现此功能语句我们称为人机对话语句。在程序中如插入人机对话语句，用户可借助键盘输入参数或控制量赋值给变量。控制程序走向，或用于不同数据处理。在程序执行到这类语句时，将停止运行，在屏幕上显示命令中附注的提示信息，同时等待用户从键盘输入数据，赋给所指定的变量。完成赋值之后再接着运行下一条语句。在VFP中这类语句可在主控程序中或在调试程序时使用，在表单程序中使用文本框等各种

31、控件及消息框代替它们。9INPUT意义：输入各种类型数据赋给内存变量格式：INPUT “提示信息” TO 内存变量名本命令允许输入字符类型、数值类型、日期类型、逻辑类型等不同类型的数据，要求输入数据是字符类型时，数据两端要加定界符，例“张平”；输入数据是日期类型时，要按MM/DD/YY或设定的格式，例12/21/00；逻辑类型按.T.、.F.格式。用户输入还可以是包括变量名及函数在内的表达式，但变量必须是己赋值的，表达式是可以计算出确定值的。用户输入完后回车表示输入结束。例：INPUT“请输入初始日期：” TO D1屏幕上显示：“请输入初始日期：”，光标在此句之后。用户可输入05/10/96。

32、此时用户如果执行命令：？D1屏幕上将显示：05/10/9610ACCEPT意义：输入字符串赋给变量。格式：ACCEPT“提示内容”TO内存变量名该命令和INPUT命令区别有两点：输入数据均被视为字符类型。输入数据两端不需加定界符，如加了定界符，定界符被视作字符串的一部分。11WAIT意义：接收单个字符赋给变量，或中断程序，按任意键后继续。格式：WAIT “提示信息” TO 内存变量名该命令与ACCEPT命令不同点在于只接收从键盘输入的一个字符，用户输入一个字符后无须回车。该命令也可用在VFP表单程序的某个事件中， 用于中断该事件的执行，让屏幕显示程序运行的中间结果，按某个键或单击鼠标后再继续执

33、行。12GET意义：格式化输入数据，给内存变量赋值或修改表中当前记录字段内容。格式： 行号，列号 GET 内存变量名或字段名FUNCTION功能代码PICTURE格式代码DEFAULT表达式MESSAGE提示信息RANGE输入值范围下限，输入值范围上限SIZE文本框高度，文本框宽度VALID 条件表达式该命令可用于对内存变量赋值，也可用于修改当前打开表中当前记录中指定字段的内容。如对内存变量赋值且省略DEFAULT选项,在使用此语句时，必须已对该内存变量赋值。否则按此选项中表达式对内存变量初始化。本命令执行后只显示内存变量或字段当前值，要到执行命令“READ”时，此语句方被激活，程序停止执行，

34、等待用户从键盘输入数据，直待回车后才继续执行。行号、列号为当前窗口中字符行和列的位置号。行号与列号允许是小数。FUNCTION选项用于对输入内容限制或变化。功能代码：A：只允许输入内容由字母字符组成，包括不允许空格和标点符号。B：数值数据左对齐，默认格式为右对齐。I：文本居中对齐。J：文本右对齐，默认为左对齐。Sn:限定文本框中字符个数为n。如S20。T：去掉前导和后缀空格。Z：当数值数据值为0时显示空格。！：把字母字符转换为大写。PICTURE选项用于限定输入数据的字符类型及大小。功能代码例：A：该位为字母或数字L：只允许逻辑数据。N：该位为字符或数字。X：任何字符。I：该位为数字，或数值数

35、据中的符号。-：标明小数点位置。，：用逗号分隔左右数字。!:将小写字母转换为大写字符。例：3，10 GET x1 DEFAULT 0 PICTURE“999999”此时在屏幕第3行的第10列位置显示方框，其中内容为DEFAULT规定的初始值000，如再发出命令：READ， 将光标落在尚未激活的第一个方框上等待输入，只能输入数字和符号，且整数部分不多于4位，小数部分不多于2位，否则将提示“请您重新输入”。RANGE、VALID两个选项用于保证数据完整性，输入数据必须在预定范围内，满足条件表达式要求时，才可完成赋值操作。本语句还有设置字体、字形和颜色的选项。在VFP中， 综合上述人机交互命令尤其是

36、 GET命令的功能和特性，设计了文本框、编辑框等类和控件，便之应用更加方便、简单，我们将在下一章中介绍。程序运行结果一般由输出语句使其显示在屏幕上或输出到其他地方，输出语句可将数据输出到屏幕上显示也可传送给打印机或传送存入到其他文件中。屏幕显示语句在VFP中一般用在主控程序或调试程序时使用。在表单程序中使用各种控件、消息框代替它们。13？|?意义：计算表达式表所指定的各表达式的值，并显示在屏幕上。格式：？表达式1，表达式2用？时，从下一行第一列起显示结果。用？时，从当前行当前列起显示结果。14SAY意义：格式化输出语句。格式：行号，列号 SAY表达式FUNCTION功能代码 PICTURE格式

37、代码SIZE高度，宽度有关选项的意义与GET命令相似，此外还有关于字体，颜色设置的选项。若发出有SET DEVICE TO PRINTER命令，输出到打印机，否则输出至屏幕上显示。本语句常与 GET语句合用，合用时，行号、列号指SAY内容显示所在行、列号，GET变量内容框将放置在SAY内容之后。二.程序控制命令1IFENDIF命令意义：分支条件语句，根据逻辑表达式的值，有选择的执行一组命令。根据条件表达式的值是.T.还是.F.控制程序流向。格式：IF 条件表达式语句序列1ELSE语句序列2ENDIFIF条件表达式语句是条件语句的开始， ENDIF语句是条件语句的终止。语句序列是若干条顺序执行的

38、语句。执行时首先计算条件表达式的值，如结果为“真”（.T.）则执行语句序列l，执行完后退出该语句。如条件表达式不满足，且有ELSE语句和语句序列2，则执行语句序列2。其程序流程图如图55所示。图55 分支结构程序流程图图5.6 主控模块程序流程图在一个分支控制语句块中可以嵌套另一个IFENDIF语句块。【例5.7】主控模块的程序程序流程图如图5.6所示。编写程序清单如下：CLEAR &&清屏幕 5,27 SAY “设备管理系统” 7,36 SAY “主菜单”10,21 PROMPT “1.各种查询、屏幕修改”+SPAC(16)11,21 PROMPT “2.数据编辑”+SPAC

39、(26)12,21 PROMPT “3.资产统计”+SPAC(26)13,21 PROMPT “4.报表打印”+SPAC(26)14,21 PROMPT “5.系统维护”+SPAC(26)MENU TO m_choic &&等待用户输入IF LASTKEY()=27 &&按Esc键返回VFPRETURNENDIFIF m_choic=1DO sbcx_sc.sprELSEIF m_choic=2DO sjbj_sc.sprELSEIF m_choic=3DO zctj_sc.sprELSEIF m_choic=4DO bbdy_sc.sprELSEIF m_ch

40、oic=5DO xtwh_pgENDIFENDIFENDIFENDIFENDIFRETURN2CASE意义：分情况语句，当求解一个问题存在多种情况，如要求对不同选择执行不同的语句序列，可采用分情况语句。该语句一句中列出许多语句成分，每个语句成分给出一个条件表达式，每次只根据具体条件找出第一个条件表达式值为.T.的语句成分，执行该成分语句中的语句序列后退出该语句。命令格式：DO CASECASE条件表达式1语句序列1CASE条件表达式2语句序列2CASE条件表达式n语句序列nOTHERWISE语句序列n+1END CASE执行该语句时，系统逐一计算条件表达式1的值，条件表达式2的值只要有一个条件

41、表达式的值为.T.则执行其后语句序列， 执行它后退出本分情况语句。如到条件表达式n的值仍均为.F.又有OTHERWISE成分， 则执行语句序列n+l，其程序流程图如图57所示。仍如上面主控程序的例子，程序可设计为：CLEAR &&清屏幕 5,27 SAY “设备管理系统” 7,36 SAY “主菜单”10,21 PROMPT “1.各种查询、屏幕修改”+SPAC(16)11,21 PROMPT “2.数据编辑”+SPAC(26)12,21 PROMPT “3.资产统计”+SPAC(26)13,21 PROMPT “4.明细报表打印”+SPAC(22)14,21 PROMPT “

42、5.系统维护”+SPAC(26)MENU TO m_choic &&等待用户输入IF LASTKEY()=27 &&按Esc键返回VFPRETURNENDIFDO CASECASE m_choic=1DO sbcx_sc.sprCASE m_choic=2DO sjbj_sc.sprCASE m_choic=3DO zctj_sc.sprCASE m_choic=4DO bbdy_sc.sprCASE m_choic=5DO xtwh_pgENDCASERETURN图57 CASE结构程序流程图从上面两段程序可见，对于同一个问题，用DO CASE ENDCASE

43、 语句比IFENDIF语句要简洁了并且逻辑关系清晰，因此不容易出错。在分情况语句中也可嵌入分支条件语句及分情况。它本身也可嵌入到分支条件语句中去使用。在对数据表中数据时，常常每条记录被处理的过程是一样的，处理语句也就大体相同，如果表中有多少记录就写多少条语句是十分困难的，为避免重复书写，可使用循环。3DO WHILEENDDO意义：循环语句，可使多次重复执行同一组语句。格式：DO WHILE条件表达式语句序列LOOPEXITENDDO其中“DO WHILE条件表达式”语句称为循环起始语句，“ENDDO”语句称为循环结束语句，进入此命令时首先检查条件表达式的值是否为真（.T.）。如果是真，则执行

44、语句序列，然后再判断条件表达式的结果，如仍为真，则继续下去。如果为假（.F.）则退出循环，执行ENDDO后面的语句。如果进入本命令一开始，条件表达式的值为假，则语句序列一次也不执行，就直接转入执行ENDDO后面的语句。其中LOOP意义为结束本次循环，返回循环体开始。EXIT意义为结束循环，转入执行ENDDO后面的语句。LOOP语句和EXIT语句一般用在分支条件语句中，因而语句格式为：DO WHILE 条件表达式1语句序列1IF条件表达式2LOOPELSE语句序列2ENDIFIF条件表达式3EXITELSE语句序列3ENDIFENDDO其程序流程图如图58所示。在使用时必须保证经有限次循环后条件

45、表达式1应变为假或条件表达式3的值应变为真，使退出循环。否则就可能成为死循环。在条件表达式中的变量称循环变量， 在数据库中循环变量可能是内存变量，也可能是表中的指针。必须注意在每次循环过后，循环变量的值都要改变并且是向最终使条件表达式1的值为假或条件表达式3的值变真的方向变化，否则就无法满足前述退出条件。在VFP中有两类特殊用法。（1）循环变量是指针。 该用法中有两种结构指针首先指向第一条的DO WHILE结构如图59所示。指向满足条件记录的第一条的DO WHILE结构如图510所示。图58 DO WHILEENDDO结构程序流程图图59 指针做循环变量开始指向第一条时的DO WHILE结构流

46、程图图510 指针做循环变量开始指向满足条件记录的第一条时的DO WHILE结构流程图格式1：图59实现的语句。USE（表名）SELECT工作区别名 GO TOPDO WHILE NOT EOF（）语句序列SKIPENDDO在本格式中，循环变量是表中指针，首先让指针指向表的第一条记录，如果不是文件尾，则执行语句序列之后让指针下移一条，再返回判断指针是否指向文件尾。这样一直继续下去直到指针指到最后一条记录的后面，循环结束。【例58】在学生表中有少数学生更换了班级，现要求在屏幕上一屏一屏地显示每个学生的数据，并提问是否修改班级名称， 如回答“Y”，则提供修改框。SET TALK OFFUSE学生K

47、EY“Y”GO TOPDO WHILE NOT EOF（）3，10 SAY“姓名：”姓名5，10 SAY“班级：”班级7，10 SAY“出生日期：”DTOC（出生日期）9，10 SAY“是否修改，YN？GET KEYREADIF UPPER（KEY）=“Y”11，10 SAY“请输入改后班级名称” GET 班级READENDIFSKIPENDDOUSESET TALK ON格式2：如果只按某个条件查看记录，则可用查找语句开始。图510实现语句：LOCATE FOR条件表达式DO WHILE NOT EOF（）语句序列CONTINUEENDDO例58中如只查99级学生，显示其姓名则：LOCATE

48、 FOR “99”班级DO WHILE NOT EOF（）？姓名CONTINUEENDDO（2）当于DO UNTIL的循环结构。有些循环要在执行部分语句之后再根据一个条件表达式判断是否结束，此时循环条件可用常量.T.，见图511所示。图511 DO UNTIL结构程序流程图语句格式：DO WHILE .T.语句序列IF 条件表达式EXITENDIFENDDO【例59】求编写学生表录入新数据的程序，每次录入一条记录，之后提问是否继续，如回答不是“Y”，就停止录入。SET TALK OFFUSE 学生KEY“ ”DO WHILE .T.APPEND BLANK3，10 SAY“姓名：” GET 姓

49、名5，10 SAY“班级：” GET 班级7，10 SAY“出生日期：”GET 出生日期READ9，10 SAY“否继续？YN？” GET KEYREADIF UPPER（KEY）<>“Y”EXITENDIFENDDOUSESET TALK ON此语句由用户输入Y或N控制程序结束。上述第一、二两种格式可以用等价的SCAN循环取代。4SCANENDSCAN循环语句意义：在数据表中循环检查或处理一条条记录。命令格式一：SCAN语句序列ENDSCAN此句等价于前述格式1的语句。命令格式二：SCAN FOR条件表达式语句序列ENDSCAN本语序等价于前述格式2的语句。有一些循环次数是一定的

50、，或者循环变量的值在每次循环中增加的量是相同的，则可应用FOR循环。5FORENDFOR循环语句命令格式：FOR内存变量=初始值 TO 终了值STEP 增量语句序列ENDFOR此循环以某个内存变量为循环变量，进入循环时首先给它赋初始数值，只要不超过终了值，则执行语句序列。STEP语句为可选项，指示在每次循环后循环变量的增加量。 前面执行语句序列之后，将循环变量值增加增量的值，再判断是否超过终了值，这样继续下去直到超过终了值。增量可为正值也可为负值,省略时默认值是1。如增量为正，则当循环变量大于终了值时，循环结柬。如增量为负，则每循环一次，循环变量均减小，减少到小于终了值时循环结束。例58中修改

51、班级名的程序也可写为：SET TALK OFFUSE 学生KEY“ ”NRECCOUNT（）记录总条数FOR I=1 TO N3，10 SAY“姓名：”十姓名5，10 SAY“班级：”十班级7，10 SAY“出生日期：”DTOC（出生日期）9、10 SAY“是否修改班级名，YN？” GET KEYREADIF UPPER（KEY）=“Y”11，10 SAY“请输入改后班级名称” GET 班级READENDIFENDFORUSESET TALK ON使用相对指针，如果打开索引，或某些录入、修改、查询操作使当前指针位置改变都可能引起错误。不如本例中采用物理地址，比较可靠。【例510】要求输入N个学生的总分X， 按总分分成优、良、及格、不及格四个等级，统计每个等级的人数。等级划分标准为：90100分为优，7589分为良，60-74分为及格，59分及以下为不及格。SET TALK OFFDIMENSION M(4)定义数组STORE 0 TO MM所有元