قمت بتحميل المجلد  الكود صحيح 100%  وأتضح ان ألمشكلة في خصائص البوتون نفسه

 

من أجل ذلك  قم بإنشاء بوتنات جديدة (لا تنسخ وتلصق) غير المودجودة حالياً.

 

جرب المرفق أدناه يعمل 1000% 

 

منتظرين النتيجة ..

 

MAIN.zip

قصدي اخي اجرب اللي ارفقته او اعمل بتنات جديدة ؟؟

جربت المرفق 

ودخلت لمستخدم عادي y 

ولم يخفي لي اي حاجه ؟؟؟؟

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

globla.user_type:=x.user_type 

في هذا الكود 

cursor get is select * from users1
where users1.user_name=:block.user_name and 
users1.user_pass=:block.pass and
users1.user_type=:block.user_type;
x users1%rowtype;
BEGIN
open get;
fetch get into x;
if get%found then
	:global.user_type:=x.user_type;
--:global.user_name:=x.user_name;
new_form('c:\PROJECaT\form\min.fmx');
else
:global.try_no:=:global.try_no+1;
if :global.try_no<=3 then
message('ÊÇßÏ');
message('ÇÓã ÇáãÓÊÎÏã Çæ ßáãÉ ÇáãÑæÑ ÎØÃ!!!!!');
:block.user_name:=null;
:block.pass:=null;
:block.user_type:=null;
go_item('block.user_name');
else
message('áÞÏ ÇÓÊÝÏÊ ÌãíÚ ÇáÇÍÊãÇáÇÊ');
message('ãÚ ÇáÓáÇãÉ');
exit_form;

end if;
end if;
END;

شكراً لكل من ساعدني