form timer的使用

在form级别，创建2个trigger，

WHEN-NEW-FORM-INSTANCE：（创建timer）
DECLARE
hour_timer TIMER;
one_hour NUMBER(7):=3600000;
ten_seconds NUMBER(7):=10000;
BEGIN
hour_timer:= CREATE_TIMER('alarm',ten_seconds,REPEAT);
END;


WHEN-TIMER-EXPIRED：（响应timer）

Message('Timer');
Message('Timer');

以上例子的调试结果是，每间隔10秒钟，会弹出来一个消息：“Timer”。


timer的一些操作语句：
DECLARE 
timer_id TIMER; 
beggin
  timer_id := FIND_TIMER('alarm'); 
  Set_Timer(timer_id, two_minutes, NO_CHANGE);--重新设置timer时间
  Delete_Timer(timer_id); --delete timer
end;


***********************响应多个timer*********************
/* Create a When-Timer-Expired trigger that can handle multiple** application timers. */

DECLARE
     expired_timer CHAR(20);
BEGIN
     expired_timer:=GET_APPLICATION_PROPERTY(TIMER_NAME);
     IF expired_timer='T1'THEN 
         /* handle timer T1 */;
     ELSIF expired_timer='T2'THEN 
        /* handle timer T2 */;
     ELSE 
        /* handle all other timers */;
    END IF;
END;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25103190/viewspace-721823/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/25103190/viewspace-721823/