Tahukah Anda, bahwa posting ini telah dipindahkan ke Tutorial Membuat Koneksi Database Menggunakan Delphi, Zeos & MySQL di website baru kami? Komentar di blog ini tidak akan kami layani lagi. Silahkan bertanya atau tinggalkan komentar pada link di atas. Viva Delphier!
Setelah tutorial 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.
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 Settings\user>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 Settings\user>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
Ekstrak file ZEOSDBO-6.6.3-stable.zip hasil download ke sebuah folder, taruhlah, di C:\ZEOSDBO-6.6.3-stable.
Masuk ke dalam folder tersebut. Cek apakah folder Packages\DelphiX\Build 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 Packages\Delphi6\Build. Jika folder Build belum ada, buatlah dulu.
Jalankan Delphi. Dari Delphi, buka file ZeosDbo.bpg dari folder Packages\DelphiX. Kompile semua project dari menu Project>Compile All. Berikut Binary Package yang harus terkompilasi:
ZCore60.bpl
ZParseSql60.bpl
ZPlain60.bpl
ZDbc60.bpl
ZComponent60.bpl
Sudah? Close All. Tambahkan path folder C:\ZEOSDBO-6.6.3-stable\Packages\DelphiX\Build 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-stable\Packages\DelphiX\Build 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.
Tinggal menginstal komponen-komponen akses data di Component Palette. Buka file ZComponentDesign.dpk dalam folder C:\ZEOSDBO-6.6.3-stable\Packages\DelphiX. 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.
Buat sebuah aplikasi baru.
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.
Atur tata letak komponen-komponen agar enak dilihat. Saya membuatnya seperti ini:
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.
Atur juga properti TZConnection yang lain seperti gambar berikut:
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.
Jika tidak ada error, aplikasi Anda sudah terkoneksi dengan MySQL server via Zeos DBO. Tekan F9 Untuk menjalankan aplikasi Anda. Cobalah menginputkan beberapa data.
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:
Comments