|
|
|
|
Рис.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 Окно кода для кнопки «Выход»