|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
начало и конец базы
Добрый день! Есть база, есть две кнопки которые перелистывают базу "Вперед" и "Назад" вот код
Код:
if tblBase.State = dsBrowse then tblBase.Next; ... if tblBase.State = dsBrowse then tblBase.Prior; |
#2
|
|||
|
|||
tblBase.BOF
tblBase.EOF |
#3
|
|||
|
|||
Можно ещё взять DBNavigator.
|
#4
|
|||
|
|||
можно еще так.
Код:
// начало 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; Програмист приходит на стрельбище. Стреляет. Прапор смотрит на мешень и говорит Прапор: вы не попали ни один раз. Программист: Пули вылетели, проблемы у вас. Последний раз редактировалось dmdx, 24.12.2008 в 13:30. |
#5
|
|||
|
|||
Всем спасибо!!!
|