Memahami Fungsi Pencarian Data di Delphi Menggunakan Event On Change Pada Komponen Edit. Studi Kasus Mencari Data Berdasarkan NIM

Ketika melakukan Pencarian data kita bisa menggunakan fasilitas On Change pada komponen edit dimana cara kerjanya data akan ditampilkan jika ID yang di cari benar. Yang dimaksud dengan event On change adalah ketika kita menginput sebuah huruf atau angka di dalam edit, hasilnya akan langsung berubah. Untuk memahaminya kita coba membuat suatu aplikasi pencarian data mahasiswa berdasarkan NIM. Jadi jika nim yang dicari benar maka nama dan alamatnya  otomatis akan tampil.

Syntak

procedure TFPenelitian_Mahasiswa.ed_nimChange(Sender: TObject); begin if Length (ed_nim.Text) < 8 then   Begin     exit;   end; 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_alamat.Text := QMahasiswa['alamat'];            ed_nama.SelectAll;          End        else          begin             application.MessageBox ('Nim Tersebut Belum Terdaftar..','info',MB_ok + MB_NOFOCUS + MB_ICONERROR);             ed_nim.setfocus;             ed_nim.Clear;             exit;             end;   end; end;

Keterangan  Sintak SQL diatas menggunakan SQL Like dimana Kriteria atau operator Like digunakan dalam kueri untuk menemukan data yang cocok dengan pola tertentu. Kriteria atau operator Like sangat berguna saat sedang membandingkan nilai bidang dengan ekspresi string.  Dalam syntak diatas kriteria yang dicari berdasarkan Nim. Sehingga outputnya jika Nim benar maka Nama dan Alamat akan otomatis ditampilkan.

Output Aplikasi

PENCARIAN DATA MENGGUNAKAN
EVENT ON CHANGE PADA KOMPONEN EDIT

PADEPOKAN IT COURSE

IT Tutorial, Training Center & IT Solution

www.padepokanit.com

Share

Artikel Lainnya :