Proress学习.doc

: .
# / 32
PROGRESS编程其实很简单（一）
一、变量定义。
变量必须在第一次被使用之前定义， 可以定义在程序的任何地方！ 但是通常为了增加程序的 可读性，变量定义都放在程序的开始处！以下是变量定义的几个实例:
define variable strOI as char label "DemoString" initial "hello", def var str02 like str01.
def var dt01 as date exte nt 5.
def var in te01 as inte format ">>>9".
说明，第一行:
str01是变量名，变量名不要与系统关键字重复，字符或者下划线开头，比如 strModel,_Model ；
string表示变量类型，本例指字符型变量，其它类似的比如 integer，date，logical等；
label就是后续程序中对变量的描述，比如需要用户输入这个变量值时，系统提示
“ DmoStri ng"；
initial给变量赋初始值
第二行：
def和var都是简写，def是define的简写，var是variable的简写；PROGRESS 支持语法 简写，但是初学者最好先写全，后面有经验了再简写。
like和as的不同点是:
as后面直接说明变量类型，而 like后面跟另外一个变量或者字段。
第三行:
exte nt 5 ，表示该变量是数组变量。
第四行：
format ">>>9" 指定变量格式
指定变量格式一个最大的好处就是预留宽度，这个对变量的输入或报表的输出都很有用的。
比如年份的宽度一定是 4位的，那么你就可以指定格式 format "9999"
PROGRESS 程序每行结束必须有个 “号！ ！！
、注释
注释就是用/* ... */，可以嵌套，比如
/*---注释1
/* 注释2 */
---*/
三、记录的显示。
如果进入PROGRESS 编程模式以后连接了数据库，那么直接显示记录的值即可，比如：
for each TABLE_NAME:
display TABLE_NAME.
en d.
/*显示TABLE_NAME所有字段所有记录*/
或者：
find first TABLE_NAME.
display TABLE_NAME.
/*显示TABLE_NAM第一条记录所有字段的值*/
通常显示记录值都是采用这 2种方式！当然，可以按要求显示特殊的字段，比如：
FOR EACH pt_mstr WHERE pt_model BEGINS "E" NO-LOCK BREAK BY pt_price:
DISP pt_model pt_price.
END.
这个程序看起来真的很容易明白，简单说明：
1、where后面带条件，比如= <> <= >=等等，这种关系符，对数字、日期或者字符串,
都适用;
关于条件的几种组合举例：
条件1 and条件2
（条件1 or条件2） and （条件3 or条件4）
not条件1
2、 no-lock，这是关键字，你只要记住：
如果接下来的程序要对记录进行修改，那么不能加 no-lock，如果不要，请加上 no-lock| ；
3、 break by ，就是按某个字段排列， 默认是按这个字段的升序， 如果降序则后面加上 desc，
比如：
break by pt_price desc 。
如果需要多次排列，那么多 by几次就可以，比如：
break by pt_price by pt_date
另外一个常用的显示或者更新记录的语句是 find !比如:
find pt_mstr where pt_model = "main board" no-lock no-error.
find first pt_mstr where pt_price <= 10 no-error.
find last pt_mstr where pt_price <= 10 no-error.
说明:
1、where后面的条件跟for each语句类似;
2、 no-lock的作用跟for each的no-lock也是一样的；
3、 通常^||^|加上|否则如果找不到满足条件的记录，系统会出错误提示;
而实际上，通常需要在程序自己判断结果；
4、find first就是定位第一条满足条件的记录； find last定位最后一条满足条件的记录；
4