Cara Mengecek Primary Key Pada Saat Input Di Delphi 7

Selamat malam agan-agan , postingan kali ini saya akan membahas mengenai Cara Mengecek Primary Key Pada Saat Input Di Delphi 7.Maksudnya !? Misalnya anda membuat aplikasi input barang.Setiap barang memiliki nama dan ID-nya masing-masing.ID atau primary key ini haruslah unik.Artinya tidak boleh lebih dari satu.Apa yang terjadi bila primary key lebih deri satu !? Ya error lah programnya.Untuk mencegah hal tersebut terjadi , mari kita bahas bersama-sama.Untuk postingan kali ini , kita tidak akan membuatnya dari nol , namun sedikit memodifikasi kode yang saya tulis pada postingan Tutorial Aplikasi Database Part-2.Cara pencegahan dopost primary key bukan hanya seperti ini , namun bila anda silahkan ikuti cara saya.

Cari kode seperti di bawah ini pada postingan Tutorial Aplikasi Database Part-2.

Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);
Begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
     edNama.setFocus;
    End;
  End;
End;

Lalu modifikasi kode tersebut menjadi seperti ini.

Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);
Begin
with DM.TBarang do
begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
  //membandingkan edKodeBarang dengan data kode barang di database
  //kalo ada , langsung muncul pesan seperti kode di bawah
  if locate('kdBarang',edKodeBarang.text,[locaseinsensitive]) then
   begin
    showmessage('Maaf , kode barang sudah terdaftar dalam database');
    edkodeBarang.clear;
   end
  else
   begin
    edNama.setFocus;
   end;
    End;
  End;
End;
end;

Intinya , kita hanya membandingkan saja edKodeBarang dengan data primary key pada database.JANGAN LUPA !! Tambahkan DB pada klausa uses.Kalau tidak maka program akan error.Karena penggunaan function [locaseinsensitive] tanpa menyertakan DB.Okey , sekian tutorial kali ini semoga bermanfaat.

Simak Juga Tutorial Lainnya: