PROGRESS语言在ERP中的应用.doc

PROGRESS语言在ERP中的应用  01-5-22 上午 11:02:00 PROGRESS语言 PROGRESS语言是一种非可视化的编程语言，符合4GL规范，具有高级语言的优点，可以进行条件选择（IF、WHERE）、嵌套循环（FOR）、计算（如求和、求平均）等操作，还可以直接进行打印、显示（PUT、DISPLAY），并且不区分大小写。 PROGRESS源程序一般由4部分组成：全局变量定义、图形变量定义（一般是用户指定的查询选择条件）、输出数据的格式和主程序（如何利用数据库中的字段生成用户需要的正确数据）。 全局变量的定义 全局变量用DEFINE VARIABLE 关键字定义。格式如下： DEFINE VARIABLE W1 LIKE（数据格式INTEGER，CHARACTER……） DEFINE VARIALBE W2 AS VARIABLE2 使用AS可以直接引用已经定义好的数据格式。比如我们要把某个变量定义成和表中的字段类型一致时，可直接定义如下： DEFINE VARIALBE1 AS 表中定义的字段 这样我们就不用再到后台数据库中去查询该字段的数据格式，提高了编程速度。如果这个变量在调用过程中也要用到，则分别定义如下： //在主过程中 DEFINE SHARED VARIABLE W1 LIKE （数据格式INTEGER，CHARACTER……） //在调用过程中 DEFINE NEW SHARED VARIABLE W1 LIKE （数据格式INTEGER，CHARACTER……） 变量的主要数据类型如下表所示： 数据类型 缺省格式 示例 字符型(Character) X（8） Dongnan 日期型（Data） 99/99/99 03/02/99 布尔型（Logical） Yes/No Yes 浮点型（Decimal） -,9.99 12.00 整型（Integer） -,,.9 12 图形变量的定义 图型变量的定义主要是把已经定义好的变量在界面上显示出来。 /＊账户余额查询报表中部分源程序＊/ FORM /＊ 显示一个FORM ＊/ /＊ 定义一个相当于容器的框 ＊/ RECT－FRAME AT ROW 1 COLUMN 1.25 RECT－FRAME－LABEL AT ROW 1 COLUMN 3 NO－LABEL VIEW－AS TEXT SIZE－PIXELS 1 BY 1 SKIP(.1) /＊GUI＊/ /＊ 把变量entity的选择条件显示出来＊/ entity colon 25 label ‘会计单位’ entity1 colon 50 label “至” cname colon 25 label‘摘要’ acc colon 25 label ‘账户’acc1 colon 50 label “至” sub colon 25 label ‘分账户’ sub1 colon 50 label “至” ctr colon 25 label ‘成本中心’ ctr1 colon 50 label “至” begdt colon 25 label ‘生效日期’ enddt colon 50 label “至” subflag colon 25 label ‘汇总分账户’ ccflag colon 25 label ‘汇总成本中心’ rpt_curr colon 25 label ‘货币’ with frame a side－labels attr－space width 80 NO－BOX THREE－D /＊GUI＊/ cname colon 25 label ‘摘要’ 第一行在窗口中的显示如下： 摘要 方框中是供用户输入的选择条件。 报表格式的定义 报表格式的定义非常简单，只要用at和to标出相对位置即可： FORM /＊GUI＊/ header “期初借方余额” to 65 “期初贷方余额” to 85 “期间活动金额” to 92 “借方活动金额” to 109 “贷方活动金额” to 128 “期末借方余额” to 148 “期末贷方余额” to 164 skip “Account Description” at 1 “账户 摘要 ” at 1 “－－－－－－－－－－－－－－－ ” at 1 “－－－－－－－－－－－－－－－” to 85 “－－－－－－－－－－－－－－ ” to 134 “－－－－－－－－－－－－－－ ” to 164 with ST