Я пытаюсь добавить запись в таблицу InterBase, содержащую триггеры и blob-поля, тем не менее, всякий раз при выполнении метода "post" после установки ("append") значений, я получаю ошибку: "Record/Key deleted." (запись/ключ удален).
Вот реальный пример того, как я обошел эту проблему:
Определение хранимой процедуры:
Create Procedure NewEmployeeKey Returns ( EmployeeKey Integer ) as
begin
EmployeeKey = Gen_Id( gnEmployeeKey, 1 ) ;
end
Определение триггера:
Create Trigger SetEmployeeKey for tbEmployee Active Before Insert Position 0 as
begin
if ( New.EmployeeKey is Null ) then begin
Execute Procedure NewEmployeeKey Returning_Values New.EmployeeKey ;
end
end
Код Delphi для использования в обработчике события OnNewRecord, или
AfterInsert, или BeforePost:
{ qyProviderData - это tQuery }{ spProviderKey - это tStoredProc }if qyProviderData.State in [dsInsert] thenbegin
spProviderKey.ExecProc ;
qyProviderData.FieldByName( "ProviderKey" ).AsInteger :=
spProviderKey.ParamByName( "ProviderKey" ).AsInteger ;
end ; { if }
Это все, что вам необходимо. Хранимая процедура возвращает следующее
сгенерированное значение. Триггер это гарантирует, даже если бы данные не были
доступны из вашей Delphi-программы, первичный ключ все еще назначает значение. В
Delphi-коде, я полагаю, вы могли бы проверять наличие пустого поля первичного
ключа вместо .State in [dsInsert], хотя это то же работает.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Автоинкрементальные поля и Interbase 3", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!