Procedure: Activate

Выберите значение Activate

Выберите значение Form1

Раскрывающийся список Procedure

Раскрывающийся список Object

Рис.12.9 Окно кода для Формы «Поставщики городов»

2)Щелкнуть 2 раза по кнопке «Выполнить» для вызова ДО ее кода (см. рис.12.10).

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

*Procedure Click

CLOSE TABLES All

if file ("zap_gord.dbf") &&Функция возвращает логическое

&&значение Т., если файл с

&&указанным именем найден

delete file zap_gord.dbf &&Удаляется временный файл

endif

SELECT POSHK.nomp, POSHK.famp, POSHK.gord;

FROM data1!POSHK;

WHERE POSHK.gord = thisform.text1.value;

Into table zap_gord

Use zap_gord

IF RECCOUNT()>0 &&Анализ на наличие записей в выборке

&&обязателен при использовании текстового

&&поля

Browse

ELSE

MESSAGEBOX("Таких городов нет в базе!")

endif

ThisForm.Release

_Screen.ActiveForm.Refresh

Рис.12.10 Окно кода для кнопки «Выполнить»

3)Щелкнуть 2 раза по кнопке «Выход» для вызова ДО ее кода (см. рис.12.11).

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

*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

Рис.12.11 Окно кода для кнопки «Выход»