“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. ПРИМЕР ИСПОЛЬЗОВАНИЯ МЕТОДОВ И СВОЙСТВ КОМПОНЕНТА