用Forms编写的数字时钟

 

两个块之间触发

 

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;