Tuesday, April 22, 2014

Cara Membuat Form Aplikasi Pencarian Sederhana Dengan TextEdit Delphi 7

Tags

Cara Membuat Form Aplikasi Pencarian Sederhana - Dalam setiap aplikasi baik itu local maupun client server pasti dilengkapi sebuah form untuk melakukan pencarian. Karena dengan adanya form tersebut maka seorang user dalam melakukan pencarian data menjadi sangat mudah, cepat dan efisien. Melakukan pencarian pada bahasa pemrograman delphi 7 biasanya menggunakan komponen yang disebut dengan TextEdit. 

Dalam setiap pencarian pun bervariasi dapat dilakukan berdasarkan id, nama, nama perusahaan, alamat dan lain sebagainya. Tergantung kepada permintaan user sendiri pada saat pembuatan program aplikasi tersebut.

Sebelumnya saya pernah share Tutorial SQL : Mencari Data di "Dua Field" Dalam Satu Tabel dan Mencari Data Yang Berbeda Di 2 Tabel SQL dengan Delphi . Dengan menggunakan Query MySQl / Bahasa SQL tersebut maka diperlukan sebuah form untuk melakukan pencarian tersebut.

Cara Membuat form aplikasi pencarian Sederhana

1. Buka Delphi 7 dan buat sebuah Project baru
2. Klik dan letakkan pada Form1 (TextEdit dan Button)
3. Tambahkan komponen ZeosLib letakkan pada Form1 (ZConnection untuk Koneksi ke MySql) dan ZQuery1 (untuk melakukan query pencarian)
4. Kemudian tambahkan DataSource dan letakkan pada Form1 yang gunanya untuk menghubungkan DBGrid dengan ZQuery1 caranya seperti gambar dibawah ini
gambar datasource dengan zquery delphi 7

5. Klik DBGrid dan letakkan pada Form1 yang gunanya untuk menampilkan hasil dari pencarian data nantinya dan hubungkan Datasource dengan DBGrid
gambar mengubungkan dbgrid dengan datasource delphi 7

6. Jika semua langkah 1 s/d 5 sudah dilakukan maka tampilan Form1 akan terlihat seperti ini
gambar form pencarian sederhana delphi 7

7. Kembali lagi ke Form1, dobel klik pada Button dan isikan source code seperti dibawah ini
with ZQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM nama_tabel WHERE nama_field ='+QuotedStr(Edit1.Text));
Open;

Sehinggan hasilnya setelah ditambahkan kode diatas tampak seperti dibawah ini
procedure TForm1.Button1Click(Sender: TObject);
begin
with ZQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM nama_tabel WHERE nama_field ='+QuotedStr(Edit1.Text));
Open;
end;

Keterangan Warna
Warna Merah = ganti dengan tabel di database anda
Warna Biru = ganti dengan nama Field atau kolom pada tabel yang akan digunakan sebagai pencarian.

8. Simpan Project anda dan RUN

Demikian Cara Membuat Form Aplikasi Pencarian Sederhana dengan TextEdit Delphi 7 diatas sangat mudah untuk dibuat. Semoga apa yang saya tuliskan kali ini memberikan wawasan serta ilmu tentang bahasa pemrograman delphi khususnya dalam hal pencarian data pada tabel database.

6 Comments

Kalo koneksi databaseY pakai ADO Connection, codingY gmna masbro?

sama2 mas, smoga berguna dan bermanfaat

Kalo pencarian e edit 1 itu gunain bsa mencari 2 field_name gmna ?

Kalo mau membuat pencarian berdasarkan field 'nama' dan 'tanggal' dalam satu SQL.ADD nya gmn ?

Silahkan berkomentar dengan baik, asal tidak melanggar peraturan dibawah ini.
1. NO SPAM
2. NO SARA
3. NO LINK AKTIVE

Terimakasih
EmoticonEmoticon