TynSerial序列（还原）TClientDataSet

Posted 2021-12-19 hnxxcxg

TynSerial序列（还原）TClientDataSet

可以一次性序列（还原）多个TClientDataSet。

1）TClientDataSet查询数据

procedure TForm1.Qrys(accountno, sql, sql2: string; DataSet, DataSet2: TClientDataSet);
// TClientDataSet主从表查询
var
  url: SockString;
  i: integer;
  serial: TynSerial;
begin
  serial := TynSerial.Create;
  try
    url := ‘querys2‘;
    serial.WriteString(‘accountno‘, accountno);   // 帐套号
    serial.WriteString(‘sql‘, sql);               // 查询SQL
    serial.WriteString(‘sql2‘, sql2);
    i := FHttp.Post(url, serial.Text, FDataType);   // http post
    if i = 200 then
    begin
      serial.Text := FHttp.Content;
      serial.ReadClientDataSet(‘dataset‘, DataSet);   // 还原一
      serial.ReadClientDataSet(‘dataset2‘, DataSet2); // 还原二
    end
    else
      ShowMessage(IntToStr(i) + ‘ error‘);
  finally
    serial.Free;
  end;
end;

2）TClientDataSet提交数据

function TForm1.Save(accountno, tablename: string; dataset: TClientDataSet): string;
// clientDataSet提交
var
  url: SockString;
  i: Integer;
  serial: TynSerial;
begin
  serial := TynSerial.Create;
  try
    url := ‘save‘;
    serial.WriteString(‘accountno‘, accountno);
    serial.WriteString(‘tablename‘, tablename);
    serial.WriteDelta(‘delta‘, dataset);
    i := FHttp.Post(url, serial.Text, FDataType);
    if i = 200 then
    begin
      serial.Text := FHttp.Content;
      if serial.ReadBool(‘result‘) then
        dataset.MergeChangeLog;
    end
    else
      ShowMessage(i.ToString + ‘ error‘);
  finally
    serial.Free;
  end;
end;