自己顶一下.

这个比较复杂,也涉及到一些技巧.
最简单的方法,设计多个Provider,然后动态切换.

现有200个表,大部分都会在数个模块中使用,而即使同一模块也可以是多实例版本,所以同一数据表对应多个Provider会造成服务器端极大的资源浪费.示意图如下:

------------------------------
         |   服务器端                   |         |
         |------------------------------|
         |    ---------      ---------  |
         |   |Provider1|    |Provider2| |
         |    ---|-----      ---|-----  |
         |       |              |       |
          -------|--------------|-------
       ----------|--------------|--------------------------------------------------------
      |          |       客户端 |                                                        |
      |----------|--------------|--------------------------------------------------------|
      |          |              |                                                        |
      |    ------|--------------|----------------                                        |
      |   |窗体一|实例1         \                |                                       |
      |   |------|---------------\---------------|                                       |
      |   |    --|-----------    -\------------  |                                       |
      |   |   |ClientDataSet1|  |ClientDataSet2| |                                       |
      |   |    --------------    --------------  |                                       |
      |   |                                      |                                       |
      |    --------------------------------------                                        |
      |                             --------------|-----------|-----------               |
      |                            |窗体一实例2   |           |           |              |
      |                            |--------------|-----------|-----------|              |
      |                            |    ----------|---    ----|---------  |              |
      |                            |   |ClientDataSet1|  |ClientDataSet2| |              |
      |                            |    --------------    --------------  |              |
      |                            |                                      |              |
      |                             --------------------------------------               |
       ----------------------------------------------------------------------------------
      

晕到,怎么变成乱码了???
请大家帮忙顶一下.

这个问题也一直困扰着我。
我的一些信息：
调试环境：ORACLE9I+DELPHI+其他平台
操作方法：在ORACLE中测试语句，然后写配置表<用来存储需要的字段信息>，ClientDataSet1中使用，另用配置表的信息完成对字段信息的提供。ClientDataSet1使用的是离线数据。
只有在OPEN/UPDATE的时候才有激活Provider1

楼上“只有在OPEN/UPDATE的时候才有激活Provider1”，可能ClientDataSet一次性把所有记录
下载到了本地，这样会导致网络洪流，可能淹没服务器。

其实好的解决办法是使用无状态Provider，但是它需要每个表都有主键，要不然就需要
用多字段定位，但主要是字段信息的提供.

帮你顶

谢谢，请大家积极讨论，并帮我顶。

关注：

学习ing。。。帮你顶下。。。

谢谢，请大家积极讨论，并帮我顶。

动态下SQL可以解决吧

晕，我以为是楼主画的，原来是乱吗

1。多个ClientDataSet对应服务器端的同一个Provider 可能会出现问题！！

详细得说说，帮顶

在服务端写代码实现Data(OleVariant)值返回给客户端，不直接用Provider会好些。当然更新操作也要在服务端写个方法进行更新。自我感觉效率还可以。就是要写多点代码。

up

只能帮顶，顺便关注下！

我已现在使用无状态Provider解决了这个问题，但还是希望大家就此问题发表一下
自己的意见。由于上次没有考虑到篇幅宽度，所以使问题描述图发送后乱码，重排
后如下：
 ----------------------------
|        服务器端            |
|----------------------------|
|  ---------   ---------     |
| |Provider1| |Provider2|    |
|  ---|-----   ---|-----     |
 -----|-----------|----------
      |           |--------------------------------
      |-----------|---------------------------     |
 -----|-----------|-----------------------    |    |
