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