[DELPHI] [ASK] Masalah Validasi (Duplicate) Data

Beranda

...

Programmer Forum
[DELPHI] [ASK] Masalah Validasi (Duplicate) Data

ahya08

12-01-2016 15:36

[DELPHI] [ASK] Masalah Validasi (Duplicate) Data

Mohon bantuannya buat newbie biar pada tombol simpan ada validasi apabila ada kesamaan nama dan no telepon maka data tidak akan bisa di simpan..

ini ss database nya sama programnya:

Spoiler for SS:

[DELPHI] [ASK] Masalah Validasi (Duplicate) Data

Ini Coding Tombol Simpannya:

Spoiler for CODING:

Code:

procedure Tf_mredaktur.TblsimpanClick(Sender: TObject);

begin

if DBEnama.Text=''

then

 begin

 ShowMessage('Nama Redaktur Tidak Boleh Kosong !');

 DBEnama.SetFocus;

 exit;

 end

 else

if DBEalamat.Text=''

then

 begin

 ShowMessage('Alamat Tidak Boleh Kosong !');

 DBEalamat.SetFocus;

 exit;

 end

 else

if DBEtelepon.Text=''

then

 begin

 ShowMessage('Telepon Tidak Boleh Kosong !');

 DBEtelepon.SetFocus;

 exit;

 end

 else

 begin

 dm.ADOTredaktur.Post;

 messagedlg('Data Sudah Disimpan ',mtInformation,[mbOK],0);

 FormShow(Sender);

end

end;

Newbi sudah mencoba menambahkan coding seperti dibawah ini namun data tetap tersimpan emoticon-Hammer (S)

Spoiler for Codinglagi:

Code:

if dm.ADOTredaktur.Locate('nama_r',ejudul.Text),[]) then

 begin

 messagedlg('Redaktur Sudah ada ',mtWarning,[mbOK],0);

 Dbenama.SetFocus;

 exit;

 end;

Mohon bantuannya agan-agan sekalian... emoticon-Berduka (S)