在三层构架中用TClientDataSet来更新数据库时，怎么就只能更新一条记录吗？

riccdw421 2007-08-07 03:16:32

本人通过TClientDataSet来更新数据库时，怎么就只能更新一条记录
当我更新两条记录时。出现“Cannot Perform this operation on a closed dataset”
客户端我是采用DCOM来联接RemoteDataModule
客户端代码如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientDataSet1.Append; //添加记录
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

ClientDataSet1.Delete ;//删除记录

end;

procedure TForm1.Button4Click(Sender: TObject);
//提交数据更新
begin
ClientDataSet1.CheckBrowseMode();
ClientDataSet1.ApplyUpdates(-1);
end;
服务端处理：
procedure TGP40CommData.ProProduceCostBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
var str1:string;
begin

//----分为插入、删除、更新改变记录---
if UpdateKind = ukInsert then
begin
str1:='insert into ProduceCost (ProdID,StapID,StapAmount) values(';
str1:=str1+''''+DeltaDS.FieldByName('ProdID').Text+''',';
str1:=str1+''''+DeltaDS.FieldByName('StapID').Text+''',';
str1:=str1+''''+DeltaDS.FieldByName('StapAmount').Text+''')';
end;
if UpdateKind=ukDelete then
begin
str1:='delete from ProduceCost where pcid='''+SourceDS.FieldByName('PCID').Text+''' ';
end;
if UpdateKind=ukModify then
begin
str1:='update ProduceCost set stapAmount=';
str1:=str1+DeltaDS.FieldByName('stapamount').Text;
str1:=str1+' where pcid = '''+SourceDS.FieldByName('pcid').Text+''' ';
end;
//ProduceCost.Close; //这句要不要都出现问题
ProduceCost.SQL.Clear();
ProduceCost.SQL.Add(str1);
ProduceCost.ExecSQL;
Applied:=true;
end;
不知道这样子用本来就是错的，还是另有原因，还请各位帮帮忙。。。。。。

...全文