想做一个查询,每次显示数据库里的10条数据,加两个按钮实现上一页和下一页的翻页功能,
看了网上有介绍说可以用adoquery.recordset.pagesize:=10来实现,
但我不知道该怎么让dbgrid关联到adoquery的页,
有没有哪位大哥能给个代码学习一下,先谢谢了,
组件:adoconnection,adoquery1,datasource,dbgrid,button1(上一页),button2(下一页),
看了网上有介绍说可以用adoquery.recordset.pagesize:=10来实现,
但我不知道该怎么让dbgrid关联到adoquery的页,
有没有哪位大哥能给个代码学习一下,先谢谢了,
组件:adoconnection,adoquery1,datasource,dbgrid,button1(上一页),button2(下一页),
解决方案 »
- win2003共享文件夹网络访问
- 如何获取服务器返回数据长度?
- 初学DELPHI,大家来帮帮我~~~~
- 我想用 delphi 的三层 Midas 做一个互联网的 软件 , 客户端 用 socketconnection 连接 , 请问 用 midas 做 互联网的 软件 好不好??
- SQL语句,高手帮忙
- 一个问题,急
- 各位大侠,帮帮忙啊?小小问题希望能帮帮我!!
- csdn的分有什么用?
- ihihonline ihihonline ihihonline看看你的留言
- 求教关于程序执行后报错:sql statement dosen't return rows的问题
- ztv 控件 大文件压缩问题, 用过的进~
- DBGridEH 的非常棘手的问题!!!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB,Grids, DBGrids, StdCtrls, ComCtrls;type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ListView1: TListView;
Label1: TLabel;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
procedure Page_Count;
public
{ Public declarations }
end;
var
Form1: TForm1;
page: integer;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
ListItem:TListItem;
i:integer;
begin
with AdoConnection1 do
begin
ConnectionString := '连接串';
open();
end;
Page := 0;
end;procedure TForm1.Page_Count;
var
i:integer;
ListItem:TListItem;
begin
ListView1.Clear;
with AdoQuery1 do
begin
Connection := AdoConnection1;
sql.Clear;
sql.Add('select a,b from tmplive');
open;
if Page = 0 then Page := 1;
if Page > RecordSet.RecordCount then page := RecordSet.RecordCount;
Recordset.PageSize := 10;
RecordSet.AbsolutePage := Page;
for i:= 1 to Recordset.PageSize do
begin
ListItem := ListView1.Items.Add;
ListItem.SubItems.Add(RecordSet.Fields.Item[0].value);
ListItem.SubItems.Add(RecordSet.Fields.Item[1].Value);
Next;
if RecordSet.EOF then exit;
end;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Page := Page+1;
Page_Count;
Label1.Caption := IntToStr(Page);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Page := Page -1;
Page_Count;
Label1.Caption := IntToStr(Page);
end;end.