解决UniQuery参数不能带“点”

            // 对SQL语句参数标识符替换hz.dwbh >hz$dwbh  
            for J := 0 to FParams.Count-1 do
            begin
             aa := StringReplace(FParams[J].Name, '.', '$', [rfReplaceAll,rfIgnoreCase]);
             SQL.Text := StringReplace(SQL.Text, FParams[J].Name, aa, [rfReplaceAll,rfIgnoreCase]);
            end;
               //对替换后的参数赋值  
            for J := 0 to Params.Count-1 do
            begin
                if TUniParam(FParams.FindParam(Params[J].Name)) <> nil then
                  begin
                     Params[J].Value := FParams.FindParam(Params[J].Name).Value;
                  end else
                  begin
                     aa := StringReplace(Params[J].Name, '$', '.', [rfReplaceAll,rfIgnoreCase]);
                     if TUniParam(FParams.FindParam(aa)) <> nil then
                     begin
                        Params[J].Value := FParams.FindParam(aa).Value;
                     end;
                  end;
            end;