ADOQuery在构造函数后关闭

Question

我在Delphi 7中使用TADOQuery。
在构造函数中，我调用ADOQuery.open。

为什么ADOQuery在表单外调用另一个函数时会关闭？

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param,[]); 
end; 

Answer 1

我的建议寻找谁是关闭数据集：

创建用于AdoQuery的BeforeClose事件的新事件处理程序，把任何被编译并执行只是把一个断点。例如：

procedure TfrmCreDocCredito.cdsSucursalesBeforeClose(DataSet: TDataSet); 
begin 
    ShowMessage('Closing!!'); 
end; 

运行程序，执行到创建类的实例需要用户进行任何操作和断点程序停止的时候，你要检查调用堆栈的机会。它会揭示谁，如果你想一点，你会发现为什么数据集正在关闭。如果你的断点没有触发，我打赌数据集从未真正打开过。

此致敬礼。

Answer 2

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param); 
end; 

// 

constructor TClass1.Create(AOwner: TComponent; 
    MyParam: TProgramParam); 
begin 
    inherited; 
    ADOQuery.Open; 
    ADOQuery.Locate('fieldName',Param,[]); 
end;