求sql一句
数据会在TDBGrid中显示，
我现在想控制每页显示的行数，也就是TDBGrid中显示的行数。假设每页显示20行。如果数据超过20行
通过Timer设定时间刷新在显示后面的20行，循环刷新数据，类似滚动的效果。


这是目前的sql

select tm033,
right(convert(nchar(10),tm001,111),5)as tm001,tm003,tm005,tm006,tm008,tm010,tm034,tm028,tm029,
(case when tm012<>'' and tm014<>'' then rtrim(tm012)+'-'+rtrim(tm014)
when tm012<>'' and tm014='' then rtrim(tm012)
when tm012<>'' and tm014='' then rtrim(tm014)
else '' end)as 预定试模时间,
(case when tm016<>'' and tm018<>'' then rtrim(tm016)+'-'+rtrim(tm018)
when tm016<>'' and tm018='' then rtrim(tm016)
when tm016='' and tm018<>'' then rtrim(tm018)
else '' end
)as 实际试模时间,tm030,tm032 from DGMOCTM
where tm001='2011-10-16'
order by tm001 desc



目前自己只想到分段存储数据好像可以，但是会用到许多临时表也很繁琐。
想寻求简介些的思路或者方法。
求能人赐教！(公司把原本买电子屏的钱克扣下来，就买个显示器要我实现类似电子屏的功能。无奈！)
我的思路就是通过Timer设定刷新数据，每一分钟刷新一次屏幕上面的数据。也就是显示在TDBGrid中的资料。
现在超出显示器的数据自己也想通过刷新显示，我就想设定TDBGrid显示的行数。在多次刷新。








如何用sql

[解决办法]
1、提取所有数据在程序实现分页
2、在存储过程用row_number,top实现分页，这个影响数据库性能，不推荐使用

[解决办法]

SQL code

