progress程序的三种模板介绍

xugghu

       QAD系统内主要有三类程序:维护程序,报表程序,查询程序。Progress程序一般都有比较固定的模式。


一、维护类程序模板。

{mfdtitle.i} /* 程序头,全局变量定义等,标准QAD的程序都需要加载此文件 */
define variables. /* 变量定义 */
form with frame a.  /* frame定義,維護畫面內容 */
setFrameLabels(frame a:handle).    /* 畫面標簽設置 */
Mainloop:
repeat:
      prompt-for …   editing: /*通常输入關鍵字段 */
       {mfnp.i ……}             /* 按上下鍵前后显示记录功能盤 */
      end.

/* 记录的增改删处理 */
         assign global…
         find …
/* 在记录表中查询此条记录 */
         if not available … /* 如果不存在此记录,则新增一条记录 */
             {mfmsg.i 1 1}   /* 类似mfmsg的子程序，都是信息提示类 */
             create …          /* 创建记录*/
             assign …          /* 给记录赋值 */
         end.
         Status = stline{2}.
         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.

二、报表类程序的模板。
{mfdtitle.i}           /* 頭文件,必須要有*/
define variables. /* 变量定义 */

form
……
with frame a side-labels width 80.    /*报表输入画面，限定输入参数,为一个frame */
setFrameLabels(frame a:handle).

{wbrp01.i}
repeat:
    …….      /* 报表输入参数的控制 */   

if c-application-mode <> 'web' then update…… with frame a. /* 更新输入内容*/

{wbrp06.i &command = update &fields = " ……" &frm = "a"}
      bcdparm = "".
     {mfquoter.i   part }
     {mfquoter.i   part1 }
     {mfquoter.i   effdate}
     {mfquoter.i   effdate1 }

      ……….
end.   
     {mfselbpr.i   “printer” 132} /* 选择打印机的子程序 */

     for each…                  /* 根据输入参数在相关表中查询记录 */
         display
         {mfrpchk.i} or {mfrpexit..i} /* 报表结束 */
     end.
   {mfrtrail.i} or {mftr0801.i} or {mfreset.i} /* 报表结束、打印结束等 */
end.

三、查询类程序模板。
{mfdtitle.i}
/* 头文件 */
define variables. /* 变量定义 */
form
      ……
with frame a side-labels width 80.      /* frame 定义 */

repeat:
       ……            /* 输入参数控制 */
       {mfselprt.i “terminal” 80 }
       for each [selection criteria]
             display …
             {mfrpchk.i} (max page)
       end.
       {mfreset.i} (scroll output)
       {mfmsg.i 8 1}
end.

qichun513

- -   我也在学习这些  有空大家可以一起交流下

mujik2008

回复 2# qichun513


    QAD  在精艺制造方面是很不错的，值得学习！！

jhdandliai

用 progress 做一个良好的维护程序，还是有点麻烦的，特别是多个嵌套循环，多个repeat,再加上一些do transtion 之类的东西，在可视化编程流行的今天，能够专注到细节实现的人不多了，也许那些做个fox for dos
的那代人对学progress的编程会有一些似曾相识，因为一切都要靠代码写出来，例如计算显示的坐标等

xugghu

回复 4# jhdandliai


    是的。Progress语言是属于面向过程的语言，比较过时了。知道这门语言的人很少，使用的人也不多。

tyrusfang

你们都说到我心坎上了，

yuandonny

楼主,good

yayame

我是初学者，这么一说，感觉前途很渺茫啊！！

cp3154

progress其实很简单...
网上也就这些资料了
{:soso_e108:}

sihai20

学习一下，