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