Запуск формы на выполнение

Щелкнуть по кнопке Run и согласиться на сохранение формы.

6)Редактирование объекта.

6.1. Если текст не умещается, то растянуть рамку.

6.2. Если надо внести изменения, то щелкнуть правой кнопкой мыши, вызвать команду Builder, идти на соответствующую вкладку ДО List Box Builder и менять установки.

Результат выполнения формы представлен на рис.12.21

Рис.12.21 Результат выполнения формы

Object: command 1

Procedure: Click

*Кнопка "Выполнить"

SELECT Poshk.nomp, Poshk.famp, Poshk.gord;

FROM;

data1!POSHK;

WHERE Poshk.gord = form_gord1.list1.value;

INTO CURSOR SPISOK

Browse

Внимание! VFP.9 в условии запроса требует указания только абсолютного адреса формы (в нашем случае: form_gord1)

Object: command 2

Procedure: Click

*Кнопка "Выход"

*Procedure Click

if MESSAGEBOX("Завершить запрос?",4+32+256,"Завершить")=6

&&4-Yes и No;

32-?;

&&256 - 2я командная кнопка по умолчанию (No)

&& 6 - выбрана Yes

_screen.ActiveForm.Release()

else

_screen.ActiveForm. Refresh()

endif

Внимание! Аналогичным образом выполняется настройка для новой формы с использованием раскрывающегося списка и в полном абсолютном адресе объекта необходимо указать:

SELECT Poshk.nomp, Poshk.famp, Poshk.gord;

FROM;

data1!POSHK;

WHERE Poshk.gord = form_gord2.combo1.value;

INTO CURSOR SPISOK

Browse