[Sveta22]

Добрый день! Есть база, есть две кнопки которые перелистывают базу "Вперед" и "Назад" вот код

Код:

if tblBase.State = dsBrowse then
   tblBase.Next;
...
  if tblBase.State = dsBrowse then
 tblBase.Prior;

как сделать так если конец базы то кнопка вперед становилась не доступной и если начало базы то кнопка назад становилась не доступной?

[lmikle]

tblBase.BOF
tblBase.EOF

[AlexSku]

Можно ещё взять DBNavigator.

[dmdx]

можно еще так.

Код:

// начало
if (tblBase.RecNo = 1) and (not tblBase.IsEmpty)then btnprior.enabled := false
else if (tblBase.RecNo > 1) and (not tblBase.IsEmpty) then btnprior.enabled := true;

// конец
if (tblBase.RecNo = tblbase.RecordCount) and (not tblBase.IsEmpty) then btnnext.enabled := false
else if (tblBase.RecNo < tblbase.RecordCount) and (not tblBase.IsEmpty) then btnnext.enabled := true;

[Sveta22]

Всем спасибо!!!