PART 4 cara insert data di tabel mysql dengan delphi xe Tutorial delphi bahasa indonesia

PART 4

TUTORIAL DELPHI

Pada video tutorial kali ini saya akan menunjukkan cara insert data di tabel mysql dengan delphi xe. bagi teman-teman mohon tonton video kami sebelumnnya agar dapat menyesuaikan dengan video ini, teman-teman dapat cek di link dibawah ini :

2. cara setting koneksi zeos ke database mysql

3. cara tampilkan data tabel mysql di dalam dbgrid

SYNTAX SQL :
INSERT INTO TB_PEGAWAI (NIK,NAMA,ALAMAT,JABATAN)
VALUES
(:A,:B,:C,:D)

SOURCE CODE DELPHI :

procedure TForm1.Button1Click(Sender: TObject);
begin
if MESSAGEDLG('SIMPAN DATA.?',TMSGDLGTYPE.mtConfirmation,MBYESNO,0)=MRYES then
BEGIN
WITH ZQUERY2 DO
BEGIN
CLOSE;
PARAMS[0].Value:=EDIT1.Text;
PARAMS[1].Value:=EDIT2.Text;
PARAMS[2].Value:=EDIT3.Text;
PARAMS[3].Value:=EDIT4.Text;
EXECSQL;
END;
WITH ZQUERY1 DO
BEGIN
CLOSE;
OPEN;
END;
END;
end;