MDI应用中同一表单多次创建数据模块实例的技术咨询

嘿，我看你在Delphi里搞MDI客户管理应用，每个查看窗口都新建专属的数据模块实例，这个思路很对——毕竟每个查看窗口需要独立的数据集状态嘛！针对你提到的「同一表单多次创建数据模块实例」的技术点，我整理了几个关键实践和注意事项：

这是最核心的一点，一定要避免内存泄漏和资源残留：

• 最稳妥的方式是把数据模块的Owner设为对应的frmCustomerView实例，这样表单销毁时会自动释放数据模块，不用手动写Free：

  dmCustomerViewFrm := TdmCustomerViewFrm.Create(Self); // Self就是当前frmCustomerView实例
  

• 如果没设Owner，一定要在frmCustomerView的OnDestroy事件里手动释放：

  procedure TfrmCustomerView.FormDestroy(Sender: TObject);
  begin
    dmCustomerViewFrm.Free;
  end;
  

• 绝对不要把这类专属数据模块加到IDE的「自动创建表单/数据模块」列表里，否则会变成全局单例，多个查看窗口共享数据集，直接导致数据状态混乱。

因为每个数据模块实例都有自己的TDataSet（比如TQuery/TClientDataSet），天然能实现窗口间的数据隔离，但要注意细节：

• 创建数据模块后，立即完成参数赋值和数据集打开，确保当前窗口的过滤条件只作用于自身的数据集：

  dmCustomerViewFrm := TdmCustomerViewFrm.Create(Self);
  dmCustomerViewFrm.qryCustomer.ParamByName('CustomerID').AsString := ACustomerID;
  dmCustomerViewFrm.qryCustomer.Open;
  

• 如果用TClientDataSet，要确保每个实例的数据集是独立加载的——不要直接共享同一个数据源的内存数据，除非你刻意要做实时同步，但查看窗口一般需要独立的浏览状态。

如果你的查看窗口打开频率极高，每次创建销毁数据模块会有轻微的性能开销，可以考虑用对象池复用实例：

• 维护一个全局的空闲TdmCustomerViewFrm列表，当需要新窗口时，先从池里取空闲实例，没有再创建新的；
• 窗口关闭时，不要销毁数据模块，而是清空数据集、重置参数（比如把查询SQL的参数清空），放回对象池；
• 注意：MDI子窗口都是主线程创建的，所以对象池不用太复杂的线程安全处理，简单的列表操作就够。

现在你在表单里直接创建数据模块的逻辑是合理的，但如果后续要扩展功能，可以封装成工厂方法：

function CreateCustomerViewDataModule(Owner: TComponent; ACustomerID: string): TdmCustomerViewFrm;
begin
  Result := TdmCustomerViewFrm.Create(Owner);
  with Result.qryCustomer do
  begin
    ParamByName('CustomerID').AsString := ACustomerID;
    Open;
  end;
end;

这样frmCustomerView里的代码会更简洁，后续修改参数传递逻辑也不用改每个窗口的创建代码。

• 不要在这类专属数据模块里用全局数据库连接：如果多个数据模块共享同一个TConnection，要确保连接是线程安全的（Delphi默认的TConnection大多不是线程安全的，主线程内使用没问题，但如果涉及异步操作就要小心）；
• 数据模块里的非可视化控件（比如TDataSetProvider），要确保每个实例的配置是独立的，不要继承全局的错误配置；
• 调试时开启Delphi的内存泄漏检测（比如FastMM），定期检查是否有数据模块实例没被正确释放。

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