SQL - запросы в Delphi

[Nikola]

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

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

Здесь возникли проблемы с написанием кода

[SuperVisor]

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

Здесь возникли проблемы с написанием кода

А в чем собственно проблема?

[Nikola]

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

А в чем собственно проблема?

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

[SuperVisor]

S:=' SELECT Avto.Inv, Avto.Marka, AVTO.COST'

with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT Auto.inv, Azs.inv');
SQL.Add('FROM "avto.DB" Avto, "AZS.DB" Azs');
SQL.Add('WHERE');
SQL.Add('(Azs.Inv = Auto.inv)');
SQL.Add('ORDER BY Inv');
Open;
end;
if Query1.RecordCount <> 0 then S:=S+ '+sum(azs.vl*fprice.price)';

И продолжай в том же дуже.

[Nikola]

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

S:=' SELECT Avto.Inv, Avto.Marka, AVTO.COST'
...
if Query1.RecordCount <> 0 then S:=S+ '+sum(azs.vl*fprice.price)';

Хорошая идея,SuperVisor, но непонятно , что провярять выражением "if Query1.RecordCount <> 0"? А как тогда отобразятся записи, где авто имеет только расходы, связанные с его покупкой? Если recordcout =0 , то
s не изменится и нарушится структура таблицы.

[SuperVisor]

Здесь нужно приписать пару строк...
SQL.Add('FROM "avto.DB" Avto, "AZS.DB" Azs');
SQL.Add('WHERE');
SQL.Add('(Auto.inv = '+*твоя переменная*')');
SQL.Add('WHERE');
SQL.Add('(Azs.Inv = Auto.inv)');
SQL.Add('ORDER BY Inv');

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

[Nikola]

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

Здесь нужно приписать пару строк...

Что-то я не разберусь. Вот ещё одну идею подбросили

SELECT
Avto.Inv,
Avto.Marka,
AVTO.COST +
(SELECT sum(azs.vl*fprice.price) FROM azs, fprice
WHERE avto.inv=azs.inv and azs.fuel=fprice.fuel) +
(SELECT SUM(REMONT.COST) FROM remont WHERE avto.inv=remont.inv)
FROM avto

Но в столбце общих затрат ячейки пустые

[SuperVisor]

а не проще сначала брать значения из таблиц, а потом ими оперировать: код будет больше, зато понятней и на скорости я думаю это не отобразится.

[Nikola]

ну да, пожалуй проще.

Query2.SQL.Text:=('SELECT Azs.Inv, sum (azs.vl*fprice.price) as Стоимость FROM "azs.DB" Azs, "Fprice.DB" Fprice where azs.fuel=fprice.fuel group by azs.inv');
query4.SQL.Text:='select inv,sum(cost) from remont group by inv;';
query1.SQL.Text:='select inv,marka,cost from avto;';
for i:=1 to query1.recordcount do begin
query1.Close;
for j:=1 to query2.RecordCount do begin
if
query1.FieldByName('inv').AsInteger =query2.FieldByName('inv').AsIntege r then
cost:=cost+query2.FieldByName('Стои мость').AsFloat;
query2.Next;
end;
query2.First;
query1.SQL.Text:='select inv,marka,cost+'''cost''' from avto;';
query1.Next;
end;
...хотя возникла проблема в последней строке с +cost.

[Nikola]

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

...*твоя переменная*...

А для чего здесь символы * *?