SQL 查询结果的纵向变横向排列

  drop   procedure  Model_his_mid;
GO
create   procedure  Model_his_mid(
/**/ /* 
* @vColumns    分组的列 (最后一个字段后面一定不要加,)
* @vClause    查询表的条件(没有条件='')
* @vOrderby    查询结果排序的字段 ''为默认排序
* @vTop      取出的行数 ''为全部
*/
@vColumns   nvarchar ( 1000 ),
@vClause   nvarchar ( 4000 ),
@vOrderby   nvarchar ( 100 ),
@vTop   nvarchar ( 50 )
)
as

declare   @sql   nvarchar ( 4000 )
declare   @xColumns   nvarchar ( 4000 )

declare   @vTable   nvarchar ( 50 )
declare   @vColumnName   nvarchar ( 100 )
declare   @vSumColName   nvarchar ( 100 )
declare   @vNum   nvarchar ( 50 )
declare   @vAllNum   nvarchar ( 50 )
declare   @vSumOrCount   nvarchar ( 50 )

set   @xColumns   =   ''

/**/ /*
* 需要赋值的参数
*
* @vTable     真正查询的表名
* @vColumnName 纵向转横向的列名
* @vSumColName 取合计值的列名
* @vNum      数值的别名
* @vAllNum    每行合计的列名 (如果不要合计则='')
* @vSumOrCount sum或者count
* 
*/
set   @vTable   =   ' his_mid_tab '
set   @vColumnName   =   ' hsks '
set   @vSumColName   =   ' qty '
set   @vNum   =   ' num '
set   @vAllNum   =   ' allnum '
set   @vSumOrCount   =   ' sum '

select  
@xColumns   =   @xColumns
+   ' sum(case  '   +   @vColumnName   +   '  when  ' +   char ( 39 )  +   [ a ] . [ column ]   +   char ( 39 ) +   '  then  '   +   @vNum   +   '  else 0 end) as  '''
+   [ a ] . [ column ]   +   ''' ,  '

/**/ /*
* 需要比例加入此语句
* + '(' + 'cast(round(sum(case ' + @vColumnName + ' when '+ char(39) + [a].[column] + char(39)+ ' then ' + @vNum + ' else 0 end)*100.00' + '/sum(' + @vNum + '),2) as decimal(10,2))) as ' + [a].[column] + '_i, '
*/

/**/ /**
* 要动态显示列的sql语句 住院 OUTP_OR_INP = '0' 门诊OUTP_OR_INP = '1'
*/
from  ( select   distinct  DEPT_NAME  as   [ column ]   from  his_mzkm_tab  where  OUTP_OR_INP  =   ' 0 ' )  as  a

set   @xColumns   =   substring ( @xColumns ,  0 ,  len ( @xColumns ))

set   @sql   =   ' select  '

if ( @vTop   <>   '' )
set   @sql   =   @sql   +   ' top  '   +   @vTop   +   '   '

set   @sql   =   @sql   +   @vColumns   +   ' ,  '   +   @xColumns

if ( @vAllNum   <>   '' )
set   @sql   =   @sql   +   ' , sum( '   +   @vNum   +   ' ) as  '   +   @vAllNum

set   @sql   =   @sql   +   '  from ( '
+   ' select  '   +   @vColumns   +   ' ,  '   +   @vColumnName   +   ' ,  '   +   @vSumOrCount   +   ' ( '   +   @vSumColName   +   ' ) as  '   +   @vNum   +   '  from  '   +   @vTable
if ( @vClause   <>   '' )
set   @sql   =   @sql   +   '  where  '   +   @vClause

set   @sql   =   @sql   +   '  group by  '   +   @vColumns   +   ' ,  '   +   @vColumnName

set   @sql   =   @sql   +   ' ) as casual_table group by  '   +   @vColumns   +   '   '

if ( @vOrderby   <>   '' )
set   @sql   =   @sql   +   ' order by  '   +   @vOrderby
print   @sql
exec  sp_executesql  @sql   with  recompile


/**/ /*
* sql语句 引号之内的为sql中的几个参数分别为（分组的列，条件，排序，取出行数）
* exec Model_his_mid 'kjkm','date = ''8''','kjkm desc',''
*/


/**/ /*
* sql语句
* exec Model_his_mid 'kjkm','','kjkm desc','15'
*/