Учебное пособие по циклу лабораторных работ Технологии разработки программного обеспечения

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

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

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

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

var

callSubj: TSubject;

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

callSubj := TSubject.Create(EcoSpace);

callSubj.MdiParent := self;

callSubj.Show;

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

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