|     |   客户端  |                       |   |    |
|-----|-----------|-----------------------|   |    |
|     |           |                       |   |    |
|  ---|-----------|------------------     |   |    |
| |   |窗体一实例1 \                 |    |   |    |
| |---|-------------\----------------|    |   |    |
| |  -|------------  \-------------- |    |   |    |
| | |ClientDataSet1| |ClientDataSet2||    |   |    |
| |  --------------   -------------- |    |   |    |
| |                                  |    |   |    |
|  ----------------------------------     |   |    |
|                                         |   |    |
|      -----------------------------------+---     |
|     |            -----------------------+--------
|  ---|-----------|------------------     |
| |   |窗体一实例1 \                 |    |
| |---|-------------\----------------|    |
| |  -|------------  \-------------- |    |
| | |ClientDataSet1| |ClientDataSet2||    |
| |  --------------   -------------- |    |
| |                                  |    |
|  ----------------------------------     |
 -----------------------------------------

靠，没办法了，为什么不让帖图呢？

三层技术就这么给你们糟蹋了...

为什么做三层，还不是为了把业务逻辑与表现层分离，为什么还要老想着你的C/S架构不放呢？

晕到，敢问这位仁兄是如何理解Borland的三层开发模式的？

是呀，业务逻辑当然要和表现曾分开，但是我们不能为了一个客户多个单子的交换处理而为客户端的定单窗体都创建一个定单对象吧？

帮顶，也在做三层，不过表少，这种情况暂里还没考虑到

自己顶一下。 ^_^

我以前做的一个项目的经验：

系统架构分三层：数据库服务器层->COM+中间件层->客户表现层；

COM+中间层又分为：数据引擎层及业务逻辑层，其中数据引擎层专门处理一些数据的查询、提交等重复的数据库操作，业务逻辑层专门处理一些业务逻辑动作，如做月结啊，增加一张订单啊之类的；

其中，客户表现层与业务逻辑层及业务逻辑层与数据引擎层的数据包的传送都用 TClientDataSet.Delat封装，这样可以减少数据流量，我也看到有些公司用的是 TADODataSet.Recordset封装的，效率也不错。

这样做，架构、效率绝对是一流的，但客户层要写的代码可能要多点。

up

现在做的一个三层的，表也就几十个，我也用的是一TDataSetProvider对多的TClientDataSet，
只要在程序里动态的实现TClientDataSet的连接与释放，应该没有什么问题。不过如果多次打开关闭数据集，会使程序速度太慢。

如果使用封状技术,客户端在设计期很难确定数据描述,换句话说就是很难进行界面定制,比如
报表设计,中文字段名翻译.我现在使用了数据运行期无状态绑定,解决了设计期字段定义这个问题,
同时由于Provider的无状态,可以使数据集共享,但客户端需要保留自己的状态.

封装一下ADOQuery,Provider,ClientDataSet作为一个类,并且每创建一个这个类的对象时给Provider的Name指定一个名.这个名可以是一个字符串+ProviderCount;ProviderCount是全局变量,可以放在数据模块中.

每创建一个对象,inc(ProviderCount)

200多个表，就有200多个Provider。我要晕死了


i25ffz(Martin) 说得对。三层不能和两层的C/S结构那样设计

其实三层结构除了将商务逻辑与表现层分离之外,我觉得还有一点很重要的是比C/S结构的控制
更为灵活, 比如资源的有效利用,提供良好的仲裁机制,再借助轻量级的数据访问机制:dbExpress
使得三层比C/S的运行效率以及资源利用率都有飞跃.其实分离及对象化使得设计条理更为清晰,
安全性更好,但很少人考虑到其中对象间的资源共享,客户间资源的共享,其实也就是缺乏一种
Pooling机制.

mark

目前我的应用程序服务器设计结构如下,大家给些建议.

 -------------              -----------
| 数据访问机制|            |           |
| --------   -+------------+-  无状态  |
||        | | | 业务对象A  | | 业务对象|
||        | | |            | | Pooling |
||        |  -+------------+-          |
|| 无状态 |   |            |           |
||数据访问|  -+------------+-          |
||组件集合| | | 业务对象B  | |         |
||        | | |            | |         |
||   |    |  -+------------+-          |
| ---+----    |            |           |
|    |       -+------------+-          |
|    |      | | 业务对象C  | |         |
|    |      | |            | |         |
|    |       -+------------+-          |
|    |        |            |           |
|    |       -+------------+-          |
|    |      | | 业务对象D  | |         |
|    |      | |            | |         |
|    |       -+------------+-          |
| ---+------- |            |           |
||   公共    ||             -----------
|| 数据连接  ||
| ----------- |
 -------------

靠,又是乱码.

最后讨论阶段,马上揭贴了.

我采用Delphi 6在Win 2000下开发基于COM+的三层系统，数据库服务器和应用服务器安装在同一台机器上，采用TSocketConnection连接，该系统的客户端每天都会死机，客户数5个以上大概1天发生1或2次，发生在客户端连接上后,网络中有掉包或客户机长时间没操作异外的断开,应用服务器上还显示客户机的IP地址,应用服务有时就会死掉.请问如何解决

晕，给大家一个方法看看！


{-------------------------------------------------------------------------------
  过程名:    TMaterialServer.OpenData
  作者:      李文凯
  日期:      2004.12.06
  描述：     请修改
  实现方法： 请修改
  参数:      SQLFlag: Integer; const SQLWhere: WideString; var Data: OleVariant
  返回值:    无
-------------------------------------------------------------------------------}
function TMaterialServer.OpenData(SQLFlag: Integer;
  const SQLWhere: WideString; var Data: OleVariant;
  var strMSG: WideString): Integer;
var
  strSQL: string;
  strLog:string;
begin
  strLog:='OpenData(SQLFLAG='+inttostr(SQLFlag)+',SQLWHERE='+SQLWHERE+')';
  Result:=1;
  strSQL:=getSQLByID(SQLFlag);
  if strSQL='' then
  begin
    strMSG:='编号为['+IntToStr(SQLFlag)+']的SQL语句没有定义!与请系统管理员联系!';
    MainServer.AddInformat(FUserNO,FUserName,'读数据',strMSG,strLog,1);
    Exit;
  end;
  if Trim(SQLWhere)<>'' then  strSQL:=Format(strSQL,[SQLWhere]);
  try
    dataset.Close;
    dataset.EnableBCD:=False;
    dataset.CommandText:=strSQL;
    dataset.Open;
    Data:=DSPRead.Data;
    dataset.Close;
    Result:=0;
  except
    On E:Exception do
    begin
      strMSG:='获得数据失败，与请系统管理员联系!';
      MainServer.AddInformat(FUserNO,FUserName,'读数据','编号['+IntToStr(SQLFlag)+'] 读取出错'+E.Message,strLog,1);
    end;
  end;
   cds.ProviderName:='';
end;

Connection: TADOConnection;
  dataset: TADODataSet;
  DSPRead: TDataSetProvider;
我就用一个！

你的代码要求数据一次性读完,假如一次查询数据过万,会导致网络洪泄.再者如果要是一次性读完,
TDataSetProvider本身就是一个无状态的,你的代码也只是增加了数据访问的安全性(过滤非法SQL
调用),我的做法是改造TDataSetProvider和TCliettDataSet.

也就是说,在TCliettDataSet的PacketRecord=-1的情况下多个TCliettDataSet对应一个TDataSetProvider是没有问题的,Borland的相关文档资料也提出在这种情况下TDataSetProvider
是无状态的.

我只是给你一个简单的例子，至于分段读取，或是其他的情况，当然我了想到了，

function OpenDataPage(ASQLID: Integer; const ASQLWhere: WideString;
      APage: Integer; var ATotalPage: Integer; var Data: OleVariant;
      var MSG: WideString): Integer; safecall;

分页读取

你们的那种，根本无需改造TDataSetProvider和TCliettDataSet
也是可以实现的！

我的业务逻辑使用了Pooling机制,同时共享了数据访问模块,所以数据访问模块必须无状态.

我一般是放多个Provider。还有动态创建Provider，用完了释放。
服务器上是有访问就自己创建的，不明白，怎么会重复呢？顶一下。

lwk_hlj(阿凯(学习.net中)) 的架构模式跟我的很相似，有机会可以讨论一下。wccyxf@163.com