Базы данных на Delphi 7. Сергей Николаевич Талипов

“DBEdit” служит для отображения и изменения значения одного конкретного поля текущей записи базы данных. Основные свойства этого компонента:

      DataField := ‘CODE’; // Имя поля БД для отображения

      DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      

       Компонент “DBText” служит только для отображения значения одного конкретного поля текущей записи базы данных. Основные свойства этого компонента:

      DataField := ‘CODE’; // Имя поля БД для отображения

      DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      

      Компонент “DBMemo” служит для отображения значения одного конкретного memo-поля для текущей записи БД. . Основные свойства этого компонента:

      DataField := ‘CODE’; // Имя поля БД для отображения

      DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      

      Компонент “DBImage” служит для отображения значения одного конкретного Image-поля для текущей записи БД. Компонент поддерживает только «bmp» формат. Основные свойства компонент:

      DataField := ‘CODE’; // Имя поля БД для отображения

      DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      Для “DBImage”:

      Stretch := true; // Включение режима масштабирования рисунка

      

      procedure TForm1.N1Click(Sender: TObject);

      { Скопировать картинку из таблицы данных в буфер обмена }

      begin

        DBImage1.CopyToClipboard;

      end;

      procedure TForm1.N2Click(Sender: TObject);

      { Вставить картинку из буфера обмена в поле таблицы данных }

      begin

        DBImage1.PasteFromClipboard;

      end;

      procedure TForm1.N3Click(Sender: TObject);

      { Загрузить картинку из файла в таблицу данных }

      begin

        if opendialog1.Execute=true then begin

          try ADOTable1.edit; except end;

          DBImage1.Picture.LoadFromFile(OpenDialog1.FileName);

          try ADOTable1.post; except end;

        end;

      end;

      procedure TForm1.N4Click(Sender: TObject);

      { Сохранить картинку из таблицы данных в файл }

      begin

        if savedialog1.Execute=true then

          DBImage1.Picture.SaveToFile(SaveDialog1.FileName);

      end;

      procedure TForm1.Button3Click(Sender: TObject);

      { Удаление картинки из базы }

      begin

        try ADOTable1.Edit;

        ADOTable1['Oblochka']:=null;

        ADOTable1.Post; except end;

      end;

      Компонент “DBLookupComboBox” служит для выбора конкретной записи БД по значению из конкретного поля базы данных. Данный компонент представляет собой выпадающий список с перечнем значений поля БД для всех записей:

      KeyField := ‘CODE’; // Имя поля БД для отображения

      ListSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      Компонент “DBLookupListBox” служит для выбора конкретной записи БД по значению из конкретного поля базы данных. Данный компонент представляет собой прокручиваемый список с перечнем значений поля БД для всех записей:

      KeyField := ‘CODE’; // Имя поля БД для отображения

      ListSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      Компонент “DBGrid” служит для отображения значения всех записей и полей БД. Основные свойства этого компонента:

      DataSource := DataSource1; // Имя компонента типа “ DataSource” для связи с БД

      

      2. ПРИМЕР ИСПОЛЬЗОВАНИЯ МЕТОДОВ И СВОЙСТВ КОМПОНЕНТА