当前位置:首页 > 商业/管理/HR > 信息化管理 > Progress学习
PROGRESS编程其实很简单(一)一、变量定义。变量必须在第一次被使用之前定义,可以定义在程序的任何地方!但是通常为了增加程序的可读性,变量定义都放在程序的开始处!以下是变量定义的几个实例:definevariablestr01ascharlabelDemoStringinitialhello.defvarstr02likestr01.defvardt01asdateextent5.defvarinte01asinteformat9.说明,第一行:str01是变量名,变量名不要与系统关键字重复,字符或者下划线开头,比如strModel,_Model;string表示变量类型,本例指字符型变量,其它类似的比如integer,date,logical等;label就是后续程序中对变量的描述,比如需要用户输入这个变量值时,系统提示“DemoString;initial给变量赋初始值第二行:def和var都是简写,def是define的简写,var是variable的简写;PROGRESS支持语法简写,但是初学者最好先写全,后面有经验了再简写。like和as的不同点是:as后面直接说明变量类型,而like后面跟另外一个变量或者字段。第三行:extent5,表示该变量是数组变量。第四行:format9指定变量格式指定变量格式一个最大的好处就是预留宽度,这个对变量的输入或报表的输出都很有用的。比如年份的宽度一定是4位的,那么你就可以指定格式format9999。PROGRESS程序每行结束必须有个“.”号!!!二、注释。注释就是用/*...*/,可以嵌套,比如/*---注释1/*注释2*/---*/三、记录的显示。如果进入PROGRESS编程模式以后连接了数据库,那么直接显示记录的值即可,比如:foreachTABLE_NAME:displayTABLE_NAME.end./*显示TABLE_NAME所有字段所有记录*/或者:findfirstTABLE_NAME.displayTABLE_NAME./*显示TABLE_NAME第一条记录所有字段的值*/通常显示记录值都是采用这2种方式!当然,可以按要求显示特殊的字段,比如:FOREACHpt_mstrWHEREpt_modelBEGINSENO-LOCKBREAKBYpt_price:DISPpt_modelpt_price.END.这个程序看起来真的很容易明白,简单说明:1、where后面带条件,比如===等等,这种关系符,对数字、日期或者字符串,都适用;关于条件的几种组合举例:条件1and条件2(条件1or条件2)and(条件3or条件4)not条件12、no-lock,这是关键字,你只要记住:如果接下来的程序要对记录进行修改,那么不能加no-lock,如果不要,请加上no-lock;3、breakby,就是按某个字段排列,默认是按这个字段的升序,如果降序则后面加上desc,比如:breakbypt_pricedesc。如果需要多次排列,那么多by几次就可以,比如:breakbypt_pricebypt_date另外一个常用的显示或者更新记录的语句是find!比如:findpt_mstrwherept_model=mainboardno-lockno-error.findfirstpt_mstrwherept_price=10no-error.findlastpt_mstrwherept_price=10no-error.说明:1、where后面的条件跟foreach语句类似;2、no-lock的作用跟foreach的no-lock也是一样的;3、no-error,通常是find就加上,否则如果找不到满足条件的记录,系统会出错误提示;而实际上,通常需要在程序自己判断结果;4、findfirst就是定位第一条满足条件的记录;findlast定位最后一条满足条件的记录;4、还有一种叫findnext,就是定位当前记录的下一条;5、find和findfirst/findlast不同的是,find后面带的条件,通常是满足TABLE的某个唯一索引。关于foreach和find,这章你只要了解到这里就OK了!四、判断。判断最简单了,就是一个if条件then...else...,比如:DEFINEVARstr1ASCHARINITIALCPU.IFstr1=CPUTHENDISPcpu.ELSEDISPNOTcpu.当然,这个”条件“可能有很复杂的组合。如果,涉及到的动作比较多,那么做法是用do:...end.,比如DEFINEVARstr1ASCHARINITIALCPU.IFstr1=CPUTHENDO:str1=MyCPU.DISPcpu.END.ELSEDO:str1=Mymemory.DISPNOTcpu.END.DISPstr1.if支持嵌套,怎么嵌套?你自己会了!不是吗?五、循环。PROGRESS的循环功能实在令人不敢恭维,没有when没有while,没有loop、for什么的,只有一个repeat!不过,用好了这个repeat,一样实现任何功能。通常实现循环的模式:repeat:/*处理事务*/if条件thenleave./*退出循环*/end.现在,你试试用find和repeat实现foreach的功能!REPEAT:FINDNEXTpt_mstr.DISPpt_mstrWITH2COLUMNS.END.或DEFVARiASINTEGER.FOREACHpt_mstrWHEREpt_price10NO-LOCK.i=i+1.DISPpt_partpt_priceWITHDOWNFRAMEa.IFi200THENLEAVE.END.六、赋值和计算。+-*/,就是加减乘除了!比如:ttl_amoount=ttl_ammount+dtl_amount.x_a=x_b/x_c.str_ttl=I'm+sure!.dt01=today-1.dt01=3/22/2005./*日期*/当然,日期和字符串不能做乘法或者除法!七、其它零星的语法。显示:display简写disp退出编程模式:quit执行UNIX命令:unixCOMMAND好了,这章你学会了,如果熟悉数据库表和字段的结构,你也大概能看任何东西了,甚至做一些常规的统计也肯定没问题!PROGRESS编程其实很简单(二)PROGRESS程序架构。PROGRESS启动应用程序,通常都是先启动一个主程序,比如mf.p,这个mf.p做一些全局变量设置,并初始化应用程序菜单。当用户执行菜单功能时,实际上是运行菜单所指定的程序!在这种模式下,PROGRESS的程序一般都不大,结构明了可读性很强,每个程序目的非常明确,但是也要遵循一定的准则,方便以后的阅读和修改。一、程序扩展名的设定。.p主程序(可直接运行,或者编译以后挂主菜单被调用).i子程序(经常使用的执行某一特定功能,或者为了使主程序易于阅读脱离出来).v验证程序.wWindows的程序(Windows版的Progress支持可视化的组件编程,组件拉一拉放一放,就自动生成.w的文件了).r编译后的程序(菜单调用时,实际上是执行.r的程序)二、程序的命名规则。主程序格式:aa+bb+cc+dd.p其中:aa---系统模块IDbb---系统功能cc---程序类型(mt-维护、iq-查询或者rp-报表等)dd---序列号子程序格式:通常是主程序a.i主程序b.i这样子//关于程序的命名,个人觉得也没必要一定要遵循特定格式,一家公司有自己固定的命名方式,容易区分即可;如果是咨询公司或者系统集成公司,则要先了解客户的命名习惯和规则;同理,下面的“程序头”。三、程序头。以注释的形式,标明尽可能多的程序相关的信息,比如:程序名(路径,不过路径一般都是企业自己规定好了)、作者、菜单号、功能(菜单标题)、创建日期、修改日志等。至于格式,也就是POSE,爱怎么摆怎么摆,清楚明了即可。但是,在同一家公司,风格应该统一。另外,关于修改日志,个人觉得最好在程序头和程序体,都明显说明一下修改的日期和原因,要点。(注释不记入程序长度,所以不要担心程序太长,:p)四、维护类程序模板。注意:为方便说明,注释暂时用“//”,但是在PORGRESS程序里是错误的哈!definevariables.{mfdtitle.i}//程序头,全局变量定义等,是标准QAD的菜单程序就请加上这个,不要问为什么formwithframea.//定义格局(包含输入输出)Mainloop:repeat:prompt-for…editing://通常这里输入主要字段(如果比如订单号,料件名称等){mfnp.i}//前后记录显示功能,常用end./*ADD/MODI/DELETE*/assignglobal…find…ifnotavailable…//新记录{mfmsg.i11}“加入新记录”//类似mfmsg的子程序,都是信息提示类create…建立新记录assign…给新纪录的关键索引字段赋值end.Status=stline{2}.updatego-on(F5orCtrl-D)//继续维护剩余字段ifF5orCTRL-Dthendo://判断是否按了删除键,一般定义是F5或者Ctrl+Ddel-yn=yes.{mfmsg01.i111del-yn}end.End.Statusinput.五、报表类程序的模板。{mfdtitle.i}formdefinition[selectioncriteria]partcolon15part1colon40label{t001.i}effdatecolon15effdate1colon40label{t001.i}withframeaside-labelswidth80.//以上4行定义用户输入“限制报表输出”的条件,比如生效日期啊什么的repeat:ifpart1=hi_charthenpart1=“”.//如果用户不输任何东西,则默认最大字符或者最小字符,以下类似ifeffdate=low_datetheneffdate=?.ifeffdate1=hi_datetheneffdate1=?.datastatements[selectioncriteria]bcdparm=.{mfquoter.ipart}//BATCH专用,至今没用过,体会不到好处,哪位帮忙解释一下?{mfquoter.ipart1}{mfquoter.ieffdate}{mfquoter.ieffdate1}{mfselbpr.i“printer”132}//选择打印机的子程序ifpart1=“”thenpart1=hi_char.ifeffdate=?Theneffdate=low_date.ifeffdate1=?Theneffdate1=hi_date.{mfphead.iormfphead2.i}//报表头foreach…display{mfrpchk.i}or{mfrpexit..i}//报表结束end.{mfrtrail.i}or{mftr0801.i}or{mfreset.i}//报表结束、打印结束等end.六、查询类程序模板。这个比报表来得要简单些了:{mfdtitle.i}formdefinition[selectioncriteria]withframeaside-labelswidth80.repeat:datastatement[selectioncriteria]withframea.{mfselprt.i“terminal”80}foreach[selectioncriteria]display…{mfrpchk.i}(maxpage)end.{mfreset.i}(scrolloutput){mfmsg.i81}//列表完毕end.通过这章的学习,你对QAD的PROGRESS程序已经有大致的了解。但是你可能还是感觉到,如果叫你做一些切实的东西,还摸不着门(什么?你
本文标题:Progress学习
链接地址:https://www.777doc.com/doc-5239832 .html