DELPHI WEB SERVICE 多表提交的事务管理

本文整理自网络，侵删。

 
我自己的测试代码，服务器端做一个接口方法，客户端调用该方法。2个表的 Delta，写死：（也就是直接用 ADeltas[0] 这样就可以把数组元素读出来）。以下方法是写死的，但可以写成一个通用方法，服务器端通过表名，找到对应的ClientDataSet来提交。

客户端：Intf.SaveItems(VarArrayOf([ClientDataSet1.Delta, ClientDataSet2.Delta]));

服务器端：

procedure TTestItems.SaveItems(ADeltas: Variant);
var
  D1, D2: Variant;
begin
  //测试服务器端事务
  D1 := ADeltas[0];
  D2 := ADeltas[1];


  ClientDataSet1.Data := D1;
  ClientDataSet2.Data := D2;


  //todo: 开始事务
  if ClientDataSet1.ApplyUpdates(0)>0 then raise Exception.Create('提交失败');

  if ClientDataSet2.ApplyUpdates(0)>0 then raise Exception.Create('提交失败');
  //todo: 结束事务
end;


-------------


通用提交：以下代码测试通过
客户端：Intf.SaveItems(VarArrayOf(['ITEMS', 'Items_Content']),  VarArrayOf([ClientDataSet1.Delta, ClientDataSet2.Delta]), 2);
服务器端：
procedure TTestItems.SaveItems(TbNames, ADeltas: Variant; TbCount: Integer);
var
  D1: Variant;
  Tb1: string;
  i: Integer;
  Cld: TClientDataSet;
begin


//todo: 开始事务
  for i := 0 to TbCount - 1 do
  begin
    Cld := Self.GetCldByTb(TbNames[i]);
    Cld.Data := ADeltas[i];
    if Cld.ApplyUpdates(0) > 0 then raise Exception.Create('提交失败');
  end;
  //todo: 结束事务


end;
――――――――――――――――
原文链接：https://blog.csdn.net/pcplayer/article/details/69375807
 

相关阅读 >>

Delphi编程实现sql server挂起清除

Delphi异常处理try except语句和try finally语句用法以及区别

Delphi 获取当前进程的父进程

Delphi通过窗口标题结束指定进程函数

Delphi 内存管理[2-3]

Delphi 子界判断的举例

unigui js操作Delphi控件赋值

Delphi cxgrid应用笔记

Delphi 弹出带黄色感叹号对话框提醒

Delphi 提取字符串左侧内容

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI WEB SERVICE 多表提交的事务管理