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(接收事务表),并选择几个字段如下。

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

3.      后面一路默认,然后设置RESULLTSblock的属性如下,之前建立的不是Data baseData block,所以这里一定要改成是的。

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

4.      然后去修改之前定义的Canvas,选择Canvas,然后右键选择布局向导,把RESULLTSblock的如下字段都选择如下图。

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

5.      点击下一步,如果要改Prompt可以在这里更改,然后再下一页选择form,这里不要tabular(表格).

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

6.      并根据需要调整相应的Canvas如下

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

7.      这样查询结果的界面就建立好了,下面要根据查询界面。先打开APPSTAND.fmb,然后从其中的对象组(ObjectGroups)中把QUERY_FIND拖到我们form的对象组中,并选择拷贝,不要选择subclass。

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

8.      拷贝完成后,会把名为QUERY_FIND的WINDOW,BLOCK和CANVAS分别自动拷贝到相应的对象类别下去。现在就可以删除QUERY_FIND的对象组了,而且不要再在这个form下使用这个对象组了。

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

9.      我们把上面新增的三个对象的名称改为FIND,并设置相应的subclass为WINDOW, BLOCK和CANVAS,编辑FIND Block和CANVAS,可以看到有自动生成了下面三个按钮。

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

10.  我们在FIND BLOCK下添加一个名为TXNID的简单TEXT ITEM,并设置属性如下,这样就可以用来根据Transaction_id 从RCV_TRANSACTION表中查出数据。

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

11.  在FIND BLOCK上根据需要调整TXNID的位置。

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

12.  现在修改FIND BLOCK中的 KEY-NXTBLK 触发器,NEW和FIND按钮的WHEN-BUTTON-PRESSED触发器,主要是填上我们的查询结果的BLOCK的名字RESULLTS.

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

13.  为查询结果BLOCK添加PRE-QUERY触发器,代码如下。

IF :parameter.G_query_find = ‘TRUE‘ THEN

          :RESULLTS.TRANSACTION_ID := :FIND.TXNID;

 :parameter.G_query_find := ‘FALSE‘;

END IF; 

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


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

Syntax:APP_FIND.QUERY_FIND(<results block window>,<Find window>,<Findwindow block>);
EBS Form开发利用QUERY_FIND来实现最简单的查询功能(2)

15.  设置FORM的第一个BLOCK为FIND, FIND的下一个BLOCK为RESULLTS。

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

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

16.  最后放到服务器上,编译,然后打开EBS查看,FIND效果如下

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

17.  输入一个有效的TRANSACTIONID,点击FIND,可以看到结果窗口如下

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

18.  点击NEW的话如下。

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

一个最简单的查询Form就最做好了.

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

上一篇:使用PolarDB和ECS搭建门户网站


下一篇:一串最简单的JavaScript代码,在Chrome开发者工具调试器里触发VM8标签的出现