Tutorial Database dengan Delphi tambah edit hapus tanpa coding Part 3

Membangun Aplikasi


Setelah membuat datamodul dasar untuk koneksi ke database, maka langkah selanjutnya adalah membuat aplikasi.

Buka Delphi anda klik menu->VCL Forms Application.  Akan tampil sebuah form kosong. Tambahkan unit datamodul yang anda buat pada langkah sebelumnya pada proyek anda dengan cara klik menu Project->add to project lalu cari unit datamodul yang sudah anda buat.

Jika sudah selesai, klik menu File->New->Other.  Lalu pilih tab Inheritable Items.  Lihat gambar bawah:


Pilih dmconnparent lalu klik OK.

Akan tampil sebuah datamodul baru yang merupakan turunan dari dmconnparent.


Atur beberapa property sebagai berikut pada komponen koneksi Zeos(con1):
1.  AutoCommit=false
2. Protocol=mysql-5
3.  DesignConnected=true

Setelah selesai, namai datamodule baru tersebut misal dmconnmysql, lalu simpan ke folder yang sama saat membuat dmconnparent.

Browse code delphi anda, akan tampil script sebagai berikut:

unit UdmconnMySQL;
interface
uses
  System.SysUtils, System.Classes, UdmconnTutor, ZAbstractConnection,
  ZConnection;
type
  Tdmconnmysql = class(Tdmconnparent)
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  dmconnmysql: Tdmconnmysql;

implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
end.

Penjelasan:

TDataModul menurunkan class Tdmconnparent.  Tdmconnparent menurunka class lagi dengan nama Tdmconnmysql.  Tdmconnparent dan Tdmconnmysql berguna bagi anda saat membuat proyek/aplikasi baru lagi.  Saat membuat database dengan driver yang berbeda, misal anda menggunakan Firebird maka anda dapat membuat class baru lagi dengan parent classnya Tdmconnparent.  Sedang Tdmconnmysql khusus untuk driver mysql. 

Untuk itulah saya menyarankan anda membuat folder tersendiri khusus menyimpan unit-unit yang memuat class-class dasar untuk membangun aplikasi database.

 Jika anda sudah ke tahap tersebut di atas, langkah selanjutnya adalah membuat datamodul baru lagi khusus aplikasi anda yang merupakan turunan dari Tdmconnmysqql.   Lakukan langkah yang sama seperti sebelumnya, yaitu klik File->New->Other.  Pilih Inheritable Items, lalu pilih dmconnmysql.  Jika sudah selesai namai datamodul baru tadi misal dmconn, simpan pada folder proyek anda.  Setelah itu klik pada komponen con1 event beforeconnect.  Akan tampil kode seperti berikut:

procedure Tdmconn.con1BeforeConnect(Sender: TObject);
begin
  inherited;
end;
Penjelasan:

Perintah inherited di atas artinya perintah tersebut juga menjalankan perintah pada parent classnya yaitu event con1 beforeconnect di dmconnparent.  Jika sebelumnya anda sudah menjalankan perintah untuk membaca ini file, sekarang anda tinggal menambah perintah memasukkan password:

procedure Tdmconn.con1BeforeConnect(Sender: TObject);
begin
  inherited; 
 con1.Password:='your password'; 
end;
Klik disini untuk Part 4

Komentar