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获取从中间层检测到的数据，其中有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程序代码，谢谢啦！