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

Программное редактирование объекта

  1. Перейдем к настройке операции редактирования объекта. Так же, как и в случае добавления, для редактирования воспользуемся отдельным окном. Создадим новую форму ECOEnabledWindowsForm. В этой форме будем редактировать выбранную в таблице кафедру. Назовем формуwfChairEdit(классTChairEdit), в свойствеTextвведем значение Редактирование кафедры.

  1. Настроим вызов созданной формы по выбору пункта меню Действие > Кафедра > Редактировать. Перейдем к вкладке CodeформыwfChairEdit. Объявим переменную, ответственную за создание данной формы:

var

callChairEdit: TChairEdit;

  1. Перейдем к форме Преподаватели. Подключим форму wfChairEdit. Для редактирования объекта надо определить, какой объект подлежит редактированию. Для этого в форме Преподаватели создадим переменную типаclChair:

var

callLect: TLecturer;

CurChair: clChair;

В этой переменной будем хранить текущий объект.

  1. Для взятия текущего объекта воспользуемся компонентом cmhChair. В обработчике события выбора пункта меню Действие > Кафедра > Редактировать пропишем следующие операции:

procedure TLecturer.MenuItem8_Click(sender: System.Object; e: System.EventArgs);

begin

if ehChair.GetList.Count <> 0

then

begin

if cmhChair.Element.AsObject is clChair

then

CurChair := clChair(cmhChair.Element.AsObject);

callChairEdit := TChairEdit.Create(EcoSpace);

callChairEdit.MdiParent := ParentWin;

callChairEdit.Show;

end;

end;

Окно редактирования будет создано в том случае, если есть хотя бы один объект класса Кафедра. Воспользуемся переменной CurChairв форме Редактирование кафедры, чтобы иметь доступ к значениям полей текущего объекта.

  1. Вернемся к форме Редактирование кафедры. Разместим на ней три компонента Label, три компонента TextBox(категорияWindowsForms) и две кнопки (см. Рисунок 10 .77).

  2. В свойстве FormBorderStyleустановим значение FixedDialog, в свойствеControlBox–False.

Рисунок 10.77 – Настройка компонентов формы Редактирование кафедры

  1. Подключим файл packModelUnit, выберем в свойстве EcoSpaceTypeкомпонентаRHRootзначениеprojDeanOfficeEcoSpaceдля доступа к пространству ECO. Подключим формуwfLecturer(Преподаватель), чтобы использовать созданную в ней переменную CurChair.

  2. При вызове окна Редактирование кафедры поля компонентов TextBox должны содержать значения соответствующих полей объекта, выбранного для редактирования.

Выделим форму в окне проектировщика и перейдем на вкладку Events(События) в инспекторе объектов. Выберем событиеLoadи сформируем обработчик, в котором запишем следующий код:

procedure TChairEdit.TChairEdit_Load(sender: System.Object; e: System.EventArgs);

begin

TextBox1.Text := CurChair.ChairName;

TextBox2.Text := CurChair.ChairHeadSNP;

TextBox3.Text := CurChair.ChairSecrSNP;

end;

  1. После того, как пользователь отредактировал данные, сохраним изменения. Сохранение происходит и в случае, когда данные не были изменены. В обработчике нажатия кнопки ОК запишем код:

procedure TChairEdit.Button1_Click(sender: System.Object; e: System.EventArgs);

CurChair.ChairName := TextBox1.Text;

CurChair.ChairHeadSNP := TextBox2.Text;

CurChair.ChairSecrSNP := TextBox3.Text;

Close;

end;

Эта процедура аналогична операции добавления, за исключением того, что мы не создаем новый объект, а оперируем с существующим объектом.

  1. Запустим приложение, проверим функцию редактирования кафедры (см. Рисунок 10 .78)

Рисунок 10.78 – Редактирование объекта в отдельном окне

По аналогии настроим редактирование преподавателя и дисциплины. Обратим внимание, что при оперировании с целочисленными значениями необходимо перевести их в значение типа stringпри выводе, используя функциюToString:

TextBox3.Text := CurLect.MaxAmountHours.ToString;

Обратное преобразование производится применением функции Convert.ToInt32:

CurLect.MaxAmountHours := Convert.ToInt32(TextBox3.Text);