出现【Program or unit '' recursively uses itself 程序或单元递归】错误该怎么办？代码如下

Question

library dbweb;uses
  ActiveX,
  ComObj,
  WebBroker,
  ISAPIThreadPool,
  ISAPIApp,
  dbwebunt in 'dbwebunt.pas' {WebModule1: TWebModule};{$R *.res}exports
  GetExtensionVersion,
  HttpExtensionProc,
  TerminateExtension;begin
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.unit dbwebunt;interfaceuses
  SysUtils, Classes, HTTPApp, DBTables, DB, DBWeb, HTTPProd, DBBdeWeb;type
  TWebModule1 = class(TWebModule)
    QueryTableProducer1: TQueryTableProducer;
    PageProducer1: TPageProducer;
    DataSetTableProducer1: TDataSetTableProducer;
    Table1: TTable;
    Database1: TDatabase;
    Query1: TQuery;
    procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
      const TagString: String; TagParams: TStrings;
      var ReplaceText: String);
    procedure WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure WebModule1WebActionItem2Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  WebModule1: TWebModule1;implementation{$R *.dfm}procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
  replacetext:=DataSetTableProducer1.Content;
end;procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Query1.ParamByName('paname').AsString:=request.ContentFields.Values['paname'];
  Query1.Open;
  response.Content:=QuerytableProducer1.Content;
  Query1.Close;
end;procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  table1.Open;
  response.Content:=pageproducer1.Content;
  table1.Close;
end;end.
有高手知道应该怎么改吗 
把什么移到什么前面  具体一点好吗 
谢谢了！！！！！！！！！！

Answer 1

把dbwebunt单元uses的 DBWeb移到implementation后面。
implementationuses DBWeb;

Answer 2

不行啊 出现了identifier redeclared：‘DBWeb’的错误啊
求解！

Answer 3

我看你的代码，根本没必要在dbwebunt单元引用DBWeb

Answer 4

啊是么？
我删掉DBWeb以后 点保存 它自动又出来了 这是怎么回事。太不可思议了 

Answer 5

将DBWeb移到最后试试。
uses
  SysUtils, Classes, HTTPApp, DBTables, DB,  HTTPProd, DBBdeWeb,DBWeb;实在不行，移除library dbweb，重新添加。

Answer 6

工程名换一个试试，比如dbweb, 也许VCl中或者你其他已安装包中有个单元就叫debweb；另，你装的什么版本啊

Answer 7

工程名换一个试试，比如dbweb1, 也许VCl中或者你其他已安装包中有个单元就叫debweb；另，你装的什么版本啊