Создание классов и отношений между ними слоя объектно-реляционного отображения

В качестве примера создания отношений между классами возьмем классы слоя Объектно-реляционного отображения (см. Рисунок 6.2).

Для создания этих классов необходимо выполнить следующие действия:

1) Создать новый модуль. Для этого в главном меню выберите File ® New ® Unit – Delphi for Win32.

2) Сохраните его выбрав в главном меню File ® Save или нажмите сочетание клавиш Ctrl + S, указав при этом имя модуля ClassConnection.

3) Выберите в верхнем правом окне вкладку Model View. Найдите там только что созданный модуль и два раза щелкните по нему левой кнопкой мышки. Окно Borland Studio будет иметь вид (см. Рисунок 6.6).

4) Перетащите в рабочую область пункт «Class» из панели инструментов.

5) Переименуйте только что созданный класс. Для этого щелкните один раз по заголовку класса и введите новое название, либо выберите класс на рабочей области и настройте свойства Name в области инспектора. Назовем только что созданный класс TConnection.

6) Для добавления свойства нужно щелкнуть по классу правой кнопкой мыши, при этом появится контекстное меню, в нем выберите пункт «Add» и потом выберите пункт «Property». Появится новое поле, для его переименования нужно выбрать появившееся свойство и щелкнуть по нему один раз, появится поле ввода, в котором можно указать название свойства и тип свойства. По умолчанию поля создаются с доступом к записи и чтению через процедуры, если это не нужно можно вручную отредактировать свойства в редакторе кода. Создадим свойства согласно списку (см. Таблица 6.5).

7) Добавьте процедуры в соответствии с перечнем (см. Таблица 6.6). Для добавления процедуры щелкните правой кнопкой мыши по классу и в появившемся контекстном меню выберите пункт «Add» и подпункт «Procedure».

8) Добавление функций. Для добавления функции в классе щелкните правой кнопкой мыши по нему. Появится контекстное меню, в котором нужно выбрать пункт «Add» и подпункт «Function» или нажать сочетание клавиш Ctrl + M.

Остальные классы создаются аналогично следуя пунктам 1-8. Далее установим наследование между классами TExecuteObject и TDBObject.

1) Для установления отношения наследования у класса TExecuteObject нужно найти класс TDBObject во вкладке Model View и перенести на диаграмму класса TExecuteObject. На диаграмме появиться ссылка на класс.

2) Выберите на панели инструментов пункт Generalization.

3) Щелкните мышкой по классу TExecuteObect.

4) Щелкните мышкой по классу TDBObject.

Далее установим ассоциацию между классами TDBObject и TTransactionObject:

1) Для настройки ассоциации между классами TDBObject и TTransactionObject нужно перенести класс TDBObject на диаграмму класса TTransactionObject.

2) Выберите на панели инструментов пункт Association.

3) Щелкните по классу TDBObject.

4) Щелкните по классу TTransactionObject.

5) В области инспектора установите у свойства Type значение «aggregation».