Contoh Syntax Delphi ZQuery Ubah Edit Data

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

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