Работа со справочником
Создадим справочник со списком должностей, которые можно будет назначать преподавателю. Многие операции описаны ранее, поэтому предлагается сделать их по аналогии.
Перейдем к форме Преподаватели. Добавим на форму компонент dgPosition (экземпляр класса DataGrid), в нем будут отображаться список должностей выбранного преподавателя иehPosition(экземпляр классаExpressionHandle). НастроимehPosition: в свойствеRootHandleвыберем значениеcmhLecturer, а в свойствеExpressionсформируем выражение self.rolePosition. Настроим интерфейс (см. Рисунок 10 .79).
Рисунок 10.79 – Создание таблицы Должности
В
компонентMainMenuдобавим
еще два пункта: Назначить должность и
Освободить от должности. При выборе
пункта Назначить должность будет
создаваться окно, в котором можно будет
назначить должность выбранному
преподавателю. Если потребуется
освободить преподавателя от должности,
выберем должность в таблице и нажмем
пункт меню Освободить от должности.Создадим новую форму wfPositAsign (класс TPositAsign), в свойствеTextформы введем значение Назначение должности. Эта форма будет служить для выбора и назначения должности текущему преподавателю. Настроим создание формы по выбору пункта Назначить должность в главном меню формы Преподаватели. Но перед этим сохраним текущий объект Преподаватель, который будет использован в форме Назначение должности. Настроим интерфейс созданной формы (см. Рисунок 10 .80).
Рисунок 10.80 – Настройка компонентов формы Назначение должности
Компонент Labelдобавлен на форму, чтобы отобразить в его поле Ф.И.О. выбранного в таблице преподавателя. Выбирать нужную должность будем с помощью компонентаComboBox– выпадающего списка. Если нужная должность отсутствует, ее можно будет добавить в отдельном окне. Окно добавления должности будет создаваться нажатием кнопки, расположенной справа от выпадающего списка. При нажатии на кнопку ОК, преподавателю будет назначена выбранная должность, после чего окно закроется. При отмене произойдет закрытие окна Назначение должности.
В обработчике события загрузки окна Loadзапишем одну операцию
Label1.Text := CurLect.LecturerSNP;
Добавим на форму дескрипторsehPositionиcmhPosition. Настроим их на обращение к экземплярам классаclChair. В свойствеBindingContext дескриптораcmhPosition выберем значениеComboBox1.
В свойстве DataSourceкомпонентаComboBox1 установим значениеehPosition, а в свойствеDisplayMember–PositionName. После этого выпадающий список будет отображать список должностей.
В обработчике события нажатия кнопки ОК запишем следующий код:
var
CurPosition: clPosition;
begin
if cmhPosition.Element.AsObject is clPosition
then
begin
CurPosition := clPosition(cmhPosition.Element.AsObject);
CurLect.rolePositions.Add(CurPosition);
end;
Close;
Строка
CurLect.rolePositions.Add(CurPosition);
производит связывание выбранной должности с преподавателем.
Создадим форму wfPositAdd(класс TPositAdd), заголовок формы назовем Добавление должности. В этой форма будем создавать справочник должностей. Настроим создание данной формы по нажатию кнопки, расположенной справа от выпадающего списка на форме Назначение должности. Настроим интерфейс (см. Рисунок 10 .81).
Рисунок 10.81 – Настройка компонентов формы Добавление должности
Таблицу Должности настроим на отображение списка всех должностей. По нажатию кнопки Добавить создадим новый объект класса clPosition(Должность), в котором единственный атрибутPositionNameполучит значение, введенное в поле компонентаTextBox. Кнопку Выход настроить на закрытие окна.
Запустим приложение. Проверим настроенные операции (см. Рисунок 10 .82).
Рисунок 10.82 – Работа со справочником Должность