Решение проблемы с ключами в Delphi FireDac при создании связанных баз данных

Delphi , Базы данных , SQL

Вопрос пользователя заключается в необходимости программного заполнения полей ключей деталей в Delphi FireDac таким образом, чтобы значения этих полей соответствовали ключу главного таблицы. При этом данные в поле ключа деталей должны быть дубликатами.

Пользователь столкнулся с ошибкой "field 'id' cannot be modified" при попытке заполнить поле в событии AfterInsert компонента TFDTable. Также была попытка установить свойство AutoGenerateValue компонента TFDTable в arDefault, но это не привело к успешному обновлению записи, поскольку возникла ошибка "null value in column 'id' of relation 'line' violates not-null constraint". Поле определено как not null, но не как unique или primary key.

Решение проблемы

Чтобы решить проблему, необходимо использовать событие OnNewRecord детальной таблицы для установки значения ключевого поля. Важно убедиться, что ключевое поле деталей не является только для чтения, особенно если оно было объявлено через контекстное меню EDI.

Допустим, у нас есть "главная" таблица Artists:

CREATE TABLE artists (
    ArtistId INTEGER        PRIMARY KEY AUTOINCREMENT
                                NOT NULL,
    Name     NVARCHAR (120)
);

И детальная таблица Albums:

CREATE TABLE albums (
    AlbumId  INTEGER        PRIMARY KEY AUTOINCREMENT
                                NOT NULL,
    Title    NVARCHAR (160) NOT NULL,
    ArtistId INTEGER        NOT NULL,
    FOREIGN KEY (
        ArtistId
    )
    REFERENCES artists (ArtistId) ON DELETE NO ACTION
                                  ON UPDATE NO ACTION
);

В этом случае, ArtistId должен быть доступен для чтения и записи. В коде Delphi это можно реализовать следующим образом:

procedure TForm1.FDDetailViewOnNewRecord(DataSet: TFDDataSet);
begin
  with FDDetailView.CreateDataSetDef(1) do
  begin
    FieldDefs[0].Name := 'ArtistId';
    FieldDefs[0].DataType := ftInteger;
    FieldDefs[0].Size := 4;
    FieldDefs[0].ReadOnly := False; // Убедитесь, что поле не только для чтения
  end;
  FDDetailView.DataSet.Edit;
  FDDetailView.DataSet['ArtistId'] := FDMasterView.DataSet.Fields['ArtistId'].AsInteger;
  FDDetailView.DataSet.Post;
end;

В этом примере кода, при создании новой записи в детальной таблице, значение поля ArtistId устанавливается в значение, соответствующее ключу записи из главной таблицы Artists.

Заключение

При создании связанных баз данных в Delphi FireDac важно правильно настроить поля ключей деталей, чтобы они были доступны для записи и корректно заполнялись значениями, соответствующими главным ключам. Использование события OnNewRecord и проверка свойства ReadOnly является ключом к решению проблемы.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с проблемой заполнения полей ключей деталей в Delphi FireDac, связанной с необходимостью установки значений, соответствующих главной таблице, и ошибками, связанными с ограничениями базы данных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: SQL ::