1 (edited by sibprogsistem 2019-04-03 17:19:21)

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;
Post's attachments

Attachment icon test.7z 3.68 kb, 53 downloads since 2019-04-03 

Re: [скрипт] запись в разные таблицы одной кнопкой с сохранением связи

эту строку

maxID := SQLExecute('SELECT MAX(id) FROM b');

можно заменить на эту

maxID := IntToStr(Last_Insert_id);
Dmitry.