с ней визуальных компонентах
EnableControls – разрешить отображение значений из БД во всех связанных с ней визуальных компонентах
Компонент “TTable” имеет ряд основных свойств:
Active – если «True», то база данных открыта
RecNo – выдает номер текущей записи БД
RecordCount – выдает количество записей в БД
FieldValues – доступ к значению поля БД
Modified – если «True», то текущая запись была изменена
Bof – если «True», то текущая запись – первая
Eof – если «True», то текущая запись – последняя
ЛЕКЦИЯ № 3
1. КОМПОНЕНТЫ ОТОБРАЖЕНИЯ ЗАПИСЕЙ БД
Компонент “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
