delphi select max 赋值给label caption

var max1:single;
with DataModule5.ADOQuery7 do
begin
close;
sql.Clear;
max1:=sql.add('select max(收费单编号) as max from 临时车辆付款纪录表 where 卡号=:a');
Parameters.parambyname('a').value:=Trim(edit1.text);
execsql;
end ;
label17.caption:=floattostr(max1);

貌似语句有错 label17 显示的是0 。求修改

var max1:string;
with DataModule5.ADOQuery7 do
         begin
           close;
           sql.Clear;
           sql.add('select max(收费单编号) as resmax from 临时车辆付款纪录表 where 卡号=:a');
           Parameters.parambyname('a').value:=Trim(edit1.text);
           open;
           max1:=FildByName('resmax').AsString;
           end ;
           label17.caption:=max1;

可以用select(max)获得关键字中的最大值，然后让其加1并保存就可以了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息