DELPHI - Autonumber sederhana dengan ADOTable Delphi tanpa Stored Function

Selamat sore pemirsa... :D

kali ini saya akan bagikan coding untuk autonumbering tanpa stored function (murni pakai tabel). :p

kalo bisa sih pake stored function gan, ada di postingan sebelumnya.

contoh penomoran otomatis dengan ketentuan :

char [5],

format R0001..R9999,

nama tabel : supplier,
id supplier baru akan ditampilkan dalam komponen dbEdit1.text

procedure TfrmSupplier.btnNewClick(Sender: TObject);
var IdBaru, IdTerakhir: integer;
katakunci : string;
begin
IF tblSupplier.RecordCount=0 then
begin
tblSupplier.Insert;
dbEdit1.Text:='R0001';
end
else
begin
tblSupplier.Last;
IdTerakhir :=STRTOINT(copy((tblSupplier.FieldByName('IdSupplier').AsString),2,4));
katakunci :=copy((tblSupplier.FieldByName('IdSupplier').AsString),1,1);
IdBaru :=IdTerakhir+1;
tblSupplier.Insert;
if IdBaru<=9 then dbEdit1.Text:=CONCAT(katakunci,'000',INTTOSTR(IdBaru))
else if IdBaru<=99 then dbEdit1.Text:=CONCAT(katakunci,'00',INTTOSTR(IdBaru))
else if Idbaru<=999 then dbEdit1.Text:=CONCAT(katakunci,'0',INTTOSTR(IdBaru))
else dbEdit1.Text:=CONCAT(katakunci,INTTOSTR(IdBaru));
end

end;



Oke terimakasih telah berkunjung di blog ane :D