错误分析： 因为查询结果是 Null ， Null 值无法写入数据库引起的错误，
修改方式： Value 改成 asCurrency , 如果查询结果Null 将自动变成 0
解决办法2：（没有试过）
查找原因 ，原来 在Delphi ->tool -> debugger options 中的integeated debugging 不勾选，就可以了
