FIREDAC可以自定义sqlite的函数，方法如下：

首先需要一个控件：TFDSQLiteFunction，其设置如下：

sqlFunction.DriverLink := FDPhysSQLiteDriverLink1;
sqlFunction.FunctionName := 'StockPrice';//设置函数名
sqlFunction.ArgumentsCount := 2;//设置参数个数
sqlFunction.Active := True;
sqlFunction.OnCalculate := sqlFunctionCalculate;//设置函数运行时执行的子程序名

子程序的例子代码如下：

procedure TfrmGettingStarted.sqlFunctionCalculate(AFunc: TSQLiteFunction;
  AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);
begin
  AOutput.AsCurrency := AInputs[0].AsCurrency * AInputs[1].AsInteger;
end;

就是设置输出的值为输入值的计算方式。

通过以上设置后，sql语句就可以设置如下：

select *,StockPrice(UnitPrice, UnitsInStock) as StockCost
from Products

 

原文地址：http://www.cnblogs.com/luohq001/p/16914123.html

1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！ 2. 分享目的仅供大家学习和交流，请务用于商业用途! 3. 如果你也有好源码或者教程，可以到用户中心发布，分享有积分奖励和额外收入！ 4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！ 5. 如有链接无法下载、失效或广告，请联系管理员处理！ 6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！ 7. 如遇到加密压缩包，默认解压密码为"gltf",如遇到无法解压的请联系管理员！ 8. 因为资源和程序源码均为可复制品，所以不支持任何理由的退款兑现，请斟酌后支付下载 声明：如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性