Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

TDBGrid - номер текущей записи и всего записей в таблице   Найти похожие ветки 

 
Express   (2006-04-25 16:20) [0]

Здравствуйте!
Возникла такая задумка выводить номер текущей записи и сколько всего записей в таблице, для отображения записей использую компонент TDBGrid.

StatusBar.Panels.Items[0].Text :="№ текущей записи: "+IntToStr(DBGrid.DataSource.DataSet.RecNo);
StatusBar.Panels.Items[1].Text :="Всего записей: "+IntToStr(DBGrid.DataSource.DataSet.RecordCount);  

Необходимо чтобы при перемещение по строкам текущая информация обновлялась, в какое событие TDBGrid необходимо поместить данный код????

Или подскажите, как это можно еще сделать??


 
Плохиш ©   (2006-04-25 16:40) [1]

OnAfterScroll набора данных, не TDBGrid.


 
Express   (2006-04-25 16:48) [2]

Большое спасибо!


 
Desdechado ©   (2006-04-25 18:48) [3]

RecNo и RecordCount работает далеко не для всех источников данных


 
MsGuns ©   (2006-04-26 13:32) [4]

>Плохиш ©   (25.04.06 16:40) [1]
>OnAfterScroll набора данных, не TDBGrid.

Еще TDataSet.OnAfterOpen, TDataSet.AfterRefresh и TDBGrid.OnEnter

>Desdechado ©   (25.04.06 18:48) [3]
>RecNo и RecordCount работает далеко не для всех источников данных

Для двунаправленных курсоров работают. Для RecordCount после открытия надо сразу давать Last, First (при TDataSet.DisableControls) или FetchAll и не тянуть в датасет тучу записей с сервера, иначе будет тормоз при переоткрытиях


 
Рустем ©   (2006-04-26 14:57) [5]


> Express

Обработай событие OnDataChange компонента TDataSource например так:

procedure TForm.DataSourceDataChange(Sender: TObject;
 Field: TField);
begin
 with DataSource.DataSet do
 begin
   if IsEmpty
   then
     StatusBar.Panels.Items[0].Text := "(0)"
   else
     if (State = dsBrowse) and (Field = nil) then
        StatusBar.Panels.Items[0].Text := Format(" %d:%d", [RecNo, RecordCount]);
 end;
end;


 
Johnmen ©   (2006-04-26 15:09) [6]

Единственный корректный ответ [1] с учётом оговорки [3].



Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.04 c
2-1149512127
VitV
2006-06-05 16:55
2006.06.25
interbase+delphi удаление блоб


2-1149604960
Alex>
2006-06-06 18:42
2006.06.25
Массив записей


2-1149347708
AlexanderMS
2006-06-03 19:15
2006.06.25
Показывать амперсанд (&)


15-1148922206
Ломброзо
2006-05-29 21:03
2006.06.25
Штрих-кодирование


2-1149674285
Fiallo4ka
2006-06-07 13:58
2006.06.25
глупый вопрос