Contoh Syntax Delphi ZQuery Tambah Simpan Data

Berikut ini dokumentasi syntax Delphi dengan komponen ZQuery untuk Tambah Simpan Data
Berfungsi untuk menambah data dari form input.

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

Alur kode :
Ketika klik tombol Tambah, 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 ke insert ke database.
Kosongkan form input.


procedure TFormDokter.BSClick(Sender: TObject);
var p,sql,a:string;
begin

//cek dulu tambah ato simpan data?
  if BS.Caption='Tambah' then
  begin
  BU.Enabled:=false; //tombol ubah inaktif 
  BS.Caption:='Simpan'; //tombol tambah berubah caption menjadi simpan
  BB.Enabled:=True; // tombol batal aktif untuk membatalkan tambah data
  BH.Enabled:=false; //tombol hapus inaktif
  Panel1.Enabled:=true; //panel form isian aktif
  Panel3.Enabled:=false; // panel data grid inaktif
  DBGrid1.Enabled:=False; // data grid inaktif
  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';


    //insert data
    sql:='INSERT INTO dokter (Id, nama, spesialis, aktif)'+
         ' VALUES ('+p+''+p+', '+
                  p+EdNM.Text+p+', '+
                  p+CBSp.Text+p+', '+
                  p+a+p+')';  //insert ke tabel

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

    //pesan
    MessageDlg('Data berhasil disimpan', mtInformation,[mbOk], 0);

    KosongForm; //prosedur kosongkan form dijalankan
    BU.Enabled:=true; //tombol ubah aktif
    BS.Caption:='Tambah';//tombol simpan berubah tombol tambah
    BB.Enabled:=False;//tombol batal inaktif
    Panel1.Enabled:=False; //form input inaktif
    Panel3.Enabled:=True; //cari data aktif
    DBGrid1.Enabled:=True;//grid data aktif
    end;
    end;
end;



Sekian, dokumentasi Contoh Syntax Delphi ZQuery Tambah Simpan Data

Posting Komentar

Pertanyaan atau berdiskusi, silahkan melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci