如何自动关闭设计阶段遗留的已打开数据库连接及查询？

这个问题在Delphi数据库开发里确实很常见——不小心在设计时打开了连接或查询，保存DFM后每次运行都会自动触发打开操作，不仅容易引发连接错误，还会造成不必要的数据库资源占用。下面给你几个实用的解决方案，按侵入性从低到高排序：

方案1：窗体/数据模块创建时遍历关闭（最简单） #

不需要修改任何组件，只需要在每个涉及数据库的窗体或数据模块的OnCreate事件里添加递归遍历代码，强制关闭所有数据库连接和数据集：

procedure CloseDBComponents(Component: TComponent);
var
  i: Integer;
begin
  // 关闭数据库连接
  if Component is TADOConnection then
    TADOConnection(Component).Connected := False
  // 关闭查询/数据集（可扩展到TADOTable、TADOStoredProc等）
  else if Component is TADOQuery then
    TADOQuery(Component).Active := False;

  // 递归处理嵌套控件（比如Panel、GroupBox里的组件）
  if Component is TWinControl then
    for i := 0 to TWinControl(Component).ControlCount - 1 do
      CloseDBComponents(TWinControl(Component).Controls[i]);
end;

procedure TYourDataModule.DataModuleCreate(Sender: TObject);
begin
  CloseDBComponents(Self);
end;

优点：零组件修改，快速生效；缺点：需要在每个涉及数据库的窗体/数据模块里重复调用，适合小项目临时修复。

方案2：用类助手扩展原有组件（低侵入性） #

如果不想写重复代码，可以用Delphi的类助手（Class Helper）给TADOConnection和TADOQuery添加自动关闭逻辑，只需要引用一个单元就能全局生效：

unit DBComponentHelpers;

interface

uses
  ADODB, Classes;

type
  TADOConnectionHelper = class helper for TADOConnection
  public
    constructor Create(AOwner: TComponent); reintroduce;
  end;

  TADOQueryHelper = class helper for TADOQuery
  public
    constructor Create(AOwner: TComponent); reintroduce;
  end;

implementation

{ TADOConnectionHelper }

constructor TADOConnectionHelper.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // 仅在运行时关闭，设计时保留状态方便调试（如需设计时也关闭，去掉csDesigning判断）
  if not (csDesigning in ComponentState) then
    Connected := False;
end;

{ TADOQueryHelper }

constructor TADOQueryHelper.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if not (csDesigning in ComponentState) then
    Active := False;
end;

end.

在项目主单元或数据模块里引用这个DBComponentHelpers单元后，所有TADOConnection和TADOQuery在创建时都会自动关闭运行状态。

优点：无需替换现有组件，一次引用全局生效；缺点：仅支持Delphi 2006及以上版本，类助手的构造函数重定义存在极小兼容性风险（实际使用中几乎不会遇到）。

方案3：自定义继承组件（最彻底） #

如果项目需要长期维护，推荐创建自定义的数据库组件，继承自原有控件，在构造函数里强制关闭状态：

unit MyCustomDBComponents;

interface

uses
  ADODB;

type
  // 自定义连接组件
  TMyADOConnection = class(TADOConnection)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  // 自定义查询组件
  TMyADOQuery = class(TADOQuery)
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TMyADOConnection }

constructor TMyADOConnection.Create(AOwner: TComponent);
begin
  inherited;
  // 无论设计时还是运行时，创建后都强制关闭连接
  Connected := False;
end;

{ TMyADOQuery }

constructor TMyADOQuery.Create(AOwner: TComponent);
begin
  inherited;
  Active := False;
end;

end.

把项目里所有的TADOConnection替换成TMyADOConnection，TADOQuery替换成TMyADOQuery即可。之后不管设计时有没有误打开控件，组件创建时都会自动关闭。

优点：逻辑彻底，组件本身自带防护；缺点：需要替换现有组件，适合新项目或大规模重构的老项目。

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