Высокоуровневые методы информатики и программирования. Сивохин А.В - 58 стр.

UptoLike

35
Date_UEdit.Text := Format(‘%d’,[Data_U]);
PlaceEdit.Text := Place;
Specifics.Text := Specifics;
End;
end;
Для кнопкиЧтение обработчик такой же, как и последний, только с
использованием переменной VarOrlovAuctionsRecord.
ДляМодификации иЗаписи обработчики имеют такой же вид, но
правая часть должна быть на месте левой, а левая на месте правой.
3.5 Реализация модуля для работы с классами
Модуль имеет форму, на
которой располагаются следующие элементы
интерфейса:
а) панели для отображения иерархии классов;
б) панели для размещения полей ввода значений в объекты;
в) поля ввода для всех объектов иерархии;
г) управляющие кнопки для создания и модификации объектов, очистки, ввода
и отображения данных по видам изделий.
Обработчики модуля следующие:
д) для создания объектов
:
VarIdentAuctionsClass := TIdentAuctionsClass.Create(5);
е) для модификации объектов:
With VarIdentAuctionsClass do
Begin
SetID_Auctions(StrToInt(ID_AuctionsEdit.Text));
End;
ж) для очистки полей ввода:
Begin
ID_AuctionsEdit.Text := '0';
End;
             Date_UEdit.Text       := Format(‘%d’,[Data_U]);
             PlaceEdit.Text := Place;
             Specifics.Text    := Specifics;
         End;
      end;
        Для кнопки “Чтение” обработчик такой же, как и последний, только с
использованием переменной VarOrlovAuctionsRecord.
        Для      “Модификации” и “Записи” обработчики имеют такой же вид, но
правая часть должна быть на месте левой, а левая на месте правой.


                        3.5 Реализация модуля для работы с классами

      Модуль имеет форму, на которой располагаются следующие элементы
интерфейса:
     а) панели для отображения иерархии классов;
     б) панели для размещения полей ввода значений в объекты;
     в) поля ввода для всех объектов иерархии;
     г) управляющие кнопки для создания и модификации объектов, очистки, ввода
и отображения данных по видам изделий.


     Обработчики модуля следующие:
     д) для создания объектов:
      VarIdentAuctionsClass := TIdentAuctionsClass.Create(5);
     е) для модификации объектов:
      With VarIdentAuctionsClass do
       Begin
        SetID_Auctions(StrToInt(ID_AuctionsEdit.Text));
       End;
     ж) для очистки полей ввода:
     Begin
       ID_AuctionsEdit.Text := '0';
      End;
35