Delphi三层网络架构代码实现

Delphi三层网络架构代码实现

1 .三层网络的概念

三层架构(3-tier architecture) 通常意义上的三层架构就是将整个业务应用划分为：

表现层（UI）、业务逻辑层（BLL）、数据访问层（DAL）。 区分层次的目的即为了“高内聚，低耦合”的思想。

概念简介

1、表现层（UI）：通俗讲就是展现给用户的界面，即用户在使用一个系统的时候他的所见所得。

2、业务逻辑层（BLL）：针对具体问题的操作，也可以说是对数据层的操作，对数据业务逻辑处理。

3、数据访问层（DAL）：该层所做事务直接操作数据库，针对数据的增添、删除、修改、查找等。

2 .三层网络构建步骤

1 .打开delphi->file->new->others ，Delphi Projects->DataSnap Server->DataSnap Server 然后弹出来的都默认->OK。回头感性趣再研究其它的吧。

2 .生成三个窗口，三个窗口中需要记住DSTCPServerTransport1控件的Port和ServerMethods1控件里面的代码

type  TServerMethods1 = class(TDSServerModule)

记住“TServerMethods1”引号中 名字客户端需要用。

3 .在ServerMethods1窗口把数据库搭建好。如图所示

服务器需要上述控件。

下面说客户端的搭建方法：

打开delphi->file->new->VCL Form Application -Delphi
如图

需要上述控件
其中SQLConnection1控件，设置属性Driver 选择DataSnap,再把Driver左边的+号打开把HostName的地址填上（服务器的IP地址）
Port为服务器端口地址。
源代码下载地址：
http://download.csdn.net/download/singular2611/8537755