Компоненты для работы с БД

Компонент.

Назначение.

Tsession (сессия соединения).

Содержит информацию о текущем сеансе работы с БД. Позволяет определить список доступных БД и список активных БД, открывать и закрывать БД, управлять параметрами.

TdataBase (база данных).

Активно используется при работе в архитектуре «клиент — сервер». Позволяет осуществлять соединение с сервером БД и управлять параметрами соединения, получать информацию о БД, получать информацию об открытых наборах данных (НД) и о доступных таблицах БД.

TdataSource (источник данных).

Служит промежуточным звеном в цепочке «НД — источник данных — визуальные компоненты для работы с данными». Позволяет устанавливать некоторые параметры НД, устанавливать состояние НД, отслеживать изменения в НД.

TdataSet.

TBDEDataSet.

TDBDataSet.

Явно в приложения не используются, однако являются предками активно используемых в приложениях компонентов типа НД (TTable, TQuery, TStoredProc). Определяют ряд свойств и методов, наследуемых и частично переопределяемых в НД.

TTable (таблица).

Реализует НД, источником данных для которого является одна таблица БД. Содержит множество методов, свойств и событий, посредством которых можно выполнять над НД широкий спектр операций. Наследуется от компонента TDataSet.

TQuery (SQL — команда).

Реализует НД, источником данных для которого является одна или несколько таблиц БД. Структура записи НД определяется SQLзапросом (select). Кроме того, служит для выполнения любых SQL — операторов. Наследуется от компонента TDataSet.

TStoredProc (сохраняемая процедура).

Используется в архитектуре «клиент — сервер» для доступа к хранимым процедурам, расположенным на сервере БД. Данный компонент является также НД, т. к. может возвращать множество записей.

TField (поле таблицы).

Реализует поле таблицы БД. Помимо пол…

Методы добавляются в public — части описания класса формы, следующим образом:

public.

procedure Add; virtual; abstract;

procedure Edit; virtual; abstract;

procedure Print; virtual; abstract;

procedure Delete; virtual; abstract;

Последний штрих — это присвоим свойству WindowState значение wsMaximized, чтобы дочернее окно при отображении сразу занимало всю рабочую часть главного окна приложения. Дочерние формы для работы с таблицами будут наследоваться от данной формы.

Создание форм для работы с клиентами и телефонами, направлениями и трафиком Для создания потомка от формы fmMDIChild, необходимо выбрать пункт меню «File» «New». В появившемся диалоговом окне на вкладке «Traffic» выберем форму fmMDIChild и нажмем кнопку «ОК». Дадим этой форме имя fmClients и заголовок — «Клиенты и телефоны». Сохраним форму в файле uClients.pas.

Т. к. наша форма наследуется от формы TMDIChild, то она содержит абстрактные методы. Эти методы необходимо здесь переопределить. Для этого в public — части определения класса TfmClients переопределим абстрактные методы:

procedure Add; override;

procedure Edit; override;

procedure Print; override;

procedure Delete; override;

А в implementation — части модуля uClients реализуем эти методы (пока с пустым телом процедур):

procedure TfmClients. Add;

begin.

//—-;

end;

Точно таким же образом реализуем методы Edit, Print, Delete.

Данная форма должна отображать данные из таблиц Clients и Phones. Для этого применяется визуальный компонент TDBGrid, находящийся на вкладке «Data Controls» палитры компонентов. Расположим на форме 2 компонента TDBGrid, один в верхней части окна, другой — в нижней, назовем их gdClients и gdPhones. Между ними необходимо расположить компонент TSplitter, чтобы можно было динамически менять размеры TDBGrid-ов. Кроме того, над компонентом gdPhones расположим панель TPanel, на которой будет отображаться количество телефонов по текущему клиенту.

Для каждого компонента TDBGrid присвоим свойству ReadOnly значение True, а также значение False для элементов dgEditing и dgTabs свойства Options.

Для того, чтобы в gdClients и gdPhones отображалась информация, необходимо назначить свойству DataSource ссылку на компонент dsClients и dsPhones соответственно. Эти источники данных находятся в модуле uMainDM, поэтому в модуле uClients пропишем ссылку на модуль uMainDM. Для этого выберем пункт меню «File» «Use Unit».

Как известно, между таблицами Clients и Phones существует связь «один ко многим». Визуально это должно выглядеть следующим образом: в gdPhones отображаются телефоны только текущего клиента. При смещении указателя записи в gdClients в dgPhones должно произойти обновление данных и отображаться телефоны нового клиента. Для реализации такого функционала необходимо вернуться к модулю данных. У компонента tbPhones присвоим ссылку на dsClients у свойства MasterSource, а в качестве значения свойства MasterFields укажем поле Id таблицы Clients, по которому у нас производится связь между Clients и Phones.

Теперь мы можем активизировать таблицы, установкой свойства Active в значение True для данных таблиц, и, перейдя на форму fmClients, наблюдать, как работает связь «один ко многим».

