基于咏南中间件远程方法接口如此简单而统一

基于咏南中间件远程方法接口如此简单而统一

跨平台，支持WIN32\WIN64\IOS\MAC\ANDROID\LINUX

数据查询接口：

支持任意多个表的数据查询。

procedure TForm1.btnQueryClick(Sender: TObject);
// 主从表 查询
begin
  Self.ConnectServer;
  var serial: TynSerial := TynSerial.Create;
  var m: TServerMethods1Client := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
  try
    serial.WriteInteger('count', 2);                         // 表的数量
    serial.WriteString('accountno', '1');                    // 数据库帐套号
    serial.WriteString('sql', 'select * from tgoods');       // 查询语句一
    serial.WriteString('sql2', 'select * from tunit');       // 查询语句二
    serial.Text := m.Query99(serial.Text);                   // 调用远程接口
    serial.ReadFDDataSet('dataset', FDMemTable1);            // 主表
    serial.ReadFDDataSet('dataset2', FDMemTable2);           // 从表
  finally
    serial.DisposeOf;
    m.DisposeOf;
    SQLConnection1.Close;
  end;
end;

　　数据提交接口：

支持任意多个表的数据提交。

procedure TForm1.btnPostClick(Sender: TObject);
// 主从表 提交
begin
  Self.ConnectServer;
  var serial: TynSerial := TynSerial.Create;
  var m: TServerMethods1Client := TServerMethods1Client.Create(SQLConnection1.DBXConnection);
  try
    serial.WriteInteger('count', 2);               // 表的数量
    serial.WriteString('accountno', '1');          // 数据库帐套号
    serial.WriteString('tablename', 'tgoods');     // 表名一
    serial.WriteString('tablename2', 'tunit');     // 表名二
    serial.WriteFDDelta('delta', FDMemTable1);     // 修改数据一
    serial.WriteFDDelta('delta2', FDMemTable2);    // 修改数据二
    if m.Save99(serial.Text) then                  // 调用远程接口
      ShowMessage('数据提交成功')
    else
      ShowMessage('数据提交失败');
  finally
    serial.DisposeOf;
    m.DisposeOf;
    SQLConnection1.Close;
  end;
end;

　　如上所示，不论多少个表的数据查询，统统只需要一个查询接口；不论多少个表的数据提交，统统只需要一个提交接口。