Pada tutorial ini
akan dibahas bagaimana membuat Validasi data untuk input data supplier dimana
yang menjadi primary key nya adalah kode supplier. Validasi data adalahProses
untuk memastikan bahwa data memenuhi kriteria tertentu. Dan dalam kasus ini berfungsi
untuk mengantisipasi duplikat kode supplier. Berikut langkah-langkahnya:
1. Pastikan anda telah membuat form input data
supplier dan fasilitas CRUD (Create, Read, Update, dan Delete)
2.
Design Form Seperti Berikut
 |
| DESIGN FORM INPUT DATA SUPPLIER |
3.
Selanjutnya Letakan Kode Validasi data di tombol
Simpan On Click
|
Nama Komponen / Nama
|
Button Simpan
|
|
Event
|
On Click
|
|
Coding
procedure
TFsupplier.Bt_simpanClick(Sender: TObject);
begin
// Validasi
Data Inputan Kosong
if (ed_ks.Text = '') or (ed_ns.Text='') or (Ed_attn.Text='')
or (ed_alamat1.Text='') then
begin
application.MessageBox('Data Harus Dilengkapi dengan Benar','SIM
Korin',MB_OK + MB_ICONERROR);
ed_ns.SetFocus;
exit;
end;
// Validasi Data Duplikat Key
With qr_supplier Do
Begin
SQL.Clear;
sql.Add('select * from tsupplier where kodesup =
"'+ed_ks.Text+'" ');
open;
if
(qr_supplier.RecordCount > 0) and (sts=1) then
Begin
Application.MessageBox('kode Supplier Sudah Ada...','SIMKorin',MB_OK+MB_ICONERROR);
ed_ks.SetFocus;
end
else
// Simpan Data Ke Database
Begin
simpan_data;
non_aktif;
end;
end;
end;
|
|
4.
Selanjutnya Uji Coba Hasilnya dengan Menginput
data dengan duplikat key (Kode Supplier hasilnya seperti pada tampak berikut
 |
| HASIL UJICOBA VALIDASI DATA |
Salam Padepokan-IT Course
IT Training Center & Solution
maaf gan mau nanay itu koding qr_supplier maksudnya apa ya?
ReplyDeleteqr_supplier nama komponen qr tabel zeos
ReplyDeleteGan tolong diberi keterangan... (sts=1) mksudx apa?
ReplyDeletests parameter adalah inisial pakai komponen label, jadi ketika form di Running label tersebut caption nya bernilai 1 jika form close label captionnya = 0
ReplyDelete