首先在窗體上放個listview,兩個button,乙個label,乙個adoquery,乙個adoconnection
然後用adoconnection建立乙個連線
unit unit1;
inte***ce
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
procedure page_count;
public
end;
varform1: tform1;
page: integer;
implementation
procedure tform1.formcreate(sender: tobject);
varlistitem:tlistitem;
i:integer;
begin
with adoconnection1 do
begin
connectionstring := '連線串';
open();
end;
page := 0;
end;
procedure tform1.page_count;
vari: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.
Delphi用ADOquery主從表例子 轉總結
在sql server 的northwide 中建立主表 create table sell h sell id char 10 cust name char 10 primary key sell id gocreate table sell h sell id char 10 inv char ...
用HibernateTemalate分頁的注意事項
在如下類中利用hibernatetemalate實現分頁,這樣則可以正確分頁。開始的時候為了分頁方便,專門做了乙個分頁的封裝類paginglogic如下 當我在public class relaystationdaoimpl extends hibernatedaosupport implement...
業務用例和系統用例
拋開前一篇文章談的總體思路,我們今天來談一下需求分析工作實質性的做些什麼。在這裡,我們,將主要關注於分析層面,也即 uml中的用例模型和邏輯模型。在這裡要申明的是邏輯模型並不能完全算需求分析階段的工作,因為它包含了設計模型的概念,但是我又把它歸納了一塊到需求分析階段,原因在於邏輯模型中存在了業務物件...