ВУЗ:
Составители:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 56
- 57
- 58
- 59
- 60
- …
- следующая ›
- последняя »