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

UptoLike

34
г) обработчик для кнопки «вычислить».
3.4 Реализация модуля для работы с записями
Для рассматриваемой таблицы создается запись и форма следующей
структуры:
а) каждому полю записи на форме устанавливается окно редактирования TEdit,
при этом каждое поле редактирования обладает возможностями: данные можно
вставлять, вводить, удалять, выводить, выделять ;
б) размер определяется в зависимости от
длины информации;
в) имя окна соответствует идентификатору поля с постфиксом Edit;
г) начальное значение задается пустым. С помощью установки свойства
Text=’’.
д) слева от каждого окна редактирования помещается название поля на русском
языке с помощью компоненты TLable со следующими свойствами:
Caption= имя поля,
Name= имя поляLabel.
На форме необходимо установить 6 кнопок TButton с названиями в
свойстве
Name:
InitializeButton дляИнициализация
ModifyButton дляМодификация
WriteButton дляЗапись
DeleteButton дляОчистка
ReadButton дляЧтение
ExitButton дляВыход
Инициализация производит установку значений полей на форме из
соответствующей типизованной константы и реализуется следующими
операторами:
begin
With ConstOrlovProductRecord do
Begin
ID_AuctionsEdit.Text := Format('%d', [ID_Auctions]);
     г) обработчик для кнопки «вычислить».


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

      Для рассматриваемой таблицы создается запись и форма следующей
структуры:
     а) каждому полю записи на форме устанавливается окно редактирования TEdit,
при этом каждое поле редактирования обладает возможностями: данные можно
вставлять, вводить, удалять, выводить, выделять ;
     б) размер определяется в зависимости от длины информации;
     в) имя окна соответствует идентификатору поля с постфиксом Edit;
     г) начальное значение задается       пустым. С помощью        установки свойства
Text=’’.
     д) слева от каждого окна редактирования помещается название поля на русском
языке с помощью компоненты TLable со следующими свойствами:
     Caption= имя поля,
     Name= имя поляLabel.
     На форме необходимо установить 6 кнопок TButton с названиями в свойстве
Name:
     InitializeButton для “Инициализация”
     ModifyButton для “Модификация”
     WriteButton для “Запись”
     DeleteButton для “Очистка”
     ReadButton для “Чтение”
     ExitButton для “Выход”
      Инициализация производит установку значений полей на форме из
соответствующей        типизованной     константы     и    реализуется   следующими
операторами:
      begin
        With ConstOrlovProductRecord do
           Begin
            ID_AuctionsEdit.Text := Format('%d', [ID_Auctions]);
34