Progress语言

《Progress语言》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、目　　　录1PROGRESS数据字典的使用22PROGRESS常用命令52.1数据类型52.2定义命令52.3输出显示命令52.4数据记录操作命令62.5其他命令62.6判断、循环63PROGESS常用函数73.1转换函数73.2截取函数83.3运算函数83.4记录状态函数83.5逻辑函数93.6mfg/pro的函数94Progress基础94.1变量定义94.2注释104.3记录显示104.4判断124.5循环134.6赋值运算135Progress进阶145.1First-of()和last-of()用法145.2函数功能17

2、5.3应用181PROGRESS数据字典的使用数据字典建立表建立字段建立索引DUMP/LOAD功能1PROGRESS常用命令1.1数据类型§char§decimal(deci)format“>>>9.99”§integer(int)format“>>>9”§logical(log)§dateformat“9999/99/99”1.2定义命令§definevarpart1ascharformat“x(8)”init‘1’.-----------------变量定义§define(new)sharedvarpart1ascharfor

3、mat“x(8)”init‘1’.------------变量定义§definevarpart1likept_part.----------------类似变量定义§definevarqtyasdecimalextent10.--------数组定义，初始化qty=0§Definebufferpart_mforpt_mstr.------------BUFFER定义1.3输出显示命令§disppartlabel‘零件号’descrylabel‘描述’.§putpartat1.§Skip(n)§Message“加入新记录”§Mess

4、age"系统控制文件必须维护"VIEW-ASALERT-BOXINFORMATION(warn/error)BUTTONSOKtitle"提示".1.1数据记录操作命令§Create§Delete§set§Update§Prompt-for§Assign§Find§breakbypartbytypedesc§where1.2其他命令§Undo,retry.§Validate(partbegins’1’,”零件号应以1开头”)§begins:ifvar1begins‘a’then….以什么打头§leave§next§100modul

5、o3=1:取余数§+-*/=<><=>=<>:加、减、乘、除、等于、不等于。。。1.3判断、循环if-then-else判断ifvar1>var2thenvar1=100.elsevar2=100.Ifvar1>=var2thendo:Ifvar1>20thendo:F1=10.F2=20.End.End.Elsedo:end.DO循环DoI=1to10:A=b+c.B=a/c.End.Repeat循环Repeat:A=a+10.Ifa>=100thenleave.End.Foreach循环Foreachpr01mwherepr0

6、1m_036>=‘a1’andpr01m_036<=‘a3’:Ifpr01m_002begins‘1’thennext.Findfirstdpt_mwherepr01m_016=dpt_nono-lockno-error.Ifavaildpt_mthenv_name=dpt_name.Elsev_name=“”.Disppr01m_002pr01m_003.End.1PROGESS常用函数1.1转换函数§string(100.02):将数字/日期转换成字符§date(month，day，year):转换成日期§date('02/0

7、2/10'):转换成日期§year取日期年§month取日期月§day取日期日§today今天日期§asc转换成asc函数asc(“a”)§length长度函数length(“sdfaa”)1.1截取函数§substr(string,3,4)§trim(string):去掉空格§index1=lookup(string1,string2)1.2运算函数§truncate(100.26,1)=100.20:某位以后的数字清零§integer(100.23)=100:四舍五入取整§accum合计函数FOREACHld_detBREAK

8、BYld_part:ACCUMld_qty_oh(TOTALBYld_part).DISPld_partld_qty_ohACCUMTOTALBYld_partld_qty_oh.END.§maximum最大值函数DISPMINIIMUM("aaa