捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
Delphi最新三层源码
关键字：Delphi 三层 表示层 业务层 数据层 NewCard
来　自：原创
平　台：Win9x,Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2005/11/29
发布者：wu_yanan2003 发布时间：2005/12/10
编辑器：DELPHI7 语　　种：简体中文
分　类：数据库 下载浏览：9023/30457
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
    随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。
    大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。
    今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。
    业务层要与表示层尽量解藕， 我的方法是：首先我们在中间层TLB_中定义一个接口 IBusinessService, 定义一个方法。getvoList，我要得到一个VO的列表， VO即ValueObject, 例如：

TValueObject= class(TPersistent)
    private
      b_insertFlag :Boolean;
      b_updateFlag :Boolean;
      b_deleteFlag :Boolean;
      d_rowVersion :double;

      procedure setInsertFlag(pInsertFlag :Boolean);
      function getInsertFlag: Boolean;
      procedure setUpdateFlag(pUpdateFlag :Boolean);
      function getUpdateFlag: Boolean;
      procedure setDeleteFlag(pDeleteFlag :Boolean);
      function getDeleteFlag: Boolean;
      procedure setRowVersion(pRowVersion :double);
      function getRowVersion:double;
    protected   
      function  GetOLEData: OleVariant; virtual;
      procedure SetOLEData(const Value: OleVariant); virtual;

    published
      property bInsertFlag: Boolean read getInsertFlag write setInsertFlag;
      property bUpdateFlag: Boolean read getUpdateFlag write setUpdateFlag;
      property bDeleteFlag: Boolean read getDeleteFlag write setDeleteFlag;
      property dRowVersion: double read getRowVersion write setRowVersion;
      property POLEData:OleVariant read GetOLEData write SetOLEData;
  end;

TUserVO = class(TValueObject)
      private
      id: string;
      name: string;
      password: string;
   。。。。。。。。。。
    VO的列表：
TValueObjectList = Class(TObjectList)
    private
      ValueObject: TValueObject;
      ClassName: TClass;

      procedure setClassName(pTmpClsName :TClass);
      function getClassName: TClass;
      procedure setValueObject(pTmpVO :TValueObject);
      function getValueObject: TValueObject;

    protected
      function GetOLEData: OleVariant; virtual;
      procedure SetOLEData(const Value: OleVariant); virtual;
    published
      function AddItem(index: integer; AObject: TObject ):Integer; virtual;
      function GetItem(index, itemid: integer ): TObject; virtual;
      function CountItem:Integer; virtual;
    public
      constructor Create; virtual;
      destructor Destroy; override;
      procedure AfterConstruction; override;
      property PClassName: TClass read getClassName write setClassName;
      property POLEData: OleVariant read GetOLEData write SetOLEData;
      property PValueObject: TValueObject read getValueObject write setValueObject;

   end;


TValueObjectList就是VO的装载器。在 JAVA中有一个好听的叫法，
VOList值列表组装器，具体的功能是可以管理VO， 当然你可以进行扩充，比如后来我加入了OLE<->TOBJECT<->TDataset互换的功能。
主键生成机制，分页存取功能，生成子集功能，及懒装载功能，压缩传输流功能等，同步数据更新问题等。这要你自己去发挥吧。
    说了这么多，话题转回来吧。现在说客户端怎么去存取数据。
在前面中间层已经定义了IBusinessService, 定义一个方法。getvoList，这个就是通用存取数据的接口了。
    下面看看他的完整形式：
     procedure getvoList(const sBOName: WideString; const sBOService: WideString; 
          out voListObj: OleVariant);   
     这里有三个参数，sBOName:sBOService:voListObj: 
干什么用的？第一个就是业务对象名称， 第二个是业务对象服务名称，
第三个是传回来的olevariant;
      强调一点。sBOName:sBOService:这两个参数并不直接对应中间层的业务对象。之间加了一个转换层。也就是service定位层。这个东西把客户传来的两个参数定位到相应的业务对象中。有什么好处呢。其实就相当于客户端和中间层的一个简单的协议，客户端发一个boname,一个服务名，这都是约定的。也就是不变的。以后该业务要变，就十分方便，只需要在中间层的定位器，配置一下就可以了，如果采用XML或文件配置，不需要修改任何程序，客户的业务已经发生改变。当然会采用名字调用等技术了。相关代码如下：
    TBOService= class(TServiceObject)
    private
      //srvOBName : String;
      IBasBO: IBaseBO;
      BOPool: TBOPrototype; //业务对象持久池：
    public
      constructor Create;
      procedure getvoList(const sBOName: WideString; const sBOService: WideString;
          out voListObj: OleVariant); safecall;
  。。。。。。。。。。
    再说说TBOPrototype吧 ，这个东西是管理业务对象池的。由他统一创建业务对象。采用的是单例模式。
    之后具体的调用，相关代码如下：
 if FindClass(fClsPer.ClassName) <> nil then
    begin
      tmpPer := TPersistentClass(FindClass(fClsPer.ClassName)).Create;
      Supports(tmpPer, StringToGUID('{3AE5EA91-41EA-41E7-B40C-CF00F8B75F8A}'), IBasBO);
      try
        IBasBO.InitBusinessObj;
        voListObj := IBasBO.GetDAOValueObject.getDAOValueList;
      finally
        IBasBO := nil;
      end;
    end
    else
      ShowMessage('no found!');

