подсчет записей в базе

[1234]

ребят мен нужно посчитать сколько записей в базе данных и вывести их в лейбл как это сделать

[Aleksandr]

var
 CountRows:integer;
begin
CountRows := form1.DbGrid1.DataSource.DataSet.RecordCount;
 label5.Caption:=Format ('%2d',[TFake (DbGrid1).Row]);
   form1.StatusBar.Panels[0].Text:=Form6.Box1.Text+' - '+Form6.Edit2.Text+'         Всего заказчиков - '+inttostr(CountRows)+ '   Выбран заказчик № - '+ label5.caption;

[1234]

че то я последние строки не понел
и куда это можно прописать (извиняюсь за вопрос чайника)

[Aleksandr]

var
CountRows:integer;
begin
CountRows := form1.DbGrid1.DataSource.DataSet.Re cordCount;
Label1.Caption:=inttostr(CountRows) ;
Лишнее убрал

можно вставить например в procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,

[1234]

выводит ошибку я прописал на он клик

[1234]

все работает огромное спасибо ТЕМА ЗАКРЫТА