在Delphi中保持ADOConnection的连接

Question

我有一个名为MainModule的数据模块，它包含一个ADOConnection，另一个数据模块名为DatabaseModule，它包含来自MainModule的子类ADOQuery、ADOStoredProcedure等：

TDatabaseModule= class(TMainModule)

• 这个模块是自动创建的。

在我的应用程序中，DatabaseModule的所有类都是子类，现在认为2类如下所示：

TMyClass1= class(TDatabaseModule)

TMyClass2= class(TDatabaseModule)

在我的应用程序中，我从TMyClass1和TMyClass2创建了一个实例，两个类最终都连接到了MainModule的ADOConnection，现在当我释放其中一个类时，MainModule的连接被取消，而其他类由于MainModule的ADOConnection和其他类连接到MainModule的ADOConnection而无法访问数据库，并且它的连接没有活动，我如何才能保持连接的活力？

注意:我知道我可以将连接放在我的DatabaseModule中，每次类创建它时，都会为该类创建一个特定的连接实例，但是它对数据库有重载，我在Server中检查它。

谢谢。

Answer 1

AutoCreation of MainModule和DatabaseModule将创建2个ADOConnection实例，再加上TDatabaseModule子类的每个实例将再创建一个实例。

您如何将您的TMyClass1实例(例如MyObj1)连接到MainModule.ADOConnection？比如MyObj1.ADOConnection := MainModule.ADOConnection；？

如果您现在销毁了MyObj1，那么它的所有组件也会被销毁，但是当您将MyObj1.ADOConnection引用更改为MainModule.ADOConnection时，MainModule.ADOConnection就是您将要丢失的组件。

您可以将ADOConnection组件移动到另一个DataModule，将ADOConnection设置为DatabaseModule (或MainModule) porperty，并在代码中分配已使用数据集的连接属性。您不应该自动创建您根本不打算使用的DataModules。