1、使用DEFAULT_WHERE：

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;

2、…

3、…