Membuat Program Delphi 2007 dengan Database Mysql ODBC dan Penggunaan Data Module

Hai sobat...Kali ini saya akan membahas sedikit tentang Pembuatan Data Module pada Delphi 2007 seperti program yang saya buat ini :
Sebelumnya saya kira anda telah tau bagaimana cara pembuatan database di mysql (XAMPP) bukan? nah, disini saya hanya akan menunjukkan bagaimana pembuatan data module dan pembuatan database dengan singkat dan Penggunaan Program yang saya buat..

Yuk kita mulai….
1.Buat database menggunakan Mysql (Xampp 1.73) dengan nama databe dan nama table sbb..

Dan isi table sesuai gambar…

2. Setelah database selesai dibuat, maka masuk ke ODBC Driver 3.51.. dengan settingan sbb..

Setelah selesai terkoneksi dengan ODBC driver..

3. Buka Delphi 2007 buat form sbb (Unit1) :

Disini saya menggunakan BitBtn tidak button standar, agar button dapat diSisipkan Icon dan agar lebih menarik untuk dipandang…:)
Cara menyisipkan Iconnya... lihat properties BitBtn kemudian Cari Glph : Brouwse dan tentukan pilhanmu.. hehe :) kemudian klik OK..

4. Buat Form Data Module dengan cara klik File-New-Other dan pilih Data Module (Unit2)…

5. Kemudian tambahkan ADO Connection, dua ADO Query, dan Data Source..

Ubah Data Module menjadi : DM dan
Data Source menjadi : DS..

6. Setting Koneksi Unit1 (Data Module) Sbb :
- ADO Connection (Properties)

LoginPromt : False

ConnectionString : Brouse-Build..- Pada Use data source name Tentukan nama database (Nama pada ODBC driver) kemudian Tes Connection.. jika seperti pada gambar berarti ConnectinString berhasil…

Connected : True

- ADO Query1 dan ADO Query2

Pada Linkage- Connection : ADO Connection1

- DS (Data Source)

Database – Datasouce : ADO Query1 (Digunakan untuk menampilkan…)

7. Setting Unit2 (Properties)
- DBgrid1

Pada Database-Datasource : DM.DS (DataModule.DataSource) nama yang telah diganti seperti diatas…

Tapi sebelum itu tambahkan pada Uses script Unit1 : Unit2 seperti Gambar berikut..

Karena jika tidak maka pada Database- Datasource tidak terdapa pilihan DM.DS..
Jika telah sukses seperti berikut… maka koneksi selesai…

8. Sekarang kita memasuki Script Program…  Ketikkan Sesuai tempatnya… (penggunaannya..)

Buat Pendeklarasian Procedure Pemanggilan :

Procedure Control;
Procedure View;
Procedure DB_plg;

Kemudian penambaha Procedure dengan isinya… ketikkan dibawah
implementation
{$R *.dfm}

Ketikkan Sbb (3 Procedure Sekaligus ) :
Procedure TForm1.DB_plg;
begin
with DM.ADOQuery1 do
begin
SQL.Clear;
SQL.Add('select *from Data_pelanggan');
Active := False;
Active := True;
end;
end;

Procedure TForm1.Control;
begin
DB_plg;
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Edit4.Enabled:=True;
BitBtn1.Enabled:=True;
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=False;
BitBtn5.Enabled:=False;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;

Procedure TForm1.View;
begin
DB_plg;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Edit4.Enabled:=False;
BitBtn1.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn5.Enabled:=False;
end;

Pada Form Create ( double klik form kosong )

Procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Edit4.Enabled:=False;
BitBtn1.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn5.Enabled:=False;
end;

Panggil Procedure Control yang baru dibuat, pada menu Control (double klik MainMenu dan double klik Control)

Procedure TForm1.Control1Click(Sender: TObject);
begin
Control;
end;

Masih pada MainMenu Double Klik View

Procedure TForm1.View1Click(Sender: TObject);
begin
View;
end;

Button Tambah

Procedure TForm1.BitBtn3Click(Sender: TObject);
begin
with DM.ADOQuery2 do
begin
sql.Clear;
sql.add('insert into Data_pelanggan (kd_plg, nama_plg, alamat, no_tlp)');
sql.add('values("'+ Edit1.Text +'","'+Edit2.Text +'", "'+ Edit3.Text +'","'+ Edit4.Text + '")');
ExecSQL;
end;
DB_plg;
ShowMessage('Data Tersimpan');
Edit1.SetFocus;
end;

Button Edit

Procedure TForm1.BitBtn4Click(Sender: TObject);
begin
if MessageDlg ('Apakah Yaki akan mengubah data ini ? ',mtConfirmation,[mbYes,mbNo],0)= mrYes then
begin
with DM.ADOQuery2 do
begin
SQL.Clear;
SQL.Add('Update Data_pelanggan set nama_plg="'+Edit2.Text+'",alamat="'+Edit3.Text+'",no_tlp="'+Edit4.Text+'"');
SQL.Add('where kd_plg="'+Edit1.text+'"');
ExecSQL;
DB_plg;
ShowMessage('Berhasil !');
Edit1.SetFocus;
end;
end;
end;

Button Hapus

Procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if MessageDlg ('Apakah data ini akan di hapus?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
with DM.ADOQuery2 do
begin
    SQL.Clear;
    SQL.Add('delete from Data_pelanggan where kd_plg = "'+ Edit1.Text +'"');
    ExecSQL;
      end;
    DB_plg;
    ShowMessage('Sukses di hapus');
    Edit1.SetFocus;
end;
end;

Button Batal

Procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Control;
end;

Button Cari

Procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with DM.ADOQuery2 do
begin
    SQL.Clear;
    SQL.Add('select * from Data_pelanggan where kd_plg="'+ Edit1.text +'"') ;
    Open;
    if not Eof then
begin
      Edit2.Text:= FieldValues['nama_plg'];
      Edit3.Text:= FieldValues['alamat'];
      Edit4.Text:= FieldValues['no_tlp'];
      BitBtn3.Enabled:=False;
      BitBtn4.Enabled:=True;
      BitBtn5.Enabled:=True;
      Edit1.Enabled:=False;
end;
end;
end;

Pada Unit2 Pastikan Ini Sintaxnya…

unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DS: TDataSource;
private
    { Private declarations }
public
    { Public declarations }
end;

var
DM: TDM;
implementation{$R *.dfm}
end.

Kemudian Jalankan…

Jika Sobat Ingin Mencobanya dirumah... atau tidak sempat sekarang...saya juga telah menyiapkan file downloadnya ne... File pdf

dan Jika Sobat ingin mencoba File Program.rar nya langsung... saya juga telah siapin Ne... g' besar kok..
Petunjuk Penggunaan dan pemasangan database jg ada lho... :) Petunjuk.pdf
(Sebagian Link Menyusul..)

Selamat Mencoba… :)