Tips Membuat Validasi Data untuk Input Duplikat ID dan Isian Kosong di Delphi

Ketika membuat aplikasi di Delphi khususnya untuk modul input data, maka validasi merupakan hal yang sangat penting. Karena jangan sampai data di input double atau data ada yang kosong. Validasi data adalah proses untuk memastikan bahwa program beroperasi pada bersih, data yang benar dan berguna. Berikut tips membuat coding validasi data untuk duplikat key dan input data kosong

 //VALIDASI INPUTAN KOSONG
 if(ed_is.Text = '') or (ed_ns.Text ='') or (ed_alamat.Text='') or
    (ed_cp.Text ='') or (ed_telp.Text = '') then
      Begin
        application.MessageBox('Data Harus Dilengkapi dengan Benar','SIM LAB',MB_OK + MB_ICONERROR);
        ed_is.SetFocus;
        exit;
      end
  else

 // Validasi Data ID Supplier
    with QSupplier do
       Begin
          sql.Clear;
          sql.Add('select * from tsupplier where id_supplier = "'+ed_is.Text+'"');
          open;
            if (qsupplier.RecordCount > 0) and (sts=1) then
              Begin
                  application.MessageBox('ID Supplier Sudah Ada','SIM LAB',MB_OK + MB_ICONERROR);
                  ed_is.SetFocus;
              end
           else
              Begin
                simpan_data;
              end;
       end;

Output Validasi data Diatas 

VALIDASI DATA DUPLIKEY KEY DAN
INPUTAN DATA KOSONG

Selamat Mencoba

Padepokan IT Courses

IT Tutorial, Training Center, & IT Solution

Share

Artikel Lainnya :