Delphi三层网络架构代码实现

时间:2022-01-05 02:09:15

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三层网络架构代码实现
服务器需要上述控件。

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

打开delphi->file->new->VCL Form Application -Delph 
如图 
Delphi三层网络架构代码实现
需要上述控件 
其中SQLConnection1控件,设置属性Driver 选择DataSnap,再把Driver左边的+号打开把HostName的地址填上(服务器的IP地址) 
Port为服务器端口地址。