Скопировать id с одной таблицы на другую таблицу другую форму

[Staziah2]

Добрый день! Подскажите, как и где написать,чтобы id с одной таблицы скопировался в другую таблицу (связанную), или в запросе надо написать? tit_list и main - запросы ADOQUERY, вот мне надо id с tit_list скопировать в id main.

procedure TForm4.Button1Click(Sender: TObject);
var N,sql_line:string;
    I:integer;
    record_exist:boolean;
begin
N:=Edit1.Text;

if varisnull (dm.Gruppa.Lookup('Gruppa',wwDBLookupCombo2.Text,'Gruppa'))  =  true   then
begin
  dm.Gruppa.Close;
   dm.Query.SQL.Clear;
   dm.Query.SQL.Text:= 'insert into DMSR_Gruppa (Gruppa) Values ('''+wwDBLookupCombo2.Text+''')';
   dm.Gruppa.Open;

end;

if VarIsNull (dm.Vid_documents.Lookup('vid_dok',wwDBLookupCombo3.Text,'vid_dok')) = true then
begin
  dm.Vid_documents.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Text:= 'insert into DMSR_vid_documents (vid_dok) Values ('''+wwDBLookupCombo3.Text+''')';
  dm.Vid_documents.Open;
end;



dm.tit_list.Close;
dm.Query1.SQL.Clear;
sql_line:='SELECT * FROM DMSR_tit_list order by id asc';
dm.Query1.SQL.Add(sql_line);
dm.tit_list.Active:=true;
dm.tit_list.First;
   for I := 0 to dm.tit_list.recordcount - 1 do
      begin
       if dm.tit_list.FieldByName('Numer').AsString= N then
       begin
           showmessage('Record exist!');
           record_exist:=true;
           Abort;
          end
          else
          begin
          ShowMessage('Record not exist!');
          record_exist:=false;

if record_exist=false then
begin
dm.Query1.SQL.Clear;  
dm.Query1.SQL.Text:='Insert into DMSR_tit_list (N_zak,Gruppa,Cex,Obiem,Nai_otdela,Vid,Numer,id_vid_dok) Values ('''
+wwDBLookupCombo1.Text+''','''+wwDBLookupCombo2.Text+''','''+wwDBLookupCombo4.Text
+''','''+Memo1.Text+''','''+Edit3.Text+''','''+Edit2.Text+''','''+Edit1.Text+''','''+wwDBLookupCombo3.Text+''')';     
dm.Query1.ExecSQL;      

dm.tit_list.SQL.Clear;
dm.tit_list.SQL.Text:= 'select * from [DMSR_tit_list]';
dm.tit_list.Open;     
dm.tit_list.Last;

end;
 end;

//form5.frReport2.LoadFromFile('print\tit_list.frf') ;
//form5.frReport2.ShowReport;


Form5.Show;
Form4.Hide;

   
end;
end;

MSSQL 2000, Delphi 7

[xxbesoxx]

http://programmersforum.ru/showthrea...=216024&page=2