MENGETAHUI DATA SUDAH ADA

Dalam sebuah program biasanya ada sebuah modul untuk input data, data yang memerlukan inputan data berupa Kode dimana kode ini sifatnya unik atau hanya ada satu , atau berupa primary key, misalnya memasukan Kode Anggota pada inputan data Anggota Program Koperasi, atau Inputan Nomer Induk Mahasiswa, atau inputan Nomer Induk Pegawai dan lain lain. Jika kita menggunakan pengkodean secara manual maka kendala yang kita hadapi adalah untuk mengetahui apakah kode yang kita ketikan itu sudah ada dalam database atau tidak, lain halnya kalau kita menggunakan teknik pengkodean secara otomatis.  Untuk mengetahui apakah data  yang kita ketikan sudah ada atau belum, kita harus memahami logikanya terlebih dahulu, Secara logika untuk mengetahui apakah data yang kita ketikan tersebut sudah ada atau belum adalah dengan memeriksanya kedalam tabel bersangkutan, jadi kita harus memeriksa apakah data yang akan kita masukan sudah ada atau belum, kalau sudah ada kita harus menampilkan peringatan kalau data sudah ada, kalau belum ada kita bisa melanjutkan memasukan data.  Setelah kita paham logikanya barulah kita memikirkan codingnya, Berdasarkan logika tadi , yaitu pada saat kita memasukan kode baru , kita harus memeriksa dulu kedalam tabel, untuk memeriksa isi tabel tentunya kita menggunakan perintah SELECT pada sqlnya. 

Misalnya sebelemu proses simpan data , kita lakukan pengecekan sebagai berikut:

      with Querybaca do

      begin

           Close;

           Sql.clear;

           sql.add('Select kode from tabelstock');

           sql.add('Where kode=:pkode');

           Parambyname('pkode').Asstring:=dbKode.field.asstring;

           Open;

      end;

if Querybaca.isempty  then   [Lanjutkan Proses Simpan ] Else  [Tampilkan Pesan Data Sudah Ada]

Keterangan :

Querybaca : Komponen Query pada Delphi ( sesuai dengan database yg dipakai apakah ADOQuery atau Query dari Komponen ZEUS dll )

dbKode :adalah tempat menginputkan Kode, apakah itu berupa Edit Text atau DBEdit sesuai dengan gaya pemrograman masing masing

[Lanjutkan Proses Simpan ] : adalah Proses Penyimpanan data

[Tampilkan Pesan Data Sudah Ada] : Coding Tampilkan peringatan kalau data sudah ada. kemudian batalkan proses penyimpanan