Memahami Perintah SQL Like Studi Kasus Mencari data Mahasiswa Berdasarkan Nama dan Menampilkan Jumlah Record

Pada tutorial kali ini akan dibahas bagaimana mencari data di Delphi Menggunakan Perintah SQL Like dimana outputnya data yang dicari akan di filter berdasarkan Nama  kemudian hasilnya akan ditampilkan di Grid dan di hitung Jumlah recordnya. Pengetahuan dasar untuk memahami tutorial ini adalah penggabungan Perintah di Delphi dan Perintah SQL khususnya SQL dengan Perintah Like

Memahami SQL Like

Perintah ini sering digunakan bersama-sama dengan perintah SELECT, dan biasanya dimanfaatkan untuk pencarian data. Sesuai dengan artinya LIKE berarti mirip. Jadi yang dicari adalah suatu data yang mirip dengan apa yang kita inginkan.

Ada beberapa kombinasi untuk perintah ini,

Simbol “%”

Simbol ini biasanya digunakan untuk mengabaikan semua string atau zero.

Misalnya kita punya data tabel berikut :

Tabel A

Kode	Nama
1001	Budi Handoko
1002	Budi Salam
2003	Slamet Budiono
2005	Abdul Budiyanto
3006	Guntur Slamet
4007	Budi Guntur
5001	Slamet Raharjo
6003	Guntur Saputra
6004	Dwi Raharjo

Misalkan kita perintahkan begini :

Mencari nama depan :

SELECT* FROM tabel_A WHERE nama LIKE ‘Budi%’

Maka data yang ditampilkan atau dihasilkan adalah semua nama yang mempunyai nama awal “Budi”, seperti tabel yang dihasilkan dibawah ini,

Kode	Nama
1001	Budi Handoko
1002	Budi Salam
4007	Budi Guntur

Cara Kerja Aplikasi

Ketika Aplikasi di RUN Data Mahasiswa akan ditampilkan dan dihitung Jumlah Mahasiswanya seperti terlihat pada form berikut

DATA SEBELUM DILAKUKAN FILTER

Selanjutnya data Nama di input di edit Nama dan Nanti akan Muncul data yang di cari berdasarkan huruf yang diketik. dan ditampilkan di Grid Beserta Jumlah Recordnya Seperti berikut:

SESUDAH DI FILTER BERDASARKAN NAMA

Script Programmingnya untuk menampilkan hasil diatas adalah Sbb:

procedure TFMahasiswa.ed_cari_namaChange(Sender: TObject);
begin
WITH FMahasiswa DO
  BEGIN
      with Qmahasiswa do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tmahasiswa where nama like '+QuotedStr(ed_cari_nama.Text+'%'));
          open;
          if Active and not IsEmpty  then
            lhasil.Caption := 'Data :'+inttostr(qmahasiswa.RecordCount)+' Record'
               else
               lhasil.Caption := 'Data : 0 Record'

        end;
  END;
end;
 

SELAMAT MENCOBA

PADEPOKAN IT COURSES
IT Tutorial, Training, & IT Solution

www.padepokanit.com