Membuat Jam Di Oracle Develoepr 6i

langsung jah, tidak usah basa basi....

disini saya akan membuat jam sederhana di oracle developer 6i, yang harus di sediakan adalah canvas yang sudah ada text item dan display item, seperti pada gambar dibawah ini...

kemudian pada text item dan display item diberikan source code, dengan action WHEN-NEW-FORM-INSTANCE,

Source code :  

  

sehingga seperti pada gambar dibawah ini...

DECLARE 
CurrTime TIMER; 
OneSec CONSTANT NUMBER := 1000; 
BEGIN 
CurrTime := CREATE_TIMER('CURRTIME',OneSec,REPEAT); 
END;  

kemudian pemberian source code pada formnya, sehingga pada saat form dijalankan source code pada text item dan display item langsung jalan... dengan action WHEN-TIMER-EXPIRED

Source code : 

DECLARE 
ExpTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME); 
vTime Varchar2(30) := :SYSTEM.CURRENT_DATETIME; 
BEGIN 

IF ExpTimer = 'CURRTIME' THEN 

:BLOCK3.DISPLAY_ITEM := SUBSTR(vTime, instr(vTime,' ')+1); 

END IF; 
END; 

jika sudah, baru di run, sehingga seperti pada gambar dibawah ini...