Topic: [скрипт] запись в разные таблицы одной кнопкой с сохранением связи
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
maxID:string;
begin
// запись в таблицу B
SQLExecute('INSERT INTO b (sn, model, status) VALUES ("'+Form1.Edit4.Text+'", "'+Form1.Edit5.Text+'","'+Form1.Edit6.Text+'")');
// получаем id последней записи в таблице В
maxID := SQLExecute('SELECT MAX(id) FROM b');
// запись в таблицу A
SQLExecute('INSERT INTO a (firstname, twoname, lastname, id_b) VALUES ("'+Form1.Edit1.Text+'", "'+Form1.Edit2.Text+'","'+Form1.Edit3.Text+'", "'+maxID+'")');
// обновление таблицы данных главной формы
Form1.TableGrid1.dbUpdate;
end;