IntraWeb下Model-View-Presenter开发实战--传递篇之一（DataTransferObject）

DataTransferObject http://martinfowler.com/eaaCatalog/dataTransferObject.html

unit IWA.DTO.LoginDTOIntf;

interface

type
ILoginDTO = interface
['{0C0CEEC3-F677-4385-99E0-5EF51B746559}']
function GetUserID: string;
procedure SetUserID(const Value: string);
function GetUserName: string;
procedure SetUserName(const Value: string);
function GetUserPassword: string;
procedure SetUserPassword(const Value: string);
property UserID: string read GetUserID write SetUserID;
property UserName: string read GetUserName write SetUserName;
property UserPassword: string read GetUserPassword write SetUserPassword;
end;

implementation

end.

unit IWA.DTO.LoginDTOImpl;

interface

uses IWA.DTO.LoginDTOIntf;

type
TLoginDTO = class(TInterfacedObject, ILoginDTO)
private
FUserID: string;
FUserName: string;
FUserPassword: string;
function GetUserID: string;
procedure SetUserID(const Value: string);
function GetUserName: string;
procedure SetUserName(const Value: string);
function GetUserPassword: string;
procedure SetUserPassword(const Value: string);
protected
public
end;

implementation

{ TLoginDTO }

function TLoginDTO.GetUserID: string;
begin
Result := FUserID;
end;

function TLoginDTO.GetUserName: string;
begin
Result := FUserName;
end;

function TLoginDTO.GetUserPassword: string;
begin
Result := FUserPassword;
end;

procedure TLoginDTO.SetUserID(const Value: string);
begin
FUserID := Value;
end;

procedure TLoginDTO.SetUserName(const Value: string);
begin
FUserName := Value;
end;

procedure TLoginDTO.SetUserPassword(const Value: string);
begin
FUserPassword := Value;
end;

end.

很简单的DTO.在实际开发中需要也能够扩充。如错误信息集、数据集等。还有就是DTO的序列化在实际开发中要做到的。