其中IBasBO，是一个接口定义，
IBaseBO = interface(IUnknown)
    ['{3AE5EA91-41EA-41E7-B40C-CF00F8B75F8A}']
    function GetObject: TObject;
    procedure SetObject( value: TObject );
    function GetDAOValueObject: TDAOValueObject;
    procedure SetDAOValueObject(tmpDAOVO: TDAOValueObject);
    procedure InitBusinessObj;
  end;


呵呵，现在可以看到冰山一角了吧。
   经过业务对象初始化之后，他就去创建DAO了。。。呵呵。 如果你不了解DAO，看看相关的资料吧。。。。。
   主要功能就是把数据存储隐藏起来，调用SQL， ORACLE，之类。我主要是用它调用数据库工厂创建。
   大致看一下代码吧。
   //----------
//1.工厂基类(SQLServer工厂类）
//----------


unit ConnDBFactory_SQLServer;

interface

uses
  Classes, ADODB, ConnDB, DB, DBTables, Controls, Dialogs, IConnDB, ConnDBFactory;


type

  TConnBDEDBFactory_SQLServer = class(TConnDBFactory)
    public
      function CreatorConnDB() :IConnDataBase; override;
  end;

  TConnADODBFactory_SQLServer = class(TConnDBFactory)
   public
      function CreatorConnDB() :IConnDataBase; override;
  end;

又扯远了，还是再回来吧。中间层的定位器通用业务对象管理器创建或获得一个业务对象之后，定位到相应的服务上去。比如数据存取。这里有一点说明：就是业务对象的数据存取和业务服务是分开的。 数据存取就采用DAO的方法。
    直接一点说就是创建DAO对象。
    这是  TDAOValueObject= class(TPersistent, IDAOValueObject)
    private..
..........
      上面的是基类。完成基础服务的。看看接口吧。

   IDAOValueObject = interface(IUnknown)
    ['{DF03C9E7-2A5B-4E32-8EF5-C4E8FC77E8BB}']
    function createDAOValue: TValueObject;
    function insertDAOValue(pValueObject: TValueObject): Integer;
    function updateDAOValue(pValueObject: TValueObject) :Integer;
    function deleteDAOValue(pValueObject: TValueObject) :Integer;  
    function findByPrimaryKey(const pServiceName: WideString;  vKey: OleVariant): TValueObject;
  function getDAOValueList: OleVariant;  overload;
      function getDAOValueList(sSQL: String): OleVariant;  overload;
。。。。。。。。。。

看看干了什么。。。。
   inherited Create;
  
  sqlAnySrvObj := TSQLAnalyzeService.Create;
  if not assigned(VOList) then
    VOList := TValueObjectList;
  VOList.pVOClassName := ‘TUSERVO’
创建了一个SQL分析器。 一个VOLIST对象， 并且传了一个VO名字。。
  TSQLAnalyzeService，SQL分析器可以动态的生成SQL脚本。。
   
再看看
    function getDAOValueList: OleVariant;  overload;
      function getDAOValueList(sSQL: String): OleVariant;   
这两个函式吧。 把生成的VO， olevariant化。  
这些基础的工作， 已经由VOLIST做了。 
   重要的一点：
      prepareTable，这是VOLIST中的函式，由他动态的生成TDATASET， 当然没必要在中间层生成。但可以打包传给客户端，就OK了。

   现在在看一下客户端的代码吧：
  
    MyInterface2.getvoList('TUserBO', '' , oo);
      pp := TValueObjectList.Create;
      pp.OLEToDS(oo);

     dataSource1.DataSet := pp.pDataSet;

    呵呵，PP是公共的TVOLIST，发布到客户端。 通由Ole，自动生成了TDATASET。
   想用对象，没问题，看下面：
   定义：   ss: TVALUEOBJECT;

    ss := TUserVO(pp.GetItem(1));
    if ss<>nil then
          ShowMessage((ss as TUserVO).pName); 
之后，你想怎么样就怎么样了。。。。。
  
    呵呵，下次再讲讲业务逻辑方面吧，希望给做DELPHI三层的兄弟一个参考。我的QQ： 11718111
    Email:   wu_yanan2003@yahoo.com.cn
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论17条 当前显示最后6条评论
hansxia 2005/12/13 14:13:38
是不是参考了那个制衣MRP的程序，呵呵
wu_yanan2003 2005/12/13 19:49:29
    hansxia：
    哈哈，这都被你看出来了，厉害呀。一年前刚学DELPHI时，就是看制衣MRP入门的。呵呵。
tim001 2005/12/28 11:52:18
谢谢
weihui28 2006/2/23 15:58:27
我不清楚什么叫三层但是我呢现在有介问题想请教!
aknightchen 2007/1/3 14:48:06
to:wu_yanan2003 
三层并不是我们的目的。
你的逻辑是：为了三层而三层！

其实大多数数据库软件之所以走上三层的路，就是为了实现INTERNET目的。
要实现这条路，就要用三层，至少现在的NAT网络是这样出路。
aq031 2007/11/1 13:07:41
to hansxia：
《----是不是参考了那个制衣MRP的程序，呵呵-----》
不知道你能否看到我留的话，请问下你所说的制衣MRP是那一程序呢 ？能否告知 谢谢
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号 更新RSS列表