Выборка из БД

[EgorKa1]

Доброго времени суток. Помогите пожалуйста. Выбираю данные из БД, но почему то выводит одни нули.
Вот код:

procedure SumHours2();
begin
  sum:=0;
  while not Form8.ADOQuery1.Eof do
  begin
    sum:=sum+Form8.ADOQuery1.FieldByName('NumberHours').AsInteger;
    Form8.ADOQuery1.Next;
  end;
 
end;
 
procedure TForm8.BitBtn1Click(Sender: TObject);
var
  i: Integer;
  j,k: Integer;
begin
StringGrid2.Cells[0,1]:='Январь';
StringGrid2.Cells[0,2]:='Февраль';
StringGrid2.Cells[0,3]:='Март';
StringGrid2.Cells[0,4]:='Апрель';
StringGrid2.Cells[0,5]:='Май';
StringGrid2.Cells[0,6]:='Июнь';
StringGrid2.Cells[0,7]:='Июль';
StringGrid2.Cells[0,8]:='Август';
StringGrid2.Cells[0,9]:='Сентябрь';
StringGrid2.Cells[0,10]:='Октябрь';
StringGrid2.Cells[0,11]:='Ноябрь';
StringGrid2.Cells[0,12]:='Декабрь';
Form2.ADOQuery3.First;  i:=1; k:=1;
while not Form2.ADOQuery3.Eof do
begin
  StringGrid2.Cells[i,0]:=Form2.ADOQuery3.FieldByName('NameGroup').AsString;
  ADOQuery1.SQL.Clear;
  for j := 1 to 12 do
  begin
    if j<10 then
    begin
      date1:='01.0'+inttostr(j)+'.'+ComboBox3.Text;
      date2:='31.0'+inttoStr(j)+'.'+combobox3.Text;
    end;
    if j>=10 then
    begin
      date1:='01.'+inttostr(j)+'.'+combobox3.Text;
      date2:='31.'+inttostr(j)+'.'+combobox3.Text;
    end;
    ADOQuery1.SQL.Add('SELECT NumberHours FROM Hours WHERE MONTH(DateSubject)='+IntToStr(j)
+' AND YEAR(DateSubject)='+QuotedStr(ComboBox3.Text)+' AND NameTeacher='+QuotedStr(ComboBox4.Text)
+' AND NameGroup='+QuotedStr(Form2.ADOQuery3.FieldByName('NameGroup').AsString));
    SumHours2;
    StringGrid2.Cells[k,j]:=IntToStr(sum);
    Memo1.Lines.Add(date1+' '+date2+' '+ComboBox4.Text+' '+Form2.ADOQuery3.FieldByName('NameGroup').AsString+' ');
  end;
  Form2.ADOQuery3.Next;
  inc(i);
  inc(k);
end;
    Label4.Caption:=date1;
    Label5.Caption:=date2;
    Label6.Caption:=ComboBox4.Text;
    Label7.Caption:=Form2.ADOQuery3.FieldByName('NameGroup').AsString;
end;

[Toxa]

ADOQuery1.SQL.Add('SELECT NumberHours FROM Hours WHERE MONTH(DateSubject)='+IntToStr(j)+' AND YEAR(DateSubject)='+QuotedStr(ComboBox3.Text)+' AND NameTeacher='+QuotedStr(ComboBox4.Text)+' AND NameGroup='+QuotedStr(Form2.ADOQuery3.FieldByName('NameGroup').AsString));

такого делать не надо, делай так

ADOQuery1.SQL.Add('SELECT NumberHours FROM Hours WHERE MONTH(DateSubject)=:pmonth AND YEAR(DateSubject)=:pyear AND NameTeacher=:pnameteacher AND NameGroup=:pnamegroup');
ADOQuery1.parambyname('pmonth').datatype := ftinteger;
ADOQuery1.parambyname('pyear').datatype := ftinteger;
ADOQuery1.parambyname('pnameteacher').datatype := ftstring;
ADOQuery1.parambyname('pnamegroup').datatype := ftstring;
ADOQuery1.parambyname('pmonth').value:= j;
ADOQuery1.parambyname('pyear').value:= ComboBox3.Text;
ADOQuery1.parambyname('pnameteacher').value:= ComboBox4.Text;
ADOQuery1.parambyname('pnamegroup').value:= Form2.ADOQuery3.FieldByName('NameGroup').AsString;

вызывай ADOQuery1.SQL.Clear; перед ADOQuery1.SQL.Add, иначе после первого прохода цикла в query будет 2 селекта и выборки не будет

ну и собсно, где же открытие ADOQuery1? если бы начал дебажить, то увидел бы где проблема,
этот цикл будет проскакивать

while not Form8.ADOQuery1.Eof do

З.Ы. код писал по памяти

[EgorKa1]

Спасибо большое....Очень очень большое...