Cara Auto Increment Menambah Nomor Otomatis di Delphi

Assalamu'alaikum Wr. Wb.
Halo halo sahabat, bagaimana kabarnya nih?

Kali ini admin mau berbagi tentang delphi lagi nih. Nah, ini adalah salah satu potongan program dari tugas UKK (Ujian Praktek) di SMK admin nih... Hehe. Maklum, isinya semua sintaks - sintaks yang bikin pusing lah...

Tutorial kali ini akan membahas tentang "Cara Auto Increment Menambah Nomor Otomatis di Delphi".

Sintaks yang admin gunakan ini 100% percobaan dari admin sendiri lho. Jadi maaf ya kalau tidak sesuai dengan apa yang diharapkan sahabat.

Nah, berikut sedikit penampakkan dari program yang telah admin buat :

Ini codingnya sahabat :

begin
EdKasir.Text := 'K'+IntToStr(DM.TKasir.RecordCount+1);
If DM.TKasir.Locate('id_kasir', EdKasir.Text,[]) = true then
begin
EdKasir.Text := 'K'+IntToStr(DM.TKasir.RecordCount+2);
end
else
begin
EdKasir.Text := 'K'+IntToStr(DM.TKasir.RecordCount+1);
end

Penjelasan :