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

查询创建流程 扶程星云于赛捷北京 查询的好处 查询应该是客户最喜欢用的工具之一，查询功能及其强大，凡是在表中的数据均可通过查询来展现，也可以通过处理相关数据来得到自己想要的结果，可以称为屠龙刀！这里我把该利器送给需要的人，希望能给大家帮助！ 查询窗口的创建 一、创建查询主屏幕 字段内容是填写查询条件所需要的字段 创建查询结果屏幕，字段内容是查询结果所要显示的字段，NBLIG的录入属性必须为录入，否则不能导出查询结果 创建窗口 注意事项是刚开始是没有对应查询的，请先不要填写此处，待创建查询后再填这里，如果不慎进入这里，也可以先用其他查询暂时代替，但是别忘记恢复！ 创建查询，将刚创建的窗口挂上，注意这里的，决定查询将要调用的代码，创建完成后记得原窗口里面的查询更改成正确的查询！ 正确窗口如下： 查询窗口挂菜单方法 系统会自动创建功能和对应的业务代码，没有的话请自己创建，然后指定挂接菜单位置 二、无对应的业务代码请点击业务代码创建新业务代码，请注意和先创建的查询要一致 三、功能审核和菜单审核后重进X3即可使用 查询代码 $ACTION Case ACTION When OUVRE Gosub OUVRE ##对象连接表打开后## When LECTURE Gosub LECTURE ##当用户运行数据搜索或刷新屏幕时## When default Endcase Return $OUVRE ###对象连接表打开后## If !clalev([F:YSA]) Local File YACCSA[YSA] Endif ##实际成本汇总表## Return $LOAD_FILTER ##查询过滤条件## $LOAD_FILTER WFIL = STOFCY = [M:YMS1]STOFCY If [M:YMS1]MONTHLY[0/0/0] WFIL += MONTHLY = [M:YMS1]MONTHLY Endif If [M:YMS1]ITMREF WFIL += ITMREF = [M:YMS1]ITMREF Endif If [M:YMS1]MFGNUM WFIL += MFGNUM = [M:YMS1]MFGNUM Endif Return $LECTURE #当用户运行数据搜索或刷新屏幕时 Gosub CHANGE_MSK From GCONSULT If CHGPAG0 : NOL = MAXLIG : Endif #-- Setting of the filters 设置过滤条件 Gosub LOAD_FILTER #-- only in the standard processes : call to the specific/custom If PROGSPE ACTION = FILTRE : Gosub ACTION From =PROGSPE Endif #-- Application of the filters and the sorts to the records If CHGPAG 0 SUITE=1 If CHGPAG = 1 : RETOUR = 1 : Elsif CHGPAG = 2 : RETOUR = 2 : Endif Else RETOUR=1 If CHGPAG = -1 : SUITE = 1 : Else SUITE = 2 : Endif Endif Filter [YSA] Where evalue(WFIL) Order By STOFCY;MFGNUM;ITMREF #-- raz of the mask if the first or last page If CHGPAG2 CHGPAG-2 : Raz [M:YMS2] : Endif #-- read loop 循环读记录 For [YSA] If NBLU = 1 : NBLU = 2 : Endif If CHGPAG 0 If NOL = MAXLIG-1 : SUITE=2 : Break: Endif NOL += 1 Else If NOL = 0 : RETOUR=2 : Break: Endif NOL -= 1 Endif #-- loading of the mask nol