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

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

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

数据查询接口：

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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;

　　数据提交接口：

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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;

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