ITPub博客

首页 > Linux操作系统 > Linux操作系统 > froms ----查询模式建立

froms ----查询模式建立

原创 Linux操作系统 作者:xingkongcjs 时间:2011-09-08 11:38:06 0 删除 编辑
1. 打开appstand.fmd 
 
2. 复制appstand.fmd 中对象组的query_find
 
3.重命名query_find 块 画布 窗口
 
4. 设置query_find 块title
 
5. query_find 块
     @ 建立 button (   WHEN-BUTTON-PRESSED----  :parameter.G_query_find := 'TRUE';
app_find.find('INVTEM');
:parameter.G_query_find := 'FALSE';
)   \text_item 等.
 
    @key_nxtblk_trigger  (:parameter.G_query_find := 'TRUE';
app_find.find('INVTEM');
:parameter.G_query_find := 'FALSE';
)
    @ 'INVTEM' 块 建立 pre_query (If :parameter.g_query_find = 'TRUE' then
:INVTEM.ITEM_NO:= :query_find.TEST_TEXT;
:parameter.g_query_find := 'FALSE';
end If;
app_find.query_range(::query_find.TEST_TEXT,
::query_find.TEST_TEXT,
'INVTEM.ITEM_NO');
)\ query_find  trigger (app_find.query_find('INVTEM', 'TEST_QF',
'TEST_QF');)
 
   @ query_find 块 previous navigation block  属性 result block name
 
 
 
 
 
 
 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

  app_find.query_find('TEST_L'); --调用LOV

  end;

  ⑤完成效果如下:

  

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24658529/viewspace-706903/,如需转载,请注明出处,否则将追究法律责任。

上一篇: FORMS BUILDER
请登录后发表评论 登录
全部评论

注册时间:2011-06-01

  • 博文量
    13
  • 访问量
    14257