计算机等级考试复习资料2.pdf

《计算机等级考试复习资料2.pdf》由会员分享，可在线阅读，更多相关《计算机等级考试复习资料2.pdf（127页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、计算机等级考试复习资料VFP常用编程命令及常用函数常用编程命令及常用函数注：在语法中如用方括号”括起来的词句，表示可以不用。常用命令假设(if.endif)循环(do while.enddo)分支(do dcasc)返回调用程序(return)开关命令执行状态(set talk on/ofT)赋值(store.to)调用表单(do form)启动事件处理(read events)结束程序(cancel)调用子程序(do)清除事件处理(clear events)常用函数数值转换字符(str()字符转换数值(val()取系统日期(date。)取天日(day。)取月份(month。)取年份(year

2、。)取整(intO)四舍五入(round。)删除标记(delete。)找到记录(found。)记录数(reccount。)记录号(recno()表结尾(eof()消除前导空格(ltrim()表开头(bof()消除后续空格(trim()假设语句根据一逻辑表达式的值，有条件的执行一组命令。语法:IF逻辑表达式THEN程序组1ELSE程序组2ENDIF参数:建 簿走赵太代表一逻辑值，如果这逻辑值为真，系统执行程序组1,否则不执行程序组1,如果有else及程序组2的话，则执行程序组2,如没有则什么也不执行，直接执行endif后面的语句。备注:在if.endif之间还可以有if.endif,即该命令是可

3、以嵌套的。then可以有也可以没有，对程序没有影响。else及程序组2可以有也可以没有，但如果有的话，在逻辑表达式的值为假时，程序组2将被执行。i f与endif必须配对使用，即有一个i f必须有一个e n d if,否则程序会出错。举例:例1：假如分数字段的值大于等于9 0,则让等级字段的值为“优”，并显示该记录。程序如下：i f分数=90replace 等级 with优，displayendif例2：在数据库中可以把性别字段设为逻辑型，“真”代表“男”，“假”代表“女”，但显示时不能显示真、假，否则别人看不懂，而应显示男、女，因此我们设一变量x b,根据性别字段的具体值，将x b的值设为男

4、或女，然后在需要的时候显示xb的值即可。程序如卜.：i f性别xb=男 elsexb-endif其中第一句：i f 性别，表示“假如性别为真”的意思，不要写成“i f 性别=.t.”。以上程序也可以写成如下形式，效果相同：if.not.性别x b*elsexb=Wendif即，假如性别不为真的话，xb的值就为女，否则为男。循环语句(do while.enddo)根据条件重复执行组程序。语法:DO WHILE l E xpressi onC omma n dsLO O P E XI T ENDDO参数:l E xpressi on为一逻辑表达式，其值如果是“真，即执行c omma n ds程序组

5、，如果表达的值为 假”，则跳过该段程序组，执行enddo后面的语句。C omma n ds当表达式E xpressi on值为真时所要执行的程序组。L O O P此 为 do while.enddo命令的一个子句，它可以放在c omma n ds程序组中间的任何地方，当程序一旦执行到该子句时，则返回do while重新执行。此子句根据需要可以有，也可以没有。E XI T与 loop一样 是 do while.enddo命令的一个子句，它可以放在c omma n ds程序组中间的任何地方,当程序一旦执行到该子句时，则跳出循环，执行enddo后面的语句。此子句根据需要可以有，也可以没有。备注:程序

6、一旦执行到do w hile语句，如 果 E xpressi on的值为真，则执行c omma n ds程序组，该程序组执行完后，就到enddo语句，enddo会将程序返回do w hile再次验证l E xpressi on是否为真，如仍是，则乂,次执 行c omma n ds,如此循环往复，直 到l E xpressi on为假，或遇上ex it语句。该语句可以嵌套，即循环中还可以有循环。do w hile与enddo必须配对使用，即有一个do w hile必须有一个enddo否则程序会出错。举例:例1：在数据库中不断将记录指针往下移，直到数据库结尾。程序如下：do while.not.e

7、of()skipenddo例2：在上面的例子加入此功能，当遇到性别字段为“女”时，跳出循环。程序如下：do while.not.eoR)i f性别日女exitendifskipenddo例3：不断将记录指针往下移,当遇到数量字段的值大于等于600时退出循环,如遇到值小于400的,将其值乘2,然后再检验一次是否大于6 0 0,如是则退出循环。程序如下：do while 数量 600i f数量 400replace 数量 with 数量*2loopendifskipenddo分支语句（do dcasc）根据不同的条件执行不同的程序组。语法:DO CASECASE逻辑表达式1程序组1CASE逻辑表达

8、式2程序组2CASE逻辑表达式程序组nOTHERWISE程序组01ENDCASE参数:CASE逻辑表达式程序组.当程序执行到do case时，便检验第一个case的逻辑表达式（逻辑表达式/）是否为真，如不为真，接着检验第二个case的逻辑表达式，以此类推直到谡摩表送式。当检测到第一个为真的逻辑表达式时，便执行跟随在其后面的程序组，执行完后跳过后面所有的case,接着执行endcase后面的语句，也就是说即使后面还有为真的逻辑表达式也不执行了。如果所有case后面的逻辑表达式都为假，则执行otherwise后面的程序组（如果有的话，otherwise及其程序组是可以没有的，如果没有则什么都不做，

9、直接执行endcase以后的程序）备注:在do case和endcase之间可以有任意多个case。do case和cndcasc必须配对使用，即 有 个do case必 须 有 个cndcase,否则程序会出错。举例:如果工资在200元以下，增加50%；300元以下，增加30%；500元以下，增加20%；其它增加10%。程序如下：do casecase 工资 v=200replace 工资 with 工资*1.5case 工资v=300replace L 资 with 工资*1.3case 工资v=500replace 一 匚 资 with 工资*1.2otherwisereplace.匚

10、资 with 工资*1.1endcase在这里要注意一个问题，不能把300元 的ease放在200元之前，否 则 个100元的，按理应加5 0%,但当遇到小于300元 的case时，其逻辑表达式为真(小于200元的肯定小于300元)，因此就会执行后面的程序，加3 0%,并且执行完后，就不再执行其它的case 了，这样就产生了错误的结果，所以应按从小到大的顺序来排列。赋值语句(store.to)将一个数据赋给一个变量。语法:STORE表达式T O变量名表参数:走赵一式的值即为要赋给变量的数据。变膏名表W为要被赋值的各变量。在这里可以是一个变量，也可以是多个变量，如果有多个变量，其间用,”(逗号)

11、隔开。备注:如果是给个变量赋值，该语句可写成如下形式：变量名=表达式表达式可以是一个数值，也可以是一个算术式。举例:例 1：将 3 赋给ab、xyz、jfz三个变量，程序如F：store 3 to ab,xyz,jfz例 2：将变量g z的值加10()赋给y短z。程序如下：yfgz=gz+100调用表单语句运行一个由表单设计器设计的表单文件。该文件是经编译过的。语法:DO FORM 表单文件名NAME变量名LINKED参数表图文岸名即是要运行的由表单设计器设计的表单文件名称。支鬓名为调用该表单所用的变量名称，做为表单，不能直接用这的名称去调用它，必须将其赋给一个变量,然后用这个变量来调用它。如

12、果您不会在这个表单之外调用它，也可以不要这个变量。在程序中产生的所有变量在程序运行结束后将被释放，即这些变量不再存在，因此也就无法继续调用这些变更，如果为了调试程序需要在程序运行结束后在命令窗口中调用这个表单，必须加上linked子句。举例:在程序中调用xy7表单，并将赋给一个变量lucky,程序如下：do form xy7 name lucky调用子程序语句(do)运行一个VFP程序。当我们要在一个程序中调用另一个程序(子程序)时使用此命令。语法:DO程序名参数:瘗旅名即为被调用的程序名称。备注:如被调用的程序的扩展名是“prg”，调用时可不用带扩展名，否则要带上扩展名。举例:有一个程序，名

13、称为xy7.prg,调用它的程序如下：do xy7返回调用程序语句(return)返回调用本程序(该语句所在程序)的程序。前面讲过调用子程序的语句，从一个程序A 调用另一个程序B 后，系统便开始执行B 程序中的语句，到一定时候往往要从程序B 返|同程序A,便可使用该语句。语法:RETURN备注:程序A 调用程序B,当从B 返回A 后，系统接着执行调用语句(dob)卜.面的一条语句。举例:程序a.prg如下:do while.not.cof()i f 工资 100do bendifskipenddo程序b.prg如下：replace工 资 w ith工资*1.5&将工资增加50%display&

14、显示出该记录，这样可以将所有增加了工资的记录显示出来return首先执行程序a.prg,当程序执行到do b 语句时，便转去执行程序b.prg,在程序b 中执行到return语句时，又返回程序a,并接着执行d o b 的下一条语句endif o启动事件处理语句(read events)启动VFP的事件处理程序。语法:READ EVENTS备注:当该命令执行后，系统即停止继续执行后续的语句，这时我们可以调用之前所启动的菜单、表单等对象，并用这些对象的事件程序去完成相应的任务，直到发出clear events命令，系统才接着执行read events后面的命令语句。可能初学者看了上面的内容还不是很

15、清楚，不要紧，我们在后面课程中会进一步讲解。清除事件处理语句(clear events)终止由read events语句启动的事件处理程序。语法:clear events备注:发出该命令后，系统将继续执行read events之后的语句。开关命令执行状态语句(set talk on/off)确定是否显示VFP命令执行的状态。语法:SET TALK ON|OFF参数：O N显示VFP命令执行的状态。O FF不显示VFP命令执行的状态。备注：使用时，on、o ff二者之中必须选择一个。很多VFP命令执行后，会显示执行后的结果状态，如locate fo r命令执行，如找到记录的会显示被找到的记录号，

16、否则会显示“已到文件尾“，但般我们在程序中是不需要这些显示的，比如找到了记录就直接显示出来，没找到一般用一个对话框来给出更清楚的提示，所以在程序一开始往往要将set talk关闭。结束程序语句(cancel)结束当前正在运行的所有程序，返回VFP或操作系统。语法:cancel备注:数值转换字符函数(str()返回与指定数值表达式对应的字符。语法:str(教弦表送丸 长久小数位数返回值的类型字符型参数:数值表达式:要被转换为字符的数值表达式。长度：转换后字符的长度。该长度等于小数点和小数点右边第个数字所占字符的数目总和。如果指定长度大于所需长度，自动在前面加空格补齐。如果指定长度小于所需长度，返

17、回一串星(*)号，表示数值溢出。如省略长度，则默认长度为10。小数位数:指定返回字符串中的小数位数。如指定位数小于实际位数，则返回值四舍五入。如指定位数大于实际位数，则加0补齐。如省略小数位数，默认为0。在指定了小数位数的情况下，如指定长度(第二个参数)小于总长度，但大于整数长度，则返回对小数部分做了四舍五入的字符。备注:返回后的值看起来还是数的形式，但它的数据类型已经变了，不再是一个数值，也就是不能再用来做加、减、乘、除的算术运算，但可以和字符进行加减。比如：?季度+1就会出错，因为个字符是不能和个数值相加的。写成如下形式就可以了：?季度+str(l,l)结果是：季度1注意，这里一定要指定长

18、度，否则由于默认长度是1 0,就会出现如下结果：季度 1假如不知道数值有几位数怎么办呢？请参见ltrim()函数。字符转换数值函数(val()将数字组成的字符表达式转换成数字值。语法:字符表达中返回值的类型数值型参数:字符表达式:要被转换为数值的字符表达式。该表达式由最多16位的数字组成，若超过16位，则对其圆整。备注:val（）函数从左到右返回字符表达式中的数字，直到遇到非数值型字符（忽略前面的空格）时为止。若字符表达式的第一个字符不是数字，也不是正、负号，则返回0。举例:a=123如果按下面的写法，就会出错，因为一个字符不能与一个数值相加：?a+3写成如卜形式便可以了：?val（a）+3结

19、果是126o取系统日期函数（date。）返回由操作系统控制的当前系统日期。语法:date（）返回值的类型日期型取年份函数（year。）从指定的日期表达式中返回年份。语法:year（日期表达式）返回值的类型数值型参数:日期走赵工G指定的日期表达式，该函数即是返回其年份值。举例:?year(date()如果当前的系统日期是1999年2月5日，则显示的结果为1999。取月份函数(month。)从指定的日期表达式中返回月份。语法:month(日期表达式)返回值的类型数值型参数:厅购关送式：指定的日期表达式，该函数即是返回其月份值。举例:?month(date()如果当前的系统日期是1999年2月5日，

20、则显示的结果为2。取天日函数(day。)以数值型返回日期表达式是当月的第几天。语法day(日期表达式)返回值的类型数值型参数:日期麦米式：指定的日期表达式，该函数返回该日期是当月的第几天。举例:?day(datc()如果当前的系统日期是1999年2月5日，则显示的结果为5。取整函数（int（）返回数值表达式值的整数部分。语法:冰（数值表达式）返回值的类型数值型参数:魏 成 趣 式：指定的数值表达式，该函数返回其整数部分。举例:?int（123.47）结果是123o四舍五入函数（round。）对指定表达式进行四舍五入运算，并把结果返回。语法:round（教澹隆送式，小数位数）返回值的类型数值型参

21、数:数值表达式,指定的数值表达式，该函数返回其四舍五入后的值。小初.数：保留的小数位数。举例:?int（123.457,2）结果是123.46 o删除标记函数（delete。）确定当前记录是否一做删除标记，若一做删除标记，返回真(.)，否则返回假(.)。语法:delele(表 切%Z作 出返回值的类型:逻辑型参数:表别名 工作区:该参数指定所要确定的表的别名或所在工作区，即您可以在一个工作区去检测另一工作区的表的记录是否做了删除标记，而另一工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作区，如有该参数的话，别名或工作区只选一个。记录号函数(recno()返回当前表或指定表中的

22、当前记录号。语法:tecno汽表别名 工作区返回值的类型:数值型参数:表别名 工作区:该参数指定所要确定的表的别名或所在工作区，即您可以在一个工作区去得到另一工作区的表的当前记录号，而另一工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作区,如有该参数的话，别名或工作区只选一个。记录数函数(reccount。)返回当前表或指定表中的记录数目o语法:reccount(表 掰 Z作国)返回值的类型:数值型参数:发别名工作区、该参数指定所要确定的表的别名或所在工作区，即您可以在个工作区去得到另工作区的表的记录数，而另一工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作

23、区，如有该参数的话，别名或工作区只选个。找到记录函数(found。)如果locate continue seek等查找记录的命令成功(即找到了记录),该函数返回“真”(t),否则返回“假”(.)。语法:found(表物名)_77作区|)返回值的类型:逻辑型参数:关切名1 上作便：该参数指定所要确定的表的别名或所在工作区，即您可以在个工作区知道另一个工作区上次查找记录是否找到，而另一工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作区，如有该参数的话，别名或工作区只选一个。举例:locate fb r姓名士庄稼，?found()如找到记录，显示结果为.，否则为.。表结尾函数(eo

24、f()确定记录指针是否在表的结尾处。语法:eof(表别名工作区D返回值的类型:逻辑型参数:表别名 工作区:该参数指定所要确定的表的别名或所在工作区，即您可以在一个工作区知道另一个工作区表的指针是否在尾部，而另工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作区，如有该参数的话，别名或工作区只选一个。备*上:这里所说的结尾处，并非是指最后一个记录，而是最后一个记录的后面，即没有记录。举例:go bottomskip?eofO显示结果为t。如果没有sk ip,仅仅走到最后一个记录，返回的将是而必须再往下跳一下才会是“真”结尾。此时如输入命令：display,则没有记录显示。这一点与

25、bof()函数不同。表开头函数(bof()确定记录指针是否在表的开头。语法:bof(表 别 名 作 区)返回值的类型:逻辑型参数:表别符工作区:该参数指定所要确定的表的别名或所在工作区，即您可以在一个工作区知道另一个工作区表的指针是否在开头，而另一工作区的表可用其别名或工作区号来指定。该参数如省略，隐含为当前工作区，如有该参数的话，别名或工作区只选一个。备注:这里所说的开头，并非是指第一个记录，而是第一个记录的前面。举例:go topskip-1?bof()显示结果为t。如果没有Skip-1,仅仅走到第一个记录，返回的将是而必须再往上跳一下才会是“真”开头。但与eof()函数不同,此时如输入命

26、令display,将显示第一条记录。消除后续空格函数(trim。)将字符表达式的后续空格全部删除，并将结果返回。语法:trim(字符表达式)返回值的类型:字符型参数:字符表达式:指定的字符表达式，该函数将删除其后续空格。备注:trim。函数等同于rtrim()函数。举例:如表的“姓名”字段长度为1 0,当前内容为“张三”，那么如卜 语句：?姓名+先生：其显示结果是：张三先生：而语句：?trim(姓名)+，先生：显示结果是：张三先生消除前导空格函数(ltrim()将字符表达式前面的空格全部删除，并将结果返回。语法:trim(字符表达式)返回值的类型:字符型参数:完殍走赵三靠指定的字符表达式，该函

27、数将删除其后续空格。举例:在讲史。函数时我们举过个例，即把个字符与一个数值相加时，应采用如下形式：?季度str(l,l)但是当我们没有办法确定这个数值的位数时，这个办法就行不通了，您不可能规定它的长度只能是1或2等等。那么怎么办呢，采用ltrim()函数可以解决了：?项 RT+ltrim(str(sz)这里假设事先已有一个数值存入了 sz变量，但不知道这个数值是几，也就更不知道有几位数，那么在隐含状态下，str()函数将把sz转换为长度为10的字符，其前面可能有若干空格，通过ltrim()函数的处理，不论前面有多少空格，都可以得到如卜.结果(假设数值是15)：项目15更多编程命令BLANKCO

28、PY FILECALCULATECOPY STRUCTURE EXTENDEDFLUSHFOR.ENDFORON ERRORON ESCAPEON KEY LABELPACK DATABASESCAN.ENDSCANSET CONFIRMSET DEFAULTSET SKIP TOSET SKIP OFVALIDATE DATABASEBLANK命令如果发出该命令时不带任何参数，则清除当前记录中所有字段的数据。语法BLANKF E L D S字段名列表I范围FOR条件WHILE条灯NOOPTIMIZE说明如果使用了字段名列表，则清除指定字段中的数据，另外也可以在字段名前面加上别名，以清除其它工

29、作区的衣中数据，但要注意点，如果当前工作区的记录指针指在了表的末尾，那么它也不能清除您所指定的其它工作区中的字段，即使其它工作区的记录指针没有指向末尾。COPY FILE 命令复制文件。语法COPY FILE文件名1文件名2说明文件名中可以用“*”和?，如*.prgo要注意的一点是“文殍名2”必须有，比如：copy file*.prg to c:tcmp*.prg不 象 DOS的 COPY命令可以没有目的文件名，而且命令中的“FILE”也一定要有。COPY STRUCTURE EXTENDED 命令将当前工作区的表结构信息复制到另表中。语法COPY STRUCTURE EXTENDED TO

30、我文件名 FIELDS 字段名为参数说明F i l en a me：指定结构信息所存放的表文件名。FIELDS字段名表：指定需要复制表结构中哪些字段的信息，如省略，则复制所有字段的信息。说明该命令将一个表的各字段信息复制到一个新表中，每个字段为一个记录，这是一个专门的表，其字段是固定，这些字段分别记录各字段的字段名、长度、数据类型等等，各字段的字段名及其意义如下：字段名数据类型意义FIELD_NAME字符字段名。FIELD_TYPE字符数据类型。C=字符型，丫=货币型，N=数值型，F=浮点型，1=整数型，B=双精度型，口=日期型，T=日期时间型，1=逻辑型，乂=备注型，G=通用型FIELD_L

31、EN数值字段长度。FIELD_DEC数值小数位数。FIELD_NULL逻辑字段是否可用null值。FIELD_NOCP逻辑字段是否允许代码页翻译。FIELD_DEFA备注字段的隐含值。FIELD_RULE备注字段验证规则。FIELD_ERR备注字段验证规则出错时的提示信息。TABLE_RULE备注表验证规则。TABLE_ERR备注表验证规则出错时的提示信息。TABLE_NAME字符长表名。INS_TRIG备注插入触发器代码。UPD_TRIG备注更新触发器代码。DEL_TRIG备注删除触发器代码。TABLE_CMT备注表说明。如 图1,即为用COPY STRUCTURE EXTENDED命令生成

32、的rsda表的结构信息表，在这个表中就可以看 到rsda.dbf表的各字段情况。那么用这个命令产生的结构信息表有什么用呢？这可以让我们在编程时改变一个表的结构，因为信息结构表也是个表，我们可以象操作一般表样去修改它的内容，当然修改时要遵从表结构的有关规定，比如字段名不能超过10个字符，字段类型必须是上表中的字符之一，字段名不能重名等等。当然我们修改了这个表后不会对原表马上产生作用，因为它们已经是分别独立的两个表，在物理上没有任何联系，但我们可以首先使用以下命令：CREATE表文件名FROM结构信息表文件名根据结构信息表创建一个新表，再将原表的数据加到这个新表中，删除原表，将新表改为原表名，这样

33、就修改了表的结构。比如，我们要将rsd a表部门字段的长度改为2 0,程序如下.：select rsda&选择 rsda 表。copy structure to rsdajg extended&将 rsda 表的结构信息复制到 rsdajg 表。use rsdajg&打 开rsdajg表，同时关闭rsda表。replace field Jen with 20 for trim(field_name)=部门，&将部门字段的字段长度修改为 20.*实际上上一句的意思是将rsdajg表 的field_name为“部门”的记录的field_len字段值改为20。use&关 闭rsdajg表，要从这个表

34、创建新表，必须聘其关闭。create rsda2 from rsdajg&从 rsdajg 中提取信息创建 rsda2 表。append form rsda&从rsd a表中获取数据。erase rsda.dbf&删除 rsda.dbf 表。rename rsda2.dbf to rsda.dbf&将 rsda2.dbf 改名为 rsda.dbf。FLUSH命令将表和索引中的数据存入磁盘。语法FLUSH说明当我们修改个表时，修改完后，我们可能并不马上将表关闭，那么这时所做的修改可能只是在内存中，而没有真正存到盘，如果这时死机或停电，那 么，所以我们可以在程序适当的地方用此命令确保数据存盘。比如

35、，我们可以在菜单中加个“保存”命令，该命令就调用FLUSH语句，供操作者在适当的时候调用此命令来保存数据。还可以用一个表单，在其中放一个计时器，在计时器的tim e r事件中用此命令，这样就做成一个具有自动保存数据的功能，甚至可以在菜单中加个设置计时器时间的命令，以供操作者设置自动保存数据的问隔时间。FOR.ENDFOR 命令按指定的次数循环执行一组命令。语法FOR变鼻初始值T O结束值STEP步长宦命令组EXITLOOPENDFORINEXT参数描述变量:指定一个变量作为计数器，该变量可以不预先存在，FO R命令会自动创建。初始值T O结束值:即计数器的初始值和结束值，也就是指定循环的次数。

36、STEP步长值:设定计数器每次增加或减少的量，如果省略此子句，则每次增加1,比如forjsq=l to 10,那么将会循环10次，如果是for jsq=l to 10 step 2,那么循环将会是5 次，因为每循环1次计数器增加2,从 1到 10只需增加5 次就行了。可能有人会问了，既然循环5 次，那为什么不forjsq=l to 5 呢？这往往是为了在某些情况下使程序编起来方便和易于理解，比如要对数据表中的记录进行某项操作，要求每隔一条记录做次，起始和结束的记录是根据具体情况变化的，也就是初始值和结束值都是变量，那么我们就可以使用步长子句，并将步长设为2,这样就不用具体去计算到底需要多少次循

37、环了，如果再加上步长也是变量，即有时隔一条记录，有时会隔多条记录，则步长子句就更必要了。注意 步长的变化是指在不同次的完整循环中步长会变，一般在一次完整的循环中不要更改初始值、结束值和步长。另外步长可以是负的，这乂有什么必要？当我们需要根据-个数值不断减小来进行某项操作时就需要了，比如我们需要对记录进行某项操作，这个操作要求先处理第10条记录，再第9 条（因为在处理第9 条时需要根据第10条的情况），依次到第1 条，那么我们就可以：for jsq=10 tp 1 step-1*操作命令组go jsq&设上面的操作移动了记录指针，此时己不指在第10条记录上，则不能用skip-1 将指针移到第 9

38、 条cndfor很明显，虽然可以用其它方法，但这样编出的程序最简洁，一目了然。EXIT和 LOOP：与 DO WHILE中的意义一样。说明计数器只有在大于结束值时才结束循环，即当计数器等于结束值时仍要循环，也就是说：for jsq=l to 10是循环10次，而不是9 次，也就是当js q 的值为10时，还耍循环一次，当它为I I 时，则退出循环，执行endfbr之后的程序。注意 DOWHILE.ENDDO与 FOR.ENDFOR都是循环，它们有什么区别呢？在需要使用计数器的情况下，由 于 FOR.ENDFOR不需要专门的计数语句，所以程序执行的速度快，因此能用FOR.ENDFOR时尽量用。O

39、N ERROR 命令设置一命令，当系统错误发生时，该命令执行。这也就是程序员们常说的错误捕获陷井。所谓错误捕获陷井的意思就是在系统中启动一个监控程序，一旦借误发生，这个监控程序就将错误捕获，并不让错误显示出来，可保证程序的继续运行，然后用一个命令去对出现的错误进行处理，比如显示一个错误提示等。如果错误不发生，这个命令则始终不执行。语法ON ERROR 命令参数说明冷令：此即为指定的在捕获错误后所要执行的程序。一旦程序执行到某个语句发生错误，该命令即被执行，执行完后，接着执行发生错误的卜一条语句。提示 有时为了对错误进行处理，一条命令可能是不够的，则可用该命令调用一个子程序，那么需要在子程序执行

40、完后才接着执行发生错误的下一条语句。如果子程序中有RETRY命令，该命令将使子程序返回，并重新执行发生错误的语句，这个命令一般用在这种情况下，当子程序对错误进行了处理，使得再执行该命令时不会发生错误了，这样就可以使程序按照正常情况运行卜法。多学一招 当处理错误子程序执行时，您还可以用ERRORO,MESSAGEO,LINE(),PROGRAM()等函数返回出错的编号、信息、出错的语句所在行号以及出错的程序等，这些可能对处理错误有帮助。如省略命令参数，则取消错误捕获陷井。说明ON ERROR命令不能嵌套，也就是说在ON ERROR所执行的子程序中不能再有ON ERROR命令，否则等于取消错误捕获

41、。示例当 D BF文件的结构化复合索引损坏时，如果您打开D B F文件就会出错，下面的例子就捕获错误并自动修复索引：*主程序on error do xfsy&设置错误陷井usersda&打开表，如果索引损坏，则会产生错误，xfsy程序将会执行on error&取消错误陷井cancel*修复子程序procedure xfsy&修复子程序的过程名erase rsda.cdx&删除索引文件use rsda&打开表index o n 编 号 tag of rsda.cdx&重建索引“编号index o n 姓 名 tag of rsda.cdx&重建索引“姓名”ON ESCAPE 命令设置一命令，当按

42、了 ESCAPE时 I该命令执行。语法ON ESCAPE 命包参数说明命令:该命令即为指定的按下ESC键后所要执行的命令。假设当程序执行到第10条语句时您按下了 E SC,那么在波令执行完后，将接着执行第11条语句，如果俞令是调用一个子程序，而子程序中有RETRY语句，则返回重新执行第10句。说明假 如 ON KEY LABEL命令也同时指定了 ESC键，ON ESCAPE所指定的命令优先执行。如SET ESCAPE O F F则该命令也不起用。注意 这个命令常常用来在个循环中退出循环，比如：on escape exitdo while.t.*循环体中的命令组enddoon escape这样在

43、循环中执行命令时，只要您随时动用您的玉指按下E SC键，即可令程序退出循环。但别高兴得太早，上面这个程序在执行时常常出错，但也不是总出错，为什么呢？因 为ex it命令必须在循环体中，假如程序正执行到do w hile或enddo,这时您动了玉指，程序就会出错，怎么解决这个问题呢？这样：on escape tc=.t.tc=.f.do while.t.*循环体中的命令组if tcexitendifenddoon escape思考题：上面这个程序为什么不会出错？ON KEY LABEL 命令指定一个命令，当键盘上某个键（也可以是组合键或鼠标）被按下后，该命令执行。语法ON KEY LABEL键

44、名 命令参数描述各键的键名如下:键键名 LEFTARROW RIGHTARROWTUPARROWDNARROWHOMEHOMEENDENDPAGE UPPGUPPAGE DOWNPGDNDELDELBACKSPACEBACKSPACESPACEBARSPACEBARINSINSTABTABSHIFT+TABBACKTABENTERENTERFl toF12F1,F2,F3.CTRL+F1 to CTRL+F12CTRL+Fl,CTRL+F2.SHIFT+F1 toSHIFT+F12SHIFT+F1,SHIFT+F2.ALT+F1 toALT+F12ALT+F1,ALT+F2,ALT+F3.AL

45、T+0 to ALT+9ALT+0,ALT+1,ALT+2.ALT+A toALT+ZALT+A,ALT+B,ALT+C.CTRL+LEFT ARROWCTRL+LEFTARROWCTRL+RIGHT ARROWCTRL+RIGHTARROWCTRL+HOMECTRL+HOMECTRL+ENDCTRL+ENDCTRL+PAGE UPCTRL+PGUPCTRL+PAGE DOWNCTRL+PGDNCTRL+ATO CTRL+ZCTRL+A,CTRL+B,CTRL+C.CTRL+0CTRL+0RIGHT MOUSEBUTTONRIGHTMOUSELEFT MOUSE BUTTONLEFTMOUSE

46、MOUSE BUTTONMOUSEESCESCON KEY LABEL键名后面不跟命令则解除该键所要执行的命令（即解除所设的程序陷井）。说明该命令的用法与ON ESCAPE的用法嵬本上是一样的。注意 该命令对于在系统菜单及系统对话框上的按键不起作用。对 于 on mouse等命令，在鼠标点击件时不起作用。示例on key label ctrl+e tc=.t.tc=.f.do while.t.*循环程序组if tcexitendifenddoon key label ctrl+ePACK DATABASE 命令将数据库所有表中作了删除标记的记录物理删除，即真正从磁盘上删除。语法PACK DAT

47、ABASE说明执行该命令时，数据库必须以独占方式打开。该命令可用于在程序中定期清理数据库各表中的删除记录，因为软件可能经常要作删除，对大的表会影响运行速度，所以可以在软件中设置set delete o n,即隐去作了删除标记的记录，但这些记录并没有真正删除,但这些垃圾记录太多了也对系统不利，故可设一功能由操作人员在需要时运行此命令来清理整个数据库。SCAN.ENDSCAN 命令将记录指针由头到尾扫描一遍，每移动一次记录指针可执行一组命令。类似于循环DO.ENDDO或 FOR.ENDFOR,只是这是专门针对表的循环。语法SCAN 范阖FOR WHILE 条件2、1 命令组LOOPEXITENDS

48、CAN参数描述范围:在指定范围内扫描，即不从开头扫描到最后。FO R条件1及 WHILE条件2：只扫描符合条件的记录。如果不带范围和条件子句，则隐含扫描表中的全部记录。示例库存日记帐表(字段有日期、入库数、出库数，库存数)，每记录一笔出入库，则计算相应的库存数并放入表中，有时意外情况可能导致库存数出错，因此需要有 功能将库存数重新计算遍，下面这个程序就是完成这个功能：go topdqkc=库 存 数&记下第一条记录的库存数skip&跳到第2条记录scan rest&只需扫描从第2条记录起的所有记录replace库 存 数with dqkc+入库数-出库数dqkc=库 存 数&记下当前记录的库存

49、数endscan上面这段程序与下面这段程序是等价的：go topdqkc=库 存 数&记下第一条记录的库存数skip&跳到第2条记录do while.not.eof()replace库 存 数with dqkc+入库数-出库数dqkc=库 存 数&记下当前记录的库存数skipendscan所不同的就是不用每次都sk ip,系统自动移动记录指针，这样程序运行的速度快，尤其对于按条件扫描的情况就更快了，因 为 用d o的话每次都要用locate或continue进行查询，速度很受影响。与这段程序也是等价的：go topdqkc=库 存 数&记下第一条记录的库存数skip&跳到第2 条记录for j

50、sq=2 to reccount()replace库存数with dqkc+入库数-出库数dqkc=库 存 数&记下当前记录的库存数skipendfbr您喜欢用哪个呢？注意 上面第三段程序中有个小问题，在 fo r语句中用了 reccount()函数，而函数都要经过运算才能得到结果，比起直接从个变量中获取值要慢，假如只执行I 次，两者相差无儿，但上面是用在循环中，for这一句可能会执行几1万次，那么就会使速度降低很多，为此可改成下面这样：jls=reccount()for jsq=2 to jlsSET CONFIRM 命令当输入的内容填满输入区域时是否需要按回车键跳出输入区域。语法SET C