以Oracle形式10g发布显示记录

Question

我是Oracle Form和pl / sql的新手。 这是我的问题在我的表单中，我得到了3个数据块，这些数据块显示了从名为BOS_M_HOLIDAY的表中检索到的记录。 但是不知何故，循环后只有最后一个记录显示在每个数据块中。 我检索记录的方式是使用PRE-FORM触发器和WHEN-TIME-EXPIRED触发器。 这是我在PRE-FORM触发器中的代码：

DECLARE

CURSOR a_aa is SELECT HOL_DATE FROM BOS_M_HOLIDAY WHERE REGEXP_LIKE(HOL_DATE, '.......12') ORDER BY HOL_DATE;
CURSOR a_bb is SELECT HOL_DATE FROM BOS_M_HOLIDAY WHERE REGEXP_LIKE(HOL_DATE, '.......13') ORDER BY HOL_DATE ;
CURSOR a_cc is SELECT distinct DESCR FROM BOS_M_HOLIDAY WHERE REGEXP_LIKE(HOL_DATE, '.......13')ORDER BY 1;
Timer_ID TIMER;

BEGIN

OPEN a_aa;
LOOP
    FETCH a_aa INTO :holiday_2012.HOL_DATE;
    EXIT WHEN a_aa%notfound;
    Timer_ID := FIND_TIMER('CALL_NEXT_RECORD');
        IF NOT Id_Null(Timer_ID) THEN
        Delete_Timer(Timer_ID);
        END IF;
    Timer_ID := Create_Timer('CALL_NEXT_RECORD',1,NO_REPEAT);
END LOOP;
CLOSE a_aa;

OPEN a_bb;
LOOP
    FETCH a_bb INTO :holiday_2013.HOL_DATE;
    EXIT WHEN a_bb%notfound;
    Timer_ID := FIND_TIMER('CALL_NEXT_RECORD');
        IF NOT Id_Null(Timer_ID) THEN
        Delete_Timer(Timer_ID);
        END IF;
    Timer_ID := Create_Timer('CALL_NEXT_RECORD',1,NO_REPEAT);
END LOOP;
CLOSE a_bb;

OPEN a_cc;
LOOP
    FETCH a_cc INTO :description.DESCR;
    EXIT WHEN a_cc%notfound;
    Timer_ID := FIND_TIMER('CALL_NEXT_RECORD');
        IF NOT Id_Null(Timer_ID) THEN
        Delete_Timer(Timer_ID);
        END IF;
    Timer_ID := Create_Timer('CALL_NEXT_RECORD',1,NO_REPEAT);
END LOOP;
CLOSE a_cc;

END;

这是我在WHEN-TIME-EXPIRED触发器中的代码：

DECLARE
v_Timer VARCHAR2(30) := Get_Application_Property(TIMER_NAME);
BEGIN
IF (v_Timer = 'CALL_NEXT_RECORD') THEN
    NEXT_RECORD;
END IF;
END;

当我使用不带TIMER部件的WHEN-BUTTON-PRESSED触发器时，此代码有效。 裸露我的英语，随时问我是否有您不理解的部分。 谢谢！

Answer 1

在循环中，每个记录都被分配给每个块中的相同（第一）记录。 当然，您创建了一个发出NEXT_RECORD的计时器，但这到目前为止是最糟糕的主意-并且无论如何都无法正常工作，因为在计时器实际执行时，大多数（如果不是全部）循环已经完成。 您的循环中没有任何东西等待计时器完成之后才进入下一条记录-实际上，它可能会在计时器没有机会真正运行之前创建并破坏计时器很多次！

请勿将计时器用于此类操作。 您需要在循环中调用NEXT_RECORD 。

另外，我建议您不要将这种代码放入PRE-FORM ，而是将其放入WHEN-NEW-FORM-INSTANCE触发器中。

更好的是，您应该将块放在表上（将谓词放在DEFAULT_WHERE属性中）并执行查询，而不要使用此过程代码。