Query MySQL Save,Update,Delete,Cancel Menggunakan Komponen Zeos Table Pada Delphi

Zeos Komponen

Salam Blogger jika sobat sedang mencari artikel bagai mana cara 'Update,Delete,Cancel Menggunakan Komponen Zeos' Munkin Ulasan ini tepat bagi sobat,

kali ini saya posting Source Code mungkin buat para master udah hafal saya buat srtikel ini untuk tujuan dokumentasi juga sangat senang jika berguna buat para sobat.

Oke lanjut ke tutorial, saya asumsikan sobat sudah punya database MySQL yang akan di jadikan Database Program desktop Sobat, Untuk hal ini saya hanya mencontohkan fungsi tombol hapus,delete,cancel pada program sobat.

Saya menggunakan komponen dari ZeozLib Tambahkan Komponen TZConnection, TZTable,DBGrid,komponen text edit dan beberapa komponen Button yang di butuhkan, dan atur properti koneksi agar berfungsi.

Baca Juga cara Memberi Warna kolom Record Tertentu Pada Dbgrid Delphi

Lanjut ke Source Code Button Fungsi :

1.Klik dua kali pada button Save dan masukan kode berikut :

[
Table.Append;
Table.FieldByName('ID').AsString      :=ID.Text;
Table.FieldByName('Nasabah').AsString :=Nama.Text;
Table.FieldByName('Setatus').AsString :=Setatus.Text;
Table.FieldByName('Saldo').AsString   :=Saldo.Text;
Table.FieldByName('Member').AsString  :=Member.Text;
Table.Post;
]

2.Klik dua kali pada button Edit masukan kode berikut :

[
Table.Edit;
Table.FieldByName('ID').AsString      :=ID.Text;
Table.FieldByName('Nasabah').AsString :=Nama.Text;
Table.FieldByName('Setatus').AsString :=Setatus.Text;
Table.FieldByName('Saldo').AsString   :=Saldo.Text;
Table.FieldByName('Member').AsString  :=Member.Text;
Table.Post;
]

3.Klik Dua kali pada button Delete masukan kode berikut :

[
Table.Delete;
]

4.Klik Dua kali pada button Cancel masukan kode berikut :

[
Table.Cancel;
]

Oke trimakasih sobat semoga manfaat buat sobat sekalian yang membutuhkan :)