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

 

انا استخدمت هذا الكود لشاشة ال login من احد المشاركات الموجودة بالمنتدى والكود شغال بس البرنامح تبعي مابيقرا العربي ف المسجات مش باينة عندي عشان افهم الكود بتظهر على شكل علامة استفهام لو ممكن بس ترجمة المسجات اللي في الكود دا 

declare
c number;
pww varchar2(200);
u_name varchar2(200);
begin
if :PASSWORDS.USER_NAME IS NULL THEN
message('¿¿¿¿ ¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿¿¿');
message('¿¿¿¿ ¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿¿¿');
return;
end if;
if :PASSWORDS.PW IS NULL THEN
message('¿¿¿¿ ¿¿¿¿ ¿¿¿¿¿¿ ¿¿¿¿¿');
message('¿¿¿¿ ¿¿¿¿ ¿¿¿¿¿¿ ¿¿¿¿¿');
return;
end if;
go_block ('PASSWORDS');
first_record;
while :system.last_record <> 'TRUE' loop
select (user_name) into u_name from PASSWORDS;
if :PASSWORDS.user_name=u_name then
select count(pw)into pww from PASSWORDS where PASSWORDS.user_name=u_name;
if :PASSWORDS.pw=pww then
call_form('main.fmx');
else 
message('¿¿¿¿ ¿¿¿¿¿¿ ¿¿¿ ¿¿¿¿¿');
return;
end if;
else
message('¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿ ¿¿¿¿');
return;
end if;
next_record;
end loop;


select (user_name) into u_name from PASSWORDS;
if :PASSWORDS.user_name=u_name then
select pw into pww from PASSWORDS where PASSWORDS.user_name=u_name;
if :PASSWORDS.pw=pww then
call_form('MAIN.fmx');
else 
message('¿¿¿¿ ¿¿¿¿¿¿ ¿¿¿ ¿¿¿¿¿');
return;
end if;
else
message('¿¿¿ ¿¿¿¿¿¿¿¿ ¿¿¿ ¿¿¿¿');
return;
end if;
end;

يمكنك الرجوع الى نفس الشخص الذي وضع المشاركة للاستفادة أكثر .

تم تعديل 17 يوليو 20169 سنة بواسطة Faisal Matari