Pencarian data ala google search di delphi
-Pencarian data ala google search di delphi maksudnya yaitu pencarian data pada database tanpa menggunakan bantuan tombol search, jadi Cuma menggunakan bantuan TEdit untuk mencari datanya. Masih bingung? Anda pernah buka google? Ya kayak gitu maksud dari pencarian datanya, jadi tinggal menginputkan nama/id/… apalah yang mau di jadiin patokan data yang mau ditampilkan. Misal, saya mempunyai data anggota, didalam data anggota terdapat anggota ber-nama Andi, Afif dan Siti. Jadi ketika kita mengetikan huruf A saja maka yang di tampilkan di DBGrid hanya data yang memiliki nama dg huruf A yaitu Andi dan Afif, sedangkan Siti tidak muncul karena tidak ada huruf A dalam nama Siti, setelah itu ketika kita menginputkan huruf selanjutnya maka data yg di tampilkan akan diseleksi lagi menyesuaikan dengan huruf apa saja yg kita ketikkan di TEdit pencarian, dan seterusnya sampai data yg dicari benar2 muncul.Pada tutorial ini saya menggunakan database Ms.SQL Server, dengan bantuan koneksi ADOConnection dan data setnya menggunakan ADOQuery dan DataSource.
Langsung saja berikut step by step Pencarian data ala google search di delphi.
1. Delphi >> New Project.
2. Tambahkan komponen ADOConnection, ADOQuery, DataSource, DBGrid, dan TEdit pada form yg tersedia.
3. Buat procedure tampil
procedure TForm1.tampil;
begin
with ADOQuery1 do
begin
Active:=False;
SQL.Text:='select * from anggota';
Active:=True;
DBGrid1.DataSource:=DataSource1;
DataSource1.DataSet:=ADOQuery1;
end
end;
begin
with ADOQuery1 do
begin
Active:=False;
SQL.Text:='select * from anggota';
Active:=True;
DBGrid1.DataSource:=DataSource1;
DataSource1.DataSet:=ADOQuery1;
end
end;
4. Buat koneksi databasenya, caranya klik 2x pada Event OnShow dan ketikan syntak dibawah ini
procedure TForm1.FormShow(Sender: TObject);
begin
try
with ADOConnection1 do
begin
LoginPrompt:=False;
ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=zonatiga;Data Source=Name_server';
Connected:=True;
end;
ShowMessage('KONEKSI SUKSES');
ADOQuery1.Connection:=ADOConnection1;
DataSource1.DataSet:=ADOQuery1;
except
ShowMessage('KONEKSI GAGAL');
end;
end;
begin
try
with ADOConnection1 do
begin
LoginPrompt:=False;
ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=zonatiga;Data Source=Name_server';
Connected:=True;
end;
ShowMessage('KONEKSI SUKSES');
ADOQuery1.Connection:=ADOConnection1;
DataSource1.DataSet:=ADOQuery1;
except
ShowMessage('KONEKSI GAGAL');
end;
end;
ganti ‘zonatiga’ dengan nama database masing-masing dan ‘Name_server’ dengan nama Server komputer masing-masing.
ADOQuery1.SQL.Text := 'Select * FROM anggota WHERE nama Like' + QuotedStr(Edit1.Text + '%');
ADOQuery1.Active := true ;
ADOQuery1.Active := true ;
6. Run/jalankan program. Maka hasilnya akan seperti dibawah ini
Semoga bermanfaat, jangan lupa share&komen. Kalo sedikit mengalami kebingungan boleh bertanya dengan cara komen dibawah ini.
Demikianlah Artikel Pencarian data ala google search di delphi
Sekianlah artikel Pencarian data ala google search di delphi kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
0 Response to "Pencarian data ala google search di delphi"
Posting Komentar