1. Обновление базы данных

1. Чтобы сгенерировать исходный кодECOв соответствие с построенной моделью выберем операциюRegenerate ECO source code из консольного меню окна Model View. Также такая операция производится нажатием кнопки над данным окном. Генерация производится автоматически.

207. Так как мы создали новый класс и добавили новые поля в уже существующий, необходимо обновить подключенную базу данных. Для этого перейдем на закладку настройки объектного пространстваprojDeanOfficeEcoSpace. Нажмем кнопкуGenerateSchemaв нижней части окна. В текущей базе данных автоматически сформируются таблицы, содержащие поля для хранения модели проекта. При этом все имеющиеся данные в базе удаляются. ОперацияEvolveSchemaпозволяет сохранить существующие данные и дополнить базу созданными элементами, в соответствие с построенной моделью.

4. Модификация пользовательского интерфейса

Добавим на форму элементы интерфейса пользователя.

1. Создадим вторую дочернюю форму wfSubject(классTSubject). Заголовок формы назовем Дисциплины.

208. Перейдем к вкладке Code. В окне появится код формы. Перед командойimplementationобъявим переменную, ответственную за создание дочернего окна Дисциплины:

var

callSubj: TSubject;

209. Перейдем к Главной форме. Чтобы в Главной форме создать дочернюю, подключим к ней форму wfSubjectкомандойFile>UseUnit. В появившемся окнеUseUnitвыберем формуwfSubject.

210. В главном меню Главной формы добавим подпункт Дисциплины в пункте Подсистемы. На событие выбора пункта меню Дисциплины пропишем следующие операции:

callSubj := TSubject.Create(EcoSpace);

callSubj.MdiParent := self;

callSubj.Show;

211. Вернемся к форме Дисциплины. Разместим на ней две таблицы: dgLecturerиdgSubject(экземпляры классаDataGrid) для представления экземпляров клас­сов Преподаватель и Дисциплина. Заполним в таблицах свойствоCaptionText(название заголовка).

212. Добавим две кнопки для работы с таблицей Дисциплины (добавление, удаление объектов) и третью кнопку для обновления базы данных (см. Рисунок 9 .67).

Рисунок 9.67 – Настройка пользовательского интерфейса

1. Связывание интерфейса с моделью

1. Сформируем три дескриптора ЕСО: ehLecturer,ehSubject(экземпляры классаExpressionHandle) для организации доступа к объектам модели и пространства ЕСО во время работы программы иcmhLecturer(экземпляр классаCurrensyManagerHandle), который будет служить для указания на текущий объект таблицы Преподаватели.

213. Настроим таблицу Дисциплины так, чтобы она отражала список дисциплин, принадлежащих выбранному преподавателю в первой таблице. Свяжем дескриптор cmhLecturerс таблицейdgLecturerчерез свойствоBindingContext. Теперь он отслеживает выделенную строку этой таблицы.

214. Настроим дескриптор cmhLecturerна связь с родительским объектом. Зададим ссылку на объектehLecturerв свойствеRootHandle, определяющем корневой идентификатор ЕСО.

215. В свойстве RootHandleдескриптораehSubjectвыберем значениеcmhLecturer. Так задают место данного идентификатора в цепочке доступа к объектному пространству ЕСО.

216. В качестве выражения OCLвведем в свойствоExpressionобъектаehSubjectстроку self.roleSubjects. Здесь roleSubjects – это имя роли классаSubjectв его ассоциативной связи с классом Преподаватель. Это выражение определяет список дисциплин, предложенных и назначенных преподавателю, который выбран в таблице Преподаватели.

217. Свяжем таблицу Преподаватели с дескриптором ehLecturerчерез ее свойствоDataSource, а таблицу Дисциплины – с дескрипторомehSubject. Теперь таблицы отображают поля классов Преподаватель и Дисциплина. Кроме этого, в таблице Дисциплины появилось полеSubjectState, которое будет автоматически отображать текущее состояние дисциплин.

218. Настроим стили таблиц. Воспользуемся свойством таблицы TableStyles. Присвоим полям таблиц русскоязычные названия.

219. Настроим функционирование кнопок. Выделим в окне Проектировщика кнопку Button1. В свойствеEcoListActionвыберем значениеAdd. В свойствеRootHandleвыберем подходящий поставщик объектов ЕСО – идентифика­торehSubject. Свяжем результат действия кнопки (созданный экземпляр класса Дисциплина) с визу­альным элементом, отображающим этот экземпляр, в нашем случае — с таблицейdgSubject. Для этого в свойствеBindingContextвыберем имяdgSubject. Аналогично настроим кнопкуButton2 на операцию удаления. Выберем компонентEcoListActions, в его свойствеCaptionAddвведем слово Добавить, а в свойствеCaptionDelete– Удалить. Кнопки автоматически получила название Добавить и Удалить. В свойствеTextкнопкиButton3 введем значение Сохранить (см. Рисунок 9 .68).

220. Запустим приложение. Добавим несколько объектов в таблицу Дисциплины для выбранного преподавателя. В поле Состояние таблицы Дисциплины все объекты имеют одинаковое значение ChosenLecturer. На данный момент это состояние неизменяемо. Чтобы иметь возможность изменять состояния, произведем следующую модификацию пользовательского интерфейса.