Исправление подвисания обновления вложенных наборов данных в Delphi: понимание механизма ClientDataSet

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

Вопрос о подвисании обновления вложенных наборов данных в Delphi является актуальным для разработчиков, работающих с многоуровневыми структурами данных. В частности, проблема связана с обновлением вложенного ClientDataSet (CDS), который находится внутри DataSetField. Разработчик столкнулся с трудностью, когда стандартный подход к обновлению требует закрытия и повторного открытия главного набора данных, что может привести к избыточной нагрузке на сеть, особенно при большом объеме данных. Была предложена альтернативная стратегия обновления, которая почти работала, но сталкивалась с проблемой при обновлении через кнопку перезагрузки: детализированные строки обновлялись только через раз.

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

Для решения проблемы обновления вложенного CDS без необходимости закрытия главного набора данных был разработан следующий подход:

1. Временное применение фильтра к главному ADO-запросу для ограничения данных до текущей строки главного набора.
2. Обновление главного CDS, применяя аналогичный фильтр, и вызов метода Refresh.
3. Обновление вложенного CDS, используя данные фильтра главного набора.

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

Пример кода

Вот примерный код, который демонстрирует процедуру обновления главного и вложенного наборов данных:

procedure TForm1.cdsMasterRowRefresh(MasterPK: Integer);
begin
  // Проверка на обновление
  if DoingRefresh then Exit;

  // Установка флага обновления
  DoingRefresh := True;

  try
    // Принудительное перемещение курсора для обновления фильтра
    cdsMaster.Prior;
    cdsMaster.Next;

    // Применение фильтра
    cdsMaster.Filter := MasterPKName + ' = ' + IntToStr(MasterPK);
    cdsMaster.Filtered := True;

    // Обновление главного набора данных
    cdsMaster.Refresh;

    // Снятие фильтра
    cdsMaster.Filtered := False;

    // Перемещение курсора на строку с указанным PK
    cdsMaster.Locate(MasterPKName, MasterPK, []);
  finally
    // Снятие флага обновления
    DoingRefresh := False;
  end;
end;

procedure TForm1.qMasterRowRefresh(MasterPK: Integer);
begin
  // Обновление ADO-запроса
  qMaster.Filter := MasterPKName + ' = ' + IntToStr(MasterPK);
  qMaster.Filtered := True;
  qMaster.Refresh;

  // Обновление главного набора данных с применением PK
  cdsMasterRowRefresh(MasterPK);

  // Снятие фильтра с ADO-запроса
  qMaster.Filtered := False;
  qMaster.Locate(MasterPKName, MasterPK, []);
end;

procedure TForm1.RefreshcdsMasterAndDetails;
var
  MasterPK: Integer;
begin
  // Получение текущего PK главного набора данных
  MasterPK := cdsMaster.FieldByName(MasterPKName).AsInteger;

  // Отключение контролов для предотвращения конфликтов
  // Важно: в подтвержденном ответе указано, что эта операция не нужна

  try
    // Обновление главного и вложенного наборов данных
    qMasterRowRefresh(MasterPK);
  finally
    // Восстановление контролов после обновления
    // (в подтвержденном ответе указано, что эти строки можно убрать)
  end;
end;

procedure TForm1.cdsMasterAfterScroll(DataSet: TDataSet);
begin
  // Обновление главного и вложенного наборов данных при изменении позиции курсора
  RefreshcdsMasterAndDetails;
end;

Подтвержденный ответ

После детального анализа и отладки, разработчик не смог найти удовлетворительное объяснение причины, по которой код обновления CDS ведет себя иначе при вызове из события AfterScroll главного набора данных по сравнению с вызовом из обработчика нажатия кнопки. Предполагается, что проблема связана с движением курсора главного набора данных до момента вызова обработчика события AfterScroll.

Однако, был найден простой обходной путь и исправление:

• Обходной путь заключается в отказе от использования DisableControls для всех четырех наборов данных перед обновлением. Это обеспечивает корректное обновление вложенного CDS. Однако, этот метод не идеален, так как для обновления одной строки и ее деталей необходимо прокручивать весь набор данных.
• Исправление заключается в принудительном обновлении ADO-запроса деталей, что должно выполняться путем закрытия и повторного открытия запроса. В случае с данными разработчика, простое вызов метода Refresh запроса деталей приводит к ошибке "Недостаточная информация о ключевом столбце для обновления...", несмотря на наличие первичного ключа на сервере.

Вот исправленная версия процедуры qMasterRowRefresh:

procedure TForm1.qMasterRowRefresh(MasterPK: Integer);
begin
  try
    // Обновление ADO-запроса главного набора
    qMaster.Filter := MasterPKName + ' = ' + IntToStr(MasterPK);
    qMaster.Filtered := True;
    qMaster.Refresh;

    // Принудительное обновление ADO-запроса деталей
    qDetail.Parameters.ParamByName(MasterPKName).Value := MasterPK;
    qDetail.Close;
    qDetail.Open;

    // Обновление главного набора данных
    cdsMasterRowRefresh(MasterPK);
  finally
    // Снятие фильтра с ADO-запроса главного набора
    qMaster.Filtered := False;
    qMaster.Locate(MasterPKName, MasterPK, []);
  end;
end;

Важно отметить, что в подтвержденном ответе разработчик указывает на необходимость включения трех строк кода после обновления qMaster, которые обеспечивают обновление запроса и CDS деталей.

Заключение

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

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

Контекст описание: Решение проблемы подвисания при обновлении вложенных наборов данных в Delphi через понимание механизма ClientDataSet.

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

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

:: Главная :: ADO ::