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;