Komponen Zeos di Delphi

Sebenarnya untuk membuat aplikasi dengan Delphi agar bisa mengakses/ mengelola database mysql ada beberapa cara, misalnya dengan myODBC yang dapat anda download dari (www.mysql.com) atau jika menggunakan Delphi 6 maka terdapat component dbExpress, atau ZEOS yang lebih banyak digunakan dalam contoh aplikasi yang kita buat. Keuntungan membuat aplikasi database berbasis server tanpa Borland Database Engine (BDE) adalah tidak membebani resources server dengan query metadata, bisa dijalankan dari komputer lain bahkan cross-platform/ berbeda operating systemnya, misalkan aplikasi kita berjalan di Windows 98 sedangkan databasenya misalkan mySQL, postgreSQL, Interbase atau MSSQL menggunakan Linux atau Windows NT/2K/XP dan keuntungan kedua adalah pendistribusian aplikasi kita menjadi lebih ringkas karena databasenya bisa di DUMP dan tidak diperlukan lagi BDE. Zeos Component sendiri terdiri dari 2 bagian yaitu Zeos Access sebagai penghubung database dan Zeos Control sebagai komponen tambahan. Zeos merupakan component yang berfungsi untuk menghubungkan Delphi dengan database mySQL, DB2, Oracle, PostgreSQL dan Interbase. Component ini mendukung Delphi 3 hingga Delphi 6. Untuk mendapatkan component ini silahkan anda mendownload dari website resminya www.zeoslib.org atau dari situs mirrornya www.marms.com/zeos/eng/ atau zeoslib.sourceforge.net atau www.bigblu.de/zeos/eng/index.html atau www.eulogika.net/zeos.php cari file ZeosDBO untuk Zeos Access,anda boleh pakai versi apapun dan untuk controlnya bernama ZeosCtrl.
Berikut ini, untuk menginstall component ini untuk Borland Delphi 6 adalah sebagai
berikut :

1. Extract file ZeosDBO ini ke direktori anda.
2. Buka Delphi 6 anda.
3. Tutup semua program - > File / Close All
4. Buka File DPK tekan toolbar , dalam hal ini zeos memberikan banyak pilihan dan carilah file DPK khusus untuk Delphi 6 , misalnya (Zcommon6.DPK) jika anda memakai Delphi 3 atau 5 maka anda harus menginstall Zcommon3.DPK atau Zcommon6.DPK

Sebelum anda menginstall anda harus menentukan lokasi file unitnya :





Pastikan anda mengisikan lokasinya benar, Anda jangan menghapus Library Path yang sudah ada, isikan setelah karakter terakhir. Tambahkan isian sebagai berikut :
D:\Zeosdbo\common;D:\Zeosdbo\dbase
Untuk memisahkan antar direktori gunakan titik koma (;). Lalu tekan OK.

5. File Delphi Package Source (.DPK) yang harus anda buka adalah :

Zcommon6.DPK Berisi komponen dasar database SQL
Isikan lokasinya disini
Zdbware6.DPK Berisi komponen penghubung database
ZMySQL6.DPK Berisi komponen database mysql

Untuk komponent lainnya tidak perlu, misalkan:
ZibSql6.DPK Berisi komponen database Interbase
ZDb2Sql6.DPK Berisi komponen database DB2 / IBM
ZMsSQL6DPK Berisi komponen database Microsoft SQL Server
ZOraSQL6.DPK Berisi komponen database Oracle
ZPgSQL6.DPK Berisi komponen database Postgree
Sekali lagi Jika anda memakai Delphi versi lainnya sesuaikan angkanya.

6. Urutan penginstalan adalah Install dahulu Zcommon6.DPK dengan menekan tombol Install ( di sebelah Option dan Update). Kemudian Install Zdware6.DPK lalu ZMySQL6.DPK.

7. Jika telah terinstall maka dalam componen pallete terdapat tab baru.

setelah itu anda bisa mencoba apakah komponen zeos sudah dapat digunakan atau
belum dengan membuat sebuah program aplikasi sederhana yang berhubungan dengan
database MySQL server. Kemudian anda simpan file project anda. Lalu kemudian copy
/salinlah file “LIBMYSQL.DLL” ke direktori tempat anda menyimpan program atau ke
“C:\Windows\System”. File “libmysql.dll” terletak di direktori
“C:\MySQL\Lib\Debug\” atau “C:\MySQL\Lib\Opt”. Jika File “libmysql.dll” tidak
terlihat didalam Windows Explorer maka salinlah melalui DOS-Prompt. Misalnya :
Copy d:\zeosdbo\libmysql.dll d:\temp\pbd\0001. Tanpa file ini maka aplikasi yang anda
buat tidak bisa berjalan.

Memberi warna record aktif pada TDBGrid

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Memberi warna record aktif pada TDBGrid di Delphi

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Membuat Splash Screen di Delphi

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.

Untuk membuat splash scren tersebut caranya sebagai berikut :

1. Bikin dulu form utamanya.
2. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3. Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
4. Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut : tmMainTimer.Enabled := False;
5. Dari menu Project, pilih Options.
6. Pindah ke tab Forms.
7. Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
8. Kalau sudah klik OK.
9. Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.

Untuk lebih jelasnya lihat potongan program berikut ini :

program Project1;
uses Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {FrmSplash};
{$R *.RES}

begin

FrmSplash := TFrmSplash.Create(Application);

FrmSplash.Show; FrmSplash.Update;

while FrmSplash.tmMainTimer.Enabled do

Application.ProcessMessages;

Application.Initialize;

Application.CreateForm(TForm1, Form1);

FrmSplash.Hide; FrmSplash.Free; // menghapus form splash scren dr memory

A pplication.Run;

end.