Find Query Window的運作？(手电筒)
提示: 在點選 Toolbar的 Find鈕時，系統會觸發 Query_Find此 Trigger。
執行 App_Find.Query_Find此 Procedure時，系統自動將 :Parameter.G_Query_Find設定為 TRUE。
步驟一、点击手电筒按钮，弹出查询窗口
在Query Block的QUERY_FIND Trigger (override) 写入以下代码：
App_Find.Query_Find( ‘<Result Window>’，’<Query Window>’，’<Query Block>’ )；
--
app_find.query_find(‘XXWIP_WAFERLOT_V‘, ‘XXWAFER_FIND‘, ‘XXWAFER_FIND‘);
步驟二、指定被查询的Block，执行查询
在查询窗口Find Button的 WHEN-BUTTON-PRESSED Trigger中，寫入以下代码：
app_find.find(‘<Result Block>‘);
相当于 go_block(‘<Result Block>‘); execute_query;
--
:parameter.G_query_find := ‘TRUE‘;
app_find.find(‘XXWIP_WAFERLOT_V‘);
:parameter.G_query_find := ‘FALSE‘;
步驟三、编辑查询条件
步驟 3、在 Result Block中的 PRE-QUERY此 Block Trigger (Before)，程式碼如下：
if :Parameter.G_Query_Find = ‘TRUE’ then
<Result Block Item> := ：<Query Block Item>；
…
:Parameter.G_Query_Find := ‘FALSE’；
end if；
--
if (:parameter.g_query_find = ‘TRUE‘) then
if (:XXWAFER_FIND.CUSTOMER is not null) then
:XXWIP_WAFERLOT_V.CUSTOMER := :XXWAFER_FIND.CUSTOMER;
end if;
...
:parameter.g_query_find := ‘FALSE‘;
end if;
Find Query Window的运作(手电筒),布布扣,bubuko.com
原文地址：http://www.cnblogs.com/bruce_zhao/p/3810250.html
