Oracle Form開發手電筒查詢功能實現

實現手電筒查詢的功能首先，先按template將其他功能先實現，然後再來實現查詢的功能。手電筒查詢的effect有兩二種，①lov形式，②window形式。

1、lov查詢模式：一般適用於查詢結果只返回單條條件的查詢(如主從資料塊的介面)。

①建立乙個parameter引數：test_p

②建立乙個基於主鍵查詢lov-test_l，並將主鍵字段對映給parameter引數test_p。

③在資料塊中建立pre-query觸發器。

if :parameter.g_query_find = 'true' then :blockname.header_id := :parameter.test_p; :parameter.g_query_find := 'false';

end if;

④在資料塊中再建立query_find觸發器。

begin

end;

⑤完成效果如下：

2、window查詢模式：一般適用多條件查詢，可以返回多條查詢記錄。

②重新命名第乙個資料塊、畫布、視窗(query_***都是剛才自動建立的)。user guid說可以重新命名，但我沒有重新命名成功。也懶得去折騰乙個命名的問題。^_^ ③開啟query_find畫布，改寫「新建」、「查詢」兩個按鈕when-button-press之中的**。

new按鈕**：

find按鈕**：

④設定query_find資料塊的「前一導航資料塊」，也就是要實現詢查功能的資料塊。

⑤修改query_find資料塊key-nxtblk觸發器**

⑦修改query_find視窗的標題及尺寸，並在query_find畫布上建立要查詢的條件item。 ⑧在要實現查詢的資料塊(如：hek_sale_cust_manual),建立pre-query觸發器。

⑨在要實現查詢的資料塊(如：hek_sale_cust_manual),再建立query_find觸發器。

⑩完成效果如下：

記錄指示器切換標籤頁

1、在該資料塊中手工增加乙個item

設定item的屬性：子類資訊：設成drilldown_record_indicator，資料庫項：否.

2.在新增的item的when-mouse-click觸發器加入

declare

v_order number;

begin

v_order := : block_name1.item; --block_name表示要切換tab的資料塊

if v_order is not null then

go_block(' block_name1');

set_block_property('block_name1 ',default_where,'order_number='||v_order);

execute_query;

end if;

end;

3.這樣就可以實現類似vb中的tab切換了。由於oracle form沒有專門的tab函式，只能如此曲折實現。