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.
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