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:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Proggraming

• Cara Membuat Integer to Binary Konverter dan Sebaliknya di Delphi
• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Cara Membuat Aplikasi Client-Server Di Delphi XE Dengan Datasnap
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Greeting Blogger Template Dengan JQuery
• Flip Blogger Template Dengan JQuery
• Mozaik Photo Blogger Template Dengan JQuery
• Template JQuery Image Editing Untuk Blogger

Entri

• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7