送写毕业设计同学一个自动生成数据字典的方法

SELECT
        (case when a.colorder=1 then '</table>' + d.name+
'<table border="0" cellspacing="0" cellpadding="0" >'+
'<tr><td>字段名</td><td>类型</td><td>允许空</td></tr><tr><td>'
 else '<tr><td>' end)表名,
--'</td><td>',
      --  a.colorder 字段序号,
       a.name 字段名,
'</td><td>',
     b.name 类型,'</td><td>',
       (case when a.isnullable=1 then '√'else 'no' end) 允许空,
'</td></tr>'

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 sys.extended_properties g
on a.id=g.major_id AND a.colid = g.major_id
order by a.id,a.colorder