Contoh Syntax Delphi ZQuery Hapus Data

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;

 

---


Posting Komentar

Jika ingin memberikan pertanyaan ataupun berdiskusi, mohon agar melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci