В начало

Связывание таблиц в Delphi

 

            У нас есть база данных состоящая из 4 таблиц в формате «dBASE IV»: Muzon, Artisti, Zapisi, Stili. Необходимо с помощью средств BDE в среде «Delphi-7» связать эти таблицы.

            Для этого перетаскиваем для каждой таблицы комплект необходимых компонентов:

1)      Компонент «Table» с закладки «BDE» – 4 штуки.

2)      Компонент «DataSource» с закладки «Data Access» – 4 штуки

3)      Визуальный компонент «DBGrid» с закладки «Data Controls» – 4 штуки.

4)      Визуальный компонент «DBNavigator» с закладки «Data Controls» – 1 штуки.

Рис. 1. Размещение компонентов на главной форме приложения

 

            Далее начинаем связывать компоненты между собой. В компонентах «Table», в настройке «DatabaseName» необходимо указать aliase базы данных – «Music», который предварительно создали в программе «BDE Administrator», а также свойство «TableName», которое для «Table1» выбираем как «Artisti.dbf». У компонентов «DataSource» необходимо настроить настройку «DataSet», например, для «DataSource1» это будет «Table1». А у визуальных компонентов «DBGrid»  надо установить свойство «DataSource». После того как установили эти свойства, можно выбрать в компоненте «Table» свойство «Active» и установить его в «True». При этом значения таблиц базы отобразятся в компонентах «DBGrid».

            Компонент «DBNavigator1» через свойство «DataSource» можно привязать к любой из таблиц, лучше к первой – «Muzon», т.е. указать «DataSource1».

            Для настройки связей между таблицами  в компонентах «Table» предназначены настройки:

1)      MasterSource,

2)      IndexName,

3)      MasterFields.

Рис. 2. Пример связывания таблиц

           

            Если все связать правильно, то при выборе записи в таблице «Muson» записи в таблице «Artisti» отобразится исполнитель, в таблице «Zapisi» отобразятся все записи альбома, а в таблице «Stili» будет показан стиль музыкального исполнения.

            Для удобства на форму приложения добавлена кнопка, чтобы подключаться к базе. На событие «OnClick» которой надо поместить код:

 

  Table1.Open;

  Table2.Open;

  Table3.Open;

  Table4.Open;

           

А отключение от базы произойдет при закрытии приложения.

Рис. 3. Результат работы приложения с БД