delphi - 未找到 TADOConnection/TADOTable 类

Question

好吧，我的应用程序运行得很好，直到我决定通过创建 DataModule 表单并将所有数据库组件移至其中来稍微清理一下设计时表单。我正在使用 Delphi XE2 Update 1 和这些组件:TADOConnection、TADOTable、TADOQuery、TADOCommand。当我第一次尝试使用 DataModule 表单(而不是主表单)上的上述指定组件运行应用程序时，在执行 DPR 中的这一行时，它现在会返回错误:

Application.CreateForm(TDataModule1, DataModule1);

引发的错误是未找到 TADOCOnnection 类。。现在，我删除了 TADOConnection 并将其重新添加到 DataModule 表单中，它现在引发了一个不同的错误:未找到 Class TADOTable。，但我认为这只是因为 DataModule 上的创建顺序已更改TADOTable 现在是在表单上创建的第一个对象。

我的 DataModule 中的 uses 子句是:

使用 System.SysUtils、System.Classes、Data.Win.ADODB、Data.DB；

我读过其他帖子，说在 use 子句中包含 ADODB 和 DB 来克服此错误，但这似乎没有帮助。

我的完整 DPR 文件是:

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule1: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
end.

我什至尝试从 DPR 文件中删除创建 DataModule 的行并在主窗体中手动执行此操作，但当我收到相同的错误消息时，情况就会发生变化。

除了将所有组件移回主窗体之外，我不确定下一步要尝试什么。 DataModule 表单在 XE2 中的工作方式与以前版本的 Delphi 不一样吗？为什么当组件位于主表单上时，不会引发相同的 TADOConnection 和 TADOTable 类未找到消息？

非常感谢任何想法或见解。

詹姆斯

Answer 1

启动一个新项目并向其中添加一个DataModule。将 TADOConnection 和 TADOTable 放到 DataModule 上。保存项目并查看哪些单元被添加到 DataModule 的使用中。如果您的项目编译并成功运行，请将单元名称从该测试项目复制到工作项目的 DataModule 中，然后重试。如果这没有帮助，我只能猜测您的库路径存在一些问题。我没有 Delphi XE2 来尝试这个，所以我只是猜测。