• Registered: 2020-03-31
  • Posts: 233

Topic: Save button

Hi friends,
         How are you all? Today I am asking about how to create save button to save records of various tables using script?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Save button

unforgettable wrote:

Hi friends,
         How are you all? Today I am asking about how to create save button to save records of various tables using script?


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  SQLExecute('INSERT INTO a(qq)VALUES("'+Form1.Edit1.Text+'")');
  SQLExecute('INSERT INTO b(ww,id_a)VALUES("'+Form1.Edit2.Text+'","'+IntToStr(Last_Insert_id)+'")');

  UPDATEDATABASE('a');
  UPDATEDATABASE('b');
end;
Post's attachments

Attachment icon test.rar 3.08 kb, 213 downloads since 2022-01-06 

  • Registered: 2020-03-31
  • Posts: 233

Re: Save button

Thank you sibprogsistem