Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

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 :



1 comment:

  1. Kok error di farams.farambyname ya...kira kira apanya yg kurang ya?

    ReplyDelete

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution