如何显示DBF数据库的字段属性？(100分)

如题，就像在Delphi的Database Desktop软件中显示一个DBF文件的字段属性
（FieldName、Type、Size、Dec）

Query1.Fields[0].DataType

TField.DateType/datasoze 等等

请教:如何得到数值型数据的宽度和小数点的位数?

如果是SQL SERVER,那么这些信息在syscolumns,sysobjects和systypes表中.
用以下SQL语句可以得到用户表的字段信息:

select 字段名称=c.name,
字段长度=c.length,
显示长度=c.xprec,
字段小数位=c.scale,
字段类型=t.name,
所属表名=o.name
from syscolumns as c,sysobjects as o,systypes as t
where c.id = o.id and o.xtype='U' and t.xtype=c.xtype
更深入的东东查SQL SERVER的books online(就输入syscolumns,sysobjects或者systypes
就可以了).

还可以

FFieldCount := ADOQuery_Access.FieldCount; //字段数
ADOQuery_Access.GetFieldNames(strFieldname); //字段名字
FFieldList.Clear;
for i := 0 to FFieldCount-1 do
begin
strFieldtype := ADOQuery_Access.Fields.Fields.DataType; //字段类型
strFieldsize := ADOQuery_Access.Fields.Fields.DisplayWidth; //字段长度
end;