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

蓝叶菱 · 2006-08-03

DM.QBG是什么？就是ADOquery... 这个是从我代码中截取的,没有加工,你看懂就可以了.. 这几个过程是自己定义的吗？ 还有在delphi中如何使用存储过程？我是新手，还请多多帮助。

mydecpu · 2006-08-03

呵呵..蓝大侠的分页储存过程还蛮好用的..不过,不知是不小心还是...[

][

]... 倒数第二句   exec (@strSQL)  应为exec (@sqlStr)  , 另蓝大侠储存过程的简单用法:望蓝大侠莫见笑:: exec ReturnRowspub  'pubs..employee','2',' ','emp_id','emp_id','fname' go 建议LZ参考一下有关储存过程的资料..

zqw0117 · 2006-08-03

使用原生ADO对数据进行分页显示 下面的页面中有Demo下载： http://www.2ccc.com/article.asp?articleid=3520 源码如下： unit MainFrm; interface uses  Classes, Controls, Forms, Grids, ToolWin, ComCtrls, StdCtrls, ExtCtrls, DB,  ADODB; type  TfrmMain = class(TForm)    cnn: TADOConnection;    rst: TADODataSet;    pnlNavigate: TPanel;    btnFirst: TButton;    btnPrior: TButton;    btnNext: TButton;    btnLast: TButton;    edtPageNO: TEdit;    sgData: TStringGrid;    procedure FormCreate(Sender: TObject);    procedure btnFirstClick(Sender: TObject);    procedure edtPageNOKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);  private    FPageNo: Integer;    procedure SetPageNo(Value: Integer);  public    property PageNo: Integer read FPageNo write SetPageNo;  end; var  frmMain: TfrmMain; implementation uses  Windows, SysUtils; {$R *.dfm} const  PAGE_SIZE = 6; procedure TfrmMain.FormCreate(Sender: TObject); var  i: Integer; begin  SetWindowLong(edtPageNO.Handle, GWL_STYLE, GetWindowLong(edtPageNo.Handle,    GWL_STYLE) or ES_CENTER or ES_NUMBER);  rst.Active := True;  rst.Recordset.PageSize := PAGE_SIZE;  sgData.ColCount := rst.FieldCount + 1;  for i := 0 to rst.FieldCount - 1 do  begin    sgData.ColWidths[i + 1] := rst.Fields.DisplayWidth * Canvas.TextWidth('0');    sgData.Cells[i + 1, 0] := rst.Fields.DisplayName;  end;  sgData.Cells[0, 0] := '序号';  PageNo := 1; end; procedure TfrmMain.btnFirstClick(Sender: TObject); begin  if Sender = btnFirst then    PageNo := 1  else if Sender = btnPrior then    PageNo := PageNo - 1  else if Sender = btnNext then    PageNo := PageNo + 1  else PageNo := rst.Recordset.PageCount; end; procedure TfrmMain.edtPageNOKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  if edtPageNO.Text <> '' then    PageNo := StrToInt(edtPageNO.Text); end; procedure TfrmMain.SetPageNo(Value: Integer); const  adStateOpen = $00000001; var  n, i, j: Integer; begin  with rst.Recordset do    if (FPageNo <> Value) and (Value >= 1) and (Value <= PageCount) and      (State = adStateOpen) then    begin      FPageNo := Value;      AbsolutePage := FPageNo;      n := (FPageNo - 1) * PAGE_SIZE;      edtPageNo.Text := IntToStr(FPageNo);      for i := 1 to PAGE_SIZE do      begin        sgData.RowCount := i + 1;        sgData.Cells[0, i] := IntToStr(n + i);        for j := 0 to Fields.Count - 1 do          sgData.Cells[j + 1, i] := Fields[j].Value;        MoveNext;        if Eof then Exit;      end;    end; end; end.

爱睡的狗狗 · 2006-08-03

To mydecpu:谢谢，提醒。现在正在恶补有关存储过程的知识，努力ing！！！

