محاولات تسجيل الدخول

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

أرجو المساعدة 

declarea number ;
b number:=0;
y number;
cursor c is 
select username,password1 
from users;
begin
for i in c loop
exit when b=1;
if i.username=:username and i.password1=:password1 then
b:=1;
end if;
end loop;
if b=1 then
new_form('E:\project1\main.fmx');
end if;
exception when NO_DATA_FOUND then
if :global.x<3 then
y:=2-:global.x;
message('username or password is incorrect - you still have'||y||'attempts');
message('username or password is incorrect - you still have'||y||'attempts');
:global.x:=:global.x+1;
else 
message('you have been blocked');
message('you have been blocked');
end if;
end;