引用单元文件,已经在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.
下面是这个引用单元的源代码,项目管理器里也能看见这个单元名啊
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.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货