Код события Click кнопки Поиск:
*- Кнопка Поиск
Wait ’Ждите! Ваш запрос обрабатывает сервер.’ WINDOW NOWAIT
* Номер улицы
IF SelectStreet=0
* Значение символьной переменной - пустая строка
* К оператору SELECT ничего добавлено не будет Sstreet=[]
ELSE
* Строка в квадратных скобках будет добавлена
* к оператору SELECT как значение &Sstreet
* Обратите внимание на знак & (амперсанд)
Sstreet=[and Building.Street=SelectStreet]
ENDIF
* Номер дома
* Уберем концевые пробелы из введенного номера дома SelectHouse=ALLTRIM(SelectHouse)
IF LEN(SelectHouse)=0 Shouse=[]
ELSE
* Строка в квадратных скобках будет добавлена
* к оператору SELECT как значение &Shouse Shouse=[and Building.House==SelectHouse]
* Знак == означает: в точности равно.
* Если поставить просто знак равенства
* Будут найдены все здания, номера которых
* начинаются с введенных символов.
ENDIF
* Район
IF SelectDistrict=0 Sdistrict=[]
ELSE
* Строка в квадратных скобках будет добавлена
* к оператору SELECT как значение &Sdistrict Sdistrict=[and Building.District=SelectDistrict]
ENDIF
* Сортировка
* Строка в квадратных скобках будет добавлена
* к оператору SELECT как значение &Ssort DO CASE
CASE SortSelect=1
* По адресу здания Ssort=[Name,Sign,House]
CASE SortSelect=2
* По району города Ssort=[Area]
CASE SortSelect=3
* По площади участка Ssort=[Land]
CASE SortSelect=4
* По году постройки Ssort=[Year]
ENDCASE
Опубликовал vovan666
May 20 2013 13:36:01 ·
0 Комментариев ·
3538 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
