[PembekalanPRAKERIN2015] Tombol Edit

//=== TOMBOL EDIT ==========================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  hasil: Boolean;
begin
  hasil := TRUE;
  cekData(Self,hasil);
  if hasil = FALSE then
  begin
    Exit;
  end else
  begin
    ZTable1.Edit;
    isiData(Self);
    MessageDlg('Data sukses diedit',mtInformation,[mbOK],0);
  end;
end;
//==========================================================================