Сумма

← →
Cara © (2007-03-14 11:29) [0]

Добрый день!
Как посчитать сумму по столбцу в DBGrid.

← →
Плохиш © (2007-03-14 11:33) [1]

with DBGrid.DataSource.DataSet do
begin
First;
Summa := 0;
while not eof do
begin
Summa := Summa + FieldByName("pole").AsFloat;
Next;
end;
end;

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

← →
Cara © (2007-03-14 11:40) [2]

А не переходя по полям по очереди. Ну в случае большой таблицы это не есть хорошо. В Acess есть функция Sum(), а как это в Delphi?

← →
Плохиш © (2007-03-14 11:44) [3]

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

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

← →
Ega23 © (2007-03-14 11:46) [4]

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

А никак.

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

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

← →
Reindeer Moss Eater © (2007-03-14 11:48) [5]

А не переходя по полям по очереди.
Если "не проходя", то можно просто угадать правильную сумму.
Random тебе поможет.

← →
DimonS © (2007-03-14 13:33) [6]

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

← →
Плохиш © (2007-03-14 13:43) [7]

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

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

← →
DimonS © (2007-03-14 13:55) [8]

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

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

← →
Ega23 © (2007-03-14 14:01) [9]

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

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

← →
Amoeba © (2007-03-14 14:28) [10]

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

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

← →
DimonS © (2007-03-14 15:11) [11]

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

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

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

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

← →
Ega23 © (2007-03-14 15:16) [12]

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

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

А как в EhLib DBGridEh посчитать сумму?

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

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

← →
RASkov (2007-03-14 18:31) [15]

Сумму значение поля не возможно посчитать не пробежавшись по каждой записи... пусть то будет своя реализация или чужая(функция, SQL...)... Имхо.
Можно сделать отдельную табличку(или файл) где хранить сумму поля.
При добавлении новой записи - увеличивать на значение поля, при удалении - уменьшать, а при изменении - перед изменением отнять старое значение после сохранения добавить новое. Но это наверное только в монопольном режиме и вообще наверное ерунда (просто мысли вслух). Ну и периодически делать проверку т.е. пробежаться по всем и сравнить....

в ehlib
FooterRowCount=1(или больше)
даблклик по гриду, добавить необходимые columns и которого надо считать сумму Footer-ValueType-fvtSum

> Cara (14.03.2007 11:40:02) [2]

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

Сумма Найти похожие ветки