请教：数据分页显示问题，在线等！

[bosshoss]

因为一个月的数据要在PAGECONTROL中分星期显示，另服务器的任务太重，每次SQL查询回来的数据量不是很大，因此我想分页在客户端处理，不使用SQL的分页处理的方法。
1：使用临时表？在内存中？
2：在客户端建一个临时数据库文件？
还有没有其它的方法，请教了

[readersm68]

CREATE PROCEDURE GetRecordFromPage
@tblName varchar(255), -- 表名
@fldName varchar(255), -- 字段名
@PageSize int = 10, -- 页尺寸
@PageIndex int = 1, -- 页码
@IsCount bit = 0, -- 返回记录总数, 非 0 值则返回
@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序
@strWhere varchar(1000) = '' -- 查询条件 (注意: 不要加 where)
AS

declare @strSQL varchar(1000) -- 主语句
declare @strTmp varchar(300) -- 临时变量
declare @strOrder varchar(400) -- 排序类型

if @OrderType != 0
begin
set @strTmp = "<(select min"
set @strOrder = " order by [" + @fldName +"] desc"
end
else
begin
set @strTmp = ">(select max"
set @strOrder = " order by [" + @fldName +"] asc"
end

set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
+ @fldName + "] from [" + @tblName + "]" + @strOrder + ") as tblTmp)"
+ @strOrder

if @strWhere != ''
set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
+ @fldName + "] from [" + @tblName + "] where (" + @strWhere + ") "
+ @strOrder + ") as tblTmp) and (" + @strWhere + ") " + @strOrder

if @PageIndex = 1
begin
set @strTmp = ""
if @strWhere != ''
set @strTmp = " where (" + @strWhere + ")"

set @strSQL = "select top " + str(@PageSize) + " * from ["
+ @tblName + "]" + @strTmp + " " + @strOrder
end

if @IsCount != 0
set @strSQL = "select count(*) as Total from [" + @tblName + "]"

exec (@strSQL)
GO

[bosshoss]

多谢多谢啦，
还有那个LIST是控件还是指针？

[bosshoss]

分页显示数据：将数据进行唯一编号，比如：1,2,3...N，用过滤实现。
或者有一个STRINGGRID之类的控件，固定只显示20行的控件，自己填数据。


这也是方法！本来每条数据就有唯一的编号的

[bosshoss]

假如DBGrid和DataSource连接，DataSource和ADODataSet1连接。
ADODataSet1.Open;

ADODataSet1.Recordset.PageSize := 10;
ADODataSet1.Recordset.AbsolutePosition := 1;
显示第一页
ADODataSet1.Recordset.PageSize := 10;
ADODataSet1.Recordset.AbsolutePosition := 11;
显示第二页

或adoquery1.pagesize := 20;
不过我这个问题不同于每页都是那么多的数据量，因为每个月的第一个星期和最后一个星期的天数不是固定的

[shadowfish]

如果数据量不大的话，可以一次把数据都读取到本地，用一个list存，然后根据你的条件（比如每个月第一个星期和最后一天的天数之类的条件）控制一个页面显示的记录条数