delphi - 在delphi中使用数据模块分离数据集实例

Question

我正在使用 Delphi6 并有一个带有 ADO DataSet 的数据模块，该模块由两个表单(formA 和 FormB)使用。每个表单在 OnCreate 中都有一个 Dataset.Open()，在 OnClose 中都有一个 Dataset.Close()。如果两个表单同时打开并且 formB 关闭，则数据集在 formA 中关闭。我怎样才能防止这种情况，本质上我需要为每个表单提供单独的数据集实例，但同时使用数据模块。

Answer 1

实现您想要的效果的最简单方法是为每个表单创建数据模块的实例，并将其传递给表单，以便在表单关闭时可以释放它:

var
  Data: TDataModule;
begin
  Data := T<YourDataModule>.Create(Self);
  try
    Form := T<YourForm>.Create(Self);
    Form.DataModule := Data;
    Data.Name := '';
  except
    Data.Free;
    raise;
  end;

  Form.Show;
end;

将 DataModule 的名称设置为空字符串是为了确保将数据感知控件连接到其数据源/数据集的 VCL 逻辑是使用新创建的实例而不是第一个实例来完成的。

在表单的 OnClose 处理程序(或其析构函数)中，确保释放数据模块。