Wednesday, 11 January 2017T1/11/2017 10:14:00 pm

CARA MUDAH MEMBUAT KONEKSI MYSQL DENGAN DELPHI MENGGUNAKAN ZEOS

Salam blogger….pada postingan saya kali ini saya akan share cara mudah membuat koneksi database mysql dengan Delphi menggunkan komponen zeos lib.  Zeos merupakan conector database yang dapat memfasilitasi untuk koneksi antara database mysql dengan Delphi. Komponen zeos ini juga cocok di semua versi Delphi baik itu versi lama Delphi 7, Delphi 2010, Delphi XE maupun Delphi seatle 10. Jika sobat belum memiliki komponen zeos, sobat bisa mencari infonya di google, karena sekarang sudah cukup banyak download dan tutorial cara menginstall komponen zeos. Untuk kali ini saya hanya akan membahas cara membuat koneksi antara database mysql dengan Delphi saja.

Untuk dapat membuat koneksi nya terlebih dahulu kita harus memiliki sebuah database mysql nyaa terlebih dahulu, disini saya mencontohkan database mysql nya yang saya buat di phpmyadmin xampp, saya anggap disini sobat semua sudah membuat databasenya, langkah selanjutnya adalah sebagai berikut:
1.Buatlah sebuah project baru di Delphi sobat, desain form nya seperti pada contoh gambar dibawah ini.

2.Selanjutnya tambahkan 5 buah button, dbnavigator, dan dbgrid.
3.Lalu tambahkan 1 buah datasource,  TZconnection, dan  TZtable 
4.Sekarang kita akan membuat koneksi databasenya menggunakan TZconnection dari komponen zeos, klik TZconnection lalu pada object inspector atur propertiesnya
 -Database = latihan (ini merupakan nama database yang saya buat di mysql, silahkan disesuaikan)
 -Hostname = localhost
 -Liblarylocation = C:\xampp\mysql\lib\libmysql.dll
 -Port = 3360 (sesuaikan dengan port yang digunakan mysql di xampp)
 -Protocol = mysql-5 (disesuaikan)
 -User = root
 -Selanjutnya coba ubah connected nya menjadi true, jika tidak terjadi error berarti koneksi yang dibuat sudah benar.
5.Sekarang atur properties TZtable nya pada object inspector :
 -Connected = Zconnection1
 -Tablename = tbuser (ini merupakan nama table yang saya buat di database, silahkan disesuaikan)
 -Selanjutnya klik 2x pada TZtable1 maka akan muncul form1.Ztable1 lalu klik kanan lalu pilih add all field . maka akan muncul semua field yang dibuat. Lalu drag semua field tersebut kedalam form. Lalu ubah active nya menjadi true
6.Selanjutnya pada datasource nya isi dataset nya = ZTable1
7.Pada properties dbgrid isi datasource nya = datasource1
8.Pada properties dbnavigator isi datasource nya = datasource1
9.Sampai sini koneksinya sudah selesai , sekarang kita hanya akan menambahkan beberapa koding pada buton new, save, edit,delete,cancel dan close.
10.Untuk koding lengkapnya dapat dilihat pada source kode nya dibawah ini :

unit Uuser;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, ZAbstractRODataset, ZAbstractDataset,
ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection, Vcl.Buttons,
Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ZConnection1: TZConnection;
    ZTable1: TZTable;
    ZTable1UserID: TWideStringField;
    ZTable1NamaUser: TWideStringField;
    ZTable1bagian: TWideStringField;
    ZTable1Pswd: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ztable1.Append;
dbedit1.SetFocus;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ztable1.Post;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ztable1.Edit;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
ztable1.Delete;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
ztable1.Cancel;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
zconnection1.Connected:=false;
ztable1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
zconnection1.Connected:=true;
ztable1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
ztable1.Open;
ztable1.Refresh;
end;
end.


Jika sudah coba jalankan programnya dengan menekan F9/RUN, dan lihat hasilnya, jangan lupa sebelum menjalankan programnya pada control panel xampp, apache dan mysql nya di running terlebih dahulu. Demikian artikel saya tentang cara mudah membuat koneksi mysql dengan Delphi menggunakan zeos yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "CARA MUDAH MEMBUAT KONEKSI MYSQL DENGAN DELPHI MENGGUNAKAN ZEOS"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status