DECLARE

  V_DEFAULT_WHERE VARCHAR2(32767);
  V_WHERE         VARCHAR2(32767);

BEGIN

  --获取系统默认的查询条件
  V_DEFAULT_WHERE := GET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE);

  --根据查询条件是否有WHERE拼接SQL
  IF V_DEFAULT_WHERE IS NULL THEN
    V_WHERE := V_DEFAULT_WHERE || ' WHERE 1 = 1 ';
  ELSE
    V_WHERE := V_DEFAULT_WHERE || ' AND 1 = 1 ';
  END IF;
 
  --拼接其它查询条件 BEGIN--
  --
  --
  --拼接其它查询条件 END--

  SET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE, V_WHERE); --将新的查询条件赋值给这个BLOCK的DEFAULT_WHERE进行查询
  --清空，否则FORM下次查询的时候会把前一次的条件带入
  CLEAR_RECORD;
  EXECUTE_QUERY;
  --将原默认的DEFAULT_WHERE值重新恢复回去
  SET_BLOCK_PROPERTY(:SYSTEM.CURSOR_BLOCK, DEFAULT_WHERE, V_DEFAULT_WHERE);

END;