运行效果如图:
点击查看大图form 级的when-new-forms-instance 代码为:
declare
timer_id timer;
begin
timer_id:= create_timer('T1',1000,REPEAT);
-- T1 应大写,是时钟的名称,1000表示1秒
:current_time := sysdate;
end;
form 级的 when-timer-eXPired 代码为:
declare
TimerName varchar2(20);
begin
TimerName :=get_application_PRoperty(TIMER_NAME);
if TimerName='T1' then
:current_time := sysdate;
end if;
end;