Pencarian Data Berdasarkan Kategori Menggunakan Delphi

Posted by Admin

Pagi para blogger semua, kali ini saya akan share bagaimana cara mencari data berdasarkan kategori yang kita pilih.

Pencarian Data sangat dibutuhkan apalagi data yang kita cari tersebut  sudah mencapai ratusan dan ribuan pasti akan terasa sulit sewaktu kita mencari data tersebut.

Nah, Maka dari itu saya akan membantu para programmer pemula yang membutuhkan pencarian data secara otomatis tampil berdasarkan kategori yang kita pilih. Databasenya Menggunakan microsoft acces.

Komponen yang kita butuhkan adalah:

-RadioButton 2
-Editteks
-DBGrid

Pertama desainlah Form seperti berikut:

Kemudian double klik edit teks buatlah coding seperti dibawah ini:

procedure TForm1.ECariChange(Sender: TObject);
begin
if RadioButton1.Checked then
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select* from Siswa');
    SQL.Add('where Nis like'''+ECari.Text+'%''');
    ExecSQL;
    Open;
  end;
end
else if RadioButton2.Checked then
with ADOQuery1  do
     begin
     Close;
    SQL.Clear;
    SQL.Add('Select* from Siswa');
    SQL.Add('where Nama like'''+ECari.Text+'%''');
    ExecSQL;
    Open;
  end;
end;

Hasilnya:

Bagi yang bosan ngetik ne gue kasih sourcenya bisa didownload di bawah ini:

Tutorial Pemrograman Delphi

Share This :