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

 

Share

Artikel Lainnya :