Contoh Syntax Delphi ZQuery Hapus Data
 
Berikut ini dokumentasi syntax Delphi dengan komponen ZQuery untuk Hapus Data

Berfungsi untuk menghapus data dari database yang telah dipilih.



Komponen yang dipakai : ZQuery, Panel, Button, DBGrid, EditText, ComboBox

Alur kode :

Pilih data yang akan dihapus di grid data, maka data akan tampil di form input.


Ketika klik tombol Hapus, maka muncul konfirmasi (Anda yakin, data :...akan dihapus?'

Klik OK untuk melanjutkan hapus data, klik cancel untuk batal hapus.

Data akan terhapus ke database.

Kosongkan form dan kembalikan tombol default.

procedure TFormDokter.BHClick(Sender: TObject);
var sql, p : string;
begin
if EdId.Text<>'' then
  begin
//info
    if MessageDlg('Anda yakin, data :'+'                '+Chr(13)+Chr(13)+
                'Dokter      : '+ ZQuery2.FieldValues['nama']+Chr(13)+Chr(13)+
                'akan dihapus...?'+Chr(13),
                mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      //sql hapus
      p:='''';
      sql := 'DELETE FROM dokter WHERE id='+p+EdId.Text+p;
      ZQuery1.Close;
      ZQuery1.SQL.Clear;
      ZQuery1.SQL.Add(sql);
      ZQuery1.ExecSQL;
      MessageDlg('Data telah dihapus', mtInformation, [mbOk], 0);
      KosongForm();
      BU.Enabled:=false; //Tombol ubah data
      BS.Enabled:=false; //Tombol tambah data  

    end
  end
 else MessageDlg('Data belum dipilih', mtInformation, [mbOk], 0);
end;

---