[PembekalanPRAKERIN2015] Tambah Data

//=== TAMBAH DATA =====================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  hasil: Boolean;
begin
  hasil := TRUE;
  cekData(Self,hasil);
  if hasil = FALSE then
  begin
    Exit;
  end else
  begin
    //cek duplikat primary key
    with ZQuery1 Do
    begin
      ZQuery1.Active := FALSE;
      ZQuery1.SQL.Clear;
      ZQuery1.SQL.Add('select * from tb_karyawan where NIK='+QuotedStr(Edit1.Text));
      ZQuery1.Active := TRUE;
      if ZQuery1.RecordCount > 0 then
      begin
        ShowMessage('Duplikat!');
        Exit;
      end;
    end;//end cek duplikat

    ZTable1.Open;
    ZTable1.Append;
    isiData(Self);
    MessageDlg('Data sukses ditambahkan',mtInformation,[mbOK],0);

  end;
end;

//==========================================================================