基于咏南中间件远程方法接口如此简单而统一
跨平台,支持WIN32WIN64IOSMACANDROIDLINUX
数据查询接口:
支持任意多个表的数据查询。
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;
如上所示,不论多少个表的数据查询,统统只需要一个查询接口;不论多少个表的数据提交,统统只需要一个提交接口。