Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сумма [D7, XP]

Cara © (2007-03-14 11:29:00)
Добрый день!
Как посчитать сумму по столбцу в DBGrid.

Anatoly Podgoretsky (2007-03-14 19:17:00) [1]
> Cara (14.03.2007 11:40:02) [2]

В Дельфи нет фукции Sum, Дельфи компилятор общего назначения, а Акцесс это СУБД

zdm (2007-03-14 18:49:00) [2]
в ehlib
FooterRowCount=1(или больше)
даблклик по гриду, добавить необходимые columns и которого надо считать сумму Footer-ValueType-fvtSum

RASkov (2007-03-14 18:31:00) [3]
Сумму значение поля не возможно посчитать не пробежавшись по каждой записи... пусть то будет своя реализация или чужая(функция, SQL...)... Имхо.
Можно сделать отдельную табличку(или файл) где хранить сумму поля.
При добавлении новой записи - увеличивать на значение поля, при удалении - уменьшать, а при изменении - перед изменением отнять старое значение после сохранения добавить новое. Но это наверное только в монопольном режиме и вообще наверное ерунда (просто мысли вслух). Ну и периодически делать проверку т.е. пробежаться по всем и сравнить....

Amoeba (2007-03-14 17:56:00) [4]

> Cara © (14.03.07 17:34) [13]
>
> А как в EhLib DBGridEh посчитать сумму?

Настроить Footer. Подробнее смотри идущую в комплекте демку, а иначе долго бъяснять.

Cara (2007-03-14 17:34:00) [5]
А как в EhLib DBGridEh посчитать сумму?

Ega23 (2007-03-14 15:16:00) [6]

> А если типа 'select Sum(Ваш_столбец)'? Намного быстрее будет.
> ..
> Хотя, в исходники незаглядывал...
>

А это я уже не знаю, что там быстрее будет. Но если ты внимательно посмотришь исходники Eh, то поймёшь, как он сумму по столбцу считает.

DimonS (2007-03-14 15:11:00) [7]

> Amoeba © (14.03.07 14:28) [10]

Точно, сейчас покопался. Именно EhLib, по старым исходникам посмотрел. В нем есть такие компоненты.

> Не хочешь подумать, каким образом он это делает? :)

А если типа 'select Sum(Ваш_столбец)'? Намного быстрее будет...
Хотя, в исходники незаглядывал...

Amoeba (2007-03-14 14:28:00) [8]

> DimonS © (14.03.07 13:33) [6]
>
> Наговорили... :)
> В библиотеке RxLib (вроде бы) есть какой-то компонент, считающий
> сумму столбца. Какой - не подскажу уже, давно с BDE не работаю.
>

RxLib и BDE здесь совсем ни при чем. Суммы и средние по столбцам сам считает и показывает DBGridEh из библиотеки EhLib.
http://www.delphiplus.org/articles/news/2005/ehlib_4.0.html

Ega23 (2007-03-14 14:01:00) [9]

> В библиотеке RxLib (вроде бы) есть какой-то компонент, считающий
> сумму столбца.

Не хочешь подумать, каким образом он это делает? :)

DimonS (2007-03-14 13:55:00) [10]

> Интересно, какое отношение к этой ветке имеет BDE?

Сорри, применял ЭТО только в БДЕ...

Плохиш (2007-03-14 13:43:00) [11]

> давно с BDE не работаю.

Интересно, какое отношение к этой ветке имеет BDE?

DimonS (2007-03-14 13:33:00) [12]
Наговорили... :)
В библиотеке RxLib (вроде бы) есть какой-то компонент, считающий сумму столбца. Какой - не подскажу уже, давно с BDE не работаю.

Reindeer Moss Eater (2007-03-14 11:48:00) [13]
А не переходя по полям по очереди.
Если "не проходя", то можно просто угадать правильную сумму.
Random тебе поможет.

Ega23 (2007-03-14 11:46:00) [14]

> А не переходя по полям по очереди.

А никак.

> В Acess есть функция Sum(), а как это в Delphi?

функция Sum() есть в любой СУБД, поддерживающей ANSI SQL.

Плохиш (2007-03-14 11:44:00) [15]

> Cara © (14.03.07 11:40) [2]

Вы разберитесь сначала, Вам " посчитать сумму по столбцу в DBGrid" или с помощью SQL-запроса?

Cara (2007-03-14 11:40:00) [16]
А не переходя по полям по очереди. Ну в случае большой таблицы это не есть хорошо. В Acess есть функция Sum(), а как это в Delphi?

Плохиш (2007-03-14 11:33:00) [17]
with DBGrid.DataSource.DataSet do
begin
First;
Summa := 0;
while not eof do
begin
Summa := Summa + FieldByName('pole').AsFloat;
Next;
end;
end;

Но настоятельно советую начать в конце концов изучение теории.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »