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