set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgoALTER PROC [dbo].[PROCE_PageView2000](@tbname     nvarchar(100),               --要分页显示的表名@FieldKey   nvarchar(1000),      --用于定位记录的主键(惟一键)字段,可以是逗号分隔的多个字段@PageCurrent int=1,               --要显示的页码@PageSize   int=10,                --每页的大小(记录数)@FieldShow nvarchar(1000)='',      --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段@FieldOrder nvarchar(1000)='',      --以逗号分隔的排序字段列表,可以指定在字段后面指—ESC/ASC@WhereString    nvarchar(1000)=N'',     --查询条件@RecordCount int OUTPUT             --总记录数)ASSET NOCOUNT ON--检查对象是否有效--IF OBJECT_ID(@tbname) IS NULL--BEGIN--    RAISERROR(N'对象"%s"不存在',1,16,@tbname)--    RETURN--END--IF OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTable')=0--    AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsView')=0--    AND OBJECTPROPERTY(OBJECT_ID(@tbname),N'IsTableFunction')=0--BEGIN--    RAISERROR(N'"%s"不是表、视图或者表值函数',1,16,@tbname)--    RETURN--END--分页字段检查IF ISNULL(@FieldKey,N'')=''BEGIN    RAISERROR(N'分页处理需要主键（或者惟一键）',1,16)    RETURNEND--其他参数检查及规范IF ISNULL(@PageCurrent,0)<1 SET @PageCurrent=1IF ISNULL(@PageSize,0)<1 SET @PageSize=10IF ISNULL(@FieldShow,N'')=N'' SET @FieldShow=N'*'IF ISNULL(@FieldOrder,N'')=N''    SET @FieldOrder=N''ELSE    SET @FieldOrder=N'ORDER BY '+LTRIM(@FieldOrder)IF ISNULL(@WhereString,N'')=N''    SET @WhereString=N''ELSE    SET @WhereString=N'WHERE ('+@WhereString+N')'--如果@RecordCount为NULL值,则计算总页数(这样设计可以只在第一次计算总页数,以后调用时,把总页数传回给存储过程,避免再次计算总页数,对于不想计算总页数的处理而言,可以给@RecordCount赋值)IF @RecordCount IS NULLBEGIN    DECLARE @sql nvarchar(4000)    SET @sql=N'SELECT @RecordCount=COUNT(*)'        +N' FROM '+@tbname        +N' '+@WhereString    EXEC sp_executesql @sql,N'@RecordCount int OUTPUT',@RecordCount OUTPUTEND--计算分页显示的TOPN值DECLARE @TopN varchar(20),@TopN1 varchar(20)SELECT @TopN=@PageSize,    @TopN1=(@PageCurrent-1)*@PageSize--第一页直接显示IF @PageCurrent=1    EXEC(N'SELECT TOP '+@TopN        +N' '+@FieldShow        +N' FROM '+@tbname        +N' '+@WhereString        +N' '+@FieldOrder)ELSEBEGIN    --处理别名    IF @FieldShow=N'*'        SET @FieldShow=N'a.*'    --生成主键(惟一键)处理条件    DECLARE @Where1 nvarchar(4000),@Where2 nvarchar(4000),        @s nvarchar(1000),@Field sysname    SELECT @Where1=N'',@Where2=N'',@s=@FieldKey    WHILE CHARINDEX(N',',@s)>0        SELECT @Field=LEFT(@s,CHARINDEX(N',',@s)-1),            @s=STUFF(@s,1,CHARINDEX(N',',@s),N''),            @Where1=@Where1+N' AND a.'+@Field+N'=b.'+@Field,            @Where2=@Where2+N' AND b.'+@Field+N' IS NULL',            @WhereString=REPLACE(@WhereString,@Field,N'a.'+@Field),            @FieldOrder=REPLACE(@FieldOrder,@Field,N'a.'+@Field),            @FieldShow=REPLACE(@FieldShow,@Field,N'a.'+@Field)    SELECT @WhereString=REPLACE(@WhereString,@s,N'a.'+@s),        @FieldOrder=REPLACE(@FieldOrder,@s,N'a.'+@s),        @FieldShow=REPLACE(@FieldShow,@s,N'a.'+@s),        @Where1=STUFF(@Where1+N' AND a.'+@s+N'=b.'+@s,1,5,N''),            @Where2=CASE            WHEN @WhereString='' THEN N'WHERE ('            ELSE @WhereString+N' AND ('            END+N'b.'+@s+N' IS NULL'+@Where2+N')'    --执行查询    EXEC(N'SELECT TOP '+@TopN        +N' '+@FieldShow        +N' FROM '+@tbname        +N' a LEFT JOIN(SELECT TOP '+@TopN1        +N' '+@FieldKey        +N' FROM '+@tbname        +N' a '+@WhereString        +N' '+@FieldOrder        +N')b ON '+@Where1        +N' '+@Where2        +N' '+@FieldOrder)END MSSQL2005set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgoALTER PROCEDURE [dbo].[PROCE_SQL2005PAGECHANGE]( @TableName varchar(50),            --表名 @ReFieldsStr varchar(200) = '*',   --字段名(全部字段为*) @OrderString varchar(200),         --排序字段(必须!支持多字段不用加order by) @WhereString varchar(500) =N'',  --条件语句(不用加where) @PageSize int,                     --每页多少条记录 @PageIndex int = 1 ,               --指定当前为第几页 @TotalRecord int output            --返回总记录数)AS BEGIN        --处理开始点和结束点    Declare @StartRecord int;    Declare @EndRecord int;     Declare @TotalCountSql nvarchar(500);     Declare @SqlString nvarchar(2000);        set @StartRecord = (@PageIndex-1)*@PageSize + 1    set @EndRecord = @StartRecord + @PageSize - 1     SET @TotalCountSql= N'select @TotalRecord = count(*) from ' + @TableName;--总记录数语句    SET @SqlString = N'(select row_number() over (order by '+ @OrderString +') as rowId,'+@ReFieldsStr+' from '+ @TableName;--查询语句    --    IF (@WhereString! = '' or @WhereString!=null)        BEGIN            SET @TotalCountSql=@TotalCountSql + '  where '+ @WhereString;            SET @SqlString =@SqlString+ '  where '+ @WhereString;                    END    --第一次执行得到    --IF(@TotalRecord is null)    --   BEGIN           EXEC sp_executesql @totalCountSql,N'@TotalRecord int out',@TotalRecord output;--返回总记录数    --  END    ----执行主语句    set @SqlString ='select * from ' + @SqlString + ') as t where rowId between ' + ltrim(str(@StartRecord)) + ' and ' +  ltrim(str(@EndRecord));    Exec(@SqlString)    END