delphi 中如何把一个记录集赋值给一个变量
vari:Integer;d_i:string;text_1:arrayofstring;q1,q2,q3:TQuery;beginwithq1dobeginClose;...
var
i:Integer;
d_i:string;
text_1: array of string;
q1,q2,q3:TQuery;
begin
with q1 do
begin
Close;
sql.Clear;
SQL.add('select distinct fpdm from interface ');
Open;
end;
d_i:=q1.fieldbyname('fpdm').asstring;
for i:=1 to 9 do
with q2 do
begin
Close;
sql.clear;
sql.add('select max(id) from interface where fpdm=00000'+inttostr(i));
Open;
end;
tax_id:=q2;//这里就是我要赋值的变量
end; 展开
i:Integer;
d_i:string;
text_1: array of string;
q1,q2,q3:TQuery;
begin
with q1 do
begin
Close;
sql.Clear;
SQL.add('select distinct fpdm from interface ');
Open;
end;
d_i:=q1.fieldbyname('fpdm').asstring;
for i:=1 to 9 do
with q2 do
begin
Close;
sql.clear;
sql.add('select max(id) from interface where fpdm=00000'+inttostr(i));
Open;
end;
tax_id:=q2;//这里就是我要赋值的变量
end; 展开
展开全部
这里的d_i也没有什么用呀。
tax_id是什么变量呀,如果也是TQuery类型这样就可以的。
当然这里可定有错误的,q1,q2都是要实例化的。
tax_id是什么变量呀,如果也是TQuery类型这样就可以的。
当然这里可定有错误的,q1,q2都是要实例化的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果你非得这样干的话,你就先定义一个记录类型变量。把一个数据集赋值给这个变量。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把这个函数的返回值为:TQuery不就可以解决了。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询