EBS Form开发利用QUERY_FIND来实现最简单的查询功能(2)

EBS Form开发利用QUERY_FIND来实现最简单的查询功能(2)

（版权声明，本人原创或者翻译的文章如需转载，如转载用于个人学习，请注明出处；否则请与本人联系，违者必究）

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触发器，代码如下。

IF :parameter.G_query_find = 'TRUE' THEN

          :RESULLTS.TRANSACTION_ID := :FIND.TXNID;

 :parameter.G_query_find := 'FALSE';

END IF; 

14.为查询结果BLOCK添加自定义QUERY_FIND触发器，代码截图，这里

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就最做好了.