Form9iBlock实现查询条件记忆刷新

问题由来：

在项目中用户使用输入查询并执行后，执行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

 --判断当前查询模式，如非Enter-Query则恢复先前设置的Default_Where否则执行用户输入查询
 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

   --恢复Default_Where
   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;

（参考 www.oradev.net论坛资料）