Berikut ini dokumentasi syntax Delphi dengan komponen ZQuery untuk Ubah Edit Data

Berfungsi untuk mengubah data dari database tampil ke form input dan fungsi update.



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

Alur kode :

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

Ketika klik tombol Ubah, maka tombol akan berubah menjadi tombol simpan dan form input enable true.

Ketika form telah terisi selanjutnya klik tombol Simpan.

Cek data validasi kosong.

Data akan terupdate ke database.

Kosongkan form input.
procedure TFormDokter.BUClick(Sender: TObject);
var p,sql, a,TK:string;
begin
  if BU.Caption='Ubah' then
  begin
  BS.Enabled:=false;
  BU.Caption:='Simpan';
  BB.Enabled:=True;
  BH.Enabled:=false;
  Panel1.Enabled:=true;
  Panel3.Enabled:=false;
  DBGrid1.Enabled:=false;
  end
  else
  begin
  //cek data yang kosong
  if EdNm.Text='' then
    begin
    MessageDlg('Data nama dokter belum diisi', mtInformation,[mbOk], 0);
    EdNm.SetFocus;
    end
  else if CBSp.Text='' then
    begin
    MessageDlg('Data spesialis belum diisi', mtInformation,[mbOk], 0);
    CBSp.SetFocus;
    end
  else
    begin
    p:='''';
    //aktif tidak  konversi 1 dan 0
    if CBAk.Text='Ya' then a:='1' else a:='0';

    sql:='UPDATE dokter SET '+
         ' nama='+p+EdNM.Text+p+', '+
         ' spesialis='+p+CBSp.Text+p+', '+
         ' aktif='+p+a+p+
         ' where id='+p+EdID.Text+p;  //insert ke tabel

    ZQuery1.Close;
    ZQuery1.SQL.Clear;
    ZQuery1.SQL.Add(sql);
    ZQuery1.ExecSQL;

    //pesan
    MessageDlg('Data berhasil disimpan', mtInformation,[mbOk], 0);
    BS.Enabled:=true;
    BU.Caption:='Ubah';
    BB.Enabled:=False;
    Panel1.Enabled:=False;
    Panel3.Enabled:=True;
    DBGrid1.Enabled:=True;
    KosongForm();
    end;
  end;
end;