работа c ADOQuery и одновременное изменение ADOTable

[grenles]

Пытался найти ответ, но не смог понять как. Вот такой вопрос

Есть компонент DBGrid в свойствах DataSource подвязан DataSource1. У компонента DataSource1 в DataSet могут быть подключены либо ADOTAble, либо ADOQuery. Когда там ADOTAble, то все перемещения по DBGrid паралелльно выполняются в ADOTable и соответственно при изменении записей можно не беспокоиться о попадании в выбранную позицию таблицы. Когда подключается ADOQuery, то я в ADOTAble постоянно выбранна первая запись. Подскажите, что сделать, чтобы перемещения по записям DBGrid, работающей с результатами выборки, паралелльно шли в ADOTable1.

И обратное, если я изменяю ADOTable (новая запись, правка, удаление) - чтобы у меня были видны изменения и не изменилась позиция в DBGrid, повязанной к ADOQUery, как поступить?

Я предполагаю, что где-то в свойствах DBGrid писать свой обработчик каждый раз при изменении получающей ключевое поле и выполняющей в ADOTAble соответствующий поиск. Наверное не удачное решение.

Спасибо.

[evg_m]

Подскажите, что сделать, чтобы перемещения по записям DBGrid, работающей с результатами выборки, паралелльно шли в ADOTable1.

Перемешение идет по записям подключенного набора данных DataSet
(ADOQuery /ADOTable). DBgrid лишь отражает (показывает) данные перемещения.
Dataset.OnAfterScroll // cсобытие после перемещения
DataSet..Locate // установить на нужную запись
Это поиск только в готовом наборе данных (DataSet).

чтобы у меня были видны изменения и не изменилась позиция в DBGrid, повязанной к ADOQUery, как поступить?

повторюсь. позиция есть в DBgrid.DataSource.DataSet (=ADOQuery).
прочитать заново Requery или close + Open
и выставить на нужную запись Locate
сначала не вредно ее (точнее ЕЕ ключевые поля) запомнить. либо использовать данные ADOtable.

[grenles]

Спасибо, попробую разобраться.

[Аватар]

1. В ADOQuery есть событие AfterScroll, в нем в ADOTable искать нужную запись, например с помощью Locate
2. Перед редактированием ADOTable - DBGrid.DattaSource.Enable:=False; запоминаем ид, редактируем, находим по ид, DBGrid.DattaSource.Enable:=True

[grenles]

Спасибо ВАМ за советы, помогло

var
     MainIndex : string; // имя индексного поля в выбираемой таблице
....
   MainIndex := 'idProj';
....
procedure TDataModule2.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
// позиционирование в таблице по результатам запроса
with MainMod.Form1 do
begin
 AddMessage(DataSet.FieldByName(MainIndex).AsString);
 ADOTable1.Locate(MainIndex,DataSet.FieldByName(MainIndex).AsString,[loCaseInsensitive]);
end;

end;
....

Вопрос обновления DBGrid решил переоткрытием запроса и локацией на запись в запросе. А перед этим присваиваю номер изменяемой записи.

 
...
    // просто берем текущую запись
     KeyNo := ADOTable1.FieldByName(MainIndex).AsString;
...
      // переподключаем источник записей после изменений
    if QueryStr<>'' then begin
     ADOQuery1.Active := false;
     ADOQuery1.Active := true;
   // попытка установить курсор на измененную запись  
     ADOQuery1.Locate(MainIndex,KeyNo,[loCaseInsensitive]);
    end;
end;