froms ----查询模式建立
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 等.
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';
)
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');)
: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博客 ” ，链接：https://blog.itpub.net/24658529/viewspace-706903/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
