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