CARA MEMBATASI PRIMARY KEY PADA TABLE DI FORM DELPHI 7

Assalamualaikum wr.wb..

saya akan menjelaskan sedikit suatu penanganan yang biasanya terjadi dalam dunia Newbie (seperti saya)

:)
baik, mari meminyak..
eh..nyimak..

Sebelumnya sudah dipastikan kita bisa koneksi Adotable ke Database, dan ditampilkan ke DbGrid..
...
Kewajiban suatu Primary Key di sebuah table, adalah tidak memiliki data yg sama (kembar/siyam/jiplak/copy)..
Langkah-langkahnya..
1. Klik Edit yg sebagai inputan data primary, contoh : enomer_masuk dalam bentuk (edit).
2. Masuk ke "object inspector" ke Tab "Events"..
3. Cari pilihan "Onexit"..klik 2 kali, dan terakhir..masukan skrip ini...
..
if adotampil.Locate('KODE_BARANG',enomer_masuk.Text,[]) then
begin
Application.MessageBox('NOMER MASUK SUDAH DIGUNAKAN','INFORMASI',mb_iconstop);
enomer_masuk.Clear;
enomer_masuk.SetFocus;
end
..
Keterangan, sebagai berikut..
>> untuk adotampil.locate..kita arahkan ke data Primary Key ditabel database..saya menggunakan NOMER MASUK dan diinput dari enomer_masuk.text..
>> Pesan aplikasi, menggunakan ikon STOP.
>> setelah pesan keluar, ekode_barang dibersihkan (clear), karena data sudah ada/ mengarah kedata yg sama.
>> ekode_barang menjadi fokus kembali (setfocus).
Terimakasih..