السلام عليكم انا عملت فورم صغيرة جدا
كل اللى عايزها تعملة ادخل اسم المستخدم والباس وورد تنقلنى لصفحة اخرى بعد الاطلاع على مواضيع المنتدى توصلت الى هذا الكودdeclare
VN_COUNT number(10):=0;

BEGIN


BEGIN
SELECT COUNT(1)
INTO VN_COUNT FROM USER_PRV WHERE UPPER(USR_ID)=UPPER(:USER_PRV.USR_ID) AND UPPER(USR_PASSWORD)=UPPER(:USER_PRV.USR_PASSWORD);
EXCEPTION WHEN NO_DATA_FOUND THEN
VN_COUNT :=0;
GO_BLOCK('MAINMENU');
END;
IF VN_COUNT =0 THEN
:PARAMETER.P_TRIALS:=NVL(:PARAMETER.P_TRIALS,0)+1;
IF :PARAMETER.P_TRIALS=3 THEN
EXIT_FORM(NO_COMMIT,NO_VALIDATE);
CLEAR_BLOCK(NO_COMMIT);
END IF ;

END IF;

END;

بس الكو دا أولا لما بدخل بيانات بخرج بعد ثلاث محاولات خطأ
بس لما مبيكونش فى بيانات فى ال
TEXT
مبيعملش اى حاجة
كمان لما بكتب اسم المستخدم والباس اللى موجودين فى قاعدة البيانات
بردة مش بيردا يدخل
اية الاضافة اللى ممكن تخلينى اشغل الكود دا
علما بأنى قريت كذا موضوع بس هما هما مفيش اى تغيير
وكمان لو حد يشرحلى مامعنى
SELECT COUNT(1)
ارجو الاهتمام

تم تعديل 3 نوفمبر 201312 سنة بواسطة ميسم الكرام

سيبكم من الكود الكتير ده وجوه زرار اكتب

if user_name - yours

and password = yours

then

open_form

end if ;

تم تعديل 2 نوفمبر 201312 سنة بواسطة eslam elbyaly

أكيد الكود دا مش صح ياريت ياجماعة حد يقولى كود صحيح

Declare 
v_count number;
begin
if :user_name is null or :the_password is null then message('you must enter the user name and password to continue');
raise form_trigger_failure;
elsif :user_name is not null and :the_password is not null 
then if :PARAMETER.P_TRIALS = 3 then message('you have entered incorrect login data for three times , application now will exit and the administrator will be informed');
raise_to_admin;--this is a procedure you shoud write to log this tries
exit_form(no_validate);
else select count(*) into v_count from usr_prv
where UPPER(USR_ID)=UPPER(:USER_PRV.USR_ID) AND UPPER(USR_PASSWORD)=UPPER(:USER_PRV.USR_PASSWORD);
if v_count = 0 then message ('wrong user name or password');
:PARAMETER.P_TRIALS:=NVL(:PARAMETER.P_TRIALS,0)+1;
raise form_trigger_failure;
elsif v_count >=1 then call_form('your_form');
end if;
end if;
end if;
end;

 

الكود دا بردة لا يعمل  اكنى مش كاتب اى حاجة

راجع الرابط التالي

http://www.araboug.org/ib/index.php?showtopic=54193&hl=

 

يوجد في المشاركة فورم login  رفعتها والتي استخدمها في عملي ..وتعمل بدون مشاكل وهي كما في المرفقات ..

•   LOGIN_FORM.rar   7.72