Улучшение пользовательского опыта при обработке ошибок нарушения ограничений в Delphi-приложениях

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

Ошибки нарушения ограничений базы данных (constraint violations) - это распространенная ситуация, с которой сталкиваются разработчики при работе с базами данных. В статье мы рассмотрим, как эффективно обрабатывать такие ошибки в приложениях на Delphi, используя язык Object Pascal.

Пример кода с обработкой ошибок

В вашем коде уже реализована базовая обработка ошибок, когда происходит выполнение хранимой процедуры. Вы используете конструкцию except, чтобы перехватить исключение EOleException и определить, было ли оно вызвано нарушением ограничений (код ошибки 2601).

procedure TForm2.cxButton1Click(Sender: TObject);
var
  sp: TADOStoredProc;
  errorMsg: string;
begin
  sp := TADOStoredProc.Create(nil);
  try
    sp.Connection := FOrm1.ADOConnection1;
    sp.ProcedureName := 'cfg.AddConfiguration';
    // Создание параметров...
    try
      sp.ExecProc;
    except
      on e: EOleException do
      begin
        errorMsg := 'Failed to add new configuration.';
        if e.ErrorCode = 2601 then
          errorMsg := errorMsg + sLineBreak + 'Possible duplicate in key!';
        MessageDlg(errorMsg, mtError, [mbOK], 0);
      end;
    end;
  finally
    sp.Free;
  end;
end;

Проблема зависимостью от базы данных

Как отмечено в альтернативном ответе, код обработки ошибок зависит от конкретной базы данных, и код ошибки 2601 может быть специфичным для используемой вами СУБД. Важно помнить, что различные СУБД могут возвращать разные коды ошибок при нарушении ограничений.

Перемещение обработки ошибок в отдельный метод

Подтвержденный ответ рекомендует переместить вызов процедуры и обработку ошибок в отдельный метод, который может находиться в модуле данных, а не на форме. Это позволит избежать отображения диалоговых окон и поддерживать использование метода в серверных приложениях.

function TDataModule.AddConfiguration(key, caption, datatype, description: string): Boolean;
var
  sp: TADOStoredProc;
  errorMsg: string;
begin
  Result := False;
  sp := TADOStoredProc.Create(nil);
  try
    sp.Connection := ADOConnection1;
    sp.ProcedureName := 'cfg.AddConfiguration';
    // Создание параметров...
    try
      sp.ExecProc;
      Result := True;
    except
      on e: EOleException do
      begin
        // Обработка ошибки, возможно с логированием
      end;
    end;
  finally
    sp.Free;
  end;
end;

Использование возвращаемого кода или пользовательских исключений

Для сообщения о результатах работы метода можно использовать возвращаемое значение или пользовательские исключения. Это позволит более гибко управлять пользовательским интерфейсом и обработкой ошибок.

try
  if not TDataModule.AddConfiguration(cxTextEdit1.Text, cxTextEdit2.Text, cxComboBox1.Text, cxMemo1.Text) then
    ShowErrorMessage;
finally
  // Обработка результата добавления конфигурации
end;

procedure TForm2.ShowErrorMessage;
begin
  // Показать сообщение об ошибке с подробностями, сохраненными в errorMsg
end;

Заключение

При обработке ошибок нарушения ограничений важно не только корректно их обрабатывать, но и делать это таким образом, чтобы пользовательский интерфейс был информирован, но не перегружен ненужной информацией. Использование отдельных методов и обработка ошибок на уровне модуля данных позволяет достичь этого, а также поддерживать кросс-платформенность и масштабируемость вашего кода.

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

Улучшение пользовательского опыта в Delphi-приложениях через эффективную обработку ошибок нарушения ограничений базы данных.

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

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

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