首页 > 开发 > 综合 > 正文

用Forms编写的数字时钟

2024-07-21 02:36:09
字体:
来源:转载
供稿:网友

  运行效果如图:
  用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;

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表