Последнее, что мы сделаем для формы fmClients, это назначим заголовки полей для отображения. Для этого в модуле данных дважды щелкнем на компоненте tbClients. В появившемся окне щелкнем правой кнопкой мышки и из меню выберем пункт «Add All Fields». При этом в окне появятся все поля, имеющиеся в таблице Clients. Выбирая каждое поле и переходя в «Object Inspector», установим свойства DisplayLabel и DisplayWidth. Повторим эту операцию для оставшихся полей таблицы Clients и всех полей таблицы Phones. После этого перейдем на форму fmClients и дважды щелкнем мышкой на компоненте gdClients. Используя те же приемы работы, что и при редактировании свойств полей в модуле данных, указываем, какие поля необходимо отображать в gdClients. Делаем то же самое и для gdPhones.

Таким же образом мы создаем формы fmDirections и fmTraffic для работы с таблицами БД Directions и Traffic соответственно. Разница лишь в том, что мы будем использовать только один компонент TDBGrid на форму.

Реализация реакции выбора пунктов меню и кнопок панели инструментов. Реализация необходимого функционала дочерних форм После того, как мы создали все необходимые дочерние окна, необходимо реализовать механизм реакции на выбор пунктов системы меню и нажатие кнопок панели инструментов главного окна и отображения дочерних окон. Т. к. при создании панели инструментов мы связали кнопки с соответствующими пунктами меню, то достаточно реализовать обработчики выбора пунктов меню, при нажатии на кнопки панели инструментов эти обработчики будут автоматически вызываться.

Первое, что мы сделаем, это реализуем реакцию на выход из приложения. Для этого откроем окно генератора меню, и дважды щелкнем на пункте меню «Работа» «Выход». При этом Delphi сгенерит обработчик на событие OnClick данного пункта меню. В этом обработчике введем код закрытия главного окна и прекращения приложения:

procedure TfmMain. mnExitClick (Sender: TObject);

begin.

// — закрытие приложения.

Close;

Application.Terminate;

end;

Следующим этапом будет реализация обработчика на пункт меню «Работа» «Клиенты и телефоны» и реализация всех процедур, необходимых для корректного отображения формы fmClients. В этом обработчике наберем код вызова процедуры Clients, которая будет находиться в модуле uClients. Чтобы при линковании проекта модуль главной формы приложения мог найти этот модуль его необходимо в нем прописать с помощью пункта меню «File» «Use Unit». Перейдем в модуль uClients и в interface — части этого модуля опишем процедуру Clients, а в implementation — части реализуем эту процедуру следующим образом:

procedure Clients;

begin.

if not Assigned (fmClients) then fmClients:=TfmClients.Create (fmMain);

fmClients.Show;

end;

После того, как форма создана, но еще до ее отображения нам необходимо активизировать соответствующие таблицы и активизировать необходимые пункты меню и кнопки панели инструментов. Таблицы активизируются в обработчике события создания формы OnCreate. В этом же обработчике мы реализуем отображение информации о количестве номеров телефонов у текущего клиента — вызов метода GetPhoneCount. Но информация о количестве телефонов у клиента должна обновляться всякий раз, когда смещается указатель записи в таблице tbClients. Для решения этой задачи у набора данных имеется специальное событие — AfterScroll. Мы просто назначаем этому событию метод GetPhoneCount. Ниже приведен код обработчика события OnCreate:

procedure TfmClients. FormCreate (Sender: TObject);

begin.

inherited;

with dmMain do begin.

tbClients.Active:=True;

tbPhones.Active:=True;

tbClients.AfterScroll:=GetPhoneCount;

end;

GetPhoneCount (nil);

end;

Метод формы GetPhoneCount очень прост :

procedure TfmClients. GetPhoneCount (DataSet: TDataSet);

begin.

pnPhones. Caption: = 'Телефонов: '+IntToStr (dmMain. tbPhones. RecordCount);

end;

Пункты меню и кнопки панели инструментов активизируются в обработчике события OnActivate. Это событие «срабатывает», когда данная форма получает фокус ввода:

procedure TfmClients. FormActivate (Sender: TObject);

begin.

inherited;

with fmMain do begin.

mnAdd.Enabled:=True;

mnEdit.Enabled:=True;

mnDelete.Enabled:=True;

btAdd.Enabled:=True;

btEdit.Enabled:=True;

btDelete.Enabled:=True;

end;

Когда форма теряет фокус ввода соответствующие пункты меню и кнопки панели инструментов должны деактивизироваться. Это реализуется в обработчике события OnDeativate. Код этого обработчика подобен коду обработчика OnActivate, только свойству Enabled присваивается значение False.

И последнее, что мы сделаем, это реализуем финальные действия, которые должны произойти при закрытии формы. Эти действия будут включать в себя закрытие таблиц БД, строки которых отображаются на форме, и деактивизацию пунктов меню и кнопок панели инструментов. Реализуем обработку события OnClose:

procedure TfmClients. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

inherited;

FormDeactivate (Self);

with dmMain do begin.

tbClients.Active:=False;

tbPhones.Active:=False;

tbClients.AfterScroll:=nil;

end;

fmClients:=nil;

Повторяем все описанные выше действия для оставшихся двух дочерних форм.

Лабораторная работа Используя действия, описанные выше, реализуйте приложение, работающее с БД, спроектированной и реализованной в пункте 3.4.3.