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

87 阅读 0 评论 58 点赞

我是靠谱客的博主香蕉时光，最近开发中收集的这篇文章主要介绍EBS Form开发利用QUERY_FIND来实现最简单的查询功能，觉得挺不错的，现在分享给大家，希望可以做个参考。

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

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。