日期:2014-05-18  浏览次数:20602 次

求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 ON
set QUOTED_IDENTIFIER ON
go





ALTER PROC [dbo].[PROCE_PageView2000]
(
@tbname     nvarchar(100),               --要分页显示的表名
@FieldKey   nvarchar(1000),      --用于定位记录的主键(惟一键)字段,可以是逗号分隔的多个字段
@PageCurrent int=1,               --要显示的页码
@PageSize   int=10,                --每页的大小(记录数)
@FieldShow nvarchar(1000)='',      --以逗号分隔的要显示的字段列表,如果不指定,则显示所有字段
@FieldOrder nvarchar(1000)='',      --以逗号分隔的排序字段列表,可以指定在字段后面指定DESC/ASC
@WhereString    nvarchar(1000)=N'',     --查询条件
@RecordCount int OUTPUT             --总记录数
)
AS
SET 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)
    RETURN
END

--其他参数检查及规范
IF ISNULL(@PageCurrent,0)<1 SET @PageCurrent=1
IF ISNULL(@PageSize,0)<1 SET @PageSize=10
IF 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 NULL
BEGIN
    DECLARE @sql nvarchar(4000)
    SET @sql=N'SELECT @RecordCount=COUNT(*)'
        +N' FROM '+@tbname
        +N' '+@WhereString
    EXEC sp_executesql @sql,N'@RecordCount int OUTPUT',@RecordCount OUTPUT
END

--计算分页显示的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)
ELSE
BEGIN
    --处理别名
    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),