delphi ID递增问题，求高手
我现在做一个人事管理的程序，如何让按一下‘添加’按钮，ID就递增呢（首先要检查数据库的ID最大值然后+1）如：00001，00002，00003...00009，00010，00011。代码如何实现，我用的ADO连接，数据库MYSQL 2000

[解决办法]

Delphi(Pascal) code

Uses StrUtils;const str='00000';var  NewId:String;begin with Adoquery1 do begin  Close;  Sql.Text:='Select Max(ID) As ID From t Order By ID';  Open;  NewId:=RightStr(str+IntToStr(StrToIntDef(Fields[0].AsString,0)+1),5);  ...  end;end;
[解决办法]
噢，错了，该这样：
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var NewId:String;begin  with Adoquery1 do begin    Close;    Sql.Text:='Select Max(ID) From table ';    Open;    NewId:=Format( '%.5d', [ StrToIntDef( Fields[0].AsString,0 ) + 1 ] );    showmessage('新的ID值为：'+NewId);  end;end;
[解决办法]
探讨

gzzai的朋友，你的代码只能增加一次，可是在一次按添加按钮还是原来的数字，就是不递增？？？
求解！！！！！！！！！