常用编程命令及常用函数

《常用编程命令及常用函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、常用编程命令及常用函数注：在语法中如用方括号“[ ]”括起来的词句，表示可以不用。常用命令假设(if...endif)循环(dowhile...enddo)分支(docase...endcase)赋值(store...to)调用表单(doform)调用子程序(do)返回调用程序(return)启动事件处理(readevents)清除事件处理(clearevents)开关命令执行状态(settalkon/off)结束程序(cancel) 　常用函数数值转换字符(str())字符转换数值(val())取系统日期(date())取年份(year())取

2、月份(month())取天日(day())取整(int())四舍五入(round())删除标记(delete())记录号(recno())记录数(reccount())找到记录(found())表结尾(eof())表开头(bof())消除后续空格(trim())消除前导空格(ltrim())  假设语句根据一逻辑表达式的值，有条件的执行一组命令。语法：IF逻辑表达式[THEN]   程序组1[ELSE   程序组2]ENDIF参数：逻辑表达式代表一逻辑值，如果这逻辑值为真，系统执行程序组1，否则不执行程序组1，如果有else及程序组2的话，则执行

3、程序组2，如没有则什么也不执行，直接执行endif后面的语句。备注：在if...endif之间还可以有if...endif，即该命令是可以嵌套的。then可以有也可以没有，对程序没有影响。else及程序组2可以有也可以没有，但如果有的话，在逻辑表达式的值为假时，程序组2将被执行。if与endif必须配对使用，即有一个if必须有一个endif，否则程序会出错。举例：例1：假如分数字段的值大于等于90，则让等级字段的值为“优”，并显示该记录。程序如下：if分数>=90 replace等级with'优' displayendif　例2：在数据库中可以把

4、性别字段设为逻辑型，“真”代表“男”，“假”代表“女”，但显示时不能显示真、假，否则别人看不懂，而应显示男、女，因此我们设一变量xb，根据性别字段的具体值，将xb的值设为男或女，然后在需要的时候显示xb的值即可。程序如下：if 性别 xb='男'else xb='女'endif其中第一句：if 性别，表示“假如性别为真”的意思，不要写成“if 性别=.t.”。以上程序也可以写成如下形式，效果相同：if .not.性别 xb='女'else xb='男'endif即，假如性别不为真的话，xb的值就为女，否则为男。循环语句(dowhile...end

5、do)根据条件重复执行一组程序。语法：DOWHILElExpression   Commands   [LOOP]   [EXIT]ENDDO参数：lExpression为一逻辑表达式，其值如果是“真”，即执行commands程序组，如果表达的值为“假”，则跳过该段程序组，执行enddo后面的语句。Commands当表达式lExpression值为真时所要执行的程序组。LOOP此为dowhile...enddo命令的一个子句，它可以放在commands程序组中间的任何地方，当程序一旦执行到该子句时，则返回dowhile重新执行。此子句根据需要可以

6、有，也可以没有。EXIT与loop一样是dowhile...enddo命令的一个子句，它可以放在commands程序组中间的任何地方，当程序一旦执行到该子句时，则跳出循环，执行enddo后面的语句。此子句根据需要可以有，也可以没有。备注：程序一旦执行到dowhile语句，如果lExpression的值为真，则执行commands程序组，该程序组执行完后，就到enddo语句，enddo会将程序返回dowhile再次验证lExpression是否为真，如仍是，则又一次执行commands，如此循环往复，直到lExpression为假，或遇上exit语

7、句。该语句可以嵌套，即循环中还可以有循环。dowhile与enddo必须配对使用，即有一个dowhile必须有一个enddo否则程序会出错。举例：例1：在数据库中不断将记录指针往下移，直到数据库结尾。程序如下：dowhile.not.eof() skipenddo　例2：在上面的例子加入此功能，当遇到性别字段为“女”时，跳出循环。程序如下：dowhile.not.eof() if 性别='女'   exit endif skipenddo　例3：不断将记录指针往下移，当遇到数量字段的值大于等于600时退出循环，如遇到值小于400的，将其值乘2，然

8、后再检验一次是否大于600，如是则退出循环。程序如下：dowhile数量<600 if 数量<400   replace数量with数量