3/11/2014

Tutorial Delphi Menampilkan Data Di Database MySQL Dengan Combobox

Tags



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
(!) 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.

2 comments

Izin nyimak aja sob..!

Terimakasih agan yahya

MaxAndro.com (ex. androsoftware.xyz) Silahkan berkomentar dengan baik, asal tidak melanggar peraturan dibawah ini.
1. NO SPAM
2. NO SARA
3. NO LINK AKTIVE

Terimakasih

Admin MaxAndro
EmoticonEmoticon