Case with AdoQuery + ListView paging

xiaoxiao2021-03-06  89

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); procedure Button1Click (Sender: TObject); procedure Button2Click ( Sender: TOBJECT); private {private declarations} process; public {public declarations} end; var form1: tform1;

{$ R * .dfm}

Procedure TForm1.FormCreate (Sender: Tobject); Var ListIn; I: Integer; Begin With Adoconnection1 Do Begin Connectionstring: = 'Connection Stroke'; Open (); End; Page: = 0;

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;

Procedure tform1.button1click (sender: TOBJECT); begin page: = page 1; page_count; label1.caption: = INTOSTR (PAGE);

Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT); begin page: = page -1; page_count; label1.caption: = INTOSTR (PAGE);

转载请注明原文地址:https://www.9cbs.com/read-95605.html

New Post(0)