6.4.4 排行榜处理示例.sql

sqlserver 数据库编程的绝好脚本

--图书销售数据表
CREATE TABLE tb(
Books nvarchar(30), --书名
Date datetime,     --销售日期
Sales int)         --销售数量
--生成测试数据
INSERT tb SELECT 
	CHAR(65+RAND(CHECKSUM(NEWID()))*25),
	DATEADD(Day,1-RAND(CHECKSUM(NEWID()))*500,GETDATE()),
	RAND(CHECKSUM(NEWID()))*360
FROM sysobjects a,sysobjects b
--显示数据
SELECT * FROM tb
GO

--排行榜处理的存储过程
CREATE PROC p_Qry
@Type  nchar(1)=N'日',  --排行榜处理类型(日、周、月、季、年)
@Date  datetime=null,   --排行榜日期,不指定为当前日期
@TopN int=10          --记录数
AS
SET NOCOUNT ON
DECLARE @p_dt_begin datetime,@dt_begin datetime

--参数检测
IF CHARINDEX(@Type,N'日周月季年')=0
	SET @Type=N'日'
IF @Date IS NULL
	SET @Date=CONVERT(char(10),GETDATE(),120)
ELSE
	SET @Date=CONVERT(char(10),@Date,120)
IF ISNULL(@TopN,0)<1
	SET @TopN=10

--根据@Type决定计算的起始日期
IF @Type=N'日'
	SELECT
		@dt_begin=@Date,
		@Date=DATEADD(Day,1,@Date),
		@p_dt_begin=DATEADD(Day,-1,@dt_begin)
ELSE IF @Type=N'周'
	SELECT 
		@dt_begin=DATEADD(Day,-(DATEPART(Weekday,@Date)+@@DATEFIRST-2)%7,@Date),
		@Date=DATEADD(Day,7,@dt_begin),
		@p_dt_begin=DATEADD(Day,-7,@dt_begin)
ELSE IF @Type=N'月'
	SELECT 
		@dt_begin=CONVERT(char(8),@Date,120)+'01',
		@Date=DATEADD(Month,1,@dt_begin),
		@p_dt_begin=DATEADD(Month,-1,@dt_begin)
ELSE IF @Type=N'季'
	SELECT 
		@dt_begin=CONVERT(char(8),
			DATEADD(Month,DATEPART(Quarter,@Date)*3-Month(@Date)-2,@Date),
			120)+'1',
		@Date=DATEADD(Month,3,@dt_begin),
		@p_dt_begin=DATEADD(Month,-3,@dt_begin)
ELSE
	SELECT 
		@dt_begin=CONVERT(char(5),@Date,120)+'01-01',
		@Date=DATEADD(Year,1,@dt_begin),
		@p_dt_begin=DATEADD(Year,-1,@dt_begin)

--取排名数据到临时表
SET ROWCOUNT @TopN
--最新名称
SELECT Books,Sales_Amount=SUM(Sales)
INTO #1 FROM tb
WHERE Date>=@dt_begin AND Date<@Date
GROUP BY Books
ORDER BY Sales_Amount DESC
--上期名次
SELECT Books,Sales_Amount=SUM(Sales) 
INTO #2 FROM tb
WHERE Date>=@p_dt_begin AND Date<@dt_begin
GROUP BY Books
ORDER BY Sales_Amount DESC

--显示结果
SELECT a.Books,a.Sales_Amount,a.Place,
	Description=CASE 
		WHEN b.Books IS NULL THEN N'↑新上榜'
		WHEN a.Place=b.Place THEN N'－'
		WHEN a.Place>b.Place THEN N'↓'+RTRIM(a.Place-b.Place)+N'位'
		ELSE N'↑'+RTRIM(b.Place-a.Place)+N'位' END,b.*
FROM(
	SELECT Books,Sales_Amount,
		Place=(SELECT COUNT(Sales_Amount) FROM #1 WHERE Sales_Amount>aa.Sales_Amount)+1
	FROM #1 aa
)a LEFT JOIN(
	SELECT Books,
		Place=(SELECT COUNT(Sales_Amount) FROM #2 WHERE Sales_Amount>aa.Sales_Amount)+1
	FROM #2 aa
)b ON a.Books=b.Books
ORDER BY a.Place
GO

--调用
EXEC p_Qry N'日'
EXEC p_Qry N'周'
EXEC p_Qry N'月'
EXEC p_Qry N'季'
EXEC p_Qry N'年'