Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2009, 20:43   #11
Evgenii
Форумчанин
 
Аватар для Evgenii
 
Регистрация: 04.01.2008
Сообщений: 201
По умолчанию

Д, вопрос насчет распечатки появится точно). Попробую найти эту библиотеку. только вот я уже пробовал как-то устанавливать одну из библиотек и помню что с этим достаточно много проблем возникает(
Evgenii вне форума Ответить с цитированием
Старый 24.06.2009, 01:07   #12
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Я так понял, вам надо кол-во записей в таблице. Зачем все эти заморочки с запросами если все это можно написать одной строчкой:
Код:
 Label1.Caption := IntToStr(Table1.RecordCount);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 24.06.2009, 06:53   #13
Vit@L
Форумчанин
 
Аватар для Vit@L
 
Регистрация: 24.06.2009
Сообщений: 216
По умолчанию

Evgenii, попробуйте сделать так:
В методе AfterPost и AfterDelete компонента Query напишите эту строку:
i:=Query1.RecordCount;
и будет вам щастье
Водку мы пьем для запаха - а дури нам своей хватает!
Vit@L вне форума Ответить с цитированием
Старый 24.06.2009, 08:38   #14
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Необходимо чтобы число этих записей отображалось например в tlabel или tedit.
Ребята, а не проще ли
Код:
Label.Caption:=Table.RecordCount
Ых... вторую страницу не увидел, Ладно третьим буду
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.06.2009, 10:37   #15
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Цитата:
Сообщение от Neeter Посмотреть сообщение
Зачем все эти заморочки с запросами если все это можно написать одной строчкой:
Код:
 Label1.Caption := IntToStr(Table1.RecordCount);
К сожалению, в некоторых случаях этот способ может ввести Вас в заблуждение. Если используется ADO, то RecordCount устанавливается равным числу записей, реально прочитанных на текущий момент. Для больших таблиц это может оказаться существенно меньше действительного числа записей в таблице. Можно, конечно, прогнать таблицу до последней записи, но запрос count - быстрее, он выполняется на сервере без передачи данных (а в большинстве случаев - и без чтения, по индексу)
Black Fregat вне форума Ответить с цитированием
Старый 24.06.2009, 20:55   #16
Yurk@
Участник клуба
 
Аватар для Yurk@
 
Регистрация: 19.12.2007
Сообщений: 1,100
По умолчанию

а мне всё-таки кажеться, что для такой цели лучше всего подойдет SQL-запрос
Код:
SELECT COUNT(<имя поля>) FROM <имя таблицы>
, помещённые в отдельную процедуру, типа:
Код:
procedure GetRecCount;
begin
Query1.Close;
Query1.SQL.Text:='SELECT COUNT(<имя поля>) FROM <имя таблицы>';
Query1.Open;
Label1.Caption:=Query1.Fields[0].asString;
end;
и вызывать эту процедуру в обработчике каждой из управляющих кнопок (добавление, удаление и т.д.).
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ...
Yurk@ вне форума Ответить с цитированием
Старый 26.06.2009, 10:04   #17
Evgenii
Форумчанин
 
Аватар для Evgenii
 
Регистрация: 04.01.2008
Сообщений: 201
По умолчанию

Label1.Caption := IntToStr(Table1.RecordCount); - такой способ не совсем подходит. Допустим, у меня в базе 300 записей. Вначале так и показывает. При поиске по определенному параметру в таблице остается 3 записи. одну из них я удаляю. И label1 в результате показывает не 299, а 2!! Т.е. текущее состояние таблицы!
Evgenii вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа n,p, целые числа a1 , ... ,an. Наталья111 Фриланс 10 09.11.2010 20:09
Даны натуральные числа m,n. Посчитать сумму m последнего числа n. лялька Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2008 15:22
Отображение скрытых файлов и папок и отображение розширения всех файлов beegl Общие вопросы Delphi 10 14.12.2008 22:02
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
Вопрос по поводу записей (Record) werser Помощь студентам 13 05.09.2007 23:11