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.

1. Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);  
2. Begin  
3.  If key=#13 then  //fungsi bila tombol enter ditekan  
4.   Begin  
5.    If edKodeBarang.text <> '' then  
6.     Begin  
7.      edNama.setFocus;  
8.     End;  
9.   End;  
10. End;  

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.

1. Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);  
2. Begin  
3. with DM.TBarang do  
4. begin  
5.  If key=#13 then  //fungsi bila tombol enter ditekan  
6.   Begin  
7.    If edKodeBarang.text <> '' then  
8.     Begin  
9.   //membandingkan edKodeBarang dengan data kode barang di database  
10.   //kalo ada , langsung muncul pesan seperti kode di bawah  
11.   if locate('kdBarang',edKodeBarang.text,[locaseinsensitive]) then  
12.    begin  
13.     showmessage('Maaf , kode barang sudah terdaftar dalam database');  
14.     edkodeBarang.clear;  
15.    end  
16.   else  
17.    begin  
18.     edNama.setFocus;  
19.    end;  
20.     End;  
21.   End;  
22. End;  
23. end;  

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.