السلام عليكم 

يا جماعة بدي مساعدتكم 

في اضهار الساعة 

الوقت الحالي للنظام 

في text_item 

وجعلها تمشي 

مستمرة 

مش ثابتة 

 

 

WHEN-NEW-FORM-INSTANCE:

DECLARE  

CurrTime TIMER;  

OneSec CONSTANT NUMBER := 1000;  

BEGIN  

CurrTime := CREATE_TIMER('CURRTIME',OneSec,REPEAT);  

END;

 

:B.D2 := TO_CHAR(SYSDATE,'HH12:MI:SS AM');

:B.D3 := TO_CHAR(SYSDATE,'DD/MM/YYYY');

 

 

 

WHEN-TIMER-EXPIRED :

DECLARE  

ExpTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME);  

vTime Varchar2(30) := :SYSTEM.CURRENT_DATETIME;  

BEGIN  

  IF ExpTimer = 'CURRTIME' THEN

  :B.D2 := TO_CHAR(SYSDATE,'HH12:MI:SS AM');--SUBSTR(vTime, instr(vTime,' ')+1);

  :B.D3 := TO_CHAR(SYSDATE,'DD/MM/YYYY');

  END IF;

END;

 

والكودين على مستوى الفورمة

مرفق شاشة عليها كل المطلوب  اظهار التوقيت عبارة عن ساعة شغالة و التاريخ

 

start.rar

باااااااارك الله فيكم اخوتي 

وجعلة في ميازين حسناتكم 

ممم 

لو اتعبناكم 

انا بدي اعل الوقت الحالي 

في text_item ليس مربوط بقاعدة البيانات 

وياريت توضيح 

وشكرا 

اخي العزيز الموضوع بسيط جدا

 

اول قم باضافة حقل جديد واذهب الى خصائص هذا الحقل الى خاصية  Database Item  وغير الخاصية الى No

 

ثم اذهب الى خاصية Initial Value  وضع داخلها $$dbdatetime$$

 

ثم أذهب الى خاصية Format Mask  وضع داخلها dd/mm/yyyy hh24:mi:ss

 

ونحن ان شاء الله في الخدمة اخي العزيز

تم تعديل 21 أغسطس 201312 سنة بواسطة miash80

تم اضهار الوقت والتاريخ 

بس الوقت لا يتحرك 

ثابت 

وانا اريدها ساعة متحركة 

 

ال 

المتيم2007

و 

hatem_3n

اشارو لي انشاء التايمرCurrTime TIMER;  

عملتها بس ضهرت لي اخطاء 

 

WHEN-NEW-FORM-INSTANCE:

DECLARE  

CurrTime TIMER;  

OneSec CONSTANT NUMBER := 1000;  

BEGIN  

CurrTime := CREATE_TIMER('CURRTIME',OneSec,REPEAT);  

END;

 

:B.D2 := TO_CHAR(SYSDATE,'HH12:MI:SS AM');

:B.D3 := TO_CHAR(SYSDATE,'DD/MM/YYYY');

 

 

 

WHEN-TIMER-EXPIRED :

DECLARE  

ExpTimer VARCHAR2(40) := Get_Application_Property(TIMER_NAME);  

vTime Varchar2(30) := :SYSTEM.CURRENT_DATETIME;  

BEGIN  

  IF ExpTimer = 'CURRTIME' THEN

  :B.D2 := TO_CHAR(SYSDATE,'HH12:MI:SS AM');--SUBSTR(vTime, instr(vTime,' ')+1);

  :B.D3 := TO_CHAR(SYSDATE,'DD/MM/YYYY');

  END IF;

END;

 

والكودين على مستوى الفورمة

 

عفوا يا جماعة 

كنت اجرب ويضهر لي خطاء في الكود 

لانني لم اعملها صح 

والان كتبت نفس هذه الخطوات وتمت بنجاح 

مع وقت ساعة متحركة 

بس فيه مشكلة بسيطة في 

تحديد الوقت صباحا او مساء 

يضهر لي الوقت كذا 6:32:12.ب.ظ

والف شكر لكم جميعا اخزتي 

وجعلية في ميازين حسناتكم 

والف شكر لهذا المنتدى الكريم 

اللذي فيه مصلحة ومنفعة للبلاد والعباد