Cenadep.org

Setelah koneksi database dengan Delphi & MySQL, kini kita akan mengikuti sebuah tutorial membuat koneksi database dengan Delphi, MySQL dan Zeos Database Object. Kita tahu, Zeos tidak hanya untuk MySQL, tapi juga Interbase, Firebird, SQLite dan lainnya. Namun kita batasi saja pada MySQL, ya. Mengingat ruang dan yang paling penting, MySQL adalah database open source terbaik dan paling populer saat ini.

Instalasi Zeos DBO v.7.0.0 pada Delphi 2009 dan Delphi 2010 (Unicode) dapat dilihat di : http://jokorb.wordpress.com/2011/01/03/install-zeos-dbo-7-0-0-alpha-di-delphi-2010/

Kita awali dengan spesifikasi software yang saya gunakan dalam tutorial ini. Saya menggunakan Delphi 6, Zeos DBO 6.6.3-Stable dan MySQL 5 Comunnity Server.

Saya asumsikan Anda sudah memiliki MySQl yang terinstall di PC Anda. Jika belum, silahkan download MySQL 5 Comunnity Server. Langkah-langkah di sini mungkin bisa membantu Anda menginstall MySQL. Untuk Zeos, silhakan kunjungi website development Zeos untuk mendownload. Zeos versi 6.6.3-stable yang telah diperkecil – dengan membuang resource yang tidak diperlukan – bisa Anda download di akhir tulisan ini.

OK. Pertama, kita buat database contoh sebuah tabel pelanggan di dalamnya untuk kita gunakan dalam tutorial ini. Masuklah ke command prompt dan jalankan mysql client. Saya menggunakan perintah-perintah berikut:

### jokorb adalah user name saya di MySQL. Sesuaikan punya Anda.###
C:Documents and Settingsuser>mysql -u jokorb -p
Enter password: ********
Welcome to the MySQL monitor. Commands end with ; or g.
Your MySQL connection id is 10
Server version: 5.1.22-rc-community MySQL Community Server (GPL)
Type ‘help;’ or ‘h’ for help. Type ‘c’ to clear the buffer.

mysql> create database contoh;
Query OK, 1 row affected (0.00 sec)mysql> use contoh;
Database changed
mysql> create table pelanggan(
-> id int(6) not null auto_increment,
-> nama varchar(30) not null default ‘anonymous’,
-> alamat varchar(50),
-> telepon varchar(15),
-> primary key (id)
-> );
Query OK, 0 rows affected (0.09 sec)
mysql> exit;
Bye
C:Documents and Settingsuser>exit

Setelah mengetik exit yang terakhir di command prompt, jendela command prompt akan ditutup. Kita telah punya sebuah database contoh dan sebuah tabel pelanggan di dalamnya. Kita lanjut dengan instalasi Zeos DBO di Delphi.

Instalasi Zeos Database Object

1. Ekstrak file ZEOSDBO-6.6.3-stable.zip hasil download ke sebuah folder, taruhlah, di C:ZEOSDBO-6.6.3-stable.
2. Masuk ke dalam folder tersebut. Cek apakah folder PackagesDelphiXBuild sudah ada. DelphiX berarti Delphi6, Delphi7 atau versi lainnya sesuai versi Delphi yang akan Anda gunakan. Berhubung saya menggunakan Delphi 6, maka folder yang harus saya cek adalah PackagesDelphi6Build. Jika folder Build belum ada, buatlah dulu.
3. Jalankan Delphi. Dari Delphi, buka file ZeosDbo.bpg dari folder PackagesDelphiX. Kompile semua project dari menu Project>Compile All. Berikut Binary Package yang harus terkompilasi:
   • ZCore60.bpl
   • ZParseSql60.bpl
   • ZPlain60.bpl
   • ZDbc60.bpl
   • ZComponent60.bpl

   

4. Sudah? Close All. Tambahkan path folder C:ZEOSDBO-6.6.3-stablePackagesDelphiXBuild ke Delphi Library Path. Caranya masuk ke menu Tools>Environment Options. Pada dialog yang muncul, klik tab Library, dan klik tombol elipsis di samping kanan combobox Library path. Dialog Directories akan muncul.
   
   

   Klik tombol elipsis yang dilingkari, pilih folder  C:ZEOSDBO-6.6.3-stablePackagesDelphiXBuild di mana Anda meletakkan Zeos DBO hasil kompilasi. Tombol Add akan menjadi aktif. Klik Tombol Add, kemudian klik OK. Kembali ke dialog Environment Options. Klik OK lagi.

5. Tinggal menginstal komponen-komponen akses data di Component Palette. Buka file ZComponentDesign.dpk dalam folder C:ZEOSDBO-6.6.3-stablePackagesDelphiX. Jika file ini tidak Anda temukan, pilih saja file ZComponent.dpk. Klik tombol Install. Jika tak ada error melintang, Anda telah mempunyai Zeos DBO terinstall di Component Palette Delphi Anda. Amin

Contoh Aplikasi Menggunakan Zeos Database Object

Tentu saja bagian ini ga’ boleh lewat. Langsung saja.

1. Buat sebuah aplikasi baru.
2. Tambahkan sebuah TZConnection, TZTable dari page Zeos Access ke form.
   Tambahkan juga sebuah TDataSource dari page Data Access. Juga sebuah TDBGrid dan sebuah TDBNavigator, keduanya dari page Data Controls.
3. Atur tata letak komponen-komponen agar enak dilihat. Saya membuatnya seperti ini:
   
4. Atur setting koneksi TZConnection. Protocol diset ke MySQL. Ada beberapa pilihan, tapi buat jaga-jaga dengan versi MySQL yang berbeda, kita gunakan MySQL thok saja.
   
5. Atur juga properti TZConnection yang lain seperti gambar berikut:
   
6. Jika sudah, set properti Connected ke True. Kini atur proprerti connection milik TZTable ke ZConnection1. Atur properti TableName menjadi pelanggan. Set properti Active ke True. Lanjutkan dengan mengeset properti DataSet milik DataSource1 menjadi ZTable1. Terakhir, atur properti DataSource milik DBNavigator1 dan DBGrid1 menjadi DataSource1.
7. Jika tidak ada error, aplikasi Anda sudah terkoneksi dengan MySQL server via Zeos DBO. Tekan F9 Untuk menjalankan aplikasi Anda. Cobalah menginputkan beberapa data.
   

Download

Download Zeos DBO 6.6.3-stable-packed-down
Download Source code tutorial – Link Alternatif (File Zip)

Zeos DBO versi 7.0.0 untuk Delphi 2009/2010 dapat didownload di sini. Cara instalasi dan penggunaannya sama saja.

Seperti biasa, file-file hasil download harus diganti ekstensinya dari .ppt menjadi .zip. Dan yang tidak kalah penting, scan dulu file-file hasil ekstraksi sebelum Anda gunakan.

Referensi

Berikut beberapa alamat web yang bisa Anda jadikan referensi terkait dengan tutorial ini:

• Tip-Tip Koneksi Delphi & MySQL oleh Euis Marlina (Adeisti)
• Zeos Di Delphi
• Oracle 10g & MySQL dengan Delphi
• Maseko’s MySQL Tutorials
• Delphi vs. MySQL on Diskusiweb
• Tutorial instalasi Zeos pada Delphi
  oleh Euis Marlina (adeisti.blogspot.com)

Selamat Mencoba. Untuk Mba’ Euis Marlina, thanks berat atas postingnya.