adoquery + dsp + clientdataset + dbgrideh 数据排序的问题；

在维护COM+结构的三层结构的软件时，如果在服务端使用adoquery 查询后由 DSP 打包再传到客户端。

这种方式，效率很低，，通常查询结果，是不再需要 apply 到服务器的。

所以，我自己采用的方式，是在服务器端用 adoquery 查询，然后直接将 ADO结果直接传到客户端（不再经过DSP），然后再在客户端使用 adoquery 来接收数据；这样数据高效。

但是在客户端直接使用datasource 去连接 adouqery ，再使用 dbgrideh 来显示数据，在使用 dbgrideh 的数据排序就不能简单的使用ehlib 提供的简单的排序功能；

因为客户端的adoquery组件是没有设置 connection 及 connectioinstring 属性。所以，会出错错误；

所以，客户端的结构改为：

服务器 adoqery -> 客户 adoquery + dsp + clientdataset + dbgrideh 。

由于 clientdataset 是一个很优秀的数据集，但是仍然有些问题，所以我使用了 wwclientdataset 组件。

就算这样，仍然不能简单的使用Ehlib简单的排序功能，所以要自己写代码去支持它；

procedure TDM.PubP_OnTitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh;C:TwwClientDataSet);
var
OldIndex,NewIndex: string;
begin
C.DisableControls;
OldIndex:= C.IndexName;
NewIndex:= Column.FieldName;
if OldIndex <> '' then  begin
C.IndexName:= '';
C.DeleteIndex(OldIndex);
end;
case Column.Title.SortMarker of
smNoneEh, smDownEh:
begin
C.AddIndex('px', NewIndex,  [ixPrimary]);
Column.Title.SortMarker:= smDownEh;
end;
smUpEh  :
begin
C.AddIndex('px', NewIndex, [ixDescending]);
Column.Title.SortMarker:= smUpEh;
end;
end;
C.IndexName:= 'px';
C.First;
C.EnableControls;
end;

调用：

在 DBGRIDEH的 onTitleBtnClick 中写代码

dm.PubP_OnTitleBtnClick(Sender,ACol,Column ,CDS_QueryPOSat);