PROGRESS编程其实很简单（二）

PROGRESS启动应用程序，通常都是先启动一个主程序，比如mf.p，这个mf.p做一些全局变量设置，并初始化应用程序菜单。当用户执行菜单功能时，实际上是运行菜单所指定的程序！在这种模式下，PROGRESS的程序一般都不大，结构明了可读性很强，每个程序目的非常明确，但是也要遵循一定的准则，方便以后的阅读和修改。

一、程序扩展名的设定。
.p 主程序（可直接运行，或者编译以后挂主菜单被调用）
.i 子程序（经常使用的执行某一特定功能，或者为了使主程序易于阅读脱离出来）
.v 验证程序
.w Windows的程序（Windows版的Progress支持可视化的组件编程，组件拉一拉放一放，就自动生成.w的文件了）
.r 编译后的程序（菜单调用时，实际上是执行.r的程序）

二、程序的命名规则。
主程序格式： aa + bb + cc + dd.p
其中：
aa --- 系统模块ID
bb --- 系统功能
cc --- 程序类型（mt -维护、iq -查询或者rp -报表等）
dd --- 序列号
子程序格式：通常是 主程序a.i    主程序b.i   这样子
//关于程序的命名，个人觉得也没必要一定要遵循特定格式，一家公司有自己固定的命名方式，容易区分即可；如果是咨询公司或者系统集成公司，则要先了解客户的命名习惯和规则；同理，下面的“程序头”。

三、程序头。
以注释的形式，标明尽可能多的程序相关的信息，比如：程序名（路径，不过路径一般都是企业自己规定好了）、作者、菜单号、功能（菜单标题）、创建日期、修改日志等。至于格式，也就是POSE，爱怎么摆怎么摆，清楚明了即可。但是，在同一家公司，风格应该统一。另外，关于修改日志，个人觉得最好在程序头和程序体，都明显说明一下修改的日期和原因，要点。（注释不记入程序长度，所以不要担心程序太长，:p ）

四、维护类程序模板。

注意：为方便说明，注释暂时用“//”，但是在PORGRESS程序里是错误的哈！
define variables.
//程序头，全局变量定义等，是标准QAD的菜单程序就请加上这个，不要问为什么
form with frame a. //定义格局（包含输入输出）
Mainloop:
repeat:
          prompt-for …  editing: //通常这里输入主要字段（如果比如订单号，料件名称等）
       //前后记录显示功能，常用
         end.
        /* ADD/MODI/DELETE */
        assign global…
        find …
        if not available … //新记录
            {mfmsg.i 1 1} //类似mfmsg的子程序，都是信息提示类
            create …
            assign …
        end.
        Status = stline.
        update go-on (F5 or Ctrl-D)  //继续维护剩余字段
        if F5 or CTRL-D then do: //判断是否按了删除键，一般定义是F5或者Ctrl + D
            del-yn = yes.
            {mfmsg01.i 11 1 del-yn}
        end.
End.
Status input. 

五、报表类程序的模板。

form definition [selection criteria]
part colon 15 part1 colon 40 label
effdate colon 15 effdate1 colon 40 label
with frame a side-labels width 80.
//以上4行定义用户输入“限制报表输出”的条件，比如生效日期啊什么的
repeat:
    if part1 = hi_char then part1 = “”. //如果用户不输任何东西，则默认最大字符或者最小字符，以下类似
    if effdate = low_date then effdate = ?.
    if effdate1 = hi_date then effdate1 = ?.
    data statements [selection criteria]
    bcdparm = "".
    {mfquoter.i  part } //BATCH专用，至今没用过，体会不到好处，哪位帮忙解释一下？
    {mfquoter.i  part1 }
    {mfquoter.i  effdate}
    {mfquoter.i  effdate1 }
    {mfselbpr.i  “printer” 132} //选择打印机的子程序
    if part1 = “” then part1 = hi_char.
    if effdate = ? Then effdate = low_date.
    if effdate1 = ? Then effdate1 = hi_date.
    {mfphead.i or mfphead2.i} //报表头
    for each…
         display
         or //报表结束
    end.
   or or //报表结束、打印结束等
end.

六、查询类程序模板。

这个比报表来得要简单些了：

form definition [selection criteria]
with frame a side-labels width 80.
repeat:
      data statement [selection criteria]  with frame a.
      {mfselprt.i “terminal” 80 }
       for each [selection criteria]
            display …
            (max page)
       end.
       (scroll output)
       {mfmsg.i 8 1}
end.

通过这章的学习，你对QAD的PROGRESS程序已经有大致的了解。但是你可能还是感觉到，如果叫你做一些切实的东西，还摸不着门（什么？你摸得着了，那么恭喜你，你可以请我吃饭了），没关系，才2小时呢，25％的课程而已，不急不急！

原文转自：http://www.ltesting.net