2.3.2 Технология создания базы данных

Доступ к базе данных в системе Delphi выполняется достаточно просто, с использованием богатого набора невизуальных компонентов работы СУБД. Как правило эти компоненты группируются в создаваемой программе в специальном модуле данных (TDataModule). Модуль данных представляет собой хранилище объектов, которое позволяет централизовано управлять их работой и отделяет программную логику, связанную с базой данных от программного кода, выполняющего вычислительные, поисковые и другие действия отображения данных на форме.

Для доступа к таблице базе данных Access используется компонент ADOConnection с панели компонентов ADO , к компоненту ADOConnection подключаем компонент ADOTable для каждой таблицы, используемой для работы в конкретной форме, а затем к нему подключаем компонент промежуточного уровня TDataSoure c панели DataAccess (доступ к данным). Этот компонент служит посредником между таблицами СУБД и экранными элементами управления.

В нашем случае было использовано не DataModule, а ADOTable и TDataSoure по конкретным формам. Каждый источник данных после размещения по конкретным формам связывается с конкретной таблицей с помощью свойства DataSet [6]. Соответственно, для каждой формы надо подготовить по одному из перечисленных компонентов, связать каждый из них со своей таблицей.

В нашем случае не используется DataModule, так как ADOTable и TDataSoure были размещены на конкретных формах.

Рисунок 9 - Компоненты на форме

На некоторых формах (за исключением главной), необходимо сделать отображения данных, хранимых в БД Access, в виде таблицы. Для этой цели используем компонент TDBGrid с панели DataControls (Элементы управления данными) (рисунок 10).

Рисунок 10 - Таблица с данными о списке группы

Для упрощения навигации по таблице, а так же по формам, где отображения в таблицы отсутствует (что немаловажно при наличии большого количества записей) в системе Delphi 7 имеется компонент TDBNavigator . Этот компонент размещается на форме под компонентом TDBGrid и привязывается к нему через свойство DataSoure. Значение этого свойства должно совпадать со значением такого же свойства связанной таблицы (рисунок 11).

Рисунок 11 -