Konsepnya seperti ini.Misal anda memiliki data karyawan dengan kategori : nama pengguna , user id , hak akses.Tambahkan comboBox dengan items kategori tadi.Tambahkan juga komponen TEdit.Pada event onChange TEdit inputkan kode berikut.
procedure TForm1.edit1Change(Sender: TObject); var a : String; begin case comboBox1.ItemIndex of 0 : a := 'nama_pengguna'; // 1 : a := 'user_id'; // nama kolom pada tabel anda 2 : a := 'hak_akses'; // end; if (edit1.Text <> '') and (comboBox1.Text <> '') then begin QueryTabelAnda.Close; QueryTabelAnda.SQL.Clear; QueryTabelAnda.SQL.Add('select * from tabelAnda where '+a+' like "%'+edit1.Text+'%"'); QueryTabelAnda.Open; dataGrid1.DataSource := QueryTabelAnda; end else begin QueryTabelAnda.Close; QueryTabelAnda.SQL.Clear; QueryTabelAnda.SQL.Add('select * from tabelAnda'); QueryTabelAnda.Open; dataGrid1.DataSource := QueryTabelAnda; end; end;
1 Komentar untuk "Pencarian Data Pada Database dengan InputBox Delphi"
gan maksud datasource pada bagian ini apa ya? dataGrid1.DataSource := QueryTabelAnda;