遇到一奇怪有关问题

遇到一奇怪问题
var
    wF:Double;
    ADataSet:TADODataSet;
begin
    ADataSet:=TADODataSet.Create(self);
    wF:=0.0000001;
    //quantity字段是后台数据库中一个表的字段     quantity     decimal(18,7)
    //create   table   table1   (id   int,quantity     decimal(18,7))  
    ADataSet.CommandType:=cmdText;
    ADataSet.CommandText:= 'select   *   from   table1 ';
    ADataSet.Edit;
    ADataSet[ 'id ']   :=   1;
    ADataSet[ 'quantity ']   :=wF;
    ADataSet.Post;
end;
为什么quantity不能超过四位小数.当wF的小数位超过四位小数时,会自动截断后几位小数,这是哪里出错?

[解决办法]
你数据库 里定义的字段 就是只有 4位吧~