Сумма по дате

[Pava_Pav]

Есть 4 таблицы:
1-CVET (kod,nazv)
2 PROIZVODSVO (kod, data_izg, kol_izg, kod_cv); расшифровка полей (код, дата изготовления, количество, код цвета)
3-NAKLADNAYA (kod, data) ; (код, дата)
4-POZICIYA_NAKLADNOY(kod, Kol_prod, kod_cv,kod_nakl); (код, кол-во проданного, код цвета, код накладной)

Нужно считать даные по такому принципу, выбираем цвет и по выбранному цвету считаем сумму произведенного товара за последние месяцы, причем количество месяцев должно быть вводимой переменной.
Меня интересует, как посчитать сумму kol_izg и kol_prod за последние месяцы(котрые ввели)?
СУБД - InterBase. ПРиложение Borland C++. Можно Delphi-пойму.

[Sla]

давай постепенно

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

Выбираем цвет
select nazv, kod from cvet where nazv=:nazv_cvet

:nazv_cvet - переменная которую ввели

по цвету выводим товар

select proizvodstvo.*
from cvet, proizvodstvo
where
cvet.nazv=::nazv_cvet and proizvodstvo.kod_cv=cvet.kod

теперь используем агрегатную функцию count
дальше писать не буду - смотри справочники, как по мне, я сказал все.

[Pava_Pav]

Да, интересная помощь, помогают тем, что я и сам могу и знаю, а вот как конкретно никто не подскажет, т.е. как конкретно определить границы месяца, чтобы посчитать сумму товара за этот месяц, причем месяц должен быть без "конкретики", т.е переменной.

[zubr]

Не понимаю, в чем сложность.
1. Составляем SQL-запрос по принципу как описал Sla.
2. В начало запроса добавляем 'SET DATEFORMAT dmy ' - это нужно чтобы не было разногласий при работе программы в разных системах. Не обязательно dmy (день, месяц, год).
3. В тело запроса добавляем что то типа:

Код:

Query1.SQL.Text := Query1.SQL.Text + 'AND date >=  ' + '''' + '01.'+ IntToStr(mn1) + '.' + IntToStr(year1) + '''' + ' AND date <  ' + ''''  + 
                                '01.'+ IntToStr(mn2) + '.' + IntToStr(year2) + '''';

Где переменные mn1, mn2, year1, year2 - соответственно месяц и год начала и конца отсчета.

[Sla]

Да, интересная помощь, помогают тем, что я и сам могу и знаю, а вот как конкретно никто не подскажет, т.е. как конкретно определить границы месяца, чтобы посчитать сумму товара за этот месяц, причем месяц должен быть без "конкретики", т.е переменной.

А как ты хотел? Чтоб я тебе написал сразу запрос, а ты при этом нифига не делал?
Это кому надо? Тебе или мне.
Если бы ты прривел готовые запросы, и сказал, например, что вот имею такое и такое, то и дальше бы мы вели совсем другой разговор.

Понятно?

[Pava_Pav]

Пишу такой запрос: считываю данные за последние 8 месяцев
IBQuery4->Active=false;
IBQuery4->SQL->Clear();
for(int i=0;i<8;i++)
IBQuery4->SQL->Add("SELECT Sum(KOL_IZG) FROM PROIZVODSVO WHERE DATA_IZG"<=+(Now()-30*i) AND ("DATA_IZG" >+Now()-30*(i+1)));
IBQuery4->Active=true;

Но при компиляции выдается ошибка E2015 Ambiguty between_fascall TDate Time: operator double() const and_fascal TDateTime:operator int() const'. Где ошибка, подскажите пожалуйста???
Ps:Sla, извини, просто я только учусь работать с БД.

[zubr]

Полная ерунда.
1.

Код:

for(int i=0;i<8;i++)
IBQuery4->SQL->Add("SELECT Sum(KOL_IZG) FROM PROIZVODSVO WHERE DATA_IZG"<=+(Now()-30*i) AND ("DATA_IZG" >+Now()-30*(i+1)));

В данном выражении у тебя текст запроса будет 8 раз складываться - что полная ерунда. БД выдаст ошибку.
2. Полное отсутствие понятия работы со строками типа AnsiString. Функция Now() возвращает тип double, а ты пытаешься его напрямую без преобразований добавить к строке. Для преобразования есть функция DateToStr.
3. Стоит почитать учебник.

[Pava_Pav]

Я пытаюсь, определить граница месяца, просто упростил задачу и сделал 30 дней

[Oldy]

 

[Pava_Pav]

Решил задачу, все работает . Считается сумма с шагом 30 дней

// производство
n=StrToInt(Edit4->Text);
for(int i=0;i<n;i++)
{
AnsiString S1=DateToStr(Now()-30*i),S2=DateToStr(Now()-30*(i+1));
IBQuery4->Active=false;
IBQuery4->SQL->Clear();
IBQuery4->SQL->Add("SELECT Sum(KOL_IZG) FROM PROIZVODSVO WHERE kod_cv="+DBEdit5->Text);
IBQuery4->SQL->Add(" AND DATA_IZG<='"+S1+"'");
IBQuery4->SQL->Add(" AND DATA_IZG>='"+S2+"'");
IBQuery4->Active=true;
DBEdit6->DataField="Sum";
mass

• =StrToInt(DBEdit6->Text);

}