正文 - 用Forms编写的数字时钟

用Forms编写的数字时钟
12/31 2008	备份恢复 \| Oracle	974 次查看
上一条：linux学习笔记：进程及作业下一条：关于如何理解ExplainPlan的输出
运行效果如图：　　　　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;