Progress+培训

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

1、PROGRESS培训文档PROGRESS程序开发培训文档PROGRESS培训文档目　　　录1PROGRESS概述及学习31.1学习PROGRESS的必要31.2学习要点32PROGRESS数据字典的使用43PROGRESS常用命令73.1数据类型(参考APPENDIXB)73.2定义命令73.3输出显示命令73.4数据记录操作命令83.5其他命令83.6判断、循环84PROGESS常用函数(参考APPENDIXA)94.1转换函数94.2截取函数104.3运算函数104.4记录状态函数104.5逻辑函数114.6mfg/pro的函数115开发惯例116PROGR

2、ESS程序模式117PROGRESS其他常用模式138例子13PROGRESS培训文档1PROGRESS概述及学习PROGRESS是大型数据库系统，4GL语言，目前的版本是V9.0，有很高的安全性，满足企业ERP系统数据安全管理，系统特点是易于管理，语法简洁，方便程序开发，在国内应用较少，因为它被MFG/PRO和SYMIX等ERP系统用作其主流数据库和程序支持，在国内有一定的市场范围，PROGRESS的程序员不多。1.1学习PROGRESS的必要§QAD公司的MFG/PRO产品使用PROGRESS，了解PROGRESS，便于实施和客户化开发，更好的使用系统。§从

3、安全的角度讲，需要对PROGRESS数据库的数据导入、导出及数据备份有详细了解。§利用PROGRESS易于开发的特点，针对PROGRESS用户，使用PROGRESS开发系统模块，对MFG/PRO是很好的补充和扩展。1.2学习要点§了解PROGRESS数据字典的使用§熟悉常用函数及命令§熟悉维护、处理、查询报表的格式§了解MFG/PRO的基本表关系§熟悉一些文件输入、输出等其他操作§读例子学习PROGRESS培训文档1PROGRESS数据字典的使用数据字典建立表建立字段PROGRESS培训文档建立索引DUMP/LOAD功能PROGRESS培训文档PROGRESS培

4、训文档1PROGRESS常用命令1.1数据类型(参考APPENDIXB)§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)sharedvarpart1ascharformat“x(8)”init‘1’.-----------------变量定义§definevarp

5、art1likept_part.----------------类似变量定义§definevarqtyasdecimalextent10.--------数组定义，初始化qty=0§Definebufferpart_mforpt_mstr.------------BUFFER定义1.3输出显示命令§disppartlabel‘零件号’descrylabel‘描述’.§putpartat1.§Skip(n)§Message“加入新记录”§Message"系统控制文件必须维护"VIEW-ASALERT-BOXINFORMATION(warn/error)BUTTON

6、SOKtitle"提示".PROGRESS培训文档1.1数据记录操作命令§Create§Delete§set§Update§Prompt-for§Assign§release§Find§breakbypartbytypedesc§where1.2其他命令§Undo,retry.§Validate(partbegins’1’,”零件号应以1开头”)§begins:ifvar1begins‘a’then….以什么打头§leave§next§100modulo3=1:取余数§+-*/=<><=>=<>:加、减、乘、除、等于、不等于。。。1.3判断、循环§if-then

7、-else判断ifvar1>var2thenvar1=100.elsevar2=100.Ifvar1>=var2thendo:Ifvar1>20thendo:F1=10.F2=20.End.End.Elsedo:……end.§DO循环PROGRESS培训文档DoI=1to10:A=b+c.B=a/c.End.§Repeat循环Repeat:A=a+10.Ifa>=100thenleave.End.§Foreach循环Foreachpr01mwherepr01m_036>=‘a1’andpr01m_036<=‘a3’:Ifpr01m_002begins‘1’the

8、nnext.Findfi