生产 数据库中 存储过程＋参数＋类型

select  case  b.colid  when  1  then  '<存储过程名称>'+a.name  else  '            '  end+' 
           <参数  参数名称="'+b.name 
           +'"  参数类型="'+c.name 
           +case  when  c.name  in  ('binary','char','nchar','nvarchar','varbinary','varchar','float','real') 
                         then  '('+cast(b.prec  as  varchar)+')' 
                         when  c.name  in  ('decimal','numeric') 
                         then  '('+cast(b.prec  as  varchar)+','+cast(b.scale  as  varchar)+')' 
                       else  ''  end+'"></参数>' 
           +case  b.colid  when  (select  max(colid)  from  syscolumns  where  id=a.id) 
                       then  ' 
</存储过程名称>'  else  ''  end 
from  sysobjects  a   
           join  syscolumns  b  on  a.id=b.id 
           join  systypes  c  on  b.xusertype=c.xusertype 
where  a.xtype='P'  and  a.status>=0 
order  by  a.name,b.colid