EBS Form開發利用QUERY_FIND來實現最簡單的查詢功能

阿新 • • 發佈：2019-01-13

EBS APPSTAND內建了實現基本查詢的各個基本物件，相應的庫內建了處理查詢的方法。

1. 利用上篇文章中根據TEMPLATE建立好的HWFMB1.fmb來完善查詢功能。

2. 選擇RESULLTS block刪除上次新增的按鈕 item，然後右鍵選擇 Data Block 嚮導，先選擇Table or View,然後再下一頁選擇我們這裡用的資料庫表為Rcv_transactions(接收事務表)，並選擇幾個欄位如下。

3. 後面一路預設，然後設定RESULLTSblock的屬性如下，之前建立的不是Data baseData block，所以這裡一定要改成是的。

4. 然後去修改之前定義的Canvas，選擇Canvas，然後右鍵選擇佈局嚮導，把RESULLTSblock的如下欄位都選擇如下圖。

5. 點選下一步，如果要改Prompt可以在這裡更改，然後再下一頁選擇form,這裡不要tabular（表格）.

6. 並根據需要調整相應的Canvas如下

7. 這樣查詢結果的介面就建立好了，下面要根據查詢介面。先開啟APPSTAND.fmb，然後從其中的物件組(ObjectGroups)中把QUERY_FIND拖到我們form的物件組中，並選擇拷貝，不要選擇subclass。

8. 拷貝完成後，會把名為QUERY_FIND的WINDOW,BLOCK和CANVAS分別自動拷貝到相應的物件類別下去。現在就可以刪除QUERY_FIND的物件組了，而且不要再在這個form下使用這個物件組了。

9. 我們把上面新增的三個物件的名稱改為FIND，並設定相應的subclass為WINDOW, BLOCK和CANVAS，編輯FIND Block和CANVAS，可以看到有自動生成了下面三個按鈕。

10. 我們在FIND BLOCK下新增一個名為TXNID的簡單TEXT ITEM，並設定屬性如下，這樣就可以用來根據Transaction_id 從RCV_TRANSACTION表中查出資料。

11. 在FIND BLOCK上根據需要調整TXNID的位置。

12. 現在修改FIND BLOCK中的 KEY-NXTBLK 觸發器，NEW和FIND按鈕的WHEN-BUTTON-PRESSED觸發器，主要是填上我們的查詢結果的BLOCK的名字RESULLTS.

13. 為查詢結果BLOCK新增PRE-QUERY觸發器，程式碼如下。

[sql] view plain copy print ?

IF :parameter.G_query_find = 'TRUE' THEN

          :RESULLTS.TRANSACTION_ID := :FIND.TXNID;

 :parameter.G_query_find := 'FALSE';

END IF;

14. 為查詢結果BLOCK新增自定義QUERY_FIND觸發器，程式碼截圖，這裡

[sql] view plain copy print ?

Syntax:APP_FIND.QUERY_FIND(<results block window>,<Find window>,<Findwindow block>);

Syntax:APP_FIND.QUERY_FIND(<results block window>,<Find window>,<Findwindow block>);

15. 設定FORM的第一個BLOCK為FIND， FIND的下一個BLOCK為RESULLTS。

16. 最後放到伺服器上，編譯，然後開啟EBS檢視，FIND效果如下

17. 輸入一個有效的TRANSACTIONID，點選FIND，可以看到結果視窗如下

18. 點選NEW的話如下。

一個最簡單的查詢Form就最做好了.