读书人

引用单元文件的有关问题

发布时间: 2012-12-31 11:57:52 作者: rapoo

引用单元文件的问题
引用单元文件,已经在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.
[解决办法]
贴编译错误信息出来看下。

读书人网 >.NET

热点推荐