Вывод столбца БД в ListBox

[Nekala]

Очень нуждаюсь в помощи. Не могу разобраться с проблемой уже часов 15( Я только учусь, поэтому не судите строга. Вообщем проблема такая: у меня есть таблица Resalt, комбобокс(КБ) 1 и 2. КБ1 и 2 заполняется значениями из таблицы Grumma.name gruppa. С КБ все вопрядке, заполняются нормально. Теперь, когда я выбрала в КБ каку-нибудь группу и нажала на кнопку, в ListBox должны попасть значения из таблицы Resalt столбец Obshie. Значения в ListBox попадают, но криво. Например у меня в КБ : Асу, Повт, ИСТб.... Я выбираю Асу. ТОгда в ListBox ничегго не попадает. Если выберу Повт, то попадают значения списка АСУ. А если ИСТб, то значения списка Повт

вот код заполнения КБ

procedure TForm7.FormShow(Sender: TObject);
begin
 DataModule3.ADOQuery5.SQL.Clear;
 DataModule3.ADOQuery5.SQL.Text:='Select Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
 DataModule3.ADOQuery5.open;
 ComboBox2.Items.Clear;
 DataModule3.ADOQuery5.First;
  while (not  DataModule3.ADOQuery5.Eof)  do
   begin
ComboBox1.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
ComboBox2.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
  DataModule3.ADOQuery5.Next;
   end;
end;

а это код вывода в лист грид
if (Combobox1.Text <> '') and  (Combobox2.Text <> '')then
 begin
  ListBox1.Clear;
  ListBox2.Clear;

  DataModule3.ADOQuery4.SQL.Clear ;
  DataModule3.ADOQuery4.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemIndex));
  DataModule3.ADOQuery4.open;
  DataModule3.ADOQuery4.First;
  while (not DataModule3.ADOQuery4.Eof)  do
   begin
     ListBox1.Items.Add(DataModule3.ADOQuery4.Fields[0].AsString);
     DataModule3.ADOQuery4.Next;
   end;

  DataModule3.ADOQuery11.SQL.Clear ;
  DataModule3.ADOQuery11.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox2.ItemIndex));
  DataModule3.ADOQuery11.open;
  while ( not DataModule3.ADOQuery11.Eof)  do
   begin
     ListBox2.Items.Add(DataModule3.ADOQuery11.Fields[0].AsString);
     DataModule3.ADOQuery11.Next;
   end;


   end;

[Stilet]

where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemIndex+1));

Потому что массив комбика нумеруется с нуля.
А вообще неправильно ты делаешь в корне.

procedure TForm7.FormShow(Sender: TObject);
begin
 with DataModule3.ADOQuery5. do begin
  SQL.Text:='Select Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
  open;
  ComboBox1.Items.Clear; ComboBox2.Items.Clear;
  while (not  Eof)  do   begin
   ComboBox1.AddItem(FieldByName('Name_gruppa').AsString,
      TObject(FieldByName('Id_gruppa').AsInteger));
   ComboBox2.AddItem(FieldByName('Name_gruppa').AsString,
      TObject(FieldByName('Id_gruppa').AsInteger));
    Next;
   end;
 end;
end;

if (Combobox1.ItemIndex<>-1) and  (Combobox2.ItemIndex<>-1)then
 begin
  ListBox1.Clear;
  ListBox2.Clear;

  DataModule3.ADOQuery4.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='
    +IntToStr(Integer(Combobox1.items.objects[Combobox1.ItemIndex]));
  DataModule3.ADOQuery4.open;
  while (not DataModule3.ADOQuery4.Eof)  do
   begin
     И тут тоже нужно в комбик кидать как наименование так и ключевое поле как я показал выше
     DataModule3.ADOQuery4.Next;
   end;
....
   end;

И кстати не понятно мне какая связь между таблицами...

[Nekala]

Спасибо. Приду домой, сброшу связь между таблицами и попробую сделать как Вы написали. Часов через 6-7

[Nekala]

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

where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemIndex+1));

Потому что массив комбика нумеруется с нуля.
А вообще неправильно ты делаешь в корне.

procedure TForm7.FormShow(Sender: TObject);
begin
 with DataModule3.ADOQuery5. do begin
  SQL.Text:='Select Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
  open;
  ComboBox1.Items.Clear; ComboBox2.Items.Clear;
  while (not  Eof)  do   begin
   ComboBox1.AddItem(FieldByName('Name_gruppa').AsString,
      TObject(FieldByName('Id_gruppa').AsInteger));
   ComboBox2.AddItem(FieldByName('Name_gruppa').AsString,
      TObject(FieldByName('Id_gruppa').AsInteger));
    Next;
   end;
 end;
end;

if (Combobox1.ItemIndex<>-1) and  (Combobox2.ItemIndex<>-1)then
 begin
  ListBox1.Clear;
  ListBox2.Clear;

  DataModule3.ADOQuery4.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='
    +IntToStr(Integer(Combobox1.items.objects[Combobox1.ItemIndex]));
  DataModule3.ADOQuery4.open;
  while (not DataModule3.ADOQuery4.Eof)  do
   begin
     И тут тоже нужно в комбик кидать как наименование так и ключевое поле как я показал выше
     DataModule3.ADOQuery4.Next;
   end;
....
   end;

И кстати не понятно мне какая связь между таблицами...

Спасибо ОГРОМНОЕ! Все заработало. Сделала как Вы сказали.