• Registered: 2014-11-07
  • Posts: 83

Topic: промежуточное сохранение записи

А возможно ли сделать промежуточное сохранение записи с последующим продолжением ввода, а то получается что когда задается действие кнопки - сохранить запись, то создается новая запись в таблице каждый раз когда на эту кнопку нажимаешь (если убрать галочку с " закрыть текущую форму после сохранения"). Если эту галочку оставить, то запись закроется, а нужно чтоб не закрывалась.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: промежуточное сохранение записи

Можно
Скачайте пожалуйста сначала бета версию 1.47, пришлось для этого кое что доработать
https://www.dropbox.com/s/bhwao1izh5q4y … 7.zip?dl=0


Поставьте обратно галочку "закрыть текущую форму после сохранения"
Затем создайте у кнопки сохранения записи событие OnClick, пример:

procedure frmAbonent_bOK_OnClick (Sender: string; var Cancel: boolean);
begin
     frmAbonent.bOK.dbDoCloseForm := False;
     frmAbonent.bOK.dbDontResetID := True;
end;
Dmitry.
  • Registered: 2014-11-07
  • Posts: 83

Re: промежуточное сохранение записи

Ухты, оперативно. Ща попробуем.

  • Registered: 2015-02-09
  • Posts: 24

Re: промежуточное сохранение записи

Есть скрипт, чтобы игнорировать кавычки. Когда редактируешь запись и нажимаешь кнопку Сохранить, запись дублируется.
Как этого не допустить?

procedure Agent_Save_OnAfterClick (Sender: string);  // чтобы выделялась строка которую только внесли в Контрагентах
var
    s: string;
begin
    s := ReplaceStr(Agent.NameAgent.Text, '"', '''''');
    SQLExecute('INSERT INTO KontrAgents (Название) VALUES ("'+s+'")');
    Kontragenty.TableAgent.dbItemID := Last_Insert_id('KontrAgents');
end;

Milla.Makova's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: промежуточное сохранение записи

Milla.Makova
К сожалению не пойму,какое предназначение этого кода?
При нажатии кнопки Сохранить, запись сохраняется, после нажатия с помощью данного скрипта вы снова добавляете в базу тоже самое.

Dmitry.