Tips Menampilkan Pencarian Data di Delphi menggunakan SQL Like Event On Change pada Edit Text

Ditutorial sebelumnya telah dibahas bagaimana mencari data dengan menampilkan jumlah record pada DBGRID tutorialnya bisa dilihat Disni. Pada Tutorial ini akan dibahas bagaimana mencari data menggunakan Syntak SQL Like dan dikombinaskan dengan Inputan Edit Text dimana data yang akan dicari berdasarkan id dan data tersebut akan ditampilkan. 

Cara Kerja Aplikasi

Nim di input pada Edit Text maka jika nim yang di input sesuai maka akan ditampilkan datanya, jika tidak ada di sistem NIM tersebut maka akan muncul messegbox bahwa nim tersebut tidak ada. Outputnya seperti terlihat pada gambar dibawah ini

OUTPUT APLIKASI

Source Code adalah Sebagai Berikut

procedure TFPenelitian_Mahasiswa.ed_nimChange(Sender: TObject);
begin
with FPenelitian_Mahasiswa do
   with QMahasiswa do
     begin
       sql.Clear;
       sql.Add('Select * from Tmahasiswa where nim like :nim order by nim');
       Params.ParamByName('nim').Value:= '%'+ed_nim.Text+'%';
       Active := true;
       if not QMahasiswa.IsEmpty then
         Begin
           ed_nama.Text := QMahasiswa['nama'];
           ed_nama.SelectAll;
         End
       else
         begin
            application.MessageBox ('Nim Tersebut Belum Terdaftar..','SIMlab',MB_ok + MB_NOFOCUS + MB_ICONERROR);
            ed_nim.setfocus;
            exit;
         end;
  end;
end;

Selamat Mencoba

PADEPOKAN IT COURSES
IT Tutorial, Training Center & IT Solution
www.padepokanit.com

 

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