问题由来:
在项目中用户使用输入查询并执行后,执行Execute_Query语句则自动恢复Default_Where条件查询,希望保留输入的查询条件,则可以使用下面的方法。程序自动记忆用户输入的查询条件,并通过直接单击“执行查询”按钮恢复Default_Where条件过滤。
需创建以下参数:请根据查询条件的复杂度设定长度!
:parameter.d_where 存储Block的Default_Where
:parameter.lastwhere 存储Block的前次查询条件(用户输入)
使用Block的KEY-EXEQRY触发器
declare
v_query VARCHAR2(1000);
m NUMBER;
n NUMBER;
o NUMBER;
BEGIN
v_query VARCHAR2(1000);
m NUMBER;
n NUMBER;
o NUMBER;
BEGIN
--判断当前查询模式,如非Enter-Query则恢复先前设置的Default_Where否则执行用户输入查询
if :system.mode='ENTER-QUERY' then
execute_query;
if :system.mode='ENTER-QUERY' then
execute_query;
--记忆前次查询条件并截取Where语句
v_query:=trim(GET_BLOCK_PROPERTY('zc_bfjh',LAST_QUERY));
m:=length(v_query);
n:=instr(upper(v_query),'WHERE');
o:=instr(upper(v_query),'ORDER');
IF v_query IS NOT NULL THEN
if o>0 then
:parameter.lastwhere:=trim(SUBSTR(v_query,n+5,o-n-5));
else
:parameter.lastwhere:=trim(SUBSTR(v_query,n+5,m-n-5+1));
end if;
ELSE
:parameter.lastwhere:='';
END IF;
else
v_query:=trim(GET_BLOCK_PROPERTY('zc_bfjh',LAST_QUERY));
m:=length(v_query);
n:=instr(upper(v_query),'WHERE');
o:=instr(upper(v_query),'ORDER');
IF v_query IS NOT NULL THEN
if o>0 then
:parameter.lastwhere:=trim(SUBSTR(v_query,n+5,o-n-5));
else
:parameter.lastwhere:=trim(SUBSTR(v_query,n+5,m-n-5+1));
end if;
ELSE
:parameter.lastwhere:='';
END IF;
else
--恢复Default_Where
SET_BLOCK_PROPERTY('ZC_bfjh',DEFAULT_WHERE,:parameter.d_where);
execute_query;
end if;
end;
SET_BLOCK_PROPERTY('ZC_bfjh',DEFAULT_WHERE,:parameter.d_where);
execute_query;
end if;
end;
需执行Execute_Query时
--判断是否应用记忆的查询条件
if :parameter.lastwhere is not null or length(trim(:parameter.lastwhere))>0 then
SET_BLOCK_PROPERTY('ZC_bfjh',DEFAULT_WHERE,:parameter.lastwhere);
end if;
SET_BLOCK_PROPERTY('ZC_bfjh',DEFAULT_WHERE,:parameter.lastwhere);
end if;
(参考
www.oradev.net论坛资料)