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