zoukankan      html  css  js  c++  java
  • TynSerial序列(还原)TFDMemTable

    TynSerial序列(还原)TFDMemTable

    1)TFDMemTable查询数据

    procedure TForm1.Qrys(accountno, sql, sql2: string; DataSet, DataSet2: TFDMemTable);
    // TFDMemTable主从表查询
    var
      url: SockString;
      i: integer;
      serial: TynSerial;
    begin
      serial := TynSerial.Create;
      try
        url := 'querys';
        serial.WriteString('accountno', accountno);
        serial.WriteString('sql', sql);
        serial.WriteString('sql2', sql2);
        i := FHttp.Post(url, serial.Text, FDataType);
        if i = 200 then
        begin
          serial.Text := FHttp.Content;
          serial.ReadFDDataSet('dataset', DataSet);
          serial.ReadFDDataSet('dataset2', DataSet2);
        end
        else
          ShowMessage(i.ToString + ' error');
      finally
        serial.Free;
      end;
    end;
    

     2) TFDMemTable提交数据

    function TForm1.Save(accountno, tablename: string; dataset: TFDMemTable): string;
    // TFDMemTable提交
    var
      url: SockString;
      i: Integer;
      serial: TynSerial;
    begin
      serial := TynSerial.Create;
      try
        url := 'save2';
        serial.WriteString('accountno', accountno);
        serial.WriteString('tablename', tablename);
        serial.WriteFDDelta('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
          else
            ShowMessage('提交失败');
        end
        else
          ShowMessage(i.ToString + ' error');
      finally
        serial.Free;
      end;
    end;
    

      

  • 相关阅读:
    appium启动android和iOS真机
    文本编辑器Sublime Text 3 -mac版简体中文汉化教程
    Navicat Premium Mac 安装
    mac下安装jmeter
    Pycharm 配置git
    mac下jdk安装配置
    WebDriverAgentRunner安装成功后build的常见报错
    WebDriverAgent入门篇-安装和使用
    macOS升级
    Bash on windows从14.0升级到ubuntu16.04
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/10972396.html
Copyright © 2011-2022 走看看