Использование диалоговых окон

В процессе выполнения приложения осуществляются разнообразные проверки, например, проверка соответствия введенного в поле значения заданным условиям. Если в результате проверки окажется, что введенное значение не удовлетворяет требуемым условиям, необходимо об этом сообщить пользователю. Из текста сообщения должна быть ясна причина ошибки. Кроме того, текст должен содержать рекомендации по ее исправлению. Для вывода информационного сообщения вы можете воспользоваться функцией MESSAGEBOX или создать собственную функцию. Рассмотрим описание функции MESSAGEBOX и приведем пример ее использования.

Рис. 12.1. Определение пояснений для элемента управления Функция имеет следующий синтаксис:

MESSAGEBOX (текст-Сообщения [, типДиалоговогоОкна [, заголовок] ] }

Аргумент текстсообщения содержит текст выводимого сообщения. Длинное сообщение автоматически располагается на нескольких строках. Если сообщение состоит из нескольких предложений и вы хотите разбить его на абзацы, то используйте функцию снк(13) для формирования новой строки.

Аргумент типДиалоговогоОкна задает перечень кнопок и значков, которые будут отображаться в диалоговом окне. Данный аргумент является числовым и его значение определяется как сумма трех параметров: типа кнопок, типа значков и номера кнопки, выбранной по умолчанию. Возможные значения этих параметров приведены в табл. 12.1—12.3.

Таблица 12.1. Кнопки, отображаемые в диалоговом окне

Таблица 12.2. Значки, отображаемые в диалоговом окне

Таблица 12.3. Кнопка, выбираемая по умолчанию

Функция MESSAGEBOX возвращает числовое значение, определяющее нажатую пользователем кнопку. Возможные значения приведены в табл. 12.4.

Таблица 12.4. Значения, возвращаемые функцией

Рассмотрим использование диалогового окна для вывода сообщения об ошибке ввода значения кредита клиента. Для этого выполните следующие действия:

1. Откройте форму для ввода информации о клиентах.
2. Выберите поле ввода значения кредита и для события valid определите процедуру (рис. 12.2), которая проверяет введенное значение и при необходимости открывает диалоговое окно с сообщением об ошибке:

if THIS.Value > 5000

= MESSAGEBOX("Максимальный кредит для клиента составляет ;

5000 рублей." + ;

CHR(13) + ;

"В особых случаях согласуйте величину кредита ;

с Генеральным директором.",;

0+48+ 0, "Предупреждение")

endif

Рис. 12.2. Определение процедуры для события Valid

3. Запустите форму на выполнение, введите значение кредита более 5000, перейдите на следующее поле. Откроется диалоговое окно с сообщением об ошибке (рис. 12.3).

Рис. 12.3. Диалоговое окно с сообщением об ошибке