[windaws]

Всем доброго времени суток. Интересует следующий вопрос: имеется таблица БД товары, в ней поля наименование, кол-во, цена. Нужно подсчитать общую сумму товара на складе. И делать это постоянно ну или как бы правильно выразиться динамически, когда добавляется товар пересчитывать, удаляется тоже пересчитывать. Я делал до этого времени с помощью цикла, по каждой записи умножая кол-во на цену и складывая. Но все же пришел к выводу что при больших объемах информации это очень сильно будет тормозить...... Каким способом было бы лучше всего это реализовать?

[lmikle]

Запросом.

Код:

1 2 3

SELECT ID, Name, SUM(Quantity*Price) FROM Table GROUP BY ID, Name

Собирает суммы по товарам. Если надо просто общую, то убираешь группировку. Если у тебя есть поле с суммой, то можно так:

Код:

1 2 3

UPDATE Table SET Summa = Quantity * Price WHERE ID = 555 -- если есть какой-то ID, то делать для него, если для все - убери эту строку

[windaws]

и потом в процедуре на добавление или удаление товара заного деактивировать и активировать запрос?
Подскажи еще для таких расчетов dll библиотеки используются или это вообще не то просто незнаком все хочу научиться ими пользоваться

[lmikle]

Ну я не знаю, зачем тебе это надо. Вообще, глупо хранитьь эту сумму, т.к. ее очешь просто посчитать.

[windaws]

Сообщение от lmikle

Ну я не знаю, зачем тебе это надо. Вообще, глупо хранитьь эту сумму, т.к. ее очешь просто посчитать.

Да надо просто посчитать и вывести, тогда запросом сделаю.
Есть еще 1 вопрос Таблицу сортирую по алфавиту с помощью события онTitleClick

Код:

1 2 3 4 5 6 7

procedure TForm1.DBGrid1TitleClick(Column: TColumn); Var f:string; begin     f:= Column.FieldName;     dm.Tovar.Sort:=f + ' DESC'; end;

Можно ли как нибудь сделать так чтобы, нажимаешь 1 раз на столбец сортируется по возрастанию, еще раз щелкаешь по убыванию?

[Black Raider]

Сообщение от windaws

Да надо просто посчитать и вывести, тогда запросом сделаю.
Есть еще 1 вопрос Таблицу сортирую по алфавиту с помощью события онTitleClick

Код:

Можно ли как нибудь сделать так чтобы, нажимаешь 1 раз на столбец сортируется по возрастанию, еще раз щелкаешь по убыванию?

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.DBGrid1TitleClick(Column: TColumn); Var f:string; begin     f:= Column.FieldName; if dm.Tovar.Sort=f + ' DESC' then dm.Tovar.Sort:=f else     dm.Tovar.Sort:=f + ' DESC'; end;

можно флаг сортировки завести

[windaws]

как просто все оказывается а я думаю может там событие какое есть чтобы определяло второй щелчек.....

А что за флаг, интересно?

[Black Raider]

Сообщение от windaws

как просто все оказывается а я думаю может там событие какое есть чтобы определяло второй щелчек.....

А что за флаг, интересно?

Объяви глабальную переменную

Код:

1	fl:boolean;

и на шелчке тогда будет вот так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.DBGrid1TitleClick(Column: TColumn); Var   f:string; begin   f:= Column.FieldName;   fl:=not fl;   if fl then dm.Tovar.Sort:=f   else     dm.Tovar.Sort:=f + ' DESC'; end;