Skapa timer i Oracle Forms / Forms 6i och visa en klocka
Det här handlar om timer i D2k
En extern klocka kan konstrueras med hjälp av timers. Timers motsvarar interna klockor, som har en viss tidsperiod. När den angivna varaktigheten löper ut kan timern antingen utföra en åtgärd en gång och stoppa eller upprepa åtgärden regelbundet varje gång timern går ut. Timerns varaktighet är alltid i millisekunder. Timers skapas med CREATE_TIMER inbyggd i Oracle Forms och kräver en NÄR-TIMER-EXPIRED trigger som ska skrivas på formulärnivå. Denna utlösare aktiveras varje gång timern går ut.Använda REPEAT-timer
Låt oss skapa ett visningsobjekt, CURRENT_TIME, i det horisontella verktygsfältet CANVAS_TOOLBAR skapat tidigare. Detta objekt visar tiden i HH24:MI:SS formatera och uppdaterar sig själv varje sekund (timerns varaktighet). I NÄR-NY-FORM-INSTANS utlösare, skapa en timer med namnet CLOCK_TIMER, som itererar efter varannan sekund och fyller i CURRENT_TIME objekt med systemdatumet i HH24:MI:SS formatera. Koden är som följer:DECLARE
timer_id TIMER;
one_second NUMBER := 1000;
BEGIN
timer_id := FIND_TIMER('CLOCK_TIMER');
IF NOT ID_NULL(timer_id) THEN
DELETE_TIMER(timer_id);
ELSE
timer_id := CREATE_TIMER('CLOCK_TIMER',one_second, REPEAT);
END IF;
SELECT TO_CHAR(SYSDATE,'HH24:MI:SS')
INTO :toolbar.current_time
FROM DUAL;
EXCEPTION WHEN OTHERS THEN
MESSAGE(TO_CHAR(SQLCODE)||''||SQLERRM);
END;
Skapa en NÄR-TIMER-SLUT trigger enligt följande:DECLARE
timer_name VARCHAR2(30);
BEGIN
timer_name := GET_APPLICATION_PROPERTY(TIMER_NAME);
IF timer_name = 'CLOCK_TIMER' THEN
SELECT TO_CHAR(SYSDATE,'HH24:MI:SS')
INTO :toolbar.current_time
FROM DUAL;
END IF;
EXCEPTION WHEN OTHERS THEN
MESSAGE(TO_CHAR(SQLCODE)||''||SQLERRM);
END; Se även:Skapa bildpresentation med Timer i Oracle Forms,
https://www.foxinfotech.in/2014/02/creating-stopping-restarting-deleting-timer-oracleforms.html
Skapa, stoppa, starta om timer i Oracle Forms
Justera Oracle Forms PLSQL-kod med hjälp av timer
Skapa timer i Oracle D2k / Forms 6i och visa en klockaRecensionerad av Rishion 17 mars 2013
Betyg:4