[ЮЛК@]

Здравствуйте, помогите пожалуйста начинающему программисту! У меня на форме находятся два DBComboboxa: DBCombobox1 - отображает список шахт, DBCombobox2 - отображает список точек отбора проб ( т.е. местоположение в шахте). Необходимо, чтобы при выборе конкретной шахты из DBCombobox1, в DBCombobox2 появлялся список точек проб для этой шахты. Вроде кажется что легко, а никак не могу реализовать! База данных InterBase, состоит из 4х таблиц: таблица шахт, таблица точек отбора(замера) проб, таблица проб и главная таблица. Код заполнения DBComboboxов:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TFormMain.FormActivate(Sender: TObject); begin  try   DataModule3.IBDataBase1.Connected:=true;   except   Showmessage('Нет базы');   end;   if DataModule3.IBDataBase1.Connected then   begin    DataModule3.IBDataSet2.Active:=False;    DataModule3.IBDataSet2.SelectSQL.Text:='select * from TCHK_PROBA';    DataModule3.IBDataSet2.Active:=True;     while not DataModule3.IBDataSet2.Eof do      begin       DBComboBox1.Items.Add(DataModule3.IBDataSet2.FieldByName('NAME').AsString);       DataModule3.IBDataSet2.Next;      end;    DataModule3.IBDataSet1.Active:=False;    DataModule3.IBDataSet1.SelectSQL.Text:='select * from SHAXTA';    DataModule3.IBDataSet1.Active:=True;    while not DataModule3.IBDataSet1.Eof do      begin       DBComboBox2.Items.Add(DataModule3.IBDataSet1.FieldByName('NAME').AsString);       DataModule3.IBDataSet1.Next;      end;      end; end;

Admin: Незабываем про теги!

[Yurk@]

1.Лично я делал так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure cmbBox1Enter(Sender:TObject); begin uQuery.Close; uQuery.SQL.Text:='SELECT n_shaxt FROM shaxti'; uQuery.Open; end;   procedure cmbBox2Enter(Sender:TObject); begin stQuery1.Close; stQuery1.SQL.Text:='SELECT to_shaxt FROM tchk_shaxt WHERE n_shaxt = "'+cmbBox1+'" GROUP BY to_shaxt'; stQuery1.Open; end;

2. Мне кажется, что будет намного лучше и выгоднее, (на данном примере это видно), если обьединить табл. спис. шахт и спис. точек замера в одну таблицу.

[ЮЛК@]

Спасибо большое за помощь! Неожидала, что кто-то откликнется