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;
Sekian, Semoga bermangfangat
