第11章使用DataSnap开发多层数据库

1、本章要点： l 三层客户服务器系统的概念 l delphi中实现三层数据库应用程序的 方法 l datasnap组件的使用方法 l 基于dcom、tcp/ip、http等协议 的三层分布式数据库系统开发 11.1.1 “主机终端”数据库应用系统 三层结构的功能层次划分如下。 （1）第1层（表示层）：负责显示和与用户交互（这一 层由客户机实现）。 （2）第2层（功能层）：实现应用逻辑（这一层由应用 服务器实现）。 （3）第3层（数据层）：负责数据管理（这一层由db服 务器实现）。 11.2.1 实现方法概述 开发多层数据库应用系统，需要一些专门 的组件，这些组件可以分成如下4类。 （1）远程数据

2、模块（remote datmodule) （2）tdatesetprovider组件 （3）tclientdataset组件 （4）datasnap组件 1. 远程数据模块（remote data module） 2. tdatasetprovider组件 tdatasetprovider组件的主要属性、方法与事件 如下 : （1） dataset属性 （2）updatemode属性 （3）datarequest方法 （4）ongetdatasetproperties事件 （5） ondatarequest事件和ongetdata事件 （6）onupdatedata，afterupdatere

3、cord， beforeupdaterecord和onupdateerror事件。 3. tclientdataset组件 （1）packetrecords属性 （2）remoteserver属性 （3）providername属性 （4）getnextpacket方法 （5）applyupdates方法 （6）savetofile方法 （7）loadfromfile方法 4. datasnap组件 11.3.1 常用datasnap组件 1. tdcomconnection组件 （1）computername属性 （2）servername属性 （3）serverguid属性 （4）obje

4、ctbroke属性 （5）connectioned属性 2. tsocketconnection组件 （1）address属性 （2）host属性 （3）port属性 3. twebconnection组件 4. tsimpleobjectbroker组件 （1）servers属性 （2）loadbalanced属性 开发三层数据库应用系统一般可分成3个步骤： （1）在数据库服务器上建立需要的数据库； （2）建立应用服务器； （3）建立客户端应用程序。 其中建立数据库的方法，前面已介绍，此处不再 介绍。 1.建立应用服务器 建立应用服务器的步骤如下: （1）建立一个新的应用程序（applica

5、tion）。 （2）增加一个远程数据模块。设置它的coclassname 为需要的名称，设置它的instancing为multiple instance（默认值）。 （3）在远程数据模块上，设置供客户端访问的数据 集如增加一个ttable，tdatabase或tquery组件。 （4）添加一个tdatasetprovider组件，把它的dataset 属性就设置为刚才添加的数据集组件名。 （5）保存文件，编译并运行该应用服务器程序以注 册该应用服务器程序。 （6）也可将应用服务器程序转移到另一台机器上， 此时应在另一台计算机上重新注册并要相应地修改 客户端的datasnap连接组件，以定位到新

6、的计算机。 建立客户端应用程序的步骤如下 : （1）建立一个新的应用程序（application）。 （2）根据连接所使用的协议来选定一个或几个datasnap 连接组件（如tdcomconnection，tsocket connection， twebconnection）并添加到数据模块中。 （3）设置datasnap连接组件的属性来定位到应用服务器 所在的计算机（computername，address和port等）和 应用服务器（servername，url等）。 （4）把一个或几个tclientdataset组件放到数据模块上， 设置remoteserver属性指定一个datasna

7、p连接组件，设 置providername属性指定应用服务器上的 tdatasetprovider组件。 （5） 把一个tdatasource组件放到数据模块上，设置它 的dataset属性指定tclientdataset组件。再为应用程序 中的窗体添加相应的数据控制组件，设置数据控制组 件的datasource属性为该tdatasource组件名称 。 1. 建立连接 建立连接的方法主要有以下两种。 （1）把tclientdataset的active属性设置为true。 （2）把datasnap连接组件的connected属性设置 为true。 注意：在与应用服务器建立连接之前，将会触发 b

8、eforeconnect事件。当建立了与应用服务器的 连接后，将会触发afterconnect事件。 2. 断开连接 断开连接的方法主要有以下5种。 （1）把tclientdataset的active属性设置为false。 （2）将datasnap连接组件的connected属性设置为false。 （3）关闭客户端程序。 （4）将datasnap组件删除。 (5) 修改datasnap连接组件的servername，serverguid， computername，host，address等属性。 注意：与应用服务器的连接将要断开之前会触发 beforedisconnect事件，连接真正断开之

9、后，会触发 afierdisconnect事件。 1. 更新数据的一般步骤 更新数据的一般步骤如下。 （1）客户端程序调用applyupdates函数向应用服 务器提出申请。 （2）应用服务器向远程数据库服务器提出申请。 （3）返回并处理错误记录。 2. 客户端程序申请更新的方法 客户端程序申请更新数据是通过applyupdates 方法（函数）来实现的。关于该方法的功能请 参考tclientdataset组件的该方法说明。 11.4.1 建立应用服务器 11.5.1 建立应用服务器 11.6.1 配置服务器端的iis 三层数据库应用系统已经成为企业信息系统开发的趋势和主 流，在delphi中

10、可通过使用datasnap技术来开发三层数据库应用 系统。三层数据库应用系统由3个部分组成，分别是：数据库服务 器、应用服务器和客户端程序，它是在二层c/s结构的基础上通过 增加服务器的种类来使客户端变“瘦”。在delphi中可通过3种方 式来开发三层结构的数据库应用系统，分别是：基于dcom协议 的三层数据库应用系统的开发、基于tcp/ip协议的三层数据库应 用系统的开发、基于http协议的三层数据库应用系统的开发。为 实现三层结构的数据库应用系统，需要用到一些delphi的组件， 如远程数据模块、tdatasetprovider、tclientdataset和datasnap组 件，其中datas