赛捷X3开发教程之三-查询

/查询创建流程扶程星云于赛捷北京查询的好处查询应该是客户最喜欢用的工具之一,查询功能及其强大，凡是在表中的数据均可通过查询来展现，也可以通过处理相关数据来得到自己想要的结果,可以称为屠龙刀！这里我把该利器送给需要的人，希望能给大家帮助！查询窗口的创建一、创建查询主屏幕字段内容是填写查询条件所需要的字段创建查询结果屏幕，字段内容是查询结果所要显示的字段，ＮBLIG的录入属性必须为录入，否则不能导出查询结果创建窗口注意事项是刚开始是没有对应查询的,请先不要填写此处，待创建查询后再填这里,如果不慎进入这里，也可以先用其他查询暂时代替,但是别忘记恢复！创建查询，将刚创建的窗口挂上,注意这里的，决定查询将要调用的代码,创建完成后记得原窗口里面的查询更改成正确的查询！正确窗口如下：查询窗口挂菜单方法系统会自动创建功能和对应的业务代码，没有的话请自己创建,然后指定挂接菜单位置二、无对应的业务代码请点击业务代码创建新业务代码，请注意和先创建的查询要一致三、功能审核和菜单审核后重进Ｘ３即可使用查询代码$ＡCＴＩＯＮCaｓeAＣＴIONWhen”ＯUVＲＥ＂GｏsｕｂOUVRＥ＃＃对象连接表打开后＃＃When”LＥＣTURE＂GosｕbLECTURE＃＃当用户运行数据搜索或刷新屏幕时＃#WｈenｄefaultEndcaseRetｕrn＄OUＶＲＥ＃##对象连接表打开后＃＃If!cｌalev([F:YSA］）Loｃaｌ[YＳA］Enｄｉf＃＃实际成本汇总表##Returｎ$LOAD_ＦILTEＲ#＃查询过滤条件#＃＄LＯAD_FIＬTERＷFIL="SＴOFCＹ=[Ｍ：YMS1]ＳＴOFCY”Ｉf［M：YMＳ１］MONTHＬＹ〈〉[0/0/0］WFIＬ+=＂＆MONＴHLＹ=［M：YMＳ1]MOＮＴHＬY＂ＥnｄiｆＩf［M:ＹMＳ1］ＩTＭRＥＦ<〉"＂WFIL+＝＂＆IＴMＲＥＦ=［M：YＭS１]ITＭRＥF"EndｉfＩf［Ｍ：YMＳ1］ＭFGNＵM＜>"”WＦIL+=＂&MFGNUM=[M：YMS1］ＭFＧNＵM”EndiｆRｅｔuｒｎ＄ＬECＴURＥ#当用户运行数据搜索或刷新屏幕时ＧosubＣHAＮＧＥ_MSＫFromGCＯNSULTIfCHGPAG〈0:NＯL=MＡXLIＧ：Endif＃－-Sｅｔtingｏfｔｈefilｔerｓ设置过滤条件GosｕbLOAD＿FIＬＴER＃—－onlyinｔhesｔａｎdardprｏceｓses:ｃalltoｔhｅspｅcifiｃ/customIfPＲOGSPE〈〉””AＣＴＩON＝＂FILＴRＥ":GosｕbACTIＯNＦrｏm=PROＧSPEEnｄif＃——AppliｃａtioｎｏftｈefiｌterｓａndtｈｅｓortstotherecoｒdsＩfCHＧPAG>0SUITＥ＝1IfCHGＰAＧ=1：RETOUR=1:ＥlsifCHGPＡＧ=2：RETOUＲ＝２:ＥndｉfElseRETOUR=1IｆCＨＧPAG＝-1：SUITE＝1：EｌsｅSUITE=２：ＥnｄifEnｄifＦilter［ＹＳA］Ｗｈｅreｅｖalｕe(WFIＬ）OｒdeｒＢｙSTＯFCY；MFGNUM；ＩTＭRＥF#—-razｏｆtｈｅmaskiftheｆirstorlastpageIfCHGPAＧ〈>2＆ＣＨGPＡG＜＞-2：Rａｚ［M:YMS2］:Endiｆ＃—－rｅａｄlｏop循环读记录For[YSA]IfNBLU＝1：NBLU=2:EndｉfＩfCHＧＰAG〉０IfNOL>＝MAXLIG－1:ＳUITE=2：Break：EndifNOL+=1ＥlseＩfＮOL〈=0:RETOUＲ＝２：Breaｋ：EndifNOL－=１Eｎdiｆ＃－-loadｉｎgｏftｈemaｓknolign=ＮＯL+１［Ｍ：YＭS２］=［Ｆ:YSＡ］NｅxtFilter[YSＡ］Return注:功能指定菜单所在位置，功能里面的业务代码指定查询窗口.特将查询相关开发规范写下来给大家参考新创建的属于一个新查询的屏幕必须采用查询屏幕的标准命名规则。例如，一个新查询名称为“ZSＤ”，相关的屏幕应按照如下方式命名：•头屏幕–CONSＺSD1（ＺＳD１的缩写词)•明细屏幕–CＯNSZSＤ2（ＺＳD２的缩写词）•条件屏幕–CRIＴＺSD(CＺＳD的缩写词）属于一个新查询的新窗体必须按照标准命名约定来创建。例如,一个新查询名为“ZSD”窗体应该按照如下方式来命名：•查询窗体–DCNＳZSD