Simpan, Update dan Delete Data

hay.... Sobat Delphier, saya akan memberi tutorial bagaimana menyimpan data, mengupdate data, dan menghapus data. Lanjutannya dari koneksi database dengan zeos.

buatlah form seperti gambar di bawah ini :

keterangan :

Propertis
kompnen	EditText	EditText	ComboBox	EditText	Zquery
caption	clear	clear	-	clear	-
name	edtid	edtnama	-	edtalamat	Qexe
text	-	-	L/P	-	-
Conection	-	-	-	-	condatabase

Souce Code simpan

if not Qexe.IsEmpty then   // eksekusi jika data atau id sudah ada
begin
    // code simpan//
    with Qexe do
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into pelanggan (id_pelanggan,nama_pelanggan,jen_kel,alamat)values(:id_pelanggan,:nama_pelanggan,:jen_kel,:alamat)');
      ParamByName('id_pelanggan').AsString := edtid.Text;
      ParamByName('nama_pelanggan').AsString := edtnama.Text;
      ParamByName('jen_kel').AsString := cbbjenkel.Text;
      ParamByName('alamat').AsString := edtalamat.Text;
      ExecSQL;
      Qpelanggan.Refresh;
      ShowMessage('Penyimpanan Berhasil');
    end;
    // code simpan
end else
ShowMessage('Id Pelanggan sudah ada'); // jika sudah ada akan muncul pesan
edtid.SetFocus;
Exit;

Source Code Update

with Qexe do
begin
    Close;
    SQL.Clear;
    SQL.Add('update pelanggan set nama_pelanggan=:nama_pelanggan,jen_kel=:jen_kel,alamat=:alamat where id_pelanggan = "'+edtid.Text+'"');
    ParamByName('nama_pelanggan').AsString := edtnama.Text;
    ParamByName('jen_kel').AsString := cbbjenkel.Text;
    ParamByName('alamat').AsString := edtalamat.Text;
    ExecSQL;
    Qpelanggan.Refresh;
    ShowMessage('Ubah data berhasil');
end;

Source Code Delete

with Qexe do
begin
    Close;
    SQL.Clear;
    SQL.Add('delete from pelanggan where id_pelanggan = "'+edtid.Text+'"');
    ExecSQL;
    Qpelanggan.Refresh;
    ShowMessage('Hapus Data Berhasil');
end;