AutoNumber pada Delphi

Penampakan seperti diatas terdiri dari tanggal + inisial pelanggan saya singkat PP + no urut pelanggan

Komponen yang digunakan qpelanggan= adoquery

letakkan pada procedure atau sesuai kebutuhan anda...

procedure autonumber;

berikut lisitng program nya :

procedure TForm1.autonumber;

var

kode : Double;

begin

qpelanggan.Close;

qpelanggan.SQL.Clear;

qpelanggan.SQL.Add(' select * from tblpelanggan order by kd ');

qpelanggan.Open;

if qpelanggan.RecordCount = 0 then

kode:=001

else

begin

qpelanggan.Last;

kode:=StrToFloat(copy (qpelanggankd.AsString,1,3));

kode:=kode + 1;

end;

edkode.Text:=  FormatDateTime('yy//mm/dd',Date) + 'PP'  + FormatFloat('000',kode);

if qpelanggan.RecordCount > kode then

begin

ShowMessage('database full hubungi pengembang');

Form1.Close;

end;