Подсчет итогов по столбцу таблицы

← →
Jeka (2003-01-22 15:46) [0]

Здраствуйте мастера!
Как сделать подсчет данных из одной таблици в другую
Имеется 2 таблици ЗАКАЗЫ(номер заказа, дата, сумма_заказа) и
АссортиментЗаказа(номер заказа , товар, цена, кол-во, сумма)
они связаны(главная/подчиненая) по номеру заказа.
Как сделать чтоб в ЗАКАЗЫсумма_заказа подсчитывались данные
из АссортиментЗаказаСумма.
Заранее спасибо!

← →
Johnmen © (2003-01-22 15:51) [1]

UPDATE Tглавная TM SET TM.сумма_заказа= (SELECT SUM(TD.сумма) FROM Tподчиненая TD WHERE TD.номер заказа=TM.номер заказа)

← →
Jeka (2003-01-22 15:54) [2]

а с TTable как)

← →
kkot (2003-01-22 16:01) [3]

А никак :)) И можешь смело от него отказаться

← →
Johnmen © (2003-01-22 16:02) [4]

Путем написания программного кода.

← →
MsGuns © (2003-01-22 16:03) [5]

Ставишь на подчиненную обработчики AfterPost, AfterDelete и в них обращаешься к процедуре, которая работает примерно так:

1. Отключает грид детала от датасорса
2. Запоминает тек.запись детала в букмарке
3. К первой записи детала, переменная ComSum=0
4. Пока не конец курсора детала
ComSum=ComSum+<сумма по строке>
<Детал>.Next
5. Позиционируешь детал к запомненной букмарке
6. Удаляешь букмарку
7. Грид детала привязываешь к датасорсу
8. <Мастер>.Edit
9. <Мастер>.FieldByName("<Поле суммы заказа>").AsFloat :=
Round(ComSum*100)/100
10. <Мастер>.Post

Это без единого квери !

← →
kkot (2003-01-22 16:38) [6]

>MsGuns

Я не говорю, что вообще нельзя, но это самый настоящий онанизм, да еще и левой рукой, из-под ноги :)) Про расход памяти и системных ресурсов я просто молчу. Мы же не американцы, у которых недостаток серого вещества заменяют мегабайты и гигагерцы. Один полудурок сделал выборку по Id_smth: select from xxx where Id_smth = (4,5,6 ..., 968) или что-то в этом роде :)) between мы не знаем, а про Id_smth>4 and Id_smth<968 догадаться сложно :)))

← →
Anatoly Podgoretsky © (2003-01-22 16:44) [7]

Знаешь яя такое видел и у не американцев и что?

← →
dolmat © (2003-01-22 17:07) [8]

У меня работает примерно так как описал MsGuns
sum:=0;
ЗАКАЗЫ.first;
while not ЗАКАЗЫ.eof do begin
sum:=sum+ЗАКАЗЫсумма_заказа.asfloat;
ЗАКАЗЫ.next;
end;
АссортиментЗаказаСумма.asfloat:=sum;

на то что курсор прыгает никто из бухгалтеров не обращает внимания, а если необходимо, то используй метки.

← →
kkot (2003-01-22 17:15) [9]

>на то что курсор прыгает никто из бухгалтеров не обращает внимания, а если необходимо, то используй метки.

А контролы пробовал отключать на время выполнения твоей "процедуры"?

← →
MsGuns © (2003-01-22 17:28) [10]

>dolmat © (22.01.03 17:07)

перед While .. do
DBGrid1.DataSource := nil;

после завершения цикла и установка датасета в исх.точку
DBGrid1.DataSource := DataSource1;

и не будет ничего прыгать и мигать. Да и шустрее бу существенно.

>kkot (22.01.03 16:38)
Не согласен. Не бывает плохих методов,- бывают кривые программеры. В данном случае, если все УЖЕ ПОСТРОЕНО на TTable и размер деталов небольшой (до 100 записей), все будет работать достаточно быстро в парадоксе. Если, конечно, таблица детала в это время не обновляется 20-ю юзерами. Пример, приведенный Вами, для данного случая считаю некорректным.

а если контролы отрубать то курсор станет на последнюю record.

>dolmat © (22.01.03 17:32)

Если на видимой форме масса контролов, привязанных к ОДНОМУ сорсу на "пробегаемый" датасет, то можно "вырубать" не датасорс, а датасет в датасорсе, а потом врубать. В этом случае все связанные с табличным деталом контролы буду синхронно "отключаться" - "подключаться"

Есть и еще один способ, заключающийся в использовании параллельного датасета, идентично с основным деталом связанного с мастером. "Бегать" можно по нему. В этом случае вообще не надо никаких "отрубаний". Его, кстати, можно и рефрешить через секунду-другую - больших видимых задержек это за собой не повлечет. Но это для большого числа активных (т.е. реально изменяющих таблы) изеров

точнее все равно курсор станет на последнюю record т.к. цикл заканчивается на последней record а курсор gridа перепрыгивает. Так быть должно, но вот только что проверил на своей программе и он даже не прыгает и сумму подсчитывает и работает все правильно. В программе все то же что я описал, но я вместо стандартного dbGrid использую QuntumGrid который связывается с таблицей немного по другому, может по этому и не прыгает.

>dolmat © (22.01.03 17:54)
Я использую TDBGrid из поставки делфи и у меня ничего не прыгает.
А уж с параллельным датасетом вообще никаких подвижек не будет. Так что дело-то не в гриде...

Подсчет итогов по столбцу таблицы Найти похожие ветки