5,402
社区成员
发帖
与我相关
我的任务
分享是TCustomSQLDataSet的错吗?
Delphi文档，
ISQLCursor.getColumnPrecision
Description
... ...
Column type Meaning of precision
---------------- ----------------------------------------------
... ... ... ...
fldBCD Number of significant digits in the BCD values.
(Note that the number of decimal places is returned
by the getColumnScale method.)
... ... ... ...
但是SqlExpr单元中的
TCustomSQLDataSet.AddFieldDesc(...)中的代码却是
....
with FieldDesc do
begin
...
if iFldType in [fldFMTBCD, fldBCD] then
begin
iUnits2 := Abs(iUnits2);
if iUnits1 < iUnits2 then // iUnits1 indicates Oracle
//'usable decimals'
iUnits1 := iUnits2;
// ftBCD supports only up to 18-4. If Prec > 14 or Scale > 4,
//make FMTBcd
if (iUnits1 > (MaxBcdPrecision-4)) //!!这里only up to 14位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
begin
FType := ftFMTBcd;
iFldType := fldFMTBCD;
if (iUnits1 = 38) and (iUnits2 in [0,38]) then
begin
iUnits1 := 32;
iUnits2 := 8;
end;
if iUnits1 > MaxFMTBcdDigits then
iUnits1 := MaxFMTBcdDigits;
end;
end;
end;
当我在数据库声明一个字段为numeric(18,4)时，驱动程序装载为
getColumnPrecision返回18，也就是precision为18
getColumnScale返回4，
我印象中currency可以处理numeric(18,4)类型的字段，
基于时间和空间性能上的考虑，
本来应该为我创建ftBcd也就是Currency类型的字段，
但是却因为这段代码，使得我的字段变成ftFmtBcd字段
我觉得
if (iUnits1 > (MaxBcdPrecision-4)) //!!这里only up to 14位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
这一句应该为
if (iUnits1 > MaxBcdPrecision) //!!这里only up to 18位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
不知道大家认为如何，大家发表意见啊
ISQLCursor.getColumnPrecision
Description
... ...
Column type Meaning of precision
---------------- ----------------------------------------------
... ... ... ...
fldBCD Number of significant digits in the BCD values.
(Note that the number of decimal places is returned
by the getColumnScale method.)
... ... ... ...
但是SqlExpr单元中的
TCustomSQLDataSet.AddFieldDesc(...)中的代码却是
....
with FieldDesc do
begin
...
if iFldType in [fldFMTBCD, fldBCD] then
begin
iUnits2 := Abs(iUnits2);
if iUnits1 < iUnits2 then // iUnits1 indicates Oracle
//'usable decimals'
iUnits1 := iUnits2;
// ftBCD supports only up to 18-4. If Prec > 14 or Scale > 4,
//make FMTBcd
if (iUnits1 > (MaxBcdPrecision-4)) //!!这里only up to 14位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
begin
FType := ftFMTBcd;
iFldType := fldFMTBCD;
if (iUnits1 = 38) and (iUnits2 in [0,38]) then
begin
iUnits1 := 32;
iUnits2 := 8;
end;
if iUnits1 > MaxFMTBcdDigits then
iUnits1 := MaxFMTBcdDigits;
end;
end;
end;
当我在数据库声明一个字段为numeric(18,4)时，驱动程序装载为
getColumnPrecision返回18，也就是precision为18
getColumnScale返回4，
我印象中currency可以处理numeric(18,4)类型的字段，
基于时间和空间性能上的考虑，
本来应该为我创建ftBcd也就是Currency类型的字段，
但是却因为这段代码，使得我的字段变成ftFmtBcd字段
我觉得
if (iUnits1 > (MaxBcdPrecision-4)) //!!这里only up to 14位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
这一句应该为
if (iUnits1 > MaxBcdPrecision) //!!这里only up to 18位
or (iUnits2 > MaxBcdScale)
or FNumericMapping then
不知道大家认为如何，大家发表意见啊
...全文
请发表友善的回复…
发表回复
menggirl 2004-04-08
- 打赏
- 举报
能查出Delphi的Bug来？真是厉害，
ttzzj 2004-04-08
- 打赏
- 举报
报告委员长，我UP了两个帖！
alphax 2004-04-08
- 打赏
- 举报
师座，卑职以为，
看贴不up贴，委员长会不高兴的
看贴不up贴，委员长会不高兴的
alphax 2004-04-07
- 打赏
- 举报
alphax 2004-04-07
- 打赏
- 举报
谢谢核桃兄弟
aiirii 2004-04-06
- 打赏
- 举报
不是很懂, 先參與
alphax 2004-04-06
- 打赏
- 举报
我又测了一下，ADODataSet也是把numeric(18,4)的类型映射为currency的
alphax 2004-04-06
- 打赏
- 举报
Currency的有效数字可以达到19位，完全表示numeric(18,4)的数
至少TIBCustomDataSet也是这么干的，它把numeric(18,4)的类型映射为currency字段
我也测试了，用下面的值
-922337203685477.5808
922337203685477.5807
写入一个numeric(18,4)类型的字段
然后关闭再打开再读出得出正确的结果
至少TIBCustomDataSet也是这么干的，它把numeric(18,4)的类型映射为currency字段
我也测试了，用下面的值
-922337203685477.5808
922337203685477.5807
写入一个numeric(18,4)类型的字段
然后关闭再打开再读出得出正确的结果
hthunter 2004-04-06
- 打赏
- 举报
那就再up一下，呵呵
alphax 2004-04-06
- 打赏
- 举报
没人用dbexpress?
帮忙up一下也好
帮忙up一下也好
alphax 2004-04-06
- 打赏
- 举报
yczyk 2004-04-06
- 打赏
- 举报
能查出Delphi的Bug来？真是厉害，不过据我所知BCD字段只在BDE里会产生数据精度问题。所以在BDE里就有这么一个所选：EnableBCD。呵呵，其他的看不懂！
alphax 2004-04-06
- 打赏
- 举报
hunterht 2004-04-05
- 打赏
- 举报
我印象中currency可以处理numeric(18,4)类型的字段，
****************
到底是否如你所说，用实际数据测试一下不就知道结果了？
****************
到底是否如你所说，用实际数据测试一下不就知道结果了？
