Insert вставка новой пустой записи в БД
Append добавление в конец новой пустой записи в БД
Delete удаление текущей записи из БД
EmptyTable удаление всех данных в таблице
DeleteTable удаление БД с диска
First переход на первую запись БД
Last переход на последнюю запись БД
Next переход на следующую запись БД
Prior переход на предыдущую запись БД
MoveBy (-10) переход на -10 записей БД (можно на любой целое число до начала или конца БД)
DisableControls запретить отображение значений из БД во всех связанных с ней визуальных компонентах
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
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. ПРИМЕР ИСПОЛЬЗОВАНИЯ МЕТОДОВ И СВОЙСТВ КОМПОНЕНТА «TTABLE»
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldValues['Name'] := Edit1.text;
Table1. ['Year'] := StrToInt(Edit2.text);
Table1.Post;
end;
* * * *
Table1.Edit;
Table1.FieldByName(Name).AsString := Fred;