SQL-запрос (связанные таблицы)

[astra-48]

Здравствуйте, не могу разобраться с запросом.
Есть база Access c тремя таблицами.
Поля Tab1: id_1, name_1
Поля Tab2: id_2, id_1, id_3, name_2
Поля Tab3: id_3, name_3.
Связи: Tab3.id_3= Tab2.id_3 (один ко многим), Tab1.id_1= Tab2.id_1 (один ко многим).

ADOQuery1:
Select Tab1.ID_1, Tab1. name_1
from Tab1

ADOQuery2:
Select
Tab2.ID_2, Tab2.ID_1, Tab2.ID_3, Tab2. name_2,
Tab3. id_3, Tab3. name_3
FROM Tab3, Tab2
where Tab3.ID_3 = Tab2.ID_3

В DBGrid1 - ADOQuery1 (Tab1), в DBGrid2 – ADOQuery2 (Tab2 и Tab3).
До этого момента все понятно.
Нужно сделать так, чтобы если кликаешь в строчку DBGrid1 то, в DBGrid2 должны отображаться строки соответствующие id_1.
То есть, если кликаешь в DBGrid1 где ID_1=6 (Tab1.ID_1=6), то в DBGrid2 должны отображаться только строки ID_1=6 (Tab2.ID_1=6).

[GX_h10]

Что-то типа этого (в силу того, что вы не представили исходный код):

procedure TForm.ADOQuery1AfterScroll(DataSet: TDataSet);
var 
  sql:string;
begin
  try
    if ADOQuery1.FieldByName('ID_1').AsString = '' then
      sql := 'ID_1 = 0'
    else
      sql := 'ID_1 = '+QuotedStr(ADOQuery1.FieldByName('ID_1').AsString);
    ADOQuery2.Filter := '';
    ADOQuery2.Filter := sql;
    ADOQuery2.Filtered := True;
  except
    on E: Exception do
    AppLog(E.Message)
  end;
end;

[astra-48]

А что такое AppLog? Выдает ошибку Undeclared identifier: 'AppLog'

[Dmitriy.G]

Попробуй для ADOQuery которая данные посылает в DBGrid1 прописать такую процедуру на событие AfterScroll:

procedure TForm1.ADOQuery1AfterScroll(DataSet : TDataSet);
var ID1:string;
begin
ID1:=ADOQuery1.fieldbyname('ID_1'). AsString; //запоминаем значение поля ID_1 текущей строки
ADOQuery2.Filter:='ID_1='+ID1; //устанавливаем параметр фильтра
ADOQuery2.Filtered:=true; //Включаем фильтр
end;

У меня такой способ работал как часики.
Удачи!