delphi_sql_Óαê·ÖÒ³_·ÖÒ³dbgrid²éѯ

alter procedure qry_page
  @sqlstr nvarchar(4000),     --²éѯ×Ö·û´®
  @page int,                  --µÚNÒ³
  @pagesize int               --ÿҳÐÐÊý
as
  declare @rscounts int       --¼Ç¼×ÜÊý
  declare @pages int          --Ò³Ãæ×ÜÊý
  set nocount on
  declare @P1 int --P1ÊÇÓαêµÄid
  exec sp_cursoropen @P1 output,@sqlstr,@scrollopt=1,@ccopt=1,@RecordCount=@rscounts output
  set @pages = ceiling(1.0*@rscounts/@pagesize)
  if @page<=0 set @page=1
  if @page>@pages set @page=@pages
  --µ±Ç°Ò³ÃæÌõÊý£¬²»×ãÒ»Ò³
  declare @curpg_counts int  
  if @rscounts<@page*@pagesize
    set @curpg_counts=@rscounts-(@page-1)*@pagesize
  else
    set @curpg_counts=@pagesize
  --µ±Ç°Ò³ÆðʼÐÐ,´Ó1¿ªÊ¼
  declare @startPos int  
  set @startPos=(@page-1)*@pagesize+1
  --»ñÈ¡Ö¸¶¨¼Ç¼
  exec sp_cursorfetch @P1,16,@startPos,@curpg_counts
  exec sp_cursorclose @P1
  set nocount off
  --ÁíÍâ·µ»Ø¼Ç¼×ÜÊý/×ÜÒ³ÃæÊý/µ±Ç°Ò³/ÿҳÌõÊý
  select rscounts=@rscounts,pages=@pages,pagesize=@pagesize,page=@page
--exec qry_page 'select * from user_record_in order by id',3,5
¿Í»§¶Ë·ÃÎʳÌÐò
delphi°æ±¾:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DB, ADODB, Mask;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label5: TLabel;
    SpeedButton1: TSpeedButt