هل من الممكن تصميم ساعة داخل الفورمة ؟

هل من الممكن تصميم ساعة داخل الفورمة ؟

السلام عليكم استاذ محمد

ممكن حضرتك تجرب ده

in new_form_instance on form level

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


in when_timer_expired on form level

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

IF ExpTimer = 'CURRTIME' THEN

:yourblockname.clock := SUBSTR(vTime, instr(vTime,' ')+1);

END IF;
END;
 

و للامانة هذا الكود منقول من موقع

http://bytes.com/topic/oracle/answers/768586-how-create-running-clock-oracle-forms-6i

 

هل من الممكن تصميم ساعة داخل الفورمة ؟

السلام عليكم استاذ محمد

ممكن حضرتك تجرب ده

in new_form_instance on form level

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


in when_timer_expired on form level

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

IF ExpTimer = 'CURRTIME' THEN

:yourblockname.clock := SUBSTR(vTime, instr(vTime,' ')+1);

END IF;
END;
 

و للامانة هذا الكود منقول من موقع

http://bytes.com/topic/oracle/answers/768586-how-create-running-clock-oracle-forms-6i

 

ألف شكر

اخي الكريم انا اريد طريقة انشاء ساعة anlage clock  وليست رقمية هل توجد طريقة ؟؟؟ ضروري جددداا

و عليكم  السلام و رحمة الله وبركاته

ما اعرفش الصراحة اذا كان ينفع ولا لا لكن لو وصلت لحاجة اكيد حقول عليها و على مصدرها ان شاء الله