爱睡的狗狗 · 2006-08-04

如何在query.open前SQL.Add(seclect语句)后对结果集进行控制，让它可以实现分页显示，有没有方法建立一个临时表之类的，而后对这个表进行处理。

yunxi126 · 2006-08-04

CREATE PROCEDURE Pr_GetDataPage @CurrentPage int, @PageSize int AS Declare @ID int Declare @MoveRecords int --@CurrentPage和@PageSize是传入参数 Set @MoveRecords=@CurrentPage * @PageSize+1 --下面两行实现快速滚动到我们要取的数据的行，并把ID记录下来 Set Rowcount @MoveRecords Select @ID=pid from products Order by pid Set Rowcount @PageSize --最恨为了减少麻烦使用*了，但是在这里为了说明方便，暂时用一下 Select * From products Where pid>=@ID Order By pid Set Rowcount 0 GO

爱睡的狗狗 · 2006-08-04

各位高手，有没有不用存储过程的方法来实现分页呢，我的东西要求和后台的数据库是无关的。如果用存储过程的话，后台的限制就会大了很多，这也是我发愁的原因。还有用DBgride进行分页显示，看了很多都是dbstring的，可是如果改成dbstring的我的导出功能还要重写，更麻烦。

vvyang · 2006-08-04

To 爱睡的狗狗：  我只想问楼主一句，您到底准备用什么方法，一会存储过程，一会ADO，一会临时表，真是服了你了！！！！  看来，您缺的不仅仅是技术...

爱睡的狗狗 · 2006-08-04

To vvyang: 不是我不专，只是不懂的太多，不知该怎么做好。所以才会有这样的结果。请不要介意

sssreader · 2006-08-08

吐血奉献，最新瑞星2006版注册机，好的顶！ http://web.first01.net//aaa/rav.rar

蓝叶菱 · 2006-08-08

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);//viewName就是你要查询的表格，取100条，按照条件取得。    SQL.Add('WHERE (1=1)');    sql.Add(WHERESQL);    if PageID<>'' then//如果PAGEID是不是空，按照报告编号进行筛选。。       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;

爱睡的狗狗 · 2006-08-11

如何判断，点击下一页时是否已经到了最后一页，并显示提示框。还有如何实现一个最后一页的按钮

爱睡的狗狗 · 2006-08-11

这是最后一页的源码，可是显示的是查询的记录的条数而不是最后一页的记录，各位高手帮我看看错误出在那里，该怎样该： var  total_count: integer;  a:string;  begin  a:=trim(IPEdit1.IPString);    with Query1 do     begin       Close;       SQL.Clear;       sql.add('select count(*) from blacktable b,filefix f where b.NO not in (select top '+inttostr(PrevPageVariant)+' F.NO from filefix k ,blacktable f where k.ip='''+a+''' and k.ip=f.ip and f.name=k.type order by k.no ) and b.name=f.type and b.ip=f.ip and b.ip='''+a+'''');       open;       per_page_count:=5;       Total_Count := Query1.Fields[0].Value;       PrevPageVariant:=((Total_Count-1) div 5)+1;       sql.add('select top '+inttostr(per_page_count)+' b.no, b.Name,b.title,b.ip,f.fix,f.descr from blacktable b,filefix f where b.NO not in (select top '+inttostr(PrevPageVariant)+' F.NO from filefix k ,blacktable f where k.ip='''+a+''' and k.ip=f.ip and f.name=k.type order by k.no ) and b.name=f.type and b.ip=f.ip and b.ip='''+a+'''  order by b.no');       open;       DBGrid1.DataSource:=DataSource1;       end;

爱睡的狗狗 · 2006-11-29

多人接受答案了。

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

蓝叶菱

Unregistered / Unconfirmed

mydecpu

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

yunxi126

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

sssreader

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

爱睡的狗狗

Unregistered / Unconfirmed

Similar threads