需要引用单元：FireGobalHelp

返回数据集：

const

   vSql: string = 'select *   from dKeCheng ';

Var

lDataSet: TFDMemTable;

lErrMsg: string;

if Gobal_Help.ZTManage.OpenDataFast(lDataSet, 'Erp', vSql, [], lErrMsg) then

            begin

            //返回数据集成功

            end;

其中第一个参数为：内存表

第二个参数为：账套代码

第三个参数为：SQL语句

第四个参数为：Sql语句需要的Param的值

第五个参数为：返回的错误信息

保存数据集：

if not Gobal_Help.ZTManage.SaveDataFast(lDataSet, 'Erp', vSql, 'dKeChengPayLog', 'Id', lErrMsg) then

              begin

                vResultCode := 0;

                vResultMsg := lErrMsg;

              end;