一个简单的编码问题？

Question

我在添加记录的时候自动实现编号，我删除其中的一条记录时其他记录编号也要发生编号
要保证编号一直是顺序1、2、3……
如何做

Answer 1

UPDATE table
  SET id=id-1
WHERE id>thedeleteid

Answer 2

after delete action:    i := 1;
    with ADODataSet1 do begin
        First;
        while not Eof do begin
            CommandText := 'update table1 set id=' + IntToStr(i);
            ExecSQL;
            Inc(i);
            Next;
        end;
    end;

Answer 3

在删除一笔记录时，记录此记录ID号CurrID
然后用SQL语句更新回数据库
with adoquery do
begin
close;
sql.clear;
sql.add('update table set id=id-1 where id>'''+CurrID+'''');
execsql;
end