create table 分類表(分類ID int , 分類名稱 varchar(10))
insert into 分類表 values(1 , '一類')
insert into 分類表 values(2 , '二類')
insert into 分類表 values(3 , '三類')
create table 物資表(物資ID int, 物資名稱 varchar(10), 物資單價 int, 分類ID int)
insert into 物資表 values(1 , '固化劑' , 20 , 2 )
insert into 物資表 values(2 , '塑料桶' , 10 , 1 )
insert into 物資表 values(3 , '加熱板' , 35 , 3 )
create table 部門表(部門ID int, 部門名稱 varchar(10))
insert into 部門表 values(1 , 'A部門')
insert into 部門表 values(2 , 'B部門')
insert into 部門表 values(3 , 'C部門')
create table 領用表(領用ID int, 領用日期 datetime, 物資ID int, 領用數量 int, 領用部門ID int)
insert into 領用表 values(1 , '2008-10-20', 2 , 20 , 1)
insert into 領用表 values(2 , '2008-11-2' , 1 , 30 , 3)
insert into 領用表 values(3 , '2008-11-25', 3 , 40 , 2)
insert into 領用表 values(4 , '2008-11-26', 2 , 50 , 3)
insert into 領用表 values(5 , '2008-11-27', 1 , 60 , 1)
insert into 領用表 values(6 , '2008-11-27', 3 , 60 , 1)
create table 計劃表(計劃ID int, 部門ID int, 月計劃金額 int, 計劃月份 datetime)
insert into 計劃表 values(1 , 1 , 2000 , '2008-10-1')
insert into 計劃表 values(2 , 2 , 1000 , '2008-10-1')
insert into 計劃表 values(3 , 3 , 3000 , '2008-10-1')
insert into 計劃表 values(7 , 1 , 2100 , '2008-11-1')
insert into 計劃表 values(8 , 2 , 1100 , '2008-11-1')
insert into 計劃表 values(9 , 3 , 3100 , '2008-11-1')

declare @sql varchar(4000)
set @sql='if (object_id(''temptd1'')) is not null
drop table temptd1 '
set @[email protected]+'
if object_id(''temptd2'') is not null
drop table temptd2 '
set @[email protected]+'
if object_id(''temptd3'') is not null
drop table temptd3 '
set @[email protected]+'
if object_id(''temptd4'') is not null
drop table temptd4 '
set @

[email protected]+'
select * into temptd1 from'
set @[email protected]+'
(select b.分類名稱'
select @[email protected]+',
max(case 部門名稱 when '''+部門名稱+''' then 消耗金額 else 0 end)'+'['+部門名稱+']'
from (select distinct 部門名稱 from 部門表) a
set @[email protected]+'
from (select 分類名稱,部門名稱,領用數量*物資單價 as 消耗金額
from 領用表,物資表,分類表,部門表
where 物資表.物資ID=領用表.物資ID
and 分類表.分類ID=物資表.分類ID
and 部門表.部門ID=領用表.領用部門ID) b group by b.分類名稱) 表1 '

