السلام عليكم

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

هو كل اللى انا عايز اعملك لما يكون اسم المستخدم والباس صحيحيين يدخل على بلوك اخر ولو ادخل اكثر من ثلاث مرات يطلع يقفل الصفحة 

وكتبت الكود دا لكن فى بعض المشاكل اولا لو كتبت اسم المستخدم والباس صح يطلع خطأ بردة وبيكرر الرسال اكثر من مرة فى المرة الواحدة ارجو ان اكون وضحت والكود اهو

 

 

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; 
end;


IF VN_COUNT =0 THEN
:PARAMETER.P_TRIALS :=NVL(:PARAMETER.P_TRIALS,0)+1;
IF :PARAMETER.P_TRIALS =3 THEN
MESSAGE(' áÞÏ ÃÏÎá ÇáÇÓã æÇáÈÇÓææÑÏ ËáÇË ãÑÇÊ ÎØà ÓæÝ íÊã ÛáÞ ÇáÈÑäÇãÌ ÇáÃä');
MESSAGE('áÞÏ ÃÏÎá ÇáÇÓã æÇáÈÇÓææÑÏ ËáÇË ãÑÇÊ ÎØÃ');
EXIT_FORM (NO_COMMIT,NO_VALIDATE);
ELSE
MESSAGE('ÃÏÎá ÇÓã ÇáãÓÊÎÏã æÇáÈÇÓ ææÑÏ ÕÍíÍííä');
MESSAGE('ÃÏÎá ÇÓã ÇáãÓÊÎÏã æÇáÈÇÓ ææÑÏ ÕÍíÍííä');
  


GO_BLOCK('TAHA'); 
CLEAR_BLOCK(NO_COMMIT);


END IF;
END IF;

تم تعديل 10 نوفمبر 201312 سنة بواسطة Ahmad.Hasan

http://www.araboug.org/ib/index.php?showtopic=29597

انا اطلعت على كل الكلام دا قبل كدا  

بسم الله الرحمن الرحيم



كتبت ليك كود بسيط حاول تطبقة عندك وان شاءا لله يظبط معاك



declare



    v_count   number;

    v_name    varchar2(100);

    v_pass    varchar2(100);

    v_conpass varchar2(100);

    XX NUMBER:=0;

begin

    :global.user_name:=:USERS.USER_NAME;

    :global.user_pass:=:USERS.USER_PASS;



    select count(*) into v_count

    from users

    where USERS.USER_NAME = :global.user_name and USERS.USER_PASS =    :global.user_pass;---  and USERS.USER_CON =:global.user_conpass;

    if v_count = 1  then

    select user_name, user_pass

    into   v_name,   v_pass

    from users

       where USERS.USER_NAME = :global.user_name and USERS.USER_PASS =    :global.user_pass;--  and USERS.USER_CON =:global.user_conpass;

     message('user is ok ');

     message('user is ok ');

     CALL_FORM('C:\HR');

       elsif v_count != 1 then

          message('user or password invalid');

            message('user or password invalid');

            CLEAR_FORM(NO_VALIDATE,NO_COMMIT);

        

    end if;

end;

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

بردة الكود دا مش نافع

ياريت حد يقولى اية الحل انا  رفعت المشروع عشان لو حد يقدر يساعدنى

Rabbit_farm_project.rar

السلام عليكم ورحمة الله وبركاته ..تفضل الكود بعد التعديلات ..ويعمل كما طلبت حضرتك

يكون اسم المستخدم وكلمة المرور صحيحة يدخل على بلوك اخر ولو ادخل اكثر من ثلاث مرات يطلع يقفل الصفحة 

declare 
VN_COUNT  NUMBER(10):=0;
			
begin

SELECT COUNT(*) INTO VN_COUNT 
FROM user_prv 
WHERE UPPER(USR_ID) = UPPER(:USER_PRV.USR_ID) AND UPPER(USR_PASSWORD) = UPPER(:USER_PRV.USR_PASSWORD);


IF VN_COUNT =0 THEN
	:PARAMETER.P_TRIALS :=NVL(:PARAMETER.P_TRIALS,0)+1;
	IF :PARAMETER.P_TRIALS =3 THEN
		MESSAGE(' áÞÏ ÃÏÎá ÇáÇÓã æÇáÈÇÓææÑÏ ËáÇË ãÑÇÊ ÎØà ÓæÝ íÊã ÛáÞ ÇáÈÑäÇãÌ ÇáÃä');
	EXIT_FORM (NO_COMMIT,NO_VALIDATE);
	ELSE
	MESSAGE('ÃÏÎá ÇÓã ÇáãÓÊÎÏã æÇáÈÇÓ ææÑÏ ÕÍíÍííä');
	MESSAGE('ÃÏÎá ÇÓã ÇáãÓÊÎÏã æÇáÈÇÓ ææÑÏ ÕÍíÍííä');
  

CLEAR_BLOCK(NO_COMMIT);

	END IF;

else 
GO_BLOCK('TAHA');
	
 END IF; 

END;

السلام عليكم

انا متشكر جدا لحضرتك الكود الحمدلله يعمل جيد جدا

بس كان ليا طلب تانى الشاشة الثانية لما بدوس على اى زرار بيطلعلى خطأ ياريت حضرتك تشوفيها وتقوليلى حلها اية 

وشكرا

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

وعليكم السلام ورحمة الله وبركاته ..

السبب في هذه المشكلة هي إستخدام الايعازين المكتوبين تحت الزر CHANGE PASSWORD 

وهما 

HIDE_WINDOW('WIN_LOGIN');
SHOW_WINDOW('WIN_CHANGE');

قم بمسحهما ...وإجعل الكود المكتوب تحت هذا الزر الايعاز التالي فقط ..والمشكلة تنحل 

GO_BLOCK('BLKCHANGE');

استاذة انا عملت الكلام دا والنتيجة هى هى

كيف المشكلة هي هي ...إنظر الى مرفقات الصور.... انا تعمدت وضع الايعازين وانظر الى النتيجة في الصورة المرفقة

 

 

 

الان بعد التنفيذ قم بغلق المتصفح وعد الى الفورم  وقم بمسح الايعازين الذان ذكرتهما في أعلاه في اي مكان كتبتهما امسحهما ..احفظ الفورم واعمل run جديد ..

المهم تكون قد اغلقت المتفصح للrun السابق 

وشاهد النتيجة بالصورة المرفقة  بعد الضغط على اي من الازرار لا تظهر المشكلة ..إن شاء الله

 

السلام عليكم استاذة انتى صح انا شيلتها من زرار والتانى لا لما شلتها من الاثنين شتغل معايا تمام انا متشكر جدا والله مش عارف شكرك اذاى