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;  

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;  

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.

0 Response to " Cara Mengecek Primary Key Pada Saat Input Di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!