Delphi 数据分页显示（存储过程及ado控件）

一、ado控件，缺点是速度慢：

procedure showViewData(PageSize,AbsolutePage : Integer);

var

 i : Integer;

begin

 try

   adoPCustomer.Recordset.PageSize := PageSize;

   if adoPCustomer.RecordCount<1 then

   Exit;

   adoPCustomer.Recordset.AbsolutePage :=AbsolutePage;

   if adoPCustomer.Recordset.PageCount<> AbsolutePage then

   grdTVCustomer.DataController.RecordCount := adoPCustomer.Recordset.PageSize

   else

   grdTVCustomer.DataController.RecordCount := adoPCustomer.RecordCount-adoPCustomer.Recordset.PageSize*(AbsolutePage-1);

   adoPCustomer.First;

   adoPCustomer.MoveBy((AbsolutePage-1)*adoPCustomer.Recordset.PageSize);

   grdTVCustomer.BeginUpdate;

   for i :=0 to grdTVCustomer.DataController.RecordCount-1 do

   begin

     grdTVCustomer.DataController.Values[i,0] := adoPCustomer.FieldbyName('编号').AsString;

     grdTVCustomer.DataController.Values[i,1] := adoPCustomer.FieldbyName('客户代码').AsString;

     grdTVCustomer.DataController.Values[i,2] := adoPCustomer.FieldbyName('客户名称').AsString;

     adoPCustomer.Next;

   end;

   grdTVCustomer.EndUpdate;

   grdTVCustomer.ApplyBestFit();

   cxTextEdit1.Text := IntToStr(AbsolutePage);

 except

   on e:Exception do

     raise Exception.Create('执行查询时出错!'+#13+'出错缘由:'+e.Message);

 end;

end;

二、SQL存储过程分页，缺点是每次都要查询：

ALTER PROC [dbo].[P_Customer_QuerySaleCustomer_分页]

(

@User NVARCHAR(10),

@PageSize INT, --显示页数

@CurrPage INT, --当前页数

@RecordCount NVARCHAR(10) OUTPUT  --总页数

)

AS

BEGIN

SET @RecordCount=(SELECT COUNT(1) FROM dbo.T_Customer_Sale  (NOLOCK)  WHERE CardOwner=@User OR IsShared=0);

WITH CUSTOMER AS (

SELECT TOP (@PageSize * @CurrPage)

ROW_NUMBER() OVER (ORDER BY ID)ROWNUMBER  ,CardCode 客户代码, CardName 客户名称

,CASE IsHot WHEN 0 THEN '是' ELSE '否' END 是否热点

,CASE HotLev WHEN 0 THEN '低' WHEN 1 THEN '中' ELSE '高' END 热点程度

,CASE HotType WHEN 0 THEN '新客户' WHEN 1 THEN '老客户' ELSE '新合做' END 热点类型, HotNote 热点说明

,CASE CreditLev WHEN 0 THEN '低' WHEN 1 THEN '中' ELSE '高' END 信用等级

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardType) 类型

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardIndustry) 行业

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardSource) 来源

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardCusLev) 关系等级

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardSize) 规模

,CardNote 备注, CardAddress 地址

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardProvince) 省份, CardCity 城市

,(SELECT DicName FROM dbo.T_Customer_Dictionary  WHERE ID=CardArea) 区域, CardWeb 网址,ConRate 维护周期,

IsShared 是否共享,CardOwner 全部者

FROM dbo.T_Customer_Sale  (NOLOCK)

WHERE CardOwner=@User OR IsShared=0

)

SELECT *

FROM CUSTOMER

WHERE ROWNUMBER > ((@CurrPage-1) *@PageSize)

--PRINT @RecordCount

END