用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;

原文转自：http://www.ltesting.net