Базы данных на Delphi 7

 Основные свойства этого компонента:

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” служит для отображения значения всех записей и полей БД.