Обновление поля счётчик после сохранения записи

Приветствую,

необходимо сделать проверку скриптом, создав событие OnClick на кнопке, сохранения записи

procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
var
   q: integer;
   NewID: string;
begin
     // check only for new record.
     if frmEmployee.dbAction <> 'NewRecord' then Exit;

     q := SQLExecute ('SELECT count(id) FROM employees WHERE record_count = ' + frmEmployee.EditCounter1.Text); // check dublicate record_count
     if q > 0 then // if dublicate exists
     begin
          // calculate new record_count number
          NewID := SQLExecute ('SELECT MAX(record_count) FROM employees');
          ShowMessage('Attention, counter number has been changed.');
          frmEmployee.EditCounter1.Text := IntToStr( StrToInt(NewID) + 1) ;
          Cancel := True;
     end;
end;

также можете скачать проект с примером реализации

Zdrastvuyce. Prashu mne pomoc.  u menya ne palucayetsa zdelat tak shtob yesli na baze yesc imya to on vidaval o tom shto eta imya uje yesc. vi napisali script no u menya na svayom baze izmenic vsyo ne polucilos ne srabotal

prashu mne pomoc.
spasiba

upload file

http://www.filedropper.com/samir

Spasiba aqromnoye.

Для компонента Edit, в который будете писать имя, установите слово Filter=s%
также у этого компонента есть свойство Increm.Search, выберите в нем имя кнопки, которая используется для поиска, т.о. кнопка поиска будет автоматически нажиматься каждый раз при изменении текста в компоненте.

samir.gozalov
Скорей всего у вас очень старая версия программы, которая не поддерживает изменение структуры базы данных без потери данных в ней, в последних версиях данный недостаток устранен.