Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Количестве записей в БД 
:(
    Опции темы
mulla
Дата 9.4.2006, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.3.2006

Репутация: нет
Всего: нет
Ребята, может, кто подскажет, пожалуйста, как посчитать записи?

А именно:
Как сделать так, чтобы в StatusBar отображалась информация о количестве записей, которые на данный момент высвечиваются в DBGrid.
Например:
Скажем ввёл ФИО – «Иванов», а в StatusBar мне - Записей: 10. А если я решил вывести "Все записи" - Записей: 1000!
PM MAIL   Вверх
McDevil
Дата 9.4.2006, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: нет
Всего: 3
Можно вот так:
Код

Status.Panels[1].Text:='Всего записей : '+ IntToStr(DM.ADOTbSotr.RecordCount);

где ADOTbSotr - ето Querry или Table
и обновляйте когда применяете фильтр на Иванова, Петрова и т. д.

Это сообщение отредактировал(а) McDevil - 9.4.2006, 19:53


--------------------
 мы знаем столько, сколько можем, а можем столько, сколь хотим... 

Тестируем программу: SPL-программа аналогов функций  
PM MAIL WWW ICQ   Вверх
mulla
Дата 9.4.2006, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.3.2006

Репутация: нет
Всего: нет
Большое спасибо за ответ McDevil!
Только еще три вопроса можно:
1) Где именно прописывать:
Status.Panels[1].Text:='Всего записей : '+ IntToStr(DM.ADOTbSotr.RecordCount);

2) Прописывал в Таймере:
Ругается на Status, если убираю то потом на DM? а без них отображается только:
"Всего записей"
3)
Цитата

обновляйте когда применяете фильтр на Иванова, Петрова и т. д.
Это как?
PM MAIL   Вверх
McDevil
Дата 9.4.2006, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: нет
Всего: 3
Цитата(mulla @ 9.4.2006, 21:35 Найти цитируемый пост)
Большое спасибо за ответ McDevil!
Только еще три вопроса можно:
1) Где именно прописывать:
Status.Panels[1].Text:='Всего записей : '+ IntToStr(DM.ADOTbSotr.RecordCount);


Допустим на событие формы OnCreater...

Цитата(mulla @ 9.4.2006, 21:35 Найти цитируемый пост)
2) Прописывал в Таймере:
Ругается на Status, если убираю то потом на DM? а без них отображается только:
"Всего записей"


Status - ето ваш StatusBar1
DM - ето мой DataModule1 переименнованный в DM, но вам наверное ненадо, если вы не используете DataModule
Чтобы вам было понятней пишу:
Код

procedure TForm1.OnCreate(Sender : TObject);
begin
StatusBar1.Panels[0].Text:='Всего записей : '+ IntToStr(ADOQuerry1.RecordCount);
end;


Цитата(mulla @ 9.4.2006, 21:35 Найти цитируемый пост)
Это как?


Ну ето при условии, что вы применяете всякие там всевозможные фильтры - в результате применения фильтра количество записей в вашей таблице изменится и вам куда - то еще надо будет помещать етот код:
Код

StatusBar1.Panels[0].Text:='Всего записей после фильтрации: '+ IntToStr(ADOQuerry1.RecordCount);


Прописаваете его на клик батона и т. д. Удачи...

Это сообщение отредактировал(а) McDevil - 9.4.2006, 22:26


--------------------
 мы знаем столько, сколько можем, а можем столько, сколь хотим... 

Тестируем программу: SPL-программа аналогов функций  
PM MAIL WWW ICQ   Вверх
krobs
Дата 9.4.2006, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 9.12.2005
Где: Барнаул

Репутация: нет
Всего: нет
Вы знаете McDevil!
Я прописал данный код:
Код

procedure TForm1.FormCreate(Sender : TObject);
begin
StatusBar1.Panels[0].Text:='Всего записей : '+ IntToStr(ADOTable1.RecordCount);
end;


Появляется общее количество записей, а при выполнении запроса - сколько найденно никак!
Обновлять? Но у меня это только перезапустить программу - все результаты поиска теряются!
А с фильтами у меня вообщен беда. Если честно я очень плохо представляю себе что это!

Это сообщение отредактировал(а) krobs - 9.4.2006, 23:07
PM MAIL AOL   Вверх
Foley
Дата 9.4.2006, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7
Цитата(krobs @ 9.4.2006, 23:05 Найти цитируемый пост)
Я прописал данный код:

Цитата(krobs @ 9.4.2006, 23:05 Найти цитируемый пост)
Появляется общее количество записей, а при выполнении запроса - сколько найденно никак!


ответ



Цитата(McDevil @ 9.4.2006, 22:24 Найти цитируемый пост)
и вам куда - то еще надо будет помещать етот код:


Цитата(McDevil @ 9.4.2006, 22:24 Найти цитируемый пост)
Прописаваете его на клик батона

или на событие ОнТайм у таймера(этот компанент расположен на вкладке Систем вроде)
или после прописывания фильтрации
PM MAIL ICQ   Вверх
McDevil
Дата 10.4.2006, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: нет
Всего: 3
Цитата(krobs @ 9.4.2006, 23:05 Найти цитируемый пост)
Появляется общее количество записей, а при выполнении запроса - сколько найденно никак!

Ведь выполнение запроса у вас по нажатию на кнопку происходит?
Вот и пишем:
Код

procedure button1.click(Sender : TObject);
var //тра-ля-ля
begin
{тута у вас выполняется запрос}
StatusBar1.Panels[0].Text:='Всего записей после запроса: '+ IntToStr(ADOQuerry1.RecordCount);
end;


Ну как понятнее стало, аль еще что-то объяснить...



--------------------
 мы знаем столько, сколько можем, а можем столько, сколь хотим... 

Тестируем программу: SPL-программа аналогов функций  
PM MAIL WWW ICQ   Вверх
mulla
Дата 10.4.2006, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 16.3.2006

Репутация: нет
Всего: нет
Спасибо McDevil!
Всё путём, всё работает, только обновлять приходиться перезапуском!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0862 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.