PROGRES编程其实很简单.docVIP

窗体顶端 2006-2-23 13:31 #1 ? ? ? ? hpux 超级版主UID 4精华 5 积分 151帖子 147阅读权限 150注册 2006-2-23状态 在线 PROGRESS编程其实很简单（一）一、变量定义。变量必须在第一次被使用之前定义，可以定义在程序的任何地方！但是通常为了增加程序的可读性，变量定义都放在程序的开始处！以下是变量定义的几个实例：define variable str01 as string label DemoString initial hello.def var str02 like str01.def var dt01 as date extent 5.def var inte01 as inte format 9.说明，第一行：str01 是变量名， 变量名不要与系统关键字重复，字符或者下划线开头，比如strModel,_Model ；string 表示变量类型，本例指字符型变量，其它类似的比如integer，date，logical等 ；label 就是后续程序中对变量的描述，比如需要用户输入这个变量值时，系统提示“DemoString ；initial 变量的初始值第二行：def和var都是简写，def是define的简写，var是variable的简写；PROGRESS支持语法简写，但是初学者最好先写全，后面有经验了再简写。like和as的不同点是：as后面直接说明变量类型，而like后面跟另外一个变量或者字段。第三行：extent 5 ，表示该变量是数组变量。??第四行：format 9??变量格式指定变量的格式一个最大的好处就是预留宽度，这个对变量的输入或者报表的输出都很有用的。比如年份的宽度一定是4位的，那么你就可以指定格式 format 9999。PROGRESS程序每行结束必须有个“.”号！！！二、注释。注释就是用/*??...? ?*/ ，可以嵌套，比如/*注释1? ?/* 注释2 */? ?*/? ?三、记录的显示。如果进入PROGRESS编程模式以后连接了数据库，那么直接显示记录的值即可，比如：for each TABLE_NAME:? ? display TABLE_NAME.end./*显示TABLE_NAME所有字段所有记录*/或者：find first TABLE_NAME.display TABLE_NAME./*显示TABLE_NAME第一条记录所有字段的值*/通常显示记录值都是采用这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 条件12、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 = mainboard 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、no-error，通常是find就加上，否则如果找不到满足条件的记录，系统会出错误提示；而实际上，通常需要在程序自己判断结果；4、find first 就是定位第一天满足条件的记录；find last 定位最后一条满足条件的记录；4、还有一种叫find next，就是定位当前记录的下一条；5、find 和 find