Форма с таблицей

[SGroot]

Добрый день, немного информации)

БД Access компоненты ADOConnection, DataSource, ADOQuery, DBGrid.

Form1 (главная форма)
Form2 (форма добавления)
Form3 (форма добавления записи в таблицу в Form2)

Есть таблица Form1 в которую добавляются записи через Form2. Суть в том, что в Form2 есть еще мини таблица (DBGrid) в которую добавляю записи через Form3. Кратко говоря надо чтобы при заполнении в Form2 таблицу, как-то привязывалась к ID (к записи в Form1).

Помогите пожалуйста, очень нужно и в дальнейшем уже легче будет реализовывать подобное. Может пример есть какой-нибудь.

[evg_m]

Form3.Show;
Form2.ADOQuery1.Insert;

теперь НАДО заполнить поле указывающее на родителя

form2.ADOQuery1.filedbyname('xxx').value:=  //А чей ребенок собственно говоря это будет
                                         form2.Dbedit1.Field.Dataset.FieldByName('zzz').Value; // как-то  узнать а кто-же родитель

[SGroot]

спасибо, сделал через ADOTable, с ADOQuery что-то не получилось немножко)

И еще таблица "Дети" в Form2 не заполняется, сначала ввожу имя Родителя и нажимаю ОК, потом опять открываю запись "Кнопка Изменить" и тогда заполняется, но когда нажимаю ок, то выходит ошибка, а когда просто закрываю, то все сохраняется. wtf?!

[evg_m]

но когда нажимаю ок, то выходит ошибка, а когда просто закрываю, то все сохраняется. wtf?!

Потому что при нажатии OK пытаемся сохранить изменения (в таблице родители) которых не было.

Form1.AdoTable1.Post;

команда Post перед которой НЕ БЫЛО Insert(или Edit).

Редакцию данных лучше делать так
ПРИНЦИП: где НАЧАЛИ редакцию(в данном Insert) ТАМ ЖЕ (в той же процедуре) ее и закончили.

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTAble1.Insert; // открываем редакцию (в данном случае добавление) но может быть и Edit
if Form2.ShowModal=mrok then  //показываем форму редакции и ЖДЕМ пока ее не закроют (так работает ShowModal !)
  ADOTable1.Post;//И ПО ВОЗВРАЩЕНИИ(закрытию form2) сохраняем 
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
modalresult:=mrok;// говорим что все нормально (в принципе этого достаточно)  
Form2.Close; // и в таком разе это не нужно.
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
//аналогично
Form2.ADOTAble1.Insert; //добавляем
Form2.ADOTAble1.FieldByName('ID_d').value:=Form2.Dbedit1.Field.Dataset.FieldByName('ID').Value; // заполняем
if Form3.ShowModal=mrok then // показываем и ждем
  Form2.ADOTable1.Post; //сохраняем
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
modalresult:=mrok;
Form3.Close;
end;

И еще таблица "Дети" в Form2 не заполняется

чтобы добавить ребенка нужен ID родителя, а он "появляется" только после выполнения команды Post.