请高手们赐教

[sdlxj]

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

[立志做一个佳娃~]

procedure tform1.dbnavigator1click(sender:tobject;button;tnavigatebtn);
begin
label1.caption:=inttostr(adodataset1.recno);
end;

祝：身体健康，提前完工：）

[火龙岛主]

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;
或者
直接在数据库段设置自增字段