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

if get_application_property('username')='scott' then
set_block_property('block_name',update_allowed_no);
 
ويمكنك تغيير ال update الى insert or  delete

السلام عليكم اخى يبدو انى لم استوعب السؤال
هذا كود لشاشة logon كامل
:global.counter:=:global.counter+1;
if :global.counter=3 then
message('sorry system will close now');
-- message('sorry system will close now');
exit_form;
end if;

if :use_name is null then
message('you must enter user name please');
message('you must enter user name please');
raise form_trigger_failure;
end if;
if :pwd is null then
message('you must enter passwrod please');
message('you must enter passwrod please');
raise form_trigger_failure;
end if;
declare
un varchar2(30);
pw varchar2(30);
begin
select use_name,pwd into un,pw from users WHERE PWD=:PWD ;
if (un=upper(:use_name)) and (pw=upper(:pwd)) then
-- if (un=:use_name) and (pw=:pwd) then
open_form('d:\library\FORMS\main');
-- exit_form;
else
message('sorry user name or password is wrong try again');
message('sorry user name or password is wrong try again');
raise form_trigger_failure;
end if;
end;