例用AdoQuery分页

最新推荐文章于 2021-04-05 04:54:19 发布

java169

最新推荐文章于 2021-04-05 04:54:19 发布

阅读量350

点赞数

文章标签： listview button google integer forms windows

本文链接：https://blog.csdn.net/java169/article/details/2460526

版权

这篇博客展示了如何在Delphi中利用AdoQuery组件进行分页查询。在FormCreate事件中设置AdoConnection1的连接字符串并打开连接。Page_Count函数用于填充TListView，每次显示10条记录，并在Button1Click和Button2Click事件中实现翻页功能，更新显示的页数。

摘要由CSDN通过智能技术生成

unit Unit1;

interface

uses
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);
procedu