مشكلة حذف مستخدم

declare

x number;

begin

if form_success then

set_alert_property('alert1',alert_message_text,' هل تريد حذف المستخدم الحالي  '); 

x:=show_alert('alert1'); 

if x=alert_button1 then

delete from trans1 where id_no=:id_n;

delete from users where id_no=:id_n;

forms_ddl(' drop user '||:user_nam||' cascade ');

commit_form;

 message('ثم حذف مستخدم');

clear_form;

else

rollback;

 set_alert_property('alert1',alert_message_text,'rollback');

x:=show_alert('alert1');

end if;

end if;





exception

when no_data_found then

message('لايوجد مستخدمين ');





end;