adoquery1.open() //保存记录
adoquery1.first;
id:=adoquery1('id');
//需要 插入记录
adoquey1.insert;
if id <>1 then adoquery1('id')=1 
else
    begin
           while true do 
         begin
              tempid:=adoquery1('id')
             adoquery1.next;
            if adoquery1.eof then 
                 begin
                 id=tempid+1;
                 exit do
           else
                 begin
                        
       end;    end;