清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>
CREATE PROCEDURE prCrosstab
@chrRowHead char(30),/*表示列，在交叉表的结果中作为第一列出现*/
@chrColHead char(30),/*表示列，在交叉表的结果中该列中的数据被变换为新列名称*/
@chrvalue char(30),/*表示列，在该列中执行聚合函数*/
@chrSource char(30),/*源表或视图*/
@inyType tinyint=1,/*1-求和，2-平均值，3-最小值，4-最大值，5-计数*/
@inyGrouping tinyint=0/*1-工作日，2-年内的周数，3-月份，4-季度，5-年份*/
AS
/*过程变量*/
Declare
@chvRow varchar(255),
@chvCol varchar(255),
@chvVal varchar(255),
@chvType varchar(10),
@chvRowType varchar(10),
@chvColType varchar(255),
@chvTemp varchar(255),
@chvColTemp varchar(255),
@chvRowTemp varchar(255),
@intType int,
@intRowType int,
@intColType int,
@chvExec varchar(255),
@chvGroup varchar(255),
@fltTemp float,
@dtmTemp Datetime,
@insR smallint,
@intColumn int,
@intReturn int,
@intTemp int,
@intColNameLen int,
@intMaxRowHead int
Set NoCount On
/*检查数据源是否存在*/
if not Exists
(select * From sysobjects
where name=@chrSource and type in('v','u'))
Begin
Raiserror 51001 '数据源不存在'
Return -1
End
/*检查列是否存在*/
if not Exists
(select sc.name from syscolumns sc
join sysobjects so on sc.id=so.id
where so.name=@chrSource
and sc.name=@chrColHead)
Begin
Raiserror 51002 '无效 @chrColHead 名称'
Return -1
End
if not Exists
(select sc.name from syscolumns sc
join sysobjects so on sc.id=so.id
where so.name=@chrSource
and sc.name=@chrRowHead)
Begin
Raiserror 51002 '无效 @chrRowHead名称'
Return -1
End
if not Exists
(select sc.name from syscolumns sc
join sysobjects so on sc.id=so.id
where so.name=@chrSource
and sc.name=@chrvalue)
Begin
Raiserror 51002 '无效 @chrvalue 名称'
Return -1
End
/*检查聚合函数类型，是否是有效值*/
if @inyType<1 or @inyType>5
Begin
Raiserror 51000 '无效聚合函数类型'
Return -1
End
/*确定聚合函数类型*/
Select @chvType=
Case @inyType
when 1 then 'SUM'
when 2 then 'AVG'
when 3 then 'MAX'
when 4 then 'MIN'
when 5 then 'COUNT'
else 'SUM'
End
/*取得@chrvalue的数据类型*/
Select @chvTemp=t2.name
From sysobjects o
join syscolumns c on (o.id=c.id)
join systypes t1 on (t1.usertype=c.usertype)
join systypes t2 on (t1.type=t2.type)
where t2.usertype<100
and t2.usertype<>18
and t2.usertype<>80
and o.type in ('u','v')
and o.name=@chrSource
and c.name=@chrvalue
/*数据类型分类*/
Select @intTemp=
Case
when @chvTemp in ('int','smallint','tinyint','float','real','decimal','numeric','money','smallmoney') then 1
when @chvTemp in ('datetime','smalldatetime') then 3
when @chvTemp in ('bit','char','varchar') then 5
else 100
End
/*检查数据类型与聚合类型是否匹配*/
if @inyType<@intTemp
Begin
Raiserror 51020 '无效的数据类型 @chrvalue'
Return -1
End
/*转换成合适的数据类型*/
Select @chvColType=Rtrim(
Case @inyType
when 5 then 'int'
else
case
when @chvTemp in ('bit','char','varchar ') then 'int'
when @chvTemp in ('decimal','numeric') then 'float'
else @chvTemp
end
End)
/*确认数据分组是否有效*/
if @inyGrouping<0 or @inyGrouping>5
Begin
Raiserror 51010 '无效的数据分组'
Return -1
End
/*取得@chrColHead列的合法数据类型*/
Select @chvTemp=t2.name
From sysobjects o
join syscolumns c on (o.id=c.id)
join systypes t1 on (t1.usertype=c.usertype)
join systypes t2 on (t1.type=t2.type)
Where t2.usertype<100
and t2.usertype<>18
and t2.usertype<>80
and o.type in ('u','v')
and o.name=@chrSource
and c.name=@chrColHead
if upper(@chvTemp) not in ('CHAR','VARCHAR')
Select @intColType=1
else
Select @intColType=0
/*取得@chrRowHead的合法数据类型*/
Select @chvRowType=t2.name
From sysobjects o
join syscolumns c on (o.id=c.id)
join systypes t1 on (t1.usertype=c.usertype)
join systypes t2 on (t1.type=t2.type)
Where t2.usertype<100
and t2.usertype<>18
and t2.usertype<>80
and o.type in ('u','v')
and o.name=@chrSource
and c.name=@chrRowHead
if upper(@chvRowTemp) not in ('CHAR','VARCHAR')
Select @intRowType=1
else
Select @intRowType=0
/*检查组分类类型*/
Select @intTemp=
Case
when @chvTemp in ('int','smallint','tinyint','float','real','decimal','numeric','money','smallmoney') then 1
when @chvTemp in ('datetime','smalldatetime') then 3
when @chvTemp in ('bit','char','varchar') then 5
else 100
End
/*验证数据类型与日期分组类型的一致性*/
/*将来可扩充成其他数据类型分组*/
if (@intTemp=5 and @inyGrouping>0) or (@intTemp=1 and @inyGrouping>0) or (@intTemp=3 and @inyGrouping=0)
Begin
Raiserror 51030 '分组数据与分组类型不一致'
Return -1
End
/*安全性检查*/
/*此部分以后完成
if user_id()<>1
Begin
if (Select Count(distinct c.name)
From syscolumns c,sysobjects o,sysprotects p,sysusers u,master..spt_values v
Where c.name in (@chrColHead,@chrRowHead,@chrvalue)
*/
/*定义临时表*/
Create Table #colNames(colname varchar(255),colnumber int Null)
Create Table #rownames(rowname varchar(255) null)
/*创建colnames表*/
Select @chvExec='insert #colnames select col1,col2 from'
+'(select distinct col1='+
case @intTemp
when 3 then
case
when @inyGrouping in (1,3) then 'datename('+
case @inyGrouping
when 1 then 'weekday'
when 3 then 'month'
end +','+RTrim(@chrColHead)+')'
else
Case @inyGrouping
when 2 then '''Week'
when 4 then '''quarth'
when 5 then '''year'
end+'_''+'+'datename('+
case @inyGrouping
when 2 then 'week'
when 4 then 'quarth'
when 5 then'year'
end+','+RTrim(@chrColHead)+')'
end
else
case @intColType
when 1 then 'convert(varchar(255),'+RTrim(@chrColHead)+')'
else RTrim(@chrColHead)
end
end+',col2='+
case @intTemp
when 3 then 'datepart('+
case @inyGrouping
when 1 then 'weekday'
when 2 then 'week'
when 3 then 'month'
when 4 then 'quarter'
when 5 then 'year'
end+','+Rtrim(@chrColHead)+')'
else '0'
end+',col3='+
case @intTemp
when 3 then 'datepart('+
case @inyGrouping
when 1 then 'weekday'
when 2 then 'week'
when 3 then 'month'
when 4 then 'quarter'
when 5 then 'year'
end+','+RTrim(@chrColHead)+')'
else RTrim(@chrColHead)
end+' from '+RTrim(@chrSource)+')xyz order by col3'
--Print @chvExec
Exec(@chvExec)
--select * from #ColNames
/*检查列计数值*/
if (select Count(*) from #colnames)>1023
begin
drop table #colnames
raiserror 51004 'Distinct column count exceeded max of 1023.'
return -1
end
/*检验名称长度*/
if (Select max(DataLength(Rtrim(colname))-1) from #colnames)>29
Begin
Drop Table #colnames
RaisError 51050 'Column data length exceeded max of 30.'
Return -1
End
/*填写RowNames表*/
Select @chvExec='insert #rownames select distinct '+
Case @intRowtype
when 1 then 'convert(varchar255),'
else ''
end+Rtrim(@chrRowHead)+
Case @intRowType
when 1 then ')'
else ''
End+' from '+@chrSource
--Print @chvExec
Exec(@chvExec)
/*创建和修改crosstable*/
Select @intMaxRowHead=
(Select Max(DataLength(RTrim(rowname))) from #rownames)
/*创建Crosstable*/
/*定义Crosstable的RowHead字段*/
Create Table #crosstable(Rowhead varchar(255) null)
/*在Crosstable中加入列*/
Declare colname_cursor2 cursor for
select colname from #colnames
open colname_cursor2
Fetch colname_cursor2 into @chvCol
while @@fetch_status>=0
Begin
Select @chvColTemp=''
if @chvCol Like '%[^A-Z0-9]%'
Begin
Select @insR=1
While @insr<=DataLength(RTrim(@chvCol))
Begin
Select @chvColTemp=Rtrim(@chvColtemp)+
Case
when substring(@chvCol,@insR,1) Like '[A-Z0-9_]'
then substring(@chvCol,@insR,1)
Else ''
End
Select @insR=@insr+1
end
Select @chvCol=@chvColTemp
End
Select @chvExec='alter table #crosstable add '+
Case
when substring(@chvCol,1,1) Like '[^1234567890]' then @chvCol
else '_'+LTrim(@chvCol)
End
+' '+@chvColType+' null default (0)'
--Print @chvExec
Exec(@chvExec)
Fetch colname_cursor2 into @chvCol
End
Close colname_cursor2
Deallocate colname_cursor2
/*加入初始Crosstable数据*/
Select @chvExec='insert #crosstable(rowhead) select rowname from #rownames'
--Print @chvExec
Exec(@chvExec)
/*使用游标填写crosstable的剩余部分*/
/*创建游标*/
Select @chvExec='declare colname_cursor3 cursor for select '+
Case @intRowType
when 1 then 'convert(varchar(255),'+RTrim(@chrRowHead)+')'
Else RTrim(@chrRowHead)
End+','+
Case
when @intTemp=3 then
case
when @inyGrouping in (1,3) then 'Datename('+
case @inyGrouping
when 1 then 'weekday'
when 3 then 'month'
end+','+RTrim(@chrColHead)+')'
else
case @inyGrouping
when 2 then '''Week'
when 4 then '''Quarth'
when 5 then '''Year'
End+'_''+'+'datename('+
case @inyGrouping
when 2 then 'week'
when 4 then 'quarth'
when 5 then 'year'
end+','+RTrim(@chrColHead)+')'
End
Else
Case @intColType
When 1 then 'convert(varchar(255),'+RTrim(@chrColHead)+')'
Else RTrim(@chrColHead)
End
End+',total=Convert(varchar(255),'+RTrim(@chvType)+'('+RTrim(@chrvalue)+')) from '+
RTrim(@chrSource)+' group by '+RTRim(@chrRowHead)+','+
Case @intTemp
when 3 then
case
when @inyGrouping in (1,3) then 'Datename('+
case @inyGrouping
when 1 then 'weekday'
when 3 then 'month'
end+','+RTrim(@chrColHead)+')'
else
case @inyGrouping
when 2 then '''Week'
when 4 then '''Quarth'
when 5 then '''Year'
end+'_''+'+'datename('+
case @inyGrouping
when 2 then 'week'
when 4 then 'quarter'
when 5 then 'year'
end+','+RTrim(@chrColHead)+')'
end
else Rtrim(@chrColHead)
End
--Print @chvExec
Exec(@chvExec)
/*更新Crosstable表*/
Begin Tran
Open colname_cursor3
Fetch colname_cursor3 into @chvRow,@chvCol,@chvVal
while @@fetch_status>=0
Begin
Select @chvColTemp=''
if @chvCol Like '%[^A-Z0-9]%'
Begin
Select @insR=1
While @insR<=DataLength(RTRim(@chvCol))
Begin
Select @chvColTemp=RTRim(@chvColTemp)+
Case
When Substring(@chvCol,@insR,1) Like '[A-Z0-9_]' then Substring(@chvCol,@insR,1)
Else ' '
End
Select @insR=@insR+1
End
Select @chvCol=@chvColTemp
End
Select @chvExec='update #crosstable set '+
Case
when substring(@chvCol,1,1) Like '[^1234567890]' then @chvCol
Else '_'+LTrim(@chvCol)
End+'='+
Case
when @chvVal is Null then '0'
Else RTrim(@chvVal)
End+' where Rowhead='''+RTRim(@chvRow)
Select @chvRow=
Case
When @chvRow is Null Then 'NULL'
Else RTrim(@chvRow)
End
Select @chvRowTemp=''
if @chvRow Like'%'
Begin
Select @insR=1
While @insR<=DataLength(RTrim(@chvRowTemp))-1
Begin
Select @chvRowTemp=RTrim(@chvRowTemp)+
Case
When Substring(@chvRow,@insR,1) Like '[^'']' then Substring(@chvRow,@insR,1)
Else ' '' '' '
End
Select @insR=@insR+1
End
End
Select @chvRow=@chvRowTemp
Select @chvExec=@chvExec+@chvRow+''''
--Print @chvExec
Exec(@chvExec)
Fetch colname_cursor3 into @chvRow,@chvCol,@chvVal
End
Close colname_cursor3
Deallocate colname_cursor3
Commit Tran
Set NoCount off
Select @chvExec='Select * from #crosstable'
--Print @chvExec
Exec(@chvExec)
Drop Table #colnames
Drop Table #rownames
Drop Table #crosstable