数据库管理脚本
/****** Object: Schema [DBAdmin] Script Date: 02/28/2012 15:50:56 ******/
CREATE SCHEMA [DBAdmin] AUTHORIZATION [dbo]
GO
CREATE TABLE [DBAdmin].[_Doing_DDL_Log](
[PostTime] [datetime] NULL,
[DB] [varchar](100) NULL,
[DB_User] [nvarchar](100) NULL,
[Event] [nvarchar](100) NULL,
[TSQL] [nvarchar](4000) NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'提交时间' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log', @level2type=N'COLUMN',@level2name=N'PostTime'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'操作库' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log', @level2type=N'COLUMN',@level2name=N'DB'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'操作用户' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log', @level2type=N'COLUMN',@level2name=N'DB_User'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'操作事件类型' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log', @level2type=N'COLUMN',@level2name=N'Event'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'使用语句' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log', @level2type=N'COLUMN',@level2name=N'TSQL'
GO
EXEC sys.sp_addextendedproperty @name=N'存储对象', @value=N'简易记录几个关键库的DDL操作记录，用于查看库中对象的增删改情况，通过这几个库的数据库触发器自动写入' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log'
GO
EXEC sys.sp_addextendedproperty @name=N'中文名', @value=N'记录表：DDL操作' , @level0type=N'SCHEMA',@level0name=N'DBAdmin', @level1type=N'TABLE',@level1name=N'_Doing_DDL_Log'
GO
CREATE CLUSTERED INDEX [idx__Doing_DDL_Log] ON [DBAdmin].[_Doing_DDL_Log]
(
[PostTime] DESC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
CREATE NONCLUSTERED INDEX [idx__Doing_DDL_Log_2] ON [DBAdmin].[_Doing_DDL_Log]
(
[DB] ASC,
[Event] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
CREATE function [DBAdmin].[F_Spaceused] --- 2003/05/19 14:00
(@objname nvarchar(776)
)
returns @tmp
table(name varchar(50),rows int,reserved varchar(50),data varchar(50),indx_size varchar(50),
unused varchar(50))
as
begin
declare @id int
,@type character(2)
,@pages bigint
,@dbname sysname
,@dbsize bigint
,@logsize bigint
,@reservedpages bigint
,@usedpages bigint
,@rowCount bigint
if @objname IS NOT NULL
begin
select @dbname = parsename(@objname, 3)
SELECT @id = object_id, @type = type FROM sys.objects (readpast) WHERE object_id = object_id(@objname)
IF @type = 'SQ'
SELECT @id = object_id FROM sys.internal_tables (readpast) WHERE parent_id = @id and internal_type = 201 --ITT_ServiceQueue
end
SELECT
@reservedpages = SUM (reserved_page_count),
@usedpages = SUM (used_page_count),
@pages = SUM (
CASE
WHEN (index_id < 2) THEN (in_row_data_page_count + lob_used_page_count + row_overflow_used_page_count)
ELSE lob_used_page_count + row_overflow_used_page_count
END
),
@rowCount = SUM (
CASE
WHEN (index_id < 2) THEN row_count
ELSE 0
END
)
FROM sys.dm_db_partition_stats (readpast)
WHERE object_id = @id;
IF (SELECT count(*) FROM sys.internal_tables (readpast) WHERE parent_id = @id AND internal_type IN (202,204,211,212,213,214,215,216)) > 0
BEGIN
SELECT
@reservedpages = @reservedpages + sum(reserved_page_count),
@usedpages = @usedpages + sum(used_page_count)
FROM sys.dm_db_partition_stats p (readpast) , sys.internal_tables it (readpast)
WHERE it.parent_id = @id AND it.internal_type IN (202,204,211,212,213,214,215,216) AND p.object_id = it.object_id;
END
insert @tmp
SELECT
name = OBJECT_NAME (@id),
rows = convert (char(11), @rowCount),
reserved = LTRIM (STR (@reservedpages * 8, 15, 0) + ' KB'),
data = LTRIM (STR (@pages * 8, 15, 0) + ' KB'),
index_size = LTRIM (STR ((CASE WHEN @usedpages > @pages THEN (@usedpages - @pages) ELSE 0 END) * 8, 15, 0) + ' KB'),
unused = LTRIM (STR ((CASE WHEN @reservedpages > @usedpages THEN (@reservedpages - @usedpages) ELSE 0 END) * 8, 15, 0) + ' KB')
return
end
GO
CREATE view [DBAdmin].[V_数据字典]
as
SELECT
d.name AS 英文表名,
ISNULL(h.[value], '') AS 中文表名,
ISNULL(j.[value], '') AS 表别名,
ISNULL(i.[value], '') AS 存储对象,
isnull((select rows from DBAdmin.f_spaceused(d.name)),0) as 表数据量,
isnull((select reserved from DBAdmin.f_spaceused(d.name)),'') as 已分配空间,
isnull((select data from DBAdmin.f_spaceused(d.name)),'') as 数据空间,
isnull((select indx_size from DBAdmin.f_spaceused(d.name)),'') as 索引空间,
isnull((select unused from DBAdmin.f_spaceused(d.name)),'') as 未用空间,
a.colorder AS 字段序号, a.name AS 英文列名, ISNULL(g.[value], '') AS 中文列名,
CASE WHEN COLUMNPROPERTY(a.id,
a.name, 'IsIdentity') = 1 THEN '√' ELSE '' END AS 标识列,
CASE WHEN a.isnullable = 1 THEN '√' ELSE '' END AS 允许空,
case when COLUMNPROPERTY(a.id, a.name, 'IsComputed')=1 then '√' else '' end AS 计算列 ,
CASE WHEN EXISTS
(SELECT 1
FROM dbo.sysindexes si (readpast) INNER JOIN
dbo.sysindexkeys sik (readpast) ON si.id = sik.id AND si.indid = sik.indid INNER JOIN
dbo.syscolumns sc (readpast) ON sc.id = sik.id AND sc.colid = sik.colid INNER JOIN
dbo.sysobjects so (readpast) ON so.name = si.name AND so.xtype = 'PK'
WHERE sc.id = a.id AND sc.colid = a.colid) THEN '√' ELSE '' END AS 主键,
isnull((
select top 1 definition
from sys.check_constraints (readpast)
where parent_object_id=d.id and parent_column_id=a.colid
),'') as Check约束,
ISNULL(e.text, '') AS 默认值,
isnull((select top 1 cx.name
from syscolumns ax (readpast) ,sysobjects bx (readpast) ,sysobjects (readpast) cx
where ax.id=bx.id and ax.domain=cx.id
and d.id=bx.id and a.colid=ax.colid ),'') as 绑定规则,
isnull((select top 1 ee.name
from sys.foreign_key_columns aa (readpast) ,
syscolumns bb (readpast) ,
sysobjects cc (readpast) ,
syscolumns dd (readpast) ,
sysobjects ee (readpast)
where aa.parent_column_id=bb.colid
and aa.parent_object_id=cc.id
and bb.id=cc.id
and aa.referenced_column_id=dd.colid
and aa.referenced_object_id=ee.id
and dd.id=ee.id and bb.colid=a.colid and cc.id=d.id),'') as 参照表,
isnull((select top 1 dd.name
from sys.foreign_key_columns aa(readpast),
syscolumns bb (readpast) ,
sysobjects cc (readpast) ,
syscolumns dd (readpast) ,
sysobjects ee (readpast)
where aa.parent_column_id=bb.colid
and aa.parent_object_id=cc.id
and bb.id=cc.id
and aa.referenced_column_id=dd.colid
and aa.referenced_object_id=ee.id
and dd.id=ee.id and bb.colid=a.colid and cc.id=d.id),'') as 参照列,
b.name AS 类型, a.length AS 长度, COLUMNPROPERTY(a.id, a.name, 'PRECISION')
AS 精度, ISNULL(COLUMNPROPERTY(a.id, a.name, 'Scale'), 0) AS 小数位数,
d.crdate AS 创建时间,
CASE WHEN a.colorder = 1 THEN d.refdate ELSE NULL END AS 更改时间
FROM dbo.syscolumns a (readpast) LEFT OUTER JOIN
dbo.systypes b (readpast) ON a.xtype = b.xusertype INNER JOIN
dbo.sysobjects d (readpast) ON a.id = d.id AND d.xtype = 'U' AND
d.name not in ('sysdiagrams') and
d.status >= 0 LEFT OUTER JOIN
dbo.syscomments e (readpast) ON a.cdefault = e.id LEFT OUTER JOIN
sys.extended_properties g (readpast) ON a.id = g.major_id AND a.colid = g.minor_id AND
g.name = 'MS_Description' LEFT OUTER JOIN
sys.extended_properties h (readpast) ON a.id = h.major_id AND 0= h.minor_id AND
h.name = '中文名' LEFT OUTER JOIN
sys.extended_properties i (readpast) ON a.id = i.major_id AND 0= i.minor_id AND
i.name = '存储对象' LEFT OUTER JOIN
sys.extended_properties j (readpast) ON a.id = j.major_id AND 0= j.minor_id AND
j.name = '别名'
GO
Create TRIGGER [TS_Recording_DDL_Logs]
ON DATABASE
FOR DDL_DATABASE_LEVEL_EVENTS
AS
BEGIN
SET ANSI_PADDING ON
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
DECLARE @data XML
SET @data = EVENTDATA()
begin try
INSERT DBAdmin._Doing_DDL_Log
(PostTime, DB,DB_User, Event, TSQL)
VALUES
(GETDATE(), db_name(),
CONVERT(nvarchar(100), CURRENT_USER),
@data.value('(/EVENT_INSTANCE/EventType)[1]', 'nvarchar(100)'),
@data.value('(/EVENT_INSTANCE/TSQLCommand)[1]', 'nvarchar(2000)') ) ;
end try
BEGIN CATCH
END CATCH
SET ANSI_PADDING OFF
SET ANSI_NULLS OFF
SET QUOTED_IDENTIFIER OFF
END
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
DISABLE TRIGGER [TS_Recording_DDL_Logs] ON DATABASE
GO
ENABLE TRIGGER [TS_Recording_DDL_Logs] ON DATABASE
GO
alter view [DBAdmin].[V_数据字典]
as
SELECT
d.name AS 英文表名,
ISNULL(h.[value], '') AS 中文表名,
ISNULL(j.[value], '') AS 表别名,
ISNULL(i.[value], '') AS 存储对象,
isnull((select rows from DBAdmin.f_spaceused(schema_name(d.uid)+'.'+d.name)),0) as 表数据量,
isnull((select reserved from DBAdmin.f_spaceused(schema_name(d.uid)+'.'+d.name)),'') as 已分配空间,
isnull((select data from DBAdmin.f_spaceused(schema_name(d.uid)+'.'+d.name)),'') as 数据空间,
isnull((select indx_size from DBAdmin.f_spaceused(schema_name(d.uid)+'.'+d.name)),'') as 索引空间,
isnull((select unused from DBAdmin.f_spaceused(schema_name(d.uid)+'.'+d.name)),'') as 未用空间,
a.colorder AS 字段序号, a.name AS 英文列名, ISNULL(g.[value], '') AS 中文列名,
CASE WHEN COLUMNPROPERTY(a.id,
a.name, 'IsIdentity') = 1 THEN '√' ELSE '' END AS 标识列,
CASE WHEN a.isnullable = 1 THEN '√' ELSE '' END AS 允许空,
case when COLUMNPROPERTY(a.id, a.name, 'IsComputed')=1 then '√' else '' end AS 计算列 ,
CASE WHEN EXISTS
(SELECT 1
FROM dbo.sysindexes si (readpast) INNER JOIN
dbo.sysindexkeys sik (readpast) ON si.id = sik.id AND si.indid = sik.indid INNER JOIN
dbo.syscolumns sc (readpast) ON sc.id = sik.id AND sc.colid = sik.colid INNER JOIN
dbo.sysobjects so (readpast) ON so.name = si.name AND so.xtype = 'PK'
WHERE sc.id = a.id AND sc.colid = a.colid) THEN '√' ELSE '' END AS 主键,
isnull((
select top 1 definition
from sys.check_constraints (readpast)
where parent_object_id=d.id and parent_column_id=a.colid
),'') as Check约束,
ISNULL(e.text, '') AS 默认值,
isnull((select top 1 cx.name
from syscolumns ax (readpast) ,sysobjects bx (readpast) ,sysobjects (readpast) cx
where ax.id=bx.id and ax.domain=cx.id
and d.id=bx.id and a.colid=ax.colid ),'') as 绑定规则,
isnull((select top 1 ee.name
from sys.foreign_key_columns aa (readpast) ,
syscolumns bb (readpast) ,
sysobjects cc (readpast) ,
syscolumns dd (readpast) ,
sysobjects ee (readpast)
where aa.parent_column_id=bb.colid
and aa.parent_object_id=cc.id
and bb.id=cc.id
and aa.referenced_column_id=dd.colid
and aa.referenced_object_id=ee.id
and dd.id=ee.id and bb.colid=a.colid and cc.id=d.id),'') as 参照表,
isnull((select top 1 dd.name
from sys.foreign_key_columns aa(readpast),
syscolumns bb (readpast) ,
sysobjects cc (readpast) ,
syscolumns dd (readpast) ,
sysobjects ee (readpast)
where aa.parent_column_id=bb.colid
and aa.parent_object_id=cc.id
and bb.id=cc.id
and aa.referenced_column_id=dd.colid
and aa.referenced_object_id=ee.id
and dd.id=ee.id and bb.colid=a.colid and cc.id=d.id),'') as 参照列,
b.name AS 类型, a.length AS 长度, COLUMNPROPERTY(a.id, a.name, 'PRECISION')
AS 精度, ISNULL(COLUMNPROPERTY(a.id, a.name, 'Scale'), 0) AS 小数位数,
d.crdate AS 创建时间,
CASE WHEN a.colorder = 1 THEN d.refdate ELSE NULL END AS 更改时间
FROM dbo.syscolumns a (readpast) LEFT OUTER JOIN
dbo.systypes b (readpast) ON a.xtype = b.xusertype INNER JOIN
dbo.sysobjects d (readpast) ON a.id = d.id AND d.xtype = 'U' AND
d.name not in ('sysdiagrams') and
d.status >= 0 LEFT OUTER JOIN
dbo.syscomments e (readpast) ON a.cdefault = e.id LEFT OUTER JOIN
sys.extended_properties g (readpast) ON a.id = g.major_id AND a.colid = g.minor_id AND
g.name = 'MS_Description' LEFT OUTER JOIN
sys.extended_properties h (readpast) ON a.id = h.major_id AND 0= h.minor_id AND
h.name = '中文名' LEFT OUTER JOIN
sys.extended_properties i (readpast) ON a.id = i.major_id AND 0= i.minor_id AND
i.name = '存储对象' LEFT OUTER JOIN
sys.extended_properties j (readpast) ON a.id = j.major_id AND 0= j.minor_id AND
j.name = '别名'