常用编程命令及常用函数.docVIP

常用编程命令及常用函数 注：在语法中如用方括号“[? ]”括起来的词句，表示可以不用。 常用命令 假设(if...endif) 循环(do while...enddo) 分支(do case...endcase) 赋值(store...to) 调用表单(do form) 调用子程序(do) 返回调用程序(return) 启动事件处理(read events) 清除事件处理(clear events) 开关命令执行状态(set talk on/off) 结束程序(cancel) ? 　常用函数 数值转换字符(str()) 字符转换数值(val()) 取系统日期(date()) 取年份(year()) 取月份(month()) 取天日(day()) 取整(int()) 四舍五入(round()) 删除标记(delete()) 记录号(recno()) 记录数(reccount()) 找到记录(found()) 表结尾(eof()) 表开头(bof()) 消除后续空格(trim()) 消除前导空格(ltrim()) ? ? 假设语句 根据一逻辑表达式的值，有条件的执行一组命令。 语法： IF 逻辑表达式 [THEN]??? 程序组1[ELSE??? 程序组2]ENDIF 参数： 逻辑表达式代表一逻辑值，如果这逻辑值为真，系统执行程序组1，否则不执行程序组1，如果有else及程序组2的话，则执行程序组2，如没有则什么也不执行，直接执行endif后面的语句。 备注： 在if...endif之间还可以有if...endif，即该命令是可以嵌套的。 then可以有也可以没有，对程序没有影响。 else及程序组2可以有也可以没有，但如果有的话，在逻辑表达式的值为假时，程序组2将被执行。 if 与 endif 必须配对使用，即有一个 if 必须有一个 endif， 否则程序会出错。举例： 例1：假如分数字段的值大于等于90，则让等级字段的值为“优”，并显示该记录。程序如下： if 分数=90 ? replace 等级 with 优? displayendif 　例2：在数据库中可以把性别字段设为逻辑型，“真”代表“男”，“假”代表“女”，但显示时不能显示真、假，否则别人看不懂，而应显示男、女，因此我们设一变量xb，根据性别字段的具体值，将xb的值设为男或女，然后在需要的时候显示xb的值即可。程序如下： if? 性别? xb=男else? xb=女endif 其中第一句：if? 性别，表示“假如性别为真”的意思，不要写成“if? 性别=.t.”。 以上程序也可以写成如下形式，效果相同： if? .not. 性别? xb=女else? xb=男endif 即，假如性别不为真的话，xb的值就为女，否则为男。 循环语句(do while...enddo) 根据条件重复执行一组程序。 语法： DO WHILE lExpression??? Commands??? [LOOP]??? [EXIT]ENDDO 参数： lExpression 为一逻辑表达式，其值如果是“真”，即执行commands程序组，如果表达的值为“假”，则跳过该段程序组，执行enddo后面的语句。 Commands 当表达式 lExpression 值为真时所要执行的程序组。 LOOP 此为 do while...enddo 命令的一个子句，它可以放在 commands 程序组中间的任何地方，当程序一旦执行到该子句时，则返回 do while 重新执行。此子句根据需要可以有，也可以没有。 EXIT 与loop一样是 do while...enddo 命令的一个子句，它可以放在 commands 程序组中间的任何地方，当程序一旦执行到该子句时，则跳出循环，执行enddo后面的语句。此子句根据需要可以有，也可以没有。 备注： 程序一旦执行到do while 语句，如果 lExpression 的值为真，则执行 commands 程序组，该程序组执行完后，就到enddo语句，enddo会将程序返回 do while 再次验证 lExpression 是否为真，如仍是，则又一次执行 commands ，如此循环往复，直到 lExpression 为假，或遇上 exit 语句。 该语句可以嵌套，即循环中还可以有循环。 do while 与 enddo 必须配对使用，即有一个 do while 必须有一个 enddo 否则程序会出错。 举例： 例1：在数据库中不断将记录指针往下移，直到数据库结尾。程序如下： do while .not. eof()? skipenddo 　例2：在上面的例子加入此功能，当遇到性别字段为“女”时，跳出循