Код события Init формы Search имеет вид
* Выбранные значения параметров поиска
PUBLIC SelectStreet, SelectDistrict,SelectSign,; SelectHouse,SortSelect
* SelectStreet - номер выбранной улицы
* SelectDistrict - номер выбранного района
* SelectSign - выбранный признак адреса
* SortSelect - порядок сортировки записей в выборке
* Начальные значения
STORE 0 TO SelectStreet, SelectDistrict STORE [ ] TO SelectSign, SelectHouse SortSelect=1
Код события Destroy (“последний вздох”) формы Search:
* Убрать глобальные переменные из памяти RELEASE SelectStreet,SelectSign,SelectHouse,;
SelectDistrict,SortSelect
* Закрыть временную таблицу-выборку IF USED ('cBuilding')
USE IN cBuilding ENDIF
Код события InteractiveChange поля со списком Combol:
* Обновление признака адреса в поле Text1
* Взять значение в поле Sign таблицы Street ThisForm.Text1.Value=Street.Sign
* Перерисовать объект Text1 ThisForm.Text1.Refresh
Код события Click кнопки Сброс:
*- Кнопка Сброс
* Сброс ранее введенных значений STORE 0 TO SelectStreet, SelectDistrict STORE [ ] TO SelectSign, SelectHouse SortSelect=1
* Перерисовать форму ThisForm.Refresh
Опубликовал vovan666
May 19 2013 13:27:14 ·
0 Комментариев ·
3384 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
