引用单元文件,已经在uses中写入单元名,引用类的时候提示无法编译unitE:\delphi\*.user_unit.pas
下面是这个引用单元的源代码,项目管理器里也能看见这个单元名啊
unit user_unit;interface
uses
  windows,messages,sysutils,variants,DBclient,Classes,datamod_unit;
  type
    Tuser=class(Tobject)
  private
    Datamod:Tdatamodfrm;
  public
    function getuserpwd(Name:string):string;
    constructor create;
    destructor destroy:override;
    end;
implementation
constructor Tuser.create;
begin
  Datamod:=TDatamodfrm.Create(nil);
  end;
  destructor tuser.destroy;
  begin
    freeandnil(datamod);
    inherited;
  end;
function Tuser.getuserpwd(Name:string):string;
begin
  datamodfrm.ADOQuery1.Close;
  datamodfrm.ADOQuery1.SQL.Clear;
  Datamodfrm.ADOQuery1.SQL.Add('select*from 用户清单 where 用户名='''+Name+'''');
  Datamodfrm.ADOQuery1.Open;
  result:=Datamodfrm.ADOQuery1.fieldbyname('密码').AsString;
  end;
  end.