Você pode exibir janelas modais no Oracle Forms para exibir mensagens normais, mensagens de erro ou pedindo confirmação, por exemplo. ao excluir um registro ou salvar um registro etc. usando show_alert no Oracle Forms. Essas mensagens de janela modal podem ser mostradas usando a opção Alert nos formulários Oracle. Esta é a captura de tela abaixo para este exemplo:
Você pode baixar este formulário no seguinte link: Modal_Msgt.fmbPara este exemplo, criei três alertas com o seguinte nomes:1. Good_Msg2. Error_Msg3. Ask_AlertO código a seguir foi escrito para o botão "Show Good Message" para exibir uma mensagem normal, você pode usar este código em qualquer bloco PLSQL:Declare-- crie uma variável numérica para conter show_alert return valuenalertbutton number;Begin-- configure o message for alertset_alert_property('good_msg', alert_message_text, 'Registros salvos com sucesso.');-- após a instrução abaixo a execução será mantida até você clicar em ok.. porque é um windownalertbutton modal :=show_alert('good_msg');:alertblock.result :='Essa foi uma boa mensagem.';-- depois disso você pode executar qualquer tarefa...Fim; O código a seguir foi escrito para o botão "Mostrar mensagem de erro" para exibir uma mensagem de erro:Declare-- crie uma variável numérica para conter show_alert return valuenalertbutton number;Begin-- defina a mensagem para alertset_alert_property('error_msg', alert_message_text, 'Ocorreu um erro.');-- após a instrução abaixo, a execução será mantida até você clicar em ok. message.';-- depois disso você pode executar qualquer tarefa...End; O código a seguir é escrito para o botão "Ask Confirmation" para solicitar uma confirmação:Declare-- cria uma variável numérica para conter show_alert return valuenalertbutton number;Begin-- define a mensagem para alertset_alert_property('ask_alert', alert_message_text, ' Confirme Sim ou Não?');-- após a instrução abaixo a execução será mantida até você clicar em ok.. porque é um botão de janela modal :=show_alert('ask_alert');-- agora verifique qual botão ou resposta foi escolhido nalertbutton =alert_button1 then:alertblock.result :='Você escolhe Sim.';else:alertblock.result :='Você escolhe Não.';end if;-- depois disso você pode executar qualquer tarefa...End;
Inscreva-se para receber notificações por e-mail para atualizações mais recentes como esta:
Digite seu endereço de e-mail:
