التحكم بالايتم عن طريق الكود

[samdanger]

الاخوة الافاضل الكرام ...... السلام وعليكم ورحمة الله

لو سمحتم اريد كود لجعل الايتم النصي لا يقبل الا حروف وجعل الايتم الرقمي لا يقبل الا ارقام ... وايضا كود للتحكم بطول الايتم الرقمي ... وكود لجعل الايتم الذي يقف عليه المؤشر ذو لون معين ..

اعرف ان ذلك ممكن عن طريق الخصائص الخاصة بالايتم ... لكن انا افضل الكود دائما.


شكرا لكككككممممممممممم

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

[mustafagamiel]

السلام عليكم
انظر الى هذا الموضوع وحاول تقوم بضبط الكود كي يتناسب معك
http://www.araboug.org/ib/index.php?showtopic=35042
واكتب تعليقك هنا

[samdanger]

شكرا لك اخ مصطفي ...شكر قدير

ولكن حسب شرحك ..انني لو اردت منع كتابة ارقام في حقل نصي يجب ان ادخل جميع الارقام (0-9) في جملة

if substr(v_value,i,1) not in ('(',':','.','؟','&','%','!','@','#','$','^','*',')') then

الا يمكن استخدام كود اخر بواسطة الاسكي(ascii)
حيث ان الارقام لها ترميز معين في الاسكي(لتسهيل العملية) مثلما الحال في فيجيوال بيسك

[Ahmad.Hasan]

السلام عليكم
اخي الحبيب...
هادا الكود لجعل الحقل لا يقبل الا ارقام...عدل عليه لتجعله لا يقبل الا حروف...

declare
CH varchar2(30);
begin
if :blk.part_name is not null then

FOR I IN 1..LENGTH(:blk.part_name) LOOP
CH:=SUBSTR(:part_name,I,1);
IF CH  BETWEEN 'ء' AND 'ي' OR CH BETWEEN 'A' AND 'Z' THEN
message('plz insert numbers only');
	message('plz insert numbers only');
raise form_trigger_failure;
end if;
END LOOP;
end if;
end;