分页的问题，急急急。。请各位高手帮忙，解决了给一百分酬谢！！！！

我要做一个像网页上的翻页查询，比如说一个数据集中有100条数据，而我每一页只能查看十条，这样就生成十页，我按“上一页”或“下一页”的时候数据就相应改变。请问这样应该如何做！

解决方案 »

  1.   

    下一页：Dataset.MoveBy（10）
    上一页：Dataset.MoveBy（-10）
      

  2.   

    Const
      Count = 1000;        //每页显示的记录的条数
      var
      Pages :  Integer;    //当前页数
      Sum : Extended;      //所有的页数
      Captions : String;   //数据表名
      SQL : string;
      PKKEY : string;     //关键字（唯一标示字段） 
    beign
       //SQL2000
       SQL := ' Select top '  + Inttostr(Count) + ' * from ' + TableName +
             ' Where ' + PKKEY + ' Not In ( select top ' + Inttostr((Pages-1)*Count) +
             ' ' + PKKEY +  ' from ' + TableName + ')' ;
    end;
      

  3.   

    TO： coreblood(木木&菜码)
      我想只在缓存中对数据进行处理，不想又再打开数据集！
      

  4.   

    看看李維的 delphi 5.x 系列的書, 說得比較清楚
      

  5.   

    TO aiirii(ari-爱的眼睛)
      请问哪里可以找到，万分感谢！