Tutorial Delphi Menampilkan Data Di Database MySQL Dengan Combobox

Menampilkan Data dengan Komponen Combobox, Dalam setiap bahasa pemrograman pasti kita mengenal komponen yang bernama Combobox. Komponen tersebut banyak dijumpai hampir diseluruh bahasa pemrograman seperti Visual Basic, PHP, C++, Delphi dan yang lainnya. 

Combobox itu sendiri merupakan sebuah kombinasi dari sebuah textbox dan listbox dimana untuk memasukkan datanya dapat dilakukkan dengan melakukkan pengetikan maupun pemilihan. Dalam Combobox kita dapat membuat beberapa opsi pilihan terhadap seorang user / pemakai

• Dapat mengisi nilai baru / input data baru
• Seorang user dapat memasukkan pilihan melalui daftar yang telah ada.

Pada kesempatan kali ini saya akan berbagi sedikit tentang tutorial menampilkan data di database MySQL dengan combobox

1. Buka Program Delphi

2. Buat sebuah koneksi MySQL

Untuk membuat koneksi dengan mysql ada 2 cara

• Koneksi MySQL dengan menggunakan ODBC dan
• Dengan menggunakan komponen tambahan ZEOSLIB

(!) Catatan
" Dan koneksi yang saya pakai dalam tutorial ini menggunakan komponen ZeosLib yang sebelumnya sudah saya install / tambahkan dalam program Delphi 7 saya"

3. Jika cara kedua telah selesai klik Combobox dan tempatkan pada form (form1)

4. Kemudian Tekan F12 atau doubleclick pada form tersebut (form1) untuk mengetikkan kode programnya pada 

Procedure TForm1.FormCreate(Sender: TObject);
Begin<tempat menuliskan kode program>End; 

pertanyaanya pasti " kenapa ditempatkan pada formcreate ?"  karena pada saat program dijalankan / running secara otomatis akan mengambil data di database MySQL (sebelumnya koneksikan dahulu mysql anda dengan delphi anda).

5. Tuliskan kode program dibawah ini pada procedure diatas

ZQuery1.Close;

ZQuery1.SQL.Add('SELECT DISTINCT(nama_field1_pada_tabel_a) AS nama_field1_pada_tabel_a FROM Nama_tabel_a ');

ZQuery1.Open;

ZQuery1.First;

sComboBox1.Items.Clear;

WHILE NOT ZQuery1.Eof DO //menampilkan data field1 dari tabel a

  BEGIN

    sComboBox1.Items.Add(ZQuery1.FieldByName('nama_field1_pada_tabel_a').AsString);

    ZQuery1.Next;

  END;

sComboBox1.ItemIndex := -1;

ZQuery1.Close; 

Penjelasan warna :

1. Warna Hijau ganti dengan nama field / kolom yang akan anda tampilkan

2. Warna Merah ganti dengan nama tabel yang dipilih

3. Warna Orange ganti sesuai keinginan anda, jika -1 maka pada saat di running combobox akan terlihat kosong dan jika diberi angka nol (0) maka data pertama dari field / kolom akan ditampilkan.

Sekian tutorial menampilkan data dengan combobox delphi, semoga dapat membantu anda dalam pengembangan aplikasi yang sedang dalam pengerjaan.