بسم لله

ياريت لو حدا معه فورمة فيه التاريخ على شكل ثلاثة combo box يضعه لانى محتاجه ضرورى

او يكتب الاكواد

جزائكم الله خيرا

هذا كود مقسم الى ثلاثة كومبو واتمنى من اللة ان يكون فية فائدة للك وعلى فكرة السنوات تبدا من سنة *95 ممكن تتدخل داخل الكود وتعدل فى كود LOOP
اولا يتم انشاء ثلاثة كومبو على الفورم باسم D,M,Y
وانشاء تيكست لظهو التاريخ فية بالكامل اسمة DATEE
----------------------------------------------------------
اولا يتم وضع هذا الكود داخل الحث WHEN NEW FORM INSTANCE
DECLARE
V_COUNT PLS_INTEGER:=1994;
V_INDEX NUMBER:=0;
BEGIN
CLEAR_LIST('Y');
LOOP
V_INDEX:=V_INDEX+1;
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=to_char(sysdate,'YYYY')+1;
add_list_element('Y',V_INDEX,V_COUNT,V_COUNT);
END LOOP;
END;
---------------------------------------------------------------------------------

والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة Y
DECLARE
V_COUNT PLS_INTEGER:=0;
BEGIN
CLEAR_LIST('M');
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=13;
add_list_element('M',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END;
------------------------------------------------------------------------------------
والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة M
DECLARE
V_COUNT PLS_INTEGER:=0;
BEGIN
CLEAR_LIST('D');
IF :Y MOD 4=0 AND :M=2 THEN
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=29;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END IF;
IF :Y MOD 4<>0 AND :M=2 THEN
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=30;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END IF;
IF :M<2 OR :M>2 THEN
CLEAR_LIST('D');
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=32;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
:=V_COUNT;
END LOOP;

END IF;
END;
والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة D
:DATEE:=||' / '||:M||' / '||:Y;
لاظهار التاريخ كامل فى العنصر DATEE
--------------------------------------
-والكود التالى يوضع فى الحدثPOST-TEXT-ITEM للعنصر اسمة DATEE
ليقوم بمسح الكومبو
:Y:='';
:M:='';
:='';

وبذللك قد انشئت الكومبو للتاريخ اتمنى من الله ان اكون وفقت فى مساعدتك AYMAN HUSSEIN

شكرا لك استاذ AYMAN HUSSEIN
جزائك الله خيرا

وجارى التجربة

بسم لله
الى الاخ AYMAN HUSSEIN
لقد جربت التاريخ ولكن combo box الخاص بالسنين فقط هو الشغال اما الشهور والايام لا تعمل

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

take the stright answer
اولا يتم انشاء ثلاثة كومبو على الفورم باسم D,M,Y
وانشاء تيكست لظهو التاريخ فية بالكامل اسمة DATEE
----------------------------------------------------------
اولا يتم وضع هذا الكود داخل الحث WHEN NEW FORM INSTANCE
DECLARE
V_COUNT PLS_INTEGER:=1994;
V_INDEX NUMBER:=0;
BEGIN
CLEAR_LIST('Y');
LOOP
V_INDEX:=V_INDEX+1;
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=to_char(sysdate,'YYYY')+1;
add_list_element('Y',V_INDEX,V_COUNT,V_COUNT);
END LOOP;
END;

والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة Y
DECLARE
V_COUNT PLS_INTEGER:=0;
BEGIN
CLEAR_LIST('M');
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=13;
add_list_element('M',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END;

والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة M
DECLARE
V_COUNT PLS_INTEGER:=0;
BEGIN
CLEAR_LIST('D');
IF :Y MOD 4=0 AND :M=2 THEN
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=29;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END IF;
IF :Y MOD 4<>0 AND :M=2 THEN
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=30;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
END LOOP;
END IF;
IF :M<2 OR :M>2 THEN
CLEAR_LIST('D');
LOOP
V_COUNT:=V_COUNT+1;
EXIT WHEN V_COUNT=32;
add_list_element('D',V_COUNT,V_COUNT,V_COUNT);
:=V_COUNT;
END LOOP;
END IF;
END;
والكود التالى يوضع فى الحدث WHEN-LIST-CHANGED للكومبو اسمة D
:DATEE:=||' / '||:M||' / '||:Y;

لاظهار التاريخ كامل فى العنصر DATEE
--------------------------------------
:Y:='';
:M:='';
:='';

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
run the y first
then m
then d
thank u
shahpal

instead of
but D and like this : infront of it

محمد سمير اترك البريد الالكترونى بتاعك على المنتدى وانا ابعتللك فورم بذللك AYMAN HUSSEIN

AYMAN HUSSEIN شكرا لك على اهتمامك
هذه البريد الالكترونى بتاعى

[email protected]