请高手们赐教

Question

如何将数据库里的记录号自动赋值给edit
即先从数据库里读取当前记录是第几条，然后再把记录号+1赋值给edit.
如何实现。

Answer 1

procedure tform1.dbnavigator1click(sender:tobject;button;tnavigatebtn);
begin
label1.caption:=inttostr(adodataset1.recno);
end;祝：身体健康，提前完工：）

Answer 2

with adoquery1 do
begin
  connection:=adoconnection;
  close;
  sql.clear;
  sql.add('select AID from yourtable ');
  last;
  open;
  edit1.text:=inttostr(Strtoint(fields[0].asstring)+1);
end;
或者
 直接在数据库段设置自增字段