create proc pGetDbDict
as
select 表名=d.name, h.[value] AS 表说明,
字段序号=a.colorder,
字段名=a.name,
字段说明=isnull(g.[value],''),
标识=case when columnproperty( a.id,a.name,'isidentity')=1 then '√'else '' end,
主键=case when exists(select 1 from sysobjects where xtype='pk' and name
in ( select name from sysindexes where indid
in( select indid from sysindexkeys where id = a.id and colid=a.colid )))
then '√' else '' end,
类型=b.name,
--占用字节数=a.length,
长度=columnproperty(a.id,a.name,'precision'),
小数位数=isnull(columnproperty(a.id,a.name,'scale'),0),
允许空=case when a.isnullable=1 then '√'else '' end,
默认值=isnull(e.text,'')
from syscolumns a left join systypes b on a.xtype=b.xusertype inner join sysobjects d on a.id=d.id
and d.xtype='u' and d.name<>'dtproperties'
left join syscomments e on a.cdefault=e.id left join sysproperties g on a.id=g.id
and a.colid=g.smallid
left join sysproperties h on (h.id=d.id and h.smallid=0)
--where d.name='tabuser'
order by a.id,a.colorder

--exec pGetDbDict