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

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

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

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

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

79. Выберите в верхнем правом окне вкладку ModelView. Найдите там только что созданный модуль и два раза щелкните по нему левой кнопкой мышки. ОкноBorlandStudioбудет иметь вид (см. Рисунок 6 .32).

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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