Создание базы данных MS Visual Fox Pro - пособие для начинающих
Делаем поиск по полю "Фамилия/Имя/Отчество".
В Project Manager переходим в закладку Documents, ставим курсор на строчку form1 и нажимаем кнопку Modify (рис 8.15)
рис 8.15
Для работы должна быть включена панель Form Controls Toolbar ( должна стоять галка в меню View - Form Controls Toolbar ) (рис 4.3)
Теперь разместим в форме текстовое поле Text1 и кнопку Command5, которую назовем Поиск .
Для этого в Form Controls Toolbar нажимаем на
рисунок с кнопкой (рис 5.1) и мышью размещаем кнопку на форме.
Аналогично поступаем с текстовым полем (на Form
Controls Toolbar рисунок ab| (рис 8.15))
Нажав на кнопку Command5 правой кнопкой мыши из контекстного меню выберем пункт "Properties". (рис 8.15)
Откроется окно со свойствами кнопки.
Установив курсор на строку "Caption" введем название кнопки "Поиск" (рис 8.15)
рис 8.16
Дважды щелкнув мышью кнопку "Поиск" откроем Command window (рис 8.16)
На событие Click (выбирается в окошке Procedure) впишем следующий код:
select table1
set filter to
alltrim(thisform.text1.value)$alltrim(table1.family)
thisform.refresh
Закрываем Command window
рис 8.17
В результате нажатия на кнопку Поиск в таблице отобразятся те записи, где содержится введенный шаблон (рис 8.17)
Теперь разместим в форме текстовое кнопку Command6, которую назовем Все .
Для этого в Form Controls Toolbar нажимаем на
рисунок с кнопкой (рис 5.1) и мышью размещаем кнопку на
форме.
Нажав на кнопку Command6 правой кнопкой мыши из контекстного меню выберем пункт "Properties". (рис 8.15)
Откроется окно со свойствами кнопки.
Установив курсор на строку "Caption" введем название кнопки "Все" (рис 8.18)
рис 8.18
Дважды щелкнув мышью кнопку "Все" откроем Command window (рис 8.19)
рис 8.19
На событие Click (выбирается в окошке Procedure) впишем следующий код:
select table1
set filter to
thisform.refresh
В результате нажатия
на кнопку Поиск в таблице отобразятся все записи.
Закрываем Command window
Далее мы привяжем к основной таблице дополнительную таблицу с историей контактов.