set @[email protected]+'
select * into temptd2 from(select ''合計金額'' as 分類名稱'
select @[email protected]+',
sum('+部門名稱+') ['+部門名稱+']'
from(select distinct 部門名稱 from 部門表) a
set @[email protected]+' from temptd1) 表2 '

set @[email protected]+'
select * into temptd3 from(select ''計劃金額'' as 分類名稱'
select @[email protected]+',
sum(case 部門名稱 when '''+部門名稱+''' then 月計劃金額 else 0 end) ['+部門名稱+']'
from(select distinct 部門名稱 from 部門表) a
set @[email protected]+'
from 部門表,計劃表 where 計劃表.部門ID=部門表.部門ID) 表3 '

set @[email protected]+'
select * into temptd4 from(select ''差額'' as 分類名稱'
select @[email protected]+',
(temptd3.'+部門名稱+'-temptd2.'+部門名稱+') ['+部門名稱+']'
from(select distinct 部門名稱 from 部門表) a
set @[email protected]+' from temptd2,temptd3) 表4'
set @[email protected]+'

select * from temptd1
union all
(select * from temptd2)
union all
(select * from temptd3)
union all
(select * from temptd4)'
print @sql
exec(@sql)

--打印出來的SQL靜態語句
if (object_id('temptd1')) is not null
drop table temptd1
if object_id('temptd2') is not null
drop table temptd2
if object_id('temptd3') is not null
drop table temptd3
if object_id('temptd4') is not null
drop table temptd4
select * into temptd1 from
(select b.分類名稱,
max(case 部門名稱 when 'A部門' then 消耗金額 else 0 end)[A部門],
max(case 部門名稱 when 'B部門' then 消耗金額 else 0 end)[B部門],
max(case 部門名稱 when 'C部門' then 消耗金額 else 0 end)[C部門]
from (select 分類名稱,部門名稱,領用數量*物資單價 as 消耗金額
from 領用表,物資表,分類表,部門表
where 物資表.物資ID=領用表.物資ID
and 分類表.分類ID=物資表.分類ID
and 部門表.部門ID=領用表.領用部門ID) b group by b.分類名稱) 表1
select * into temptd2 from(select '合計金額' as 分類名稱,
sum(A部門) [A部門],
sum(B部門) [B部門],
sum(C部門) [C部門] from temptd1) 表2
select * into temptd3 from(select '計劃金額' as 分類名稱,
sum(case 部門名稱 when 'A部門' then 月計劃金額 else 0 end) [A部門],
sum(case 部門名稱 when 'B部門' then 月計劃金額 else 0 end) [B部門],
sum(case 部門名稱 when 'C部門' then 月計劃金額 else 0 end) [C部門]
from 部門表,計劃表 where 計劃表.部門ID=部門表.部門ID) 表3
select * into temptd4 from(select '差額' as 分類名稱,
(temptd3.A部門-temptd2.A部門) [A部門],
(temptd3.B部門-temptd2.B部門) [B部門],
(temptd3.C部門-temptd2.C部門) [C部門] from temptd2,temptd3) 表4

select * from temptd1
union all
(select * from temptd2)
union all
(select * from temptd3)
union all
(select * from temptd4)

（所影響的行數為 3 行）

（所影響的行數為 1 行）

（所影響的行數為 1 行）

（所影響的行數為 1 行）

--結果如下：
--分類名稱 A部門 B部門 C部門
--二類     1200  0    600
--三類     2100  1400 0
--一類     200   0    500
--合計金額 3500  1400 1100
--計劃金額 4100  2100 6100
--差額     600   700  5000

if (object_id('temptd1')) is not null
drop table temptd1
if object_id('temptd2') is not null
drop table temptd2
if object_id('temptd3') is not null
drop table temptd3
if object_id('temptd4') is not null
drop table temptd4
select * into temptd1 from
(select b.分類名稱,
max(case 部門名稱 when 'A部門' then 消耗金額 else 0 end)[A部門],
max(case 部門名稱 when 'B部門' then 消耗金額 else 0 end)[B部門],
max(case 部門名稱 when 'C部門' then 消耗金額 else 0 end)[C部門]
from (select 分類名稱,部門名稱,領用數量*物資單價 as 消耗金額
from 領用表,物資表,分類表,部門表
where 物資表.物資ID=領用表.物資ID
and 分類表.分類ID=物資表.分類ID
and 部門表.部門ID=領用表.領用部門ID) b group by b.分類名稱) 表1
select * into temptd2 from(select '合計金額' as 分類名稱,
sum(A部門) [A部門],
sum(B部門) [B部門],
sum(C部門) [C部門] from temptd1) 表2
select * into temptd3 from(select '計劃金額' as 分類名稱,
sum(case 部門名稱 when 'A部門' then 月計劃金額 else 0 end) [A部門],
sum(case 部門名稱 when 'B部門' then 月計劃金額 else 0 end) [B部門],
sum(case 部門名稱 when 'C部門' then 月計劃金額 else 0 end) [C部門]
from 部門表,計劃表 where 計劃表.部門ID=部門表.部門ID) 表3
select * into temptd4 from(select '差額' as 分類名稱,
(temptd3.A部門-temptd2.A部門) [A部門],
(temptd3.B部門-temptd2.B部門) [B部門],
(temptd3.C部門-temptd2.C部門) [C部門] from temptd2,temptd3) 表4

select * from temptd1
union all
(select * from temptd2)
union all
(select * from temptd3)
union all
(select * from temptd4)