当TSQLConnection.Connected = true时,如何使Delphi DUnit测试失败

使用Delphi IDE时,它会在填充各种属性中的字段或表列表时以静默方式将SQLConnection.Connected更改为"true".

由于我不想使用Connected = true发布,因此当dQm中的TSQLConnection.Connected为真时,我需要我的dunit测试失败.

GExperts有一个"设置组件属性"专家,我们配置为在每次编译时关闭数据库连接.既然这样做,我们就没有遇到过这个问题.

您可以编写自己的TSQLConnection后代,它不存储其Connected属性:

  TdzAdoConnection = class(TADOConnection)
  published
    property Connected stored false;
  end;

并使用该组件而不是TSqlConnection.

(以上是TAdoConnection,但TSQLConnection也可以正常工作.)