主窗体TDBImage模态窗口关闭后无法更新的问题排查

问题场景 #

主从查询窗体中，通过模态窗口编辑明细数据，关闭模态窗口后，主窗体的TDBImage控件无法自动更新显示新添加的明细图像，仅切换主记录再切回才生效。且仅**首次添加明细（原明细为空）**时出现此问题，已有明细时添加新记录可正常显示。

已尝试无效的代码 #

imgEmployee.Enabled := false;
qEmpPhoto.Close;
with TfrmPhotos.Create(Self) do
begin
  ShowModal;
  Free;
end;
imgEmployee.Enabled := true;
qEmpPhoto.Open;
qEmpPhoto.Refresh;
frmMain.Refresh;
imgEmployee.Refresh;
imgEmployee.Repaint;

问题原因 #

当明细数据集原本为空时，添加第一条记录后，主从关联的控件（如TDBImage）未感知到明细数据集的状态变化——原明细无记录时控件处于无绑定数据状态，即使重新打开明细数据集，控件也不会主动读取新的第一条记录，只有主数据集的当前记录发生变化时，才会触发主从联动更新。

可行解决方案 #

方案1：通过书签重新定位主记录（推荐） #

利用主数据集的书签保存当前位置，重新定位后触发主从联动更新，避免Next/Prior的取巧操作：

var
  CurrBookmark: TBookmark;
begin
  imgEmployee.Enabled := false;
  // 保存主数据集当前位置
  CurrBookmark := qEmployee.GetBookmark;
  try
    with TfrmPhotos.Create(Self) do
    begin
      ShowModal;
      Free;
    end;
    // 重新加载明细数据
    qEmpPhoto.Close;
    qEmpPhoto.Open;
    // 重新定位主记录，触发明细联动
    qEmployee.GotoBookmark(CurrBookmark);
    qEmployee.Refresh;
  finally
    // 释放书签资源
    qEmployee.FreeBookmark(CurrBookmark);
  end;
  imgEmployee.Enabled := true;
  imgEmployee.Refresh;
end;

方案2：强制明细数据集通知控件更新 #

调用NotifyControls方法，强制明细数据集向绑定控件发送数据变化通知：

with TfrmPhotos.Create(Self) do
begin
  ShowModal;
  Free;
end;
qEmpPhoto.Close;
qEmpPhoto.Open;
// 通知所有绑定控件更新数据
qEmpPhoto.NotifyControls;
imgEmployee.Refresh;

方案3：检查主数据集状态并刷新 #

若主数据集使用缓存更新模式，需先提交更新再刷新主从数据集：

imgEmployee.Enabled := false;
with TfrmPhotos.Create(Self) do
begin
  ShowModal;
  Free;
end;
// 处理主数据集缓存更新
if qEmployee.CachedUpdates then
begin
  qEmployee.ApplyUpdates;
  qEmployee.CommitUpdates;
end;
qEmployee.Refresh;
// 重新加载明细并刷新控件
qEmpPhoto.Close;
qEmpPhoto.Open;
imgEmployee.Enabled := true;
imgEmployee.Repaint;

内容的提问来源于stack exchange，提问作者WeststarEric