Изменение данных в одной таблице, с последующими заменами в другой. Delphi, ADO.

[RuthlessD]

Всем доброе время суток. При создании бд в Delphi с помощью ADO возникла проблема. И так, у меня имеется 2 таблицы, первая с одним полем - специальность (оно же ключевое), вторая с двумя полями: специальность и дисциплина (дисциплина ключевое поле). Таблицы связаны по полю специальность один ко многим как уже можно было заметить. Дело в том что я создавал форму где можно было вводить данные, изменять и удалять. При изменении данных я столкнулся с проблемой - как можно сделать так что бы при изменении специальности в первой таблице, так же изменялись такие же специальности во второй ??
Добрые люди, подскажите начинающему.



Вот код того как я изменяю изменяю данные в первой таблице:

Жму на форме кнопку изменения данных.
procedure TForm12.Button2Click(Sender: TObject);
begin
Form13.show;
Adotable1.Edit;
end;



это кнопка на другой форме, с помощью которых я изменяю на введенные значение в dbedit
procedure TForm13.Button1Click(Sender: TObject);
begin
if dbedit1.text='' then begin messagebox(0,'Введите специальность!','Внимание',MB_OK); Abort; end else
form12.adotable1.post;
Form13.Close;
end;

Конечно у всех компонентах (dbedit) стоят необходимые настройки Datasource, Datafield и т.п.

[Gulik]

выложи проект я помогу

[RuthlessD]

Вот выложил, там уже наметки есть кое какие, но не реализуется..... смотреть форму 13, и так как я только учусь,то много некрасивого там =)

[RuthlessD]

Всё проблема решена, кому интересно решение было таковым:
Код вызова формы редактирования изменения

procedure TForm12.Button2Click(Sender: TObject);
begin
edit1.Text:=adotable1.FieldByName('Specialnost').Value;
Form13.show;
Adotable1.Edit;
adotable2.Edit;
end;

Само изменение:

procedure TForm13.Button1Click(Sender: TObject);
var spec,newspec:string; I:integer;
begin
spec:=form12.edit1.text;//form12.ADOTable1.FieldByName('Specialnost').Value;
form12.adotable1.edit;
form12.adotable2.edit;

if dbedit1.text='' then begin  messagebox(0,'Введите специальность!','Внимание',MB_OK); Abort; end  else
newspec:=dbedit1.Text;
form12.adotable1.post;  // разрешаем редактирование, иначе вылетит
form12.adotable2.first; // таблицу в начало
for i:=1 to form12.adotable2.recordcount do // от 1 (первая запись) до recordcoun (число записей вообще)
begin
if (form12.adotable2.fieldbyname('Specialnost').asstring=spec) then begin
form12.adotable2.edit;
form12.adotable2.fieldbyname('Specialnost').asstring:=newspec; // проверка и замена
form12.adotable2.post;// сохранить изменения записи
end;
form12.adotable2.next; // перейти к следующей
end;
//edit1.Text:=spec;
//edit2.Text:=newspec;
Form13.hide;
end;

[Gulik]

В конечном счете весь твой код который "Само изменение" сократиться до этих строк:

   if Form12.ADOTable1.Modified then  // проверяем редактировалась ли таблица
      Form12.ADOTable1.Post ;          // сохраняем
   Form12.ADOTable2.Refresh ; // Обновляем записи в таблице 2, чтобы изменения были видны
   Close ;

Переделал твой проект, кое где ставил свои комментарии...
Суть твоего запроса заключалась в создании LookUp поля... На форме 12 увидишь как оно создается (см. ADOTable2)

БД Эл. справочник.zip

[RuthlessD]

Огромное спасибо, поучусь уму - разуму у вас !!!!