Progress语言要点.docVIP

目　　　录 1 PROGRESS数据字典的使用 2 2 PROGRESS常用命令 5 2.1 数据类型 5 2.2 定义命令 5 2.3 输出显示命令 5 2.4 数据记录操作命令 6 2.5 其他命令 6 2.6 判断、循环 6 3 PROGESS常用函数 7 3.1 转换函数 7 3.2 截取函数 8 3.3 运算函数 8 3.4 记录状态函数 8 3.5 逻辑函数 9 3.6 mfg/pro的函数 9 4 Progress基础 9 4.1 变量定义 9 4.2 注释 10 4.3 记录显示 10 4.4 判断 12 4.5 循环 13 4.6 赋值运算 13 5 Progress进阶 14 5.1 First-of() 和 last-of()用法 14 5.2 函数功能 17 5.3 应用 18 PROGRESS数据字典的使用 数据字典 建立表 建立字段 建立索引 DUMP/LOAD功能 PROGRESS常用命令 数据类型 char decimal(deci) format “9.99” integer(int) format “9” logical(log) date format “9999/99/99” 定义命令 define var part1 as char format “x(8)” init ‘1’.-----------------变量定义 define (new) shared var part1 as char format “x(8)” init ‘1’.------------变量定义 define var part1 like pt_part.----------------类似变量定义 define var qty as decimal extent 10.--------数组定义，初始化 qty = 0 Define buffer part_m for pt_mstr.------------BUFFER定义 输出显示命令 disp part label ‘零件号’ descry label ‘描述’. put part at 1. Skip(n) Message “加入新记录” Message 系统控制文件必须维护 VIEW-AS ALERT-BOX INFORMATION(warn/error) BUTTONS OK title 提示. 数据记录操作命令 Create Delete set Update Prompt-for Assign Find break by part by type desc where 其他命令 Undo,retry. Validate(part begins ’1’,”零件号应以1开头”) begins : if var1 begins ‘a’ then …. 以什么打头 leave next 100 modulo 3 = 1:取余数 + - * / = = = : 加、减、乘、除、等于、不等于。。。 判断、循环 if-then-else 判断 if var1 var2 then var1 = 100 . else var2 = 100. If var1 = var2 then do: If var1 20 then do: F1 = 10. F2 = 20. End. End. Else do: end. DO循环 Do I = 1 to 10: A = b + c. B = a / c. End. Repeat 循环 Repeat: A = a + 10. If a = 100 then l eave. End. For each 循环 For each pr01m where pr01m_036 = ‘a1’ and pr01m_036 = ‘a3’: If pr01m_002 begins ‘1’ then next. Find first dpt_m where pr01m_016 = dpt_no no-lock no-error. If avail dpt_m then v_name = dpt_name. Else v_name = “”. Disp pr01m_002 pr01m_003 . End. PROGESS常用函数 转换函数 string(100.02):将数字/日期转换成字符 date(month，day，year):转换成日期 date(02/02/10):转换成日期 year 取日期年 month 取日期月 day 取日期