Delphi XE7 基于FirDAC三层架构下的更新语句执行。

使用云露客户端的架构，通过TUpdateFDData 可以实现向后台发送SQL语句的功能，通过发送SQL语句来执行对应的操作。。通过这样的更新类来执行SQL语句，是不是很简单呢？

源代码如下：

var
  FUpdateFDData: TUpdateFDData;
  i: integer;
  stlList :TStringList;
begin
  inherited;
  FUpdateFDData := TUpdateFDData.Create;
  stlList :=TStringList.Create;
  try
    FUpdateFDData.DataBaseName := 'HY_DT';     //数据库名
    FUpdateFDData.Url := FSYSINFO.sURL;             //中间件地址
    FUpdateFDData.SqlText := 'Update tb_cardinfo SET sXM=:sXM Where sKH=:sKH';   //发送的SQL语句
    stlList.Add('sXM='+edtXM1.Text);  // 参数 :sXM的值
    stlList.Add('sKH=12332112');  // 参数 :sKH的值
    FUpdateFDData.Param:=stlList.Text;  // 参数的入参
    if FUpdateFDData.ExecSQL <> 0 then
    begin
      ErrorBox(FUpdateFDData.GetErrorInfo);
      exit;
    end;
    MsBox('更新成功！');
  finally
    FUpdateFDData.Free;
    stlList.Free;
  end;