If Table1.BookmarkValid(Bookmark1) then

Var

Function CompareBookmarks (Bookmark1, Bookmark2: TBookmark) : Integer; -сравнение двух закладок. Возвращается значение 0, если закладки идентичны; -1, если закладка Bookmark1меньше закладки Bookmark2; +1, если закладка Bookmark2 меньше закладкиBookmark1.

Закладки.

Begin

Свойства объекта TColumn - столбец

События

OnCellClick – генерируется при щелчке на ячейке с данными. Например,

// вывод в Label содержимого текущей ячейки

procedure TForm1.DBGTovarCellClick(Column: TColumn);

begin

Label1.Caption:=Column.Field.AsString;

end;

OnTitleClick– генерируется при щелчке на заголовке столбца. Например,

procedure TForm1.DBGTovarTitleClick(Column: TColumn);

begin

Label1.Caption:=Column.Title.Caption; // название столбца

Label2.Caption:=Column.FieldName; //имя поля

end;

OnColEnter – возникает при получении фокуса столбцом сетки.

OnColExit – при потере фокуса столбцом сетки.

PickList:TStrings – список для выбора значений, заносимых в поле. Текущая ячейка вместе со списком образует своего рода компонент ComboBox или DBComboBox.

ButtonStyle задает режим работы со списком PickList:

cbsAuto – стрелка с выпадающим списком,

cbsEllipsis - многоточие без выпадающего списка,

cbsNone – нет списка.

Пример. Формирование списка PickList поля T_Prim (A,20) таблицы Tovar.

procedure TForm1.FormCreate(Sender: TObject);

DBGrid1.Columns[4].PickList.Clear;

DBGrid1.Columns[4].Title.Caption:='Примечание;

DBGrid1.Columns[4].PickList.Add('Товар на складе);

DBGrid1.Columns[4].PickList.Add('Товар в зале’);

DBGrid1.Columns[4].PickList.Add('Нет в наличии’);

end;

Пример. Вычисление общей суммы всех товаров в таблице Tovar БД Tovar.

procedure TForm1.BtTotalSumClick(Sender: TObject);

var s: real; i: integer;

begin

s:=0; TbTovar.First;

while not TbTovar.eof do begin

s:=s+TbTovar.fieldbyname('Summa').AsFloat;

TbTovar.Next;

end;

Label1.Caption:=Floattostr(s);

end;

Компонент TDBText – позволяет отображать текстовое представление различных полей набора данных, также как они отображаются в TDBGrid. Подобен TLabel,но текст формируется автоматически.

Свойства:

DataSource:TDataSource; - указывает используемый источник данных.

DataField: TDataField; - задает поле набора данных.

Например, В компоненте DBText1 отображается значение поля P_Kol_vo для текущей записи:

procedure TForm1.FormCreate(Sender: TObject);

begin

TbTovar.Active:=True;

TbPokupka.Active:=True;

DBText1.DataSource:=dsPokupka;

DBText1.DataField:='P_Kol_vo';

end;

Компонент TDBEdit – однострочное поле редактирования для отображения и изменения значения поля набора данных. Введенное в поле редактирования значение будет сохранено в таблице базы данных только после применения метода Post.

Свойства:

DataSource:TDataSource; - указывает используемый источник данных.

DataField: TDataField; - задает поле набора данных.

Text: String; -содержит значение поля текущей записи.

Например,

1) ShowMessage(DBEdit1.Text);

2) В компоненте DBEdit1 отображается значение поля T_Nazv для текущей записи:

procedure TForm1.FormCreate(Sender: TObject);

begin

TbTovar.Active:=True;

TbPokupka.Active:=True;

DBEdit1.DataSource:=dsTovar;

DBEdit1.DataField:='T_Nazv';

end;

3) Сохранение в базе данных значения, введенного в поле DBEdit1, выполняется только после подтверждения пользователем:

procedure TForm1.DBEdit1Exit(Sender: TObject);

begin

if MessageDlg('Сохранить изменение?', mtConfirmation, [mbYes,mbNo],0) = mrYes

then TbTovar.Post

else TbTovar.Cancel;

end;

Компонент TDBMemo –многострочное поле редактирования.

Свойства:

DataSource:TDataSource; - указывает используемый источник данных.

DataField: TDataField; - задает поле набора данных.

Text: String; -содержит значение поля текущей записи.

Компонент TDBImage – реализует объект рисунок, в котором можно отображать и изменять значение поля набора данных формата BLOB.

Свойства:

DataSource:TDataSource; - указывает используемый источник данных.

DataField: TDataField; - задает поле набора данных.

Picture:TPicture; - определяет изображение. Значение этого свойства можно изменить программно.

Например,

1) DBImage1.Picture.Assign(Image1.Picture);

2) Загрузка в компонент DBImage1 объекта-рисунок из файла, выбранного в стандартном диалоговом окне:

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

Для перемещения между записями набора данных можно использовать закладки. Закладка (аналог обычной закладки в книге) позволяет временно переместиться от нужной записи с тем, чтобы позже вернуться к ней.

Свойство Bookmark класса TTable хранит значение текущей закладки.

Методы НД:

Function GetBookmark: TBookmark; - создается закладка для текущей записи,

Procedure GotoBookmark(Bookmark: TBookmark) ; - перемещается указатель текущей записи к конкретной закладке,

Procedure FreeBookmark (Bookmark: TBookmark); virtual; - удаляется указанная закладка, то есть освобождаются выделенные для закладки ресурсы,

Function BookmarkValid (Bookmark: TBookmark) : Boolean; override;- проверка корректности значения закладки, то есть указывает ли закладка на существующую запись,

Например,

Bookmark1: TBookmark;

…

// создание закладки для текущей записи

Bookmark1 := Table1.GetBookmark;

…

// переход к записи с закладкой

Table1.GotoBookmark(Bookmark1);

…

// удаление закладки