Самый простой способ - вызвать встроенный MESSAGE
дважды, последовательно.Зачем?Поскольку первый выводит сообщение в строке состояния, а второй заставит всплывающее окно открыться и, следовательно, более заметен.
Например:
declare
v_login varchar2(1);
begin
select max('x') --> MAX to avoid no_data_found
into v_login
from users
where user_name = :login.user_name
and password = :login.password;
if v_login is null then
message('Invalid credentials'); --> call MESSAGE twice
message('Invalid credentials');
else
open_form('');
end if;
end;
PS Barbaros отредактировал мой код, удалив текст сообщения во втором MESSAGE
вызове:
message('Invalid credentials'); --> call MESSAGE twice
message('');
Ну, это неправильно (по крайней мере, в версиях Forms, которые я использовал).Вы должны использовать текст сообщения в обоих выражениях, иначе оно не будет работать должным образом.Поэтому я отменил ваши изменения.