8

使用 Delphi IDE 时，在各种属性中填充字段或表列表时，它会默默地将 SQLConnection.Connected 更改为“true”。

因为我不想使用 Connected = true 发布，所以当 TSQLConnection.Connected 在 dfm 中为真时，我需要我的 dunit 测试失败。

4

5 回答 5

9

GExperts 有一个“设置组件属性”专家，我们将其配置为在每次编译时关闭数据库连接。自从这样做以来，我们就没有遇到过问题。

于 2009-01-19T16:45:53.753 回答
5

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

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

并使用该组件而不是 TSqlConnection。

（以上是针对 TAdoConnection 的，但 TSQLConnection 也应该可以正常工作。）

于 2009-01-19T15:46:54.543 回答
4

我用另一种方式解决了这个问题。我编写了一个小实用程序来加载 DFM 文件，并查找不应该存在的属性。包括 database.connected = true 值。

这可以修改为使用任何适当的属性。我也把代码的核心放在这里了。

为了使它真正有用，你应该在你的构建脚本中使用这个实用程序（我使用 FinalBuilder）。我的脚本首先循环 .dfm 文件，剥离任何这些属性，然后编译并运行单元测试。如果它们通过了，那么它将继续构建主应用程序。对我来说，这是比单元测试失败更好的方法，因为您可以从有保证的已知良好点开始。

nState := 0;
bFound := False;
for nFileLoop := 0 to memoFile.Lines.Count - 1 do
begin
  szLine := memoFile.Lines[nFileLoop];

  case nState of      //
  0:
     begin
        if(0 <> Pos('TADOConnection', szLine)) then
        begin
           szSeeking := 'Connected';
           nState := 1;
        end
        else if(0 <> Pos('TADOTable', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TADOQuery', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMTable', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMDatabase', szLine)) then
        begin
           szSeeking := 'Connected';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMSession', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end
        else if(0 <> Pos('TDBISAMQuery', szLine)) then
        begin
           szSeeking := 'Active';
           nState := 1;
        end;
     end;
  1 :
     begin
        bFound := True;
        if(0 <> Pos('end', szLine)) then
        begin
           nState := 0;
        end
        else if(0 <> Pos(szSeeking, szLine)) then
        begin
           nPos := Pos('=', szLine);
           if nPos > 0 then
           begin
              memoFile.Lines[nFileLoop] := Copy(szLine, 1, nPos) + ' False';
           end;
        end;
     end;
  end;      // case
end;
于 2009-01-19T12:19:51.590 回答
1

OpenCTF - Delphi 的组件测试框架可能很有趣，它会自动为所有表单/数据模块中的所有组件的指定属性创建单元测试。它是开源的并且易于使用。

《入门》文档：http ://www.habarisoft.com/download/OpenCTFGettingStarted.pdf

OpenCTF 组件测试框架有助于为 Delphi 应用程序中的所有（可视和非可视）VCL 组件构建自动测试。它基于 DUnit 框架。

一些使用示例：

  • 检测缺失或错误的属性值 - 例如没有分配操作的按钮、没有关联数据集的数据源
  • 检测未分配的事件处理程序 - 例如缺少 OnExecute 事件
  • 检查所有数据集是否可以打开
  • 检查标签顺序
  • 找到不可见的组件（例如，最好在运行时隐藏的不可见的 TabSheets）

OpenCTF http://www.mikejustin.com/images/OpenCTF.gif

于 2010-03-14T16:58:11.370 回答
0

解决此问题的另一种方法是在您的 SCM 中实现预提交挂钩。我使用 TortoiseSVN，并且我已经做了类似的事情来防止东西潜入。例如，我们有一个“皮肤”库，它试图将十几个皮肤单元添加到您在 IDE 中打开的任何表单中。（我们有一个注册表补丁可以“修复”这种行为，但如果开发人员重新安装组件，它每隔一段时间就会“取消”）。所以我在 .ini 文件中有一个“禁止字符串列表”，它位于 SVN 预提交挂钩中。

在我们的环境中，所有生产代码都构建在专用的“构建机器”上，因此如果代码没有被签入，它就不会进入构建。问题解决了。

于 2011-11-01T18:52:06.597 回答