ВИЗУАЛЬНАЯ РАЗРАБОТКА ПРИЛОЖЕНИЙ БАЗ ДАННЫХ - часть 10

7. Выполните команду File | Include Unit Hdr, чтобы указать, что данная форма должна использовать созданный модуль данных.

8. Установите свойство объекта первой сетки DBGridI

DataSource = DataModule2->CustomersSource и свойство объекта второй сетки

DBGrid2

DataSource = DataModule2->OrdersSource

9. Активизируйте таблицу OrdersTable модуля данных и установите свойство

MasterSource = CustomersSource, чтобы связать ведущую таблицу CUSTOMER с ведомой таблицей

ORDERS.

10. Дважды щелкните мышью в графе значений свойства MasterFields, и в открывшемся окне дизайнера связи полей

- выберите номер заказчика CustNo (связующее поле таблиц) из выпадающего списка Available Indexes;

- задайте CustNo в списках Detail Fields и Master Fields;

- нажмите кнопку Add, чтобы добавить в список Joined Fields соединение CustNo -> CustNo;

- нажмите кнопку OK, подтверждая сделанный выбор.

11. Установите свойство Active = true для таблиц CustomersTable и OrdersTable с тем, чтобы сразу же отобразить живые данные в сетках на форме.

12. Скомпилируйте и запустите приложение. Рис. 5.9 показывает работу связанных таблиц: при прокрутке записей таблицы заказчиков вы увидите только те записи в таблице заказов, которые относятся к текущему заказчику.

Рис. 5.9. Связь таблич по принципу

muster-detail.

Методы Locate

и Lookup

используются для поиска указанных записей как в индексных таблицах, так в таблицах с ключами: эти методы реализуют самый быстрый из возможных способов поиска в данной таблице. Если столбцы для поиска индексированы и индекс совместим с указанными опциями, используется способ индексного поиска. В противном случае методы создают для BDE соответствующий фильтр.

Locate производит поиск специфической записи и позиционирует курсор на нее. В простейшем варианте вы передаете методу название столбца для поиска, искомое значение ключа записи и флаг опций. Листинг 5.2 содержит фрагмент кода, обеспечивающего поиск в столбце "Имя" таблицы MyTable первой записи со значением "Иван". Если поиск завершился успешно. Locate возвращает значение true,