OracleForm开发手电筒查找功能实现
OracleForm开发手电筒查找功能实现
分类：ORACLEEBSFORM201305101046208人阅读评论0收藏举报
实现手电筒查找的功能
首先，先按TEMPLATE将其他功能先实现，然后再来实现查找的功能。手电筒查找的Effect有两二种，①LOV形式，②wi
dow形式。1、LOV查找模式：一般适用于查询结果只返回单条条件的查询如主从数据块的界面。①创建一个parameter参数：TEST_P②创建一个基于主键查询LOVTEST_L，并将主键字段映射给Parameter参数TEST_P。
③在数据块中创建PREQUERY触发器。IFparameterG_query_fi
dTRUETHENBLOCKNAMEHEADER_IDparameterTEST_PparameterG_query_fi
dFALSE
fe
dif④在数据块中再创建QUERY_FIND触发器。begi
app_fi
dquery_fi
dTEST_L调用LOVe
d⑤完成效果如下：
2、WINDOW查找模式：一般适用多条件查询，可以返回多条查询记录。①打开在标准FORMAPPSTANDfmb。将对象组中的QUERY_FIND拖至待开发的FORM中。这个地方要选择COPY
f②重命名第一个数据块、画布、窗口QUERY_都是刚才自动创建的。USERGUID说可以重命名，但我没有重命名成功。也懒得去折腾一个命名的问题。_③打开QUERY_FIND画布，改写“新建”、“查找”两个按钮WHENBUTTONPRESS之中的代码。
NEW按钮代码：app_fi
d
ewYourblock
amehereapp_fi
d
ewHEK_SALE_CUST_MANUALFIND按钮代码：parameterG_query_fi
dTRUEapp_fi
dfi
dyourblock
amehereapp_fi
dfi
dHEK_SALE_CUST_MANUALparameterG_query_fi
dFALSE④设置QUERY_FIND数据块的“前一导航数据块”，也就是要实现询查功能的数据块。
⑤修改QUERY_FIND数据块KEYNXTBLK触发器代码parameterG_query_fi
dTRUEapp_fi
dfi
dyourblock
amehereapp_fi
dfi
dHEK_SALE_CUST_MANUALparameterG_query_fi
dFALSE⑦修改QUERY_FIND窗口的标题及尺寸，并在QUERY_FIND画布上创建要查找的条件ITEM。⑧在要实现查询的数据块如：HEK_SALE_CUST_MANUAL创建PREQUERY触发器。
fifparameterg_query_fi
dTRUEthe

app_fi
dquery_ra
ge
ame_i
query_fi
dCUSTOMER_NUMBER
ame_i
query_fi
dCUSTOMER_NUMBERHEK_SALE_CUST_MANUALCUST_CODE
app_fi
dquery_ra
gequery_fi
dCUST_DATEquery_fi
dCUST_DATEHEK_SALE_CUST_MANUALTIME_IDparameterG_query_fi
dFALSEe
dif注：app_fi
dquery_ra
ge参数前两个是QUERY_FIND中的ITEM，后一个是查询块中的ITEM。⑨在要实现查询的数据块如：HEK_SALE_CUST_MANUAL再创建QUERY_FIND触发器。APP_FINDQUERY_FINDapp_fi
dquery_fi
dHEK_SALE_DEPT_MANUALQUERY_FINDQUERY_FIND⑩完成效果如下：
记录指示器切换标签页Effect
f1、在该数据块中手工增r