业务逻辑处理MODEL
unit IWA.Model.LoginModelIntf;
interface
uses IWA.DTO.LoginDTOIntf;
type
ILoginModel = interface
['{108D4A7F-3EDB-4C72-84BE-AC88515B56EE}']
procedure CheckLoginInfo(DTO: ILoginDTO);
end;
implementation
end.
unit IWA.Model.LoginModelImpl;
interface
uses IWA.Model.LoginModelIntf, IWA.DTO.LoginDTOIntf;
type
TLoginModel = class(TInterfacedObject, ILoginModel)
public
procedure CheckLoginInfo(DTO: ILoginDTO);
end;
implementation
uses SysUtils;
{ TLoginModel }
procedure TLoginModel.CheckLoginInfo(DTO: ILoginDTO);
begin
if LowerCase(DTO.UserID) = 'sanmaotuo' then
DTO.UserName := DTO.UserID +'-'+ DTO.UserPassword
else
DTO.UserName := '用户名错误';
end;