????????????????????????????????????????????????????????????????????????????????????????????????????????????
?????洢?????
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:        <Carbe>
-- Create date: <2014-09-19>
-- Description:    <????????????>
-- =============================================
CREATE PROCEDURE [dbo].[CreateDatabaseDictionarie]
AS
BEGIN
DECLARE @TableName nvarchar(35)??@htmls varchar(8000)
DECLARE @??????? VARCHAR(200)
DECLARE @????  VARCHAR(200)
DECLARE @???? VARCHAR(200)
DECLARE @??????? VARCHAR(200)
DECLARE @С??λ?? VARCHAR(200)
DECLARE @???? VARCHAR(200)
DECLARE @??????? VARCHAR(200)
DECLARE @??? VARCHAR(200)
DECLARE @???? VARCHAR(200)
DECLARE @???? VARCHAR(200)
SET NOCOUNT ON;
DECLARE Tbls CURSOR
FOR
Select distinct Table_name
FROM INFORMATION_SCHEMA.COLUMNS
order by Table_name
OPEN Tbls
PRINT '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
PRINT '<html xmlns="http://www.w3.org/1999/xhtml">'
PRINT '    <head>'
PRINT '        <title>KC??????-????????</title>'
PRINT '        <style type="text/css">'
PRINT '            body{margin:0; font:11pt "arial"?? "??????"; cursor:default;}'
PRINT '            .tableBox{margin:10px auto; padding:0px; width:1000px; height:auto; background:#FBF5E3; border:1px solid #45360A}'
PRINT '            .tableBox h3 {font-size:12pt; height:30px; line-height:30px; background:#45360A; padding:0px 0px 0px 15px; color:#FFF; margin:0px; text-align:left }'
PRINT '            .tableBox table {width:1000px; padding:0px }'
PRINT '            .tableBox th {height:25px; border-top:1px solid #FFF; border-left:1px solid #FFF; background:#F7EBC8; border-right:1px solid #E0C889; border-bottom:1px solid #E0C889 }'
PRINT '            .tableBox td {height:25px; padding-left:10px; border-top:1px solid #FFF; border-left:1px solid #FFF; border-right:1px solid #E0C889; border-bottom:1px solid #E0C889 }'
PRINT '        </style>'
PRINT '    </head>'
PRINT '    <body>'
FETCH NEXT FROM Tbls INTO @TableName
WHILE @@FETCH_STATUS = 0
BEGIN
Select @htmls = '        <h3>' + @TableName + ' : '+ CAST(Value as varchar(1000)) + '</h3>'
FROM sys.extended_properties AS A
WHERE A.major_id = OBJECT_ID(@TableName)
and name = 'MS_Description' and minor_id = 0
PRINT '        <div class="tableBox">'
PRINT @htmls
PRINT '            <table cellspacing="0">'
PRINT '                <tr>'
PRINT '                    <th>???????</th>'
PRINT '                    <th>????</th>'
PRINT '                    <th>????</th>'
PRINT '                    <th>???????</th>'
PRINT '                    <th>С??λ??</th>'
PRINT '                    <th>????</th>'
PRINT '                    <th>???????</th>'
PRINT '                    <th>???</th>'
PRINT '                    <th>????</th>'
PRINT '                    <th>????</th>'
PRINT '                </tr>'
DECLARE TRows CURSOR
FOR
SELECT
'                    <td>' + CAST(clmns.name AS VARCHAR(35)) + '</td>'??
'                    <td>' + CAST(udt.name AS CHAR(15)) + '</td>' ??
'                    <td>' + CAST(CAST(CASE WHEN typ.name IN (N'nchar'?? N'nvarchar') AND clmns.max_length <> -1 THEN clmns.max_length/2 ELSE clmns.max_length END AS INT) AS VARCHAR(20)) + '</td>'??
'                    <td>' + CAST(CAST(clmns.precision AS INT) AS VARCHAR(20)) + '</td>'??
'                    <td>' + CAST(CAST(clmns.scale AS INT) AS VARCHAR(20)) + '</td>'??
'                    <td>' + isnull(CAST(cnstr.definition AS VARCHAR(20))??'') + '</td>'??
'                    <td>' + CAST(clmns.is_nullable AS VARCHAR(20)) + '</td>' ??
'                    <td>' + CAST(clmns.is_computed AS VARCHAR(20)) + '</td>' ??
'                    <td>' + CAST(clmns.is_identity AS VARCHAR(20)) + '</td>' ??
'                    <td>' + ISNULL(CAST(exprop.value AS VARCHAR(500))??'') + '</td>'
FROM sys.tables AS tbl
INNER JOIN sys.all_columns AS clmns ON clmns.object_id=tbl.object_id
LEFT OUTER JOIN sys.indexes AS idx ON idx.object_id = clmns.object_id AND 1 =idx.is_primary_key
LEFT OUTER JOIN sys.index_columns AS idxcol ON idxcol.index_id = idx.index_id AND idxcol.column_id = clmns.column_id AND idxcol.object_id = clmns.object_id AND 0 = idxcol.is_included_column
LEFT OUTER JOIN sys.types AS udt ON udt.user_type_id = clmns.user_type_id
LEFT OUTER JOIN sys.types AS typ ON typ.user_type_id = clmns.system_type_id AND typ.user_type_id = typ.system_type_id
LEFT JOIN sys.default_constraints AS cnstr ON cnstr.object_id=clmns.default_object_id
LEFT OUTER JOIN sys.extended_properties exprop ON exprop.major_id = clmns.object_id AND exprop.minor_id = clmns.column_id AND exprop.name = 'MS_Description'
WHERE (tbl.name = @TableName and exprop.class = 1) --I don't wand to include comments on indexes
ORDER BY clmns.column_id ASC
OPEN TRows
FETCH NEXT FROM TRows INTO @????????@?????@?????@????????@С??λ????@??????@????????@?????@??????@????
WHILE @@FETCH_STATUS = 0
BEGIN
PRINT '                <tr>'
PRINT @???????
PRINT @????
PRINT @????
PRINT @???????
PRINT @С??λ??
PRINT @????
PRINT @???????
PRINT @???
PRINT @????
PRINT @????
PRINT '                </tr>'
FETCH NEXT FROM TRows INTO @????????@?????@?????@????????@С??λ????@??????@????????@?????@??????@????
END
CLOSE TRows
DEALLOCATE TRows
PRINT '            </table>'
PRINT '        </div>'
FETCH NEXT FROM Tbls INTO @TableName
END
PRINT '    </body>'
PRINT '</html>'
CLOSE Tbls
DEALLOCATE Tbls
END