[chudovperyax]

Здравствуйте! Проблема такова: есть бд access, есть программа в delphi 2009. Было реализовано подключение БД к программе, с помощью ADOQuery были реализованы несколько сложных запросов. Теперь мне нужно произвести вычисления, в частности умножение результатов adoquery1 на adoquery2, но я не знаю как это сделать
Код для полного понимания:

Код:

ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOquery1.sql.Text:= 'SELECT SUM(Perem_zatr.Plan) AS plan, SUM(Perem_zatr.Fact) AS fact FROM ((Perem_zatr INNER JOIN Period_vremeni ON Perem_zatr.ID_vremya=Period_vremeni.ID_vremya)'+
'INNER JOIN Norma_resursa ON Perem_zatr.ID_norma_resursa=Norma_resursa.ID_norma_resursa)'+
'INNER JOIN Vid_produkcii ON Norma_resursa.ID_nomenklatura=Vid_produkcii.ID_nomenklatura '+
'WHERE Vid_produkcii.Nomenklatura="' + DBComboBox1.text + '"'+
'And (Period_vremeni.Period_vremeni_nach Between #12/12/2012# And #02/01/2013#)'+
'And Period_vremeni.Period_vremeni_kon <= #02/02/2013#';
ADOQuery1.Open;
ADOQuery1.Active:=True;

ADOQuery3.Active:=False;
ADOQuery3.Close;
ADOquery3.sql.Text:= 'SELECT Proizveden_prod.Plan AS VP, Proizveden_prod.Fact AS VF FROM Vid_produkcii INNER JOIN (Period_vremeni INNER JOIN Proizveden_prod '+
'ON Period_vremeni.ID_vremya = Proizveden_prod.ID_vremya) ON Vid_produkcii.ID_nomenklatura = Proizveden_prod.ID_nomenklatura '+
'WHERE (Period_vremeni.Period_vremeni_nach Between #01/12/2012# And #02/02/2013#)'+
'AND Period_vremeni.Period_vremeni_kon <= #02/02/2013#'+
'AND Vid_produkcii.Nomenklatura="' + DBComboBox1.text + '"';
ADOQuery3.Open;
ADOQuery3.Active:=True;

По сути мне нужно plan * VP и fact * VF.