IntraWeb下Model-View-Presenter开发实战--创建篇之三(Model)
来源:互联网 发布:linux下的system头文件 编辑:程序博客网 时间:2024/06/16 14:34
业务逻辑处理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;
- IntraWeb下Model-View-Presenter开发实战--创建篇之三(Model)
- IntraWeb下Model-View-Presenter开发实战--创建篇之二(Presenter)
- IntraWeb下Model-View-Presenter开发实战--起始篇
- IntraWeb下Model-View-Presenter开发实战--创建篇之一 (View)
- IntraWeb下Model-View-Presenter开发实战--传递篇之一(DataTransferObject)
- Model View Presenter
- 浅析MVP(Model-View-Presenter)架构及开发模式
- NBearV3教程——MVP(Model/View/Presenter)篇
- 设计模式:Model View Presenter
- 设计模式:Model View Presenter
- 设计模式:Model View Presenter
- 设计模式-- Model View Presenter
- Model-View-Presenter(MVP)概述
- MVP (Model View Presenter ) 简介
- Android MVP(Model View Presenter)
- Android实战(橘子娱乐)-首页(第六篇 Presenter如何将Model层数据传递给View层)
- MODEL-View-Presenter(MVP)模式在FLEX下的开发实例
- MVP(model,view Presenter) Pattern(模式) 学习
- 高效能管理之要事第一 时间管理表格4
- Ext.get()与Ext.fly()之区别
- java中hashcode()和equals()的详解
- “蜗居”困境的原因何在?
- Congress reconsiders America’s official position on the Armenian genocide
- IntraWeb下Model-View-Presenter开发实战--创建篇之三(Model)
- 对象与正则判断浏览器
- 传智播客--3G开发之添加多Activity和数据传递,Activity生命周期,广播,服务
- IntraWeb下Model-View-Presenter开发实战--传递篇之一(DataTransferObject)
- Heap size xxK exceeds notification threshold解决
- 点滴记录
- 瞬间的感悟
- 如何用Visual Basic 构建故障诊断专家系统
- Financial Markets Problem_003