Mengakses database Mysql dengan ADO dan MODULE - Delphi 2007

Hai Sob, selamat bergabung nih di Dhan Blog, dari judulnya sobat pasti dah tau postingan nee bahas tentang apa. lansung ke TKP aja sob :D  

Mengakses database Mysql dengan ADO - Delphi 2007


1. buka project Delphi 2007 - New Project - Pilih VCL Forms Aplication :

2. akan muncul 1 form kosong . lihat gambar di bawah ini :

3. masukkan komponen2 yang di butuh ke dalam Form kosong  komponen yang dii butuhkan yaitu : 4 buah TButton, 4 Buah TEdit, 1 buah TDBGrid dan 5 buah tLabel . 

4. atur propertis setiap komponen seperti gambar di bawah ini :

5. atur tampilan seperti gambar di bawah ini :

6. Tambahkan 1 buah DataModule untuk koneksinya , caranya gimanaa ??? 

Klik kanan pada File - New - Others .

7.  pilih delphi files - lalu klik Data Module : 

8. akan muncul satu buah DataModule pada Unit baru, lalu tambahkan komponen 1 DataSource, 2 buah AdoQuery, 1 buah Ado Connection, atur propertisnya seperti gmbar ini :

hasilnya :

9. atur propertis koneksi , lihat gambar :

pertama sobat harus matikan LoginPromptnya(false), lalu atur ConnectionStringnya dengan cara klik Browse lalu Build 

10. Selanjutnya, atur properti Tampilkan dan Query. kilk tampilkan lalu arahkan kursor ke Connection , pilih koneksi. lakukan hal yang sama untuk propertis Query . 

11. sedangkan Propertis DS,  atur Datasetnya menjadi tampilkan.

12. kembali ke Unit 1. klik TDBGrid1 lalu atur Datasourcenya menjadi DM.DS .

uji koneksi dengan menekan tombol F9 . jika melakukan dengan benar maka hasilnya akan seperti ini :

13. saatnya Coding . siapkan diri anda :D . lanjut. 

masuk ke Code, lalu ketikkan kode uses Unit2; ini di bawah Implementations :

14. copikan kode ini di antara Private dan public :

 procedure tampildata;

    procedure bersih;

    procedure mati;

    procedure hidup;

lihat gambar di bawah ini :

15. ketikkan kode di bwah ini di bawah Implementations uses Unit2; :

procedure tform1.hidup;

begin

btnsimpan.Enabled := false;

btnedit.Enabled := true;

btnhapus.Enabled := true;

end;

procedure tform1.mati;

begin

  btnsimpan.Enabled :=True;

  btnedit.Enabled := false;

  btnhapus.Enabled := false;

end;

procedure tform1.bersih;

begin

  editkdplg .Clear;

  Editnmplg.Clear;;

  Editalmt.Clear;

  Editnohp.Clear;

end;

procedure TForm1.tampildata;

  begin

    with DM .tampilkan  do

  begin

    sql.Clear;

    sql.Add('select * from tb_pelanggan');

    Active := false;

    Active := true;

  end;

  end;

lihat gambar :

16. kembali ke design form 1, klik form1 . pilih event OnShow pada propertinya.  klik 2x lalu kettikkan kode tampildata;

17. klik 2x btnSimpan, masukkan kode ini :

if Length(Editkdplg .Text) < 3 then

begin

  MessageDlg('Sorry, kode barang harus diisi minimal 3 karakter',mtWarning,mbOKCancel,0);

  Editkdplg .SetFocus;

  Exit;

end;

if MessageDlg ( 'Apakah yakin akan menyimpan data ini?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin

  with DM.query do

  begin

  sql.Clear;

  sql.add('insert into tb_pelanggan (kd_plg, nm_plg, almt_plg, no_hp)');

  sql.add('values("'+ Editkdplg .Text +'","'+Editnmplg .Text +'", "'+ Editalmt .Text +'","'+ Editnohp .Text + '")');

  ExecSQL;

  end;

  tampildata;

  bersih;

  mati;

  ShowMessage('data sudah tersimpan');

  Editkdplg .SetFocus;

end;

18. klik 2x btnHapus, masukkan kode ini :

if MessageDlg ('Apakah data ini akan di hapus?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin

  with DM.query do

  begin

    sql.Clear;

    sql.Add('delete from tb_pelanggan where kd_plg = "'+ Editkdplg.Text  +'"');

    ExecSQL;

      end;

      tampildata;

      bersih;

      mati;

      ShowMessage('Sukses di hapus');

      Editkdplg .SetFocus;

end;

19. klik 2x btnedit, masukkan kode :

if MessageDlg ('Apakah Yaki akan mengubah data ini ? ',mtConfirmation,[mbYes,mbNo],0)= mrYes  then

 begin

 with dm.Query do

  begin

 SQL.Clear;

SQL.Add('update tb_pelanggan set nm_plg="'+Editnmplg  .Text+'",almt_plg="'+Editalmt  .Text+'",no_hp="'+Editnohp .Text+'"');

SQL.Add('where kd_plg="'+Editkdplg  .text+'"');

ExecSQL;

tampildata ;

bersih;

mati;

ShowMessage('Selesai edit data ');

Editkdplg .SetFocus;

  end;

  end;

20. klik 2x pada editKdPlg, masukkan kode :

if editkdplg.Text <> '' then

begin

  with DM.query do

  begin

    SQL.Clear;

    SQL.Add('select * from tb_pelanggan where kd_plg="'+ Editkdplg .text +'"')  ;

    Open;

    if not Eof then

    begin

      Editnmplg .Text:= FieldValues['nm_plg'];

      Editalmt .Text:= FieldValues['almt_plg'];

      Editnohp .Text:= FieldValues['no_hp'];

           hidup;

    end

    else

    begin

      end;

  end;

end;

21. Terakhir, sobat klik 2x BtnKeluar masukkan kode :

close ; .

selesai deh. 

saatnya uji coba program sobat, tekan F9. taaraaa . berhasil berhasil berhasil :D

mudahkan sob :)  download program lengkap di sini

semoga membantu dan bermanfaat yaa. 

klo ada masalah, silahkan komentar aja , saya suka di komen . 

http://dani-muhammad.blogspot.com/