Friday, 13 January 2017T1/13/2017 07:58:00 pm

CARA MEMBUAT KONEKSI DATABASE POSTGRESQL DI DELPHI MENGGUNAKAN ZEOS

Salam blogger…..pada postingan kali ini saya akan share cara mudah membuat koneksi database postgresql dengan dephi menggunakan zeos lib. Kenapa memakai zeos? Karena zeos dapat memfasilitasi koneksi antara database dengan Delphi. Dan komponen zeos sendiri sudah sangat familiar untuk membuat koneksi di Delphi, dan komponen zeos sendiri dapat dijalankan atau dipakai di semua versi Delphi, baik di Delphi 7, Delphi 2010, Delphi XE atau pun Delphi 10 dan Delphi versi terbaru lainnya, jika sobat belum memiliknya, sobat dapat mencari komponennya di google. Untuk postingan kali ini saya mencoba memberikan tutorial mengkoneksikan Delphi dengan database postgresql, database postgresql juga banyak digunakan para programmer Delphi selain mysql.  
Nah untuk membuat koneksinya maka kita terlebih dahulu harus memiliki sebuah database postgresql nya, jika belum paham cara membuat database di postgresql (baca juga : cara membuat database di postgresql). Disini saya anggap sobat sudah memiliki databasenya, langkah selanjutnya yang harus dilakukan adalah sebagai berikut :
1.Buatlah sebuah project baru di Delphi, selanjutnya design form nya seperti pada gambar dibawah ini.
2.Selanjutnya tambahkan 5 buah button, dbgrid, dbnavigator.
3.Lalu tambahkan pula komponen zeos, yaitu : TZconnection, TZtabel.
4.Sekarang kita membuat koneksi form tersebut dengan database postgresql dengan menggunakn TZconnection. Selanjutnya klik TZconnection dan perhatikan pada object inspector lalu atur propertiesnya seperti dibawah ini :
 - Database = dbadm (merupakan nama database di postgresql, silahkan disesuaikan dengan nama database yang sobat buat)
 - libraryLocation = C:\Program Files (x86)\PostgreSQL\9.3\bin\libpq.dll
 - Hostname = localhost
 - Password = root (disesuaikan dengan password saat sobat install postgresql
 - Port = 5432
 - Protocol = postgresql
 - User = postgres
 - Slanjutnya coba test koneksinya dengan cara ubah connected menjadi true, Jika tidak terjadi error maka koneksi yang dibuat sudah benar.
5.Sekarang atur properties pada TZtable pada object inspector nya ubah :
 - Connected = Zconnection1
 - Tablename = tbuser (merupakan nama table yang dibuat di database postgresql, silahkan disesuaikan dengan nama table yang sobat buat.
 - Selanjutnya klik 2x pada TZtable1 lalu klik kanan dan pilih add all field, maka akan muncul semua file yang ada di table user, lalu drag semua field tersebut kedalam form Delphi.
6.Selanjutnya pada datacsource ubah isi dataset = Ztable1
7.Pada dbgrid ubah datasource = datasource1
8.Pada dbnavigator ubah datasource = datasource1
9.Sampai pada tahap ini pengaturan koneksinya sudah selesai, selanjutnya kita hanya perlu menambahkan koding pada button, new, save, edit, delete, cancel, close.
10.Untuk koding lengkapnya dapat dilihat pada source kode 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.StdCtrls, Vcl.Mask, Vcl.DBCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, ZAbstractConnection, ZConnection;

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

var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.aktif;
begin
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
aktif;
ztable1.Append;
end;

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

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

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

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

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

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

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

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

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

procedure TForm1.nonaktif;
begin
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
end;
end.
Jika sudah selesai ditambahkan kodingnya, sekarang coba sobat jalankan programnya dengan menekan F9/RUN. dan lihat hasilnya, diform tesebut sobat dapat menambahkan record baru, menyimpan, mengedit, dan menghapus record, dan jika disimpan, maka setiap record akan otomatis tersimpan di database yang dibuat di postgresql. Demikian tutorial singkat yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba. Jika ada pertanyaan, silahkan isi pada kolom komentar.
Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT KONEKSI DATABASE POSTGRESQL DI 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