Сообщения, предупреждения и таймеры

Предупреждение (Alert) - это модальное окно, которое отображает сообщение, предупреждающее оператора о каком-либо событии в приложении.

Используйте предупреждения для вывода дополнительной информации, различных информативных и функциональных сообщений, требующих от пользователя подтвержения или выполнения какого-либо другого действия.

В Oracle Forms вы можете работать с тремя типами предупреждений: "Стоп", "Предупреждение" и "Замечание" – все эти типы можно установить в таблице свойств этого объекта. У каждого типа предупреждения свой уровень строгости. Для каждого типа в таблице свойств вы можете определить три кнопки с нужными вами метками, по умолчанию это "Да" (Кнопка1), "Стоп" (Кнопка2), "Отмена" (Кнопка3). Сообщение, отображаемое предупреждением, задается в свойстве "Сообщение".

При создании Alert вам также необходимо написать триггер для вывода этого предупреждения, а также указать основную информацию, такую как сообщение, которое вы бы хотели в нем выводить.

Далее мы подробнее рассмотрим создание и отображение Предупреждений.

Создание предупреждения

В этом разделе мы пошагово рассмотрим создание сообщения на этапе проектирования.

В этом разделе мы с вами детально рассмотрели все шаги создания "предупреждения". В следующем разделе рассмотрим один из способов программного отображения сообщения на экран.

Отображение Предупреждения

Для отображения предупреждения ваша PL/SQL-программа должна содержать встроенную функцию Forms – SHOW_ALERT, которая возвращает цифровую константу, указывающую, на какую из трех кнопок вы нажали. В программе эти кнопки представлены в виде констант численного типа: ALERT_BUTTON1, ALERT_BUTTON2, ALERT_BUTTON3. Порядковый номер констант соответствует номеру метки кнопки. В вашем PL/SQL-коде вызов предупреждения должен выглядеть следующим образом.

Синтаксис функции отображения сообщения:

Show_Alert (alert_name in varchar2) Return NUMBER;

Теперь перейдем к выводу предупреждения.

When-Button-Pressed Trigger:
declare
 a_lert number; 
begin
 a_lert:=Show_alert('Change'); 
end;

begin
 Show_alert('Change'); 
end;

When-Button-Pressed Trigger: 
declare
 a_lert number; 
begin
 a_lert:=Show_alert('Change');
 IF alert_button = ALERT_BUTTON1 THEN 
  Go_Block('Расчет'); 
 END IF; 
end;

Запустите форму и вызовите предупреждение. Теперь при нажатии на кнопку "Да" вы перейдете в блок "Расчеты". Поскольку мы написали в триггере, что выбранная кнопка – ALERT_BUTTON1, необходимо выполнить навигацию к указанному блоку. Если же вы выбрали второй вариант, то есть "Нет", то предупреждение просто закроется, причем это действие мы не инициировали, т. к. вы уже знаете, что оно выполняется по умолчанию.

Мы рассмотрели наиболее актуальные примеры с использованием вызова предупреждений, которые научили вас не только выводить дополнительную информацию, но и инициировать различные события при выборе одного из предложенных вариантов. Теперь давайте рассмотрим пример, в котором некоторые свойства предупреждения будут меняться в ходе выполнения программы.

Set_Alert_Property – устанавливает значение свойства предупреждения.

Синтаксис:

Set_Alert_Property (alert_name, alert_property, property_value);

Пример:

DECLARE
 a_lert NUMBER; 
BEGIN
 Set_Alert_Property ('Change', 
 ALERT_MESSAGE_TEXT, 
 'Сегодня  '||TO_CHAR (SYSDATE));
 a_lert:= Show_Alert ('Change'); 
END;

При срабатывании этого триггера выводится предупреждение, отображающее текущую дату.

Свойство Set_Alert_Property очень полезно, т. к. программно, изменяя сообщение сигнала, вы можете неплохо сэкономить, повторно используя один и тот же объект предупреждения вместо создания нескольких. Также это дает вам возможность создавать динамические сообщения, которые вы можете менять в зависимости от ситуации, текущего объекта, выбранного элемента или его значения.

Таймер

Таймер ( Timer ) – это средство измерения времени в Oracle Forms. Таймер начинает работать с момента своего создания и работает до тех пор, пока не закроется приложение или таймер не будет удален. Если задать временной интервал, то по истечении заданного времени таймер

вызовет событие WHEN-TIMER- EXPIRED и начнет отсчет времени заново. Таймером очень хорошо пользоваться для непрерывного отслеживания каких-либо действий. Вы также можете использовать таймер как планировщик, закрывая формы по истечении указанного времени, или, например, для выполнения автосохранения в форме.

Программное управление таймером

Oracle Forms позволяет создавать таймер только программным путем, то есть вы не можете создать таймер в навигаторе объектов. Вы можете удалять таймер и устанавливать его характеристики программно, используя встроенные подпрограммы. Ниже перечислены процедуры и функции для работы с таймером:

Создание таймера

CREATE_TIMER – создает таймер с заданным числом миллисекунд и возможностью повторного срабатывания. Возвращает числовой идентификатор таймера.

Синтаксис:

CREATE_TIMER(TIMER_NAME IN varchar2, 
             MILLISECONDS IN number, 
             ITERATE IN number) 
RETURN FORMS4C.TIMER;

Пример:

DECLARE
TimerId Timer; 
BEGIN
 TimerId:= Find_Timer ('T_Timer'); 
 IF NOT Id_Null (TimerId) THEN
  Delete_Timer (TimerId); 
 END IF; 
 TimerId:= Create_Timer ('T_TIMER', 1000, NO_REPEAT); 
END;

Удаление таймера

DELETE_TIMER – удаляет таймер, принимая в качестве параметра его идентификатор, полученный при создании командой CREATE_ TIMER, или его имя.

Синтаксис возможный процедур DELETE_TIMER:

Пример:

DECLARE 
 TimerId Timer;
BEGIN
 TimerId:= Find_Timer ('T_Timer'); 
 IF NOT Id_Null (TimerId) THEN
  Delete_Timer (TimerId); 
 END IF;

Установка характеристик таймера

SET_TIMER – устанавливает значения свойств таймера, таких как временной интервал и количество итераций. Синтаксис:

SET_TIMER (TIMER_NAME IN varchar2 [TIMER_ID IN FORMS4C. TIMER], 
   MILLISECONDS IN number, 
   ITERATE IN number) 
   RETURN FORMS4C.TIMER;

Создание системы оповещения

В этом примере будет показано, как можно с помощью таймера быстро создать несложную систему оповещения. Для наглядности примера мы создадим две формы – форму-оповещение ( Client_1 ) и форму-приемщик ( Client_2 ).

Предварительная подготовка

Создайте тестовую таблицу T_taime для демонстрации примера:

CREATE TABLE t_taime ( Mes_str varchar2(100), Prz number);

WHEN-CHECK-BOX-CHANGED commit_form;

Форма оповещения готова, теперь перейдем к созданию второй формы, которая будет принимать сигнал оповещения и выполнять какое-либо действие.

WHEN-NEW-FORM-INSTANCE
DECLARE
timer_id Timer; one_second NUMBER:= 1000; 
BEGIN 
 timer_Id:= Find_Timer ('mes_timer');
 IF NOT Id_Null (Timer_Id) THEN
  Delete_Timer (Timer_Id); 
 END IF; 
 timer_id:= CREATE_TIMER('mes_timer', one_second, REPEAT); 
END;

WHEN-TIMER-EXPIRED
DECLARE
rec_cnt number; 
BEGIN
 SELECT count(*) INTO rec_cnt FROM t_ime;
 IF :parameter.old_rec_cnt<>rec_cnt THEN
  execute_query;
 END IF;
 :parameter.old_rec_cnt:=rec_cnt;
END;

Для того чтобы проверить выполненный нами пример, запустите две формы одновременно и расположите их на экране так, чтобы было видно два окна. Перейдите в форму Client_1, введите новую запись и включите переключатель, после чего в форме Client_2 через секунду появится новая запись. В триггере WHEN-TIMER- EXPIRED мы отслеживаем изменение количества записей в таблице, поэтому если запись была выключена из списка передаваемых значений, то она также будет выключена из списка полученных сообщений. Запись исключается из общего списка передаваемых сообщений отменой выбора значения переключателя.