这种情况怎么改进!

[wuzhouhome]

我的情况是这样的,程序是三层结构,系统查询提交给服务器中间件查询,但是返回的时间很慢,请问用什么方法可以解决,如果开一个线程的要怎么用,因为我这个窗体是继承下来的.
procedure TfrwBillQuery.SumOfOrgan(Sender: TObject);
var
cStartDate: String;
cEndDate: String;
oSumList: Variant;
oSumTotal: Variant;
oSumSales: Variant;
oSumOrgan: Variant;
cPath: String;
cParentPath: String;
cPointNo: String;
cPointName: String;
oNode: TTreenode;
pNode: ^String;
nLen: Integer;
nLevel: Integer;
i: Integer;
begin
cStartDate := DateToStr(Self.dtpStart.Date);
cEndDate := DateToStr(Self.dtpEnd.Date);
gcPointNo := '';

oNode := Self.tvOrgan.Selected;
Self.lblUnitName4.Caption := '统计单位: '+oNode.Text;
Self.lblUnitName3.Caption := '统计单位: '+oNode.Text;
Self.lblUnitName2.Caption := '统计单位: '+oNode.Text;
Self.lblUnitName1.Caption := '统计单位: '+oNode.Text;
Self.lblUnitName.Caption := '统计单位: '+oNode.Text;

pNode := oNode.Data;
nLevel := oNode.Level + 1;
cParentPath := pNode^;
nLen := Length(cParentPath);

Self.tbGroups.Close;
Self.tbGroups.CreateDataSet;

for i := 0 to Self.tvOrgan.Items.Count - 1 do
begin
oNode := Self.tvOrgan.Items.Item[i];
cPointNo := oNode.Text;
cPointName := Copy(cPointNo,6,Length(cPointNo)-5);
cPointNo := Copy(cPointNo,1,4);
pNode := oNode.Data;
cPath := pNode^;
if Copy(cPath,1,nLen) = cParentPath then
begin
if Length(cPath) <> nLen then
begin
Self.tbGroups.Append;

Self.tbGroups.FieldByName('PointNo').AsString := cPointNo;
Self.tbGroups.FieldByName('PointName').AsString := cPointName;
Self.tbGroups.FieldByName('Paths').AsString := cPath;
Self.tbGroups.FieldByName('PathGroup').AsString := Copy(cPath,1,nLen+4);

while oNode.Level > nLevel do
begin
oNode := oNode.Parent;
end;

cPointNo := oNode.Text;
cPointName := Copy(cPointNo,6,Length(cPointNo)-5);
cPointNo := Copy(cPointNo,1,4);

Self.tbGroups.FieldByName('GroupPointNo').AsString := cPointNo;
Self.tbGroups.FieldByName('GroupPointName').AsString := cPointName;

Self.tbGroups.Post;
end;
end;
end;
Self.tbSumList.Close;
Self.tbSumTotal.Close;
Self.tbSumSales.Close;
Self.tbSumOrgan.Close;

if Self.tbGroups.RecordCount > 0 then
begin
if dmMain.scMain.AppServer.SumOfPoints(cStartDate,cEndDate,
Self.tbGroups.Data,oSumList,oSumTotal,oSumSales,oSumOrgan) = '1' then
begin
Self.tbSumList.Data := oSumList;
Self.tbSumTotal.Data := oSumTotal;
Self.tbSumSales.Data := oSumSales;
Self.tbSumOrgan.Data := oSumOrgan;
end;
end;
//Self.tbGroups.Close;
Self.SumSortByQty(Sender);
Self.SumSortByMoney(Sender);
end;
这句
if dmMain.scMain.AppServer.SumOfPoints(cStartDate,cEndDate,
Self.tbGroups.Data,oSumList,oSumTotal,oSumSales,oSumOrgan) = '1' then
是提交服务器运行,但是返回的结果很慢,如果开一个线程要怎么处理,由于本人没有用过,请各位大侠指点.

[hanlin2004]

那说明客户端和服务器端往返的数据量太大了，多线程也于事无补

还是只传送需要的数据比较好，为什么把ClientDataSet.Data都传递过去呢

[wuzhouhome]

是把在服务器上查询出来的数据返回到客户端.

[hanlin2004]

不好意思，呵呵，短消息回复错了问题了

dmMain.scMain.AppServer.SumOfPoints(cStartDate,cEndDate,
Self.tbGroups.Data,oSumList,oSumTotal,oSumSales,oSumOrgan) = '1'
这个函数会返回数据集吗？我不知道你们的函数原型。

如果不是返回数据集，那么把客户端的所有数据都提交到服务器就不必要了，
可以在客户端重新组合，只把需要的传递过去。同时服务器的这个函数做相应修改

[hanlin2004]

不好意思i，刚仔细看了一下，是返回了几个数据集

这样就没办法了，是要慢一点，

但是返回的oSumList,oSumTotal,oSumSales,oSumOrgan几个数据集的数据
是否需要一次全部取回客户端还是值得商榷的

[hanlin2004]

你可以考虑分批获取数据

[wuzhouhome]

我想每一个数据集开一个线程,这样一次查询可能会快点,但是没有用过,不知兄台能否指点一下.

[hanlin2004]

给你一个多线程查询的例子。
但是我认为你的瓶颈是在网络传输，不是在单线程。
即使是多线程，还是受到数据传输速度的影响。
我建议你尽量从数据量的大小上来考虑和优化。
TThreadQuery = class(TThread) { 声明线程类 }
private
FDataSet: TDataSet; { 线程中数据集组件 }
procedure DisConnectDataSource;
procedure ConnectDataSource;{ 连接数据集组件和数据感知组件的方法 }
procedure Open;
protected
procedure Execute; override;{ 执行线程的方法 }
public
constructor Create(Query: TDataSet); virtual; { 线程构造器 }
end;



{ TThreadQuery类的实现 }

{ 连接数据集组件和数据感知组件}
procedure TThreadQuery.DisConnectDataSource;
begin
FDataSet.DisableControls;
end;

procedure TThreadQuery.ConnectDataSource;
begin
FDataSet.EnableControls;
end;

procedure TThreadQuery.Open;
begin
FDataSet.Open;
end;

procedure TThreadQuery.Execute;{ 执行线程的方法 }
begin
try
Synchronize(DisConnectDataSource);
Synchronize(Open);
finally
Synchronize(ConnectDataSource);{ 线程同步 }
end;
end;

{ 线程构造器 }
constructor TThreadQuery.Create(Query: TDataSet);
begin
FDataSet := Query;

inherited Create(True);
FreeOnTerminate := False;
end;

[qiume]

在三层系统中，要实现多线程查询，客户端和服务器就要实现，具体可以看《DELPHI 5.X 多层分布式应用系统篇》。