P
pengd
Unregistered / Unconfirmed
GUEST, unregistred user!
[]我要做一个三层结构的分批量获取数据应用程序,其中客户端用Clientdataset1获取从中间层检测到的数据,
其中有clientdataset1.fetchonDemand:=false;clientdataset1.packetrecords:=5;各个组件关联都没有问题。
procedure TFORM1.FormShow(sender:TObject);
begin
clientdataset1.data:=clientdataset1.datarequest('select * from user');
end;
中间层用adoquery1,datasetprovider1组件
function TMtsDocumentObj.Tdatasetprovider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
var
RecsOut:integer;
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add(input);
adoquery1.open;
with sender as TdatasetProviderdo
begin
result:=getrecords(5,RecsOut,ResetOption);
end;
end;
user表一共有50条记录,第一批传5条记录,然后我想点击button1进行第二批数据,第三批数据......
请问高手如何编写button1的onclick程序代码,谢谢啦!
其中有clientdataset1.fetchonDemand:=false;clientdataset1.packetrecords:=5;各个组件关联都没有问题。
procedure TFORM1.FormShow(sender:TObject);
begin
clientdataset1.data:=clientdataset1.datarequest('select * from user');
end;
中间层用adoquery1,datasetprovider1组件
function TMtsDocumentObj.Tdatasetprovider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
var
RecsOut:integer;
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add(input);
adoquery1.open;
with sender as TdatasetProviderdo
begin
result:=getrecords(5,RecsOut,ResetOption);
end;
end;
user表一共有50条记录,第一批传5条记录,然后我想点击button1进行第二批数据,第三批数据......
请问高手如何编写button1的onclick程序代码,谢谢啦!