Заполнение editov из БД

[Nekala]

Помогите, пожалуйста исправить ошибку. Есть две таблицы. вот схема данных

Снимок.PNG
Сделала код на событие ONDblClick на DBGrid. Но работает неправильно. То, что из таблицы Itog в edit заносит правильно, а все, что должно быть из таблицы Resultat, заносится всегда только первая строка из таблицы, независимо что я выбрала в дбгриде. Помогите, пожалуйста, разобраться

Form9.Show;
  Form9.Edit6.Text:=DBGrid1.Fields[0].AsString;
  Form9.Edit20.Text:=DBGrid1.Fields[1].AsString;
  Form9.ComboBox2.Text:=DBGrid1.Fields[2].AsString;
  Form9.ComboBox1.Text:=DBGrid1.Fields[3].AsString;
  Form9.Edit14.Text:=DBGrid1.Fields[4].AsString;
  Form9.Edit16.Text:=DBGrid1.Fields[5].AsString;
  Form9.Edit18.Text:=DBGrid1.Fields[6].AsString;
  Form9.Edit19.Text:=DBGrid1.Fields[7].AsString;
 
  Form9.Edit24.Text:=DataModule2.ADOTable3.FieldByName('Rost').AsString;
  Form9.Edit25.Text:=DataModule2.ADOTable3.FieldByName('Ves').AsString;
  Form9.Edit7.Text:=DataModule2.ADOTable3.FieldByName('PZ').AsString;
  Form9.Edit8.Text:=DataModule2.ADOTable3.FieldByName('PP').AsString;
  Form9.Edit9.Text:=DataModule2.ADOTable3.FieldByName('BV').AsString;
  Form9.Edit10.Text:=DataModule2.ADOTable3.FieldByName('BN').AsString;
  Form9.Edit21.Text:=DataModule2.ADOTable3.FieldByName('Jivot').AsString;
....................................................;
end;

[evg_m]

с чем связан DBgrid (DbGrid->DataSource ->DataSet)?

То, что из таблицы Itog в edit заносит правильно,

видимо тот самый Itog.

а все, что должно быть из таблицы Resultat, заносится всегда только первая строка из таблицы,

То что вы указали связи в схеме Access недостаточно для автоматического перехода.

чтобы заносилась нужная нужно НАСТРОИТЬ набор данных(ADOTable3) на ТРЕБУЕМУЮ. Для этого используется метод Locate.

А лучше отказаться от ADOTable и перейти к ADOQuery.
Использовать SQL и сразу получать ЕДИНЫЙ набор данных с информацией из нескольких таблиц.
Или пойти путем использования РАНЕЕ подготовленных запросов в Access с использованием тех же нескольких таблиц (по сути тот же SQL но с возможностью "визуального" конструктора и "автоматическим" применением информации о связях).

[Nekala]

Использовать AdoQuery не проблема. .А как дальше вывод в едиты осуществить? Примерный код можете подсказать, если я буду использовать адоквери ?

[Stilet]

А как дальше вывод в едиты осуществить?

А что ты хочешь на экране получить?
Я правильно понимаю: Кликнув в одной таблице в другой нужны связанные с кликнутой записи и только они?

[Nekala]

Кликнув по одной таблице, открывается окно с editами. И вот эти едиты заполняются данными из кликнутой записи и записи из другой таблицы.

вот запрос сделала:

SELECT 
 Rezultat.FIO, 
 Rezultat.Rost, 
 Rezultat.Ves, 
 Itog.Vozrast, 
 Pol.Pol,
Gruppa.Name_Gruppa 
FROM Gruppa
 INNER JOIN (Pol 
  INNER JOIN (Rezultat 
   INNER JOIN Itog ON Rezultat.Id_FIO = Itog.Id_FIO) 
  ON Pol.Id_Pol = Itog.Id_Pol) 
 ON Gruppa.Id_Gruppa = Itog.Id_Gruppa;

[Stilet]

Ну так точно так же как в в топе, только имя компонента меняется:

Form9.Edit24.Text:=DataModule2.ADOQueryБлаБла.FieldByName('Rost').AsString;

[Nekala]

Сделала так:
Form9.Edit6.Text:=DataModule2.Vivod _Redakt.FieldByName('FIO').AsString ;
Form9.Edit20.Text:=DataModule2.Vivo d_Redakt.FieldByName('Vozrast').AsS tring;
Form9.ComboBox2.Text:=DataModule2.V ivod_Redakt.FieldByName('Pol').AsSt ring;
Form9.ComboBox1.Text:=DataModule2.V ivod_Redakt.FieldByName('Name_Grupp a').AsString;
Form9.Edit24.Text:=DataModule2.Vivo d_Redakt.FieldByName('Rost').AsStri ng;

Но все равно только первая запись таблицы записывается в едиты((

[evg_m]

Но все равно только первая запись таблицы записывается в едиты((

чтобы заносилась нужная нужно НАСТРОИТЬ набор данных(ADOTable3) на ТРЕБУЕМУЮ. Для этого используется метод Locate.

Только конечно не ADOTable3 а соответствующий ADOQuery.

Ну или (и правильнее будет если уж взяли ADOQuery) использовать
- фильтр select ... where id_fio=:f
и параметры ADOQuery.ParamByName('f).value:=...
чтобы в набор попала только нужная.