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

ولو تكرمتو
بيقدر حد يعدلي الكود بحيث يسمح للمستخدم يخطأ في الرقم السري او الاسم 3 مرات ويغلق البرنامج

مشكورين جميعا سلف
بس فعلا بحاجه تصليح هذا الكود
ومشكورين جزاكم الله الف خير عني وعن مأساتي

LOG_ON.rar

تم تعديل 17 يناير 201016 سنة بواسطة BlueFairy

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

IF(:user_no IS NULL)THEN
message('ÇÏÎá ÑÞã ÇáãÓÊÎÏã   ');
end if;
IF(:user_name IS NULL)THEN
message('ÇÏÎá ÇÓã ÇáãÓÊÎÏã   ');
end if;
IF(:password  IS NULL)THEN
message('ÇÏÎá ÇáÑÞã ÇáÓÑí ');
end if;
declare
a varchar2(10);
b number(4);
begin select user_name,password into a,b from users
where user_no=:user_no;
if upper(a)<> upper(:user_name) or upper(<> upper(:password) then
message('ÎØà Ýí ÇáÑÞã ÇáÓÑí');
raise form_trigger_failure;
else
call_form('C:\DevSuiteHome_1\forms\main1.fmx',hide,do_replace);
end if;
exception
when no_data_found then 
message('åäÇß ÎØà Ýì ÇáÏÎæá');
when too_many_row then
	message('åäÇß ÎØà Ýì ÇáÏÎæá');
end;

هجربو واشوف
مشكور كتير على الرد

في رموز وصور والخط اشكاله غريبه
هغلب معي بعد ازنك
لو تكتبه جوة كود
لاقد افهم
بعد ازنك يعني

ممكن حضرتك تشوف التوبك دا للباشمهندس احمد
ان شاء الله هيفيدك
http://www.araboug.org/ib/index.php?showtopic=35177