Delphi关闭重开数据组件后数据感知控件无数据问题求解

该问题的核心是DataModule销毁重建后，数据感知控件与新DataSource的双向绑定关系失效：

• 旧DataModule执行Free时，内部所有TDataSource实例会同步释放，析构时会自动移除自身维护的DataLink绑定列表中的所有关联
• 新建DataModule时，如果内存分配刚好复用了旧实例的地址，设计时绑定的控件DataSource指针不会置空（因为指针存的是固定内存地址，并非间接引用全局dm变量），表现为运行时DataSource属性始终非nil
• 新建的TDataSource实例内部维护的DataLink绑定列表是空的，不知道已经有控件的指针指向自己，因此数据集打开后的状态变更通知只会发送给列表内的绑定项，控件收不到刷新信号，就无法展示数据
• 手动重置控件的DataSource时，会触发内部DataLink的重新注册流程，自动把自身加入当前指向的TDataSource的绑定列表，因此能恢复正常显示。调用TDataSet.Refresh无效，就是因为绑定列表没有对应项，通知根本传递不到控件层。

按照改动量从低到高排序，按需选择即可：

方案1：复用DataModule实例，避免频繁销毁重建（推荐） #

调整开关切换逻辑，不再将DataModule的销毁纳入关闭流程：

• 应用启动时创建一次Tdm实例，长期驻留
• 关闭数据组件时仅执行CloseDataTables、CloseDatabase，不调用dm.Free
• 重新打开时执行OpenDatabase、OpenDataTables即可
  这种方式下TDataSource实例、内部绑定列表均保持连续，不会出现绑定丢失的问题，从根源上规避该场景。

方案2：DataModule重建后统一触发绑定重注册 #

如果需要完全释放DataModule占用的资源（比如彻底回收数据库连接内存），可以在DataModule完成数据库连接、所有数据集打开后，通过RTTI统一遍历所有已创建的Form，自动完成所有数据感知控件的绑定重注册，不需要在各个业务Form里手动给每个控件写重置代码。
在Tdm单元中添加如下通用方法：

uses
  Vcl.Forms, Vcl.Controls, System.Rtti;

procedure Tdm.ResetAllDataAwareBindings;
var
  formIdx, compIdx: Integer;
  form: TForm;
  comp: TComponent;
  ctx: TRttiContext;
  dsProp: TRttiProperty;
  dsObj: TObject;
begin
  ctx := TRttiContext.Create;
  try
    // 遍历所有已加载的Form
    for formIdx := 0 to Screen.FormCount - 1 do
    begin
      form := Screen.Forms[formIdx];
      // 遍历Form上的所有组件
      for compIdx := 0 to form.ComponentCount - 1 do
      begin
        comp := form.Components[compIdx];
        // 匹配带DataSource属性的数据感知控件
        dsProp := ctx.GetType(comp.ClassType).GetProperty('DataSource');
        if (dsProp <> nil) and dsProp.PropertyType.InheritsFrom(TDataSource) then
        begin
          dsObj := dsProp.GetValue(comp).AsObject;
          if dsObj <> nil then
          begin
            // 触发重绑定，等效于手动将控件的DataSource置空再重新赋值
            dsProp.SetValue(comp, nil);
            dsProp.SetValue(comp, dsObj);
          end;
        end;
      end;
    end;
  finally
    ctx.Free;
  end;
end;

然后在OpenDataTables方法的最后调用该方法：

procedure Tdm.OpenDataTables;
begin
  // 原有打开所有数据表的逻辑
  // ...原有代码...

  // 新增：统一重绑定所有数据感知控件
  ResetAllDataAwareBindings;
end;

该逻辑为框架层通用处理，不需要针对单个控件编写重复的重置代码，符合无需手动批量操作DataSource的需求。

方案3：关闭流程显式解绑，重建后重绑 #

如果不想引入RTTI逻辑，可以在旧DataModule销毁前，显式将所有控件的DataSource置空，等新DataModule创建完成后，再根据设计时的绑定关系恢复关联。不过这种方案的逻辑复杂度更高，不如方案2简洁。

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