如何实现分页浏览？各位高手帮我看看我的源码那里有问题。谢谢(100分)

爱睡的狗狗 · 2006-07-31

各位高手：   能不能给我一个完整的可以实现分页浏览的示例程序，就像有“显示全部信息，，分页显示，上一页，下一页”。  我现在可以实现部分功能，可是上一页，下一页总是有bug，例如，第一次单击“下一页”时，显示的是单击“分页浏览”显示的内容（注一次显示5条记录），只有第二次单击“下一页”时才会增加。 这是源码，帮我看看那里有问题： procedure TForm1.Button1Click(Sender: TObject); //显示全部信息  begin    with Query1 do    begin      Close;      SQL.Clear;      SQL.Add('select * from blacktable ORDER BY [NO]');      open;    end;  end; procedure TForm1.Button2Click(Sender: TObject);  //分页显示信息   begin     with Query1 do    begin      Close;      SQL.Clear;      sql.add('select top 5 * from blacktable where NO not in (select top 0 NO from blacktable)');      open;   end; end; procedure TForm1.Button3Click(Sender: TObject);  //上一页  begin    with Query1 do      begin        Close;        SQL.Clear;        per_page_count:=5;        sql.add('select top '+inttostr(per_page_count)+' * from blacktable where NO not in (select top '+inttostr(PrevPageVariant)+' NO from blacktable)');        dec(PrevPageVariant,5);        open;     end;  end; procedure TForm1.Button4Click(Sender: TObject);  //下一页  begin with Query1 do     begin       Close;       SQL.Clear;       per_page_count:=5;      sql.add('select top '+inttostr(per_page_count)+' * from blacktable where NO not in (select top '+inttostr(PrevPageVariant)+' NO from blacktable)');      inc(PrevPageVariant,5);      open;    end;  end;

蓝叶菱 · 2006-07-31

procedure TFrmYW_BGCX.FindByPage(PageIndex: integer); begin   with DM.QBG do   begin    Screen.Cursor:=crHourGlass;    DisableControls;    Tick:=GetTickCount;    DM.GetBGPageID(PageIndex);        close;    sql.Clear;    sql.Add('SELECT top 100 * FROM '+ViewName);    SQL.Add('WHERE (1=1)');    sql.Add(WHERESQL);    if PageID<>'' then       sql.Add(' AND (报告编号<'''+PageID+''')');    sql.Add('ORDER BY 报告编号 DESC');    try      Open;    except      EnableControls;      Screen.Cursor:=crDefault;    end;    EnableControls;    Screen.Cursor:=crDefault;    lbl_Num.Caption:='  共有数据:'+IntToStr(GNum)+'

总共 '+IntToStr(PageNum)+' 页,每页100条)';    lbl_Num.Caption:=lbl_Num.Caption+' －－－－执行查询时间：'+FloatToStr((GetTickCount-Tick)/1000)+' 秒';   end; end; procedure TFrmYW_BGCX.bFirstClick(Sender: TObject); begin      cbPage.ItemIndex:=0;      FindByPage(cbPage.ItemIndex); end; procedure TFrmYW_BGCX.bPriorClick(Sender: TObject); begin  if cbPage.ItemIndex>0 then      cbPage.ItemIndex:=cbPage.ItemIndex-1;      FindByPage(cbPage.ItemIndex); end; procedure TFrmYW_BGCX.bNextClick(Sender: TObject); begin  if cbPage.ItemIndex<cbPage.Items.Count-1 then      FindByPage(cbPage.ItemIndex+1);      cbPage.ItemIndex:=cbPage.ItemIndex+1; end; procedure TFrmYW_BGCX.bLastClick(Sender: TObject); begin     cbPage.ItemIndex:=cbPage.Items.Count-1;      FindByPage(cbPage.ItemIndex); end; procedure TFrmYW_BGCX.cbPageChange(Sender: TObject); begin   FindByPage(cbPage.ItemIndex); end; procedure TDM.GetBGPageID(APageIndex: integer); begin  PageID:='';  if APageIndex>0 then  with Q_Para do  begin        close;    sql.Clear;    sql.Add('SELECT 报告编号 FROM '+ViewName);    sql.Add('WHERE (1=1)');    SQL.Add(WHERESQL);    sql.Add('ORDER BY 报告编号 DESC');    Open;    First;    if not IsEmpty then    begin    MoveBy(APageIndex*200+1);    PageID:=Trim(FieldByName('报告编号').AsString);    end;    Close;  end; end; 不过最好可以考虑服务器游标的分页.. 如果数据量大的话就要必须的分页,读入数据的时候多慢啊! 可以用存储过程来分页的啊!我给你个例子你看看! CREATE PROC ReturnRowspub( @SQL VARCHAR(100),--表或试图的名称 @Page int,--当前的页数 @findstr           varchar(255),---需要查询的值 @ID VARCHAR(255),--主键 @Sort VARCHAR(255),--需要排序的字段 @findzd varchar(255)---需要查询的字段) AS DECLARE @RecsPerPage int,--每页显示的记录数量(当然你可以设置成动态的)        @sqlstr varchar(1000)--需要执行的SQL语句 set @RecsPerPage=30 if @findstr='' or  @findzd='' ---表示普通的浏览 SET @sqlStr='SELECT   TOP  '+CAST(@RecsPerPage AS VARCHAR(20))+' *  FROM '+@SQL+'  T WHERE T.'+@ID+' not in (SELECT TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM '+@SQL+' T ORDER BY '+@Sort+') ORDER BY '+@Sort else    ---查询浏览   SET @sqlStr='SELECT   TOP  '+CAST(@RecsPerPage AS VARCHAR(20))+' *  FROM '+@SQL+'  T WHERE T.'+@ID+' not in (SELECT TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM '+@SQL+' T where t.'+@findzd+' like '''+@findstr+'%'' ORDER BY '+@Sort+') and t.'+@findzd+' like '''+@findstr+'%'' ORDER BY '+@Sort exec (@strSQL) go 这个存储过程我一直在用,至于效率(40万条数据量)还不错,挺快!如果还有什么问题

爱睡的狗狗 · 2006-07-31

我先试试，如果有问题再问，还请高手在这段时间多多关注和多多帮忙！！！！！[

] 谢谢！！！！！！！

爱睡的狗狗 · 2006-07-31

蓝叶菱你好，能不能将源码加注释，有点晕，还有实现的好像是带索引的分页显示，我想要的是按键式的分页显示，能不能帮我想想。谢谢

muhx · 2006-07-31

procedure TForm1.Button3Click(Sender: TObject);  //上一页  begin    with Query1 do      begin        Close;        SQL.Clear;        per_page_count:=5;        dec(PrevPageVariant,5);        sql.add('select top '+inttostr(per_page_count)+' * from blacktable where NO not in (select top '+inttostr(PrevPageVariant)+' NO from blacktable)');        //dec(PrevPageVariant,5);        open;     end;  end; procedure TForm1.Button4Click(Sender: TObject);  //下一页  begin with Query1 do     begin       Close;       SQL.Clear;       inc(PrevPageVariant,5);       per_page_count:=5;      sql.add('select top '+inttostr(per_page_count)+' * from blacktable where NO not in (select top '+inttostr(PrevPageVariant)+' NO from blacktable)');      //inc(PrevPageVariant,5);      open;    end;  end;   看到我的改动了吧

爱睡的狗狗 · 2006-07-31

我需要处理的是由一个库的多个表通过select语句选出的数据集，不是针对的某一具体的表，请问各位有没有高招，有人说DBGride有分页的功能，可是我不会，还请各位高手多多帮助！！！！！

bbscom · 2006-07-31

这样通过SQL分页是不对的。 因为你是程序不是网页。 还是建议你用DbExpress吧。 技术交流QQ：136293586

爱睡的狗狗 · 2006-07-31

muhx兄，我试了你的代码，很好，这次运行正确，可是多次点击“上一页”或“下一页”后在单击“分页显示”后，虽然可以显示前5条，可是在单击“上一页”或“下一页”你会发现它还会从当初的记录操作，而不是在一次从新显示，如何当单击“分页显示”后，清空所有记录，使之从头开始！还有当单击“上一页”到1-5条后，再单击“上一页”会出现错误，如何改？还有就是刚才说的我想处理的对象是一个数据集，而不是一个具体的表，有没有高招？能不能给我你的qq，这样问有点麻烦？或e－mail？

爱睡的狗狗 · 2006-08-01

蓝叶菱兄：DM.QBG是什么？是控件吗？这几个过程是自己定义的吗？还有在delphi中如何使用存储过程？我是新手，还请多多帮助。

网中戏 · 2006-08-01

select top 50 * from youTable  where  youid >  '当前' //下一页 select top 50 * from youTable  where  youid <  '当前' ORDER BY youid DESC//上一页

爱睡的狗狗 · 2006-08-01

网中戏兄，我想知道的是如何对显示在DBGride 中的查询结果进行分页显示，而不是对特定的一个表，还请指点！

babibean · 2006-08-01

if exists (select * from sysobjects where id = object_id('[dbo].[SP_Page]') and objectproperty(id, 'isprocedure') = 1) drop procedure [dbo].[SP_Page] go create procedure SP_Page   @sql nvarchar(4000), --要执行的sql语句 @currentpage int=2,  --要显示的页码 @pagesize int=10,    --每页的大小 @pagecount int=0 out --总页数 with encryption as set nocount on declare @p1 int exec sp_cursoropen @p1 output,@sql,@scrollopt=1,@ccopt=1,@rowcount=@pagecount output select @pagecount=ceiling(1.0*@pagecount/@pagesize),       @currentpage=(@currentpage-1)*@pagesize+1 --select @currentpage exec sp_cursorfetch @p1,16,@currentpage,@pagesize exec sp_cursorclose @p1 go declare @pc int exec sp_page 'select * from a',1,20,@pc output --select * from sob

爱睡的狗狗 · 2006-08-01

现在我明白一点了，要想实现查询结果的分页显示需要视图，由存储过程对视图进行处理，有谁知道相关的内容？

爱睡的狗狗 · 2006-08-01

如何将查询条件形成一个视图，并由一个存储过程对它进行操作，后由DBGride显示查询结果。

vvyang · 2006-08-02

To 楼主：  我在 delphi 盒子里贴了一个程序，可以满足你的要求，可以参考一下。  http://www.2ccc.com/article.asp?articleid=3520  这个程序不像您想象的那样是针对“一个具体的表”，它是通用的，只要您改变 ADODataSet的 CommandText 的内容就行了。另外可以告诉您 Delphi 的数据感知控件不支持分页，用它的话你只能在SQL 上下工夫...

爱睡的狗狗 · 2006-08-02

To vvyang 你好，我现在用的是ODBC连的数据库，这样的话，你的例子还适用吗？如果不行还有没有别的方法，特急！！！！！！！！！！！！！！！！！！！！

爱睡的狗狗 · 2006-08-02

在线等！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

vvyang · 2006-08-02

To 爱睡的狗狗：  貌似 ADOConnection 也可以连接 ODBC...

爱睡的狗狗 · 2006-08-02

To vvyang 照您的意思ADOConnection 也可以连接 ODBC的，并且与具体的后台数据库无关是吗？我是新手，有很多东西不懂，你在delphi盒子的帖子我已经看了，并加你的qq为好友，你看看就知道了头像是个海豚，号是610756763，如果不介意的话我想和你聊聊，因为你的东西有一些我看不懂，现在有需要实现，所以有很多想问你。还有你的例子中的页数是已知的，可是查询的结果的数量是未知的。改怎样处理，还请多多指教。长期在线！！！

dcs_dcs · 2006-08-02

CREATE PROC ReturnRowspub(   @SQL    VARCHAR(100),--表或试图的名称   @Page    int,--当前的页数 @findstr             varchar(255),---需要查询的值 @ID    VARCHAR(255),--主键   @Sort    VARCHAR(255),--需要排序的字段 @findzd    varchar(255)---需要查询的字段) AS DECLARE @RecsPerPage  int,--每页显示的记录数量(当然你可以设置成动态的)        @sqlstr varchar(1000)--需要执行的SQL语句 set @RecsPerPage=30 if @findstr='' or  @findzd='' ---表示普通的浏览 SET @sqlStr='SELECT   TOP  '+CAST(@RecsPerPage AS VARCHAR(20))+' *  FROM '+@SQL+'  T WHERE T.'+@ID+' not in (SELECT TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM '+@SQL+' T ORDER BY '+@Sort+') ORDER BY '+@Sort else    ---查询浏览   SET @sqlStr='SELECT   TOP  '+CAST(@RecsPerPage AS VARCHAR(20))+' *  FROM '+@SQL+'  T WHERE T.'+@ID+' not in (SELECT TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM '+@SQL+' T where t.'+@findzd+' like '''+@findstr+'%'' ORDER BY '+@Sort+')  and t.'+@findzd+' like '''+@findstr+'%'' ORDER BY '+@Sort exec (@strSQL) go

如何实现分页浏览？各位高手帮我看看我的源码那里有问题。谢谢(100分)

爱睡的狗狗

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

muhx

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

babibean

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

Similar threads