MODUL 10 Delphi MySQL dengan Zeos

MODUL X Membuat Aplikasi Database dengan Delphi – MySQL Studi Studi Kasus “I nput Nama Kota” Langkah Pertama Langkah pertama yang harus kita lakukan dalam membuat aplikasi ini adalah membuat database di MySQL. Untuk mempermudah dalam membuat database ini, kita akan menggunakan MySQL Front. Mari kita mulai. Nama Database : db_latih 1. Membuat database -> Tools >> Create Database

Kita beri nama db_latih, klik OK.

Maka sekarang tampil nama database db_latih pada daftar database di MySQL Front sebelah kiri, sbb. Pastikan db_latih terseleksi(ditandai dengan terblok warna biru).

Euis Marlina(http://lina84.wordpress.com Marlina(http://lina84.wordpress.com & http://adeisti.blogspot.com) http://adeisti.blogspot.com)

Nama Tabel : tb_kota;

Field : kd_kota, kota

2. Membuat tabel -> Tools >> Create Table

Tabel, kita beri nama tb_kota, dimana dalam tabel tersebut ada dua field yaitu kd_kota sebagai primary key dan kota. Untuk seting tipe data pada Field Properties, disesuaikan dengan value dari field-field tersebut. Misalnya disini kita menggunakan tipe data VARCHAR, itu sama dengan string(tipe data untuk karakter). Klik tombol Create.


Setelah create, maka akan tampil tabel tb_kota di sebelah kanan daftar database. Ini menandakan bahwa pembuatan database dan tabel di MySQL Front sudah selesai.

Langkah Kedua Setelah kita selesai membuat database, maka saatnya kita beralih ke Delphi untuk membuat interface aplikasinya. Pada latihan kali ini, kita akan menggunakan komponen koneksi MySQL dengan Zeos. Jadi, pastikan sebelum anda memulai merancang di Delphi, install terlebih dahulu komponen Zeos-nya. Anda dapat mendownloadnya dari internet. Komponen ini bersifat free. Rancangan form untuk input kota


Komponen yang dibutuhkan untuk koneksi ke database MySQL yaitu ZConnection. Seting properties komponen Zconnection1 :

Sedangkan untuk operasi query, kita gunakan ZQuery. Seting properties komponen ZQuery :


Properties yang penting hanya dua yang dilingkari saja. Properties SQL untuk meletakan perintah query. Kode program pada tombol Simpan procedure TForm1.Button1Click(Sender: TForm1.Button1Click(Sender: TObject); begin with ZQuery1 do begin Close; SQL.Clear; {perintah query untuk simpan data ke tabel} SQL.Text:='INSERT SQL.Text:='INSE RT INTO tb_kota values(:kd_kota,:kota)'; ParamByName('kd_kota').AsStri ParamByName('kd _kota').AsString:=Edit1.Text; ng:=Edit1.Text; ParamByName('kota').AsString: ParamByName('ko ta').AsString:=Edit2.Text; =Edit2.Text; ExecSQL; end; clear; ZQuery2.Refresh; end;

Kode program pada tombol Edit procedure TForm1.Button4Click(Sender: TForm1.Button4Click(Sender: TObject); begin with ZQuery1 do


begin Close; SQL.Clear; {perintah query untuk edit data dari tabel} SQL.Text:='UPDATE SQL.Text:='UPDA TE tb_kota set kota=:kota WHERE kd_kota=:kd_kota'; ParamByName('kd_kota').AsStri ParamByName('kd _kota').AsString:=Edit1.Text; ng:=Edit1.Text; ParamByName('kota').AsString: ParamByName('ko ta').AsString:=Edit2.Text; =Edit2.Text; ExecSQL; end; clear; ZQuery2.Refresh; end;

Kode program pada tombol Hapus procedure TForm1.Button2Click(Sender: TForm1.Button2Click(Sender: TObject); begin with ZQuery1 do begin Close; SQL.Clear; {perintah query untuk hapus data dari tabel} SQL.Text:='DELETE SQL.Text:='DELE TE FROM tb_kota WHERE kd_kota=:kd_kot kd_kota=:kd_kota'; a'; ParamByName('kd_kota').AsStri ParamByName('kd _kota').AsString:=DBGrid1.Fie ng:=DBGrid1.Fields[0].AsString lds[0].AsString; ; ExecSQL; end; ZQuery2.Refresh; end;

Kode program pada DBGRI D event CellClick CellClick procedure TForm1.DBGrid1CellClick(Colu TForm1.DBGrid1CellClick(Column: mn: TColumn); begin Edit1.Text:=DBGrid1.Fields[0] Edit1.Text:=DB Grid1.Fields[0].AsString; .AsString; Edit1.ReadOnly:=true; Edit2.Text:=DBGrid1.Fields[1] Edit2.Text:=DB Grid1.Fields[1].AsString; .AsString; end;

Kode program procedure Clear untuk mengosongkan edittext procedure TForm1.clear; begin Edit1.ReadOnly:=False; Edit1.Clear; Edit1.SetFocus; Edit2.Clear; end;

Sebelumnya pada bagian interface deklarasikan dulu procedure nya sbb. public { Public declarations } procedure clear;


Tampilan akhir setelah di running


MODUL 10 Delphi MySQL dengan Zeos

Recommend Documents