Ketika Anda membuat program yang menggunakan database banyak programmer menggunakan no urut yang bertipe integer/increment di dalam tabel (bawaannya DBMS). Cara tersebut memiliki kelebihan yaitu, no urut akan bertambah seiring bertambahnya jumlah data yang diisi kedalam tabel, juga meringankan beban kerja program. Namun cara tersebut memiliki kekurangan juga ketika record atau data tertentu dihapus, generate no urutnya akan terus bertambah tidak melihat data urut terakhir yang ada. Misal ada 10 data dengan no urut 1-10, kemudian data ke-9 dan ke-10 dihapus, ketika Anda menambah record/data baru no urut akan melanjutkan ke no-11, Karena DBMS merekam data yang terakhir yaitu 10 dan DBMS sendiri akan melanjutkan ke no-11. Karena masalah itu saya juga pernah mengalami kesulitan dan akhirnya saya menggunakan generate code seperti ini :
<br />var kd,st,newKd:string;<br />i,n:integer;<br />....<br />ADOTable1.Last;<br />if not(ADOTable1.eof and ADOTable1.Bof) then<br />begin<br /> kd:=ADOTable1.FieldByName('kode').AsString;<br /> // auto generate<br /> for i:=1 to 2 do<br /> st:=st+kd[i+1];<br /> n:=strtoint(st)+1;<br /> case length(inttostr(n)) of<br /> 1 : newKd:='K0'+inttostr(n);<br /> 2 : newKd:='K'+inttostr(n);<br /> end;<br />end<br />else newKd:='K01';<br />Edit1.Text:=newKd;

nb: Untuk field kode bertipe varchar/text dengan length 3.
Hasil akhir akan menghasilkan kode yang berurut yang mulai diawali dengan huruf :
K01
K02
K03
...
K99

Selamat mencoba...