Не отображается автоинкрементация при добавлении записи

[bezOn]

Сообщение от vuzhakov

За компонент спасибо — поковыряю его.
Кстати, генератор-то использовать можно созданный ранее для триггера?

Пожалуйста... в компоненте можно выбирать из списка созданных генераторов в БД.

p.s. это пиндец какой-то писал писал, плять, и браузер отвалился... цука
Чё я хотел сказать, у меня в DataModule есть такая функция:

  
public
    { Public declarations }
    Function GENERATE_ID(TableName:String):Integer;

Функция возвращает новый Номер

И вот как она реализована:

Function TDM.GENERATE_ID(TableName:String):Integer;
var
  SQL_FindMaxID, {Запрос на поиск максимального ID}
  SQL_CheckIsEmpty, {Запрос на проверку, есть ли данные в таблице}
  FieldName : String; {Имя поля, по которому идёт генерирование нового ID}
  IsEmpty : Boolean;
begin
//ГЕНЕРАЦИЯ УНИКАЛЬНОГО НОМЕРА;
  SQL_FindMaxID := '';
  SQL_CheckIsEmpty := '';
  FieldName := '';
  IsEmpty := False;

  //Определение имени таблицы;
  IF TableName = '' then begin
    Result := -1;
    Exit;
  end;

  IF TableName = 'Catalog' then FieldName := 'CAT_ID';
  IF TableName = 'Content' then FieldName := 'CON_ID';

  //Генерация запроса к БД;
  SQL_FindMaxID := 'SELECT Max('+FieldName+') as ID_Last FROM '+TableName;
  SQL_CheckIsEmpty := 'SELECT Count('+FieldName+') as ID_Last FROM '+TableName;

  //Подготовка к расчёту уникального номера (ID);
  TRY
    qryExec.SQL.Clear;
    qryExec.SQL.Text := SQL_CheckIsEmpty;
    qryExec.Open;

    //Если в БД данных нет, значит ID генерируется первый раз!
    IF qryExec.FieldByName('ID_Last').asInteger = 0 then IsEmpty := True;

    //Определение Уник.Номера;
    IF not IsEmpty then
    begin
      qryExec.SQL.Clear;
      qryExec.SQL.Text := SQL_FindMaxID;
      qryExec.Open;

      Result := qryExec.FieldByName('ID_Last').asInteger;
      Inc(Result); //Полученный МАКСимальный номер, увеличиваем на +1
    end
      else Result := 1; {Если таблица пуста, получает номер 1}


  EXCEPT
    Result := -1;

    Application.MessageBox
      ('Ошибка генерации Уникального номера!'+#13+
       'Дальнейшее продолжение работы невозможно.',
       'Error generation of unique id',
       MB_OK+MB_ICONERROR);

    IF DBMain.InTransaction then DBMain.Rollback;
  END;

end;

Когда мне нужно получить НовыйУникНомер:

qryINSERT.ParamByName('ID').asInteger := GENERATE_ID('Catalog');