Шаг 95 - Просмотр связи один ко многим

Теперь нам нужно научиться отображать связи один ко многим. То есть когда в таблице одной записи может соответствовать много. Например, одному человеку несколько детей.

gif/95_1.gif (7278 b)

Для реализации подобных связей используется DBGrid. Немного мы о нем уже рассказывали. Хитрость подобной связи в использовании второго элемента DATA.

gif/95_2.gif (2422 b)

Второй элемент настраивается как обычно, а в DBGrid указывается свойство DataSource. Дальше нам нужно создать SQL запрос который будет делать выборку из таблицы в Data2 при изменении Data1. Происходит это когда изменяются связанные элементы.

Private Sub Text2_Change()
Dim StrSQL As String
Dim StrKey As String
StrKey = Text2.Text
StrSQL = "SELECT Name_Children FROM children WHERE ID =" & StrKey
Data2.RecordSource = StrSQL
Data2.Refresh
DBGrid1.ReBind
End Sub 

Поле Text2 это поле, в котором будет находиться ID человека. При желании конечно можно сделать это поле скрытым.

gif/95_3.gif (3843 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.