Pencarian Data (Items) pada ComboBox dengan TextBox

26 09 2012

delphiPada tip berikut ini, Anda akan mempelajari cara mencari suatu data (items) pada ComboBox dengan mengisikan ID-nya (identitas) pada TextBox sehingga ketika Anda mengisikan ID tersebut, secara otomatis nama yang dicari akan muncul. Akan tetapi kemunculan data tersebut akan terjadi jika Anda mengisikan data pencarian yang benar-benar ada dalam TextBox tersebut. Jika dalam ComboBox tidak terdapat data tersebut, maka isi masukkan TextBox tersebut tidak akan menampilkan data secara otomatis. Untuk lebih jelasnya silahkan Anda mengikuti cara pembuatannya berikut ini.

1. Desain Form baru Anda dengan dengan menambahkan sebuah komponen Edit dan ComboBox

2. Sekarang isikan data daftar nama (items) pada kontrol ComboBox tersebut, misal dengan nama teman-teman Anda atau yang lainnya.

3. Arahkan kursor Anda ke jendela unit dan tambahkan listing program berikut selengkapnya :

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift:TShiftState);
var
  X: Integer;
  Temp: String;
function CheckCombo(InString: String): String;
var
  X: Integer;
begin
  for X:=0 to ComboBox1.Items.Count-1 do
    if LowerCase(copy(ComboBox1.Items.String[X], 1, length(InString)))=LowerCase(InString) then
      begin
      Result:=ComboBox1.Items.String[X];
      Exit;
      end
    else
      Result:='';
    end;
  begin
  X:=Edit1.SelStart;
  Edit1.SelStart:=X;
  Edit1.SelLength:=1;
  Edit1.SelText:='';
  Temp:=CheckCombo(Edit1.Text);
  if Temp <> '' then
    Edit1.Text:=Temp
  else
    begin
    Edit1.SelLength:=Length(Edit1.Text)-X;
    Edit1.SelText:='';
    end;
  Edit1.SelStart:=X;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview:=True;
  Edit1.Text:='Ketik ID Hurufnya';
  ComboBox1.Text:='Cek Disini';
end;

4. Jalankan Aplikasi tersebut dan coba Anda isikan ID pada TextBox tersebut, misal “A”. Seketika itu juga, huruf tersebut berubah menjadi nama teman Anda yang memiliki awalan “A”. Hal itu terjadi karena data didalam ComboBox terdapat data nama yang memiliki awalan huruf “A”. Untuk membuktikan hal itu, coba Anda arahkan kursor Anda pada ComboBox ‘Cek Disini’ dengan klik tombol arah panah kebawah untuk mengecek apakah benar pada ComboBox tersebut terdapat data nama dengan yang muncul tersebut.

Selamat Mencoba!!


Aksi

Information

5 responses

15 12 2012
septa

klo pke vb gmn ya caranya

17 12 2012
Alit Widana

Dear Septa

Maaf saya tidak bisa memberikan jawaban yg memuaskan bagi Anda, karena vb sudah lama saya tinggalkan. Jadi saya sudah lupa dengan syntax vb.

Terima kasih atas komentarnya.

25 02 2013
IchalB2B

maaf gan, say newie banget ttg delphi..
saya mau nanya, kalw mau blajar tentang source code dan fungsinya dimana ya? atau forumnya di man?
maksih gan…

14 03 2013
Alit Widana

maaf gan baru saya balas..
untuk forum delphi sangat banyak ada gan, mulai dari yang lokal sampai international..
agan bisa mendapatkan alamatnya melalui mesin pencari google dengan mengetik “forum delphi”..
Terima kasih..

13 03 2013
Tajudin

Maaf bang, kalo misalnya teks hasil pencariannya diwarnai, gimana sintaks nya, mohon dijelaskan,,, ???
Misalnya kita mencari kalimat “Lombok”, kemudian kita mengetik “L” maka tulisan “ombok” nya berwarna.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: