Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

Validasi Insert Data Di Delphi Data Kosong dan Duplikat Data


Pada tutorial Delphi kali ini akan dibahas bagaimana membuat data validasi pada proses insert, dimana validasi yang umum digunakan adalah mengecek apakah inputan data kosong atau tidak, dan mengecek apakah data tersebut sudah ada di database atau belum. Coding lengkapnya adalah sebagai berikut:



CODING
procedure TFGrade_Karyawan.bttambah1Click(Sender: TObject);
begin
if (cbnik_karyawan.Text = '') or (cbnama_proses.Text='') or (cbtipe.Text='') then
    application.MessageBox ('Data Harus di isi lengkap','SIMGelindo',MB_OK+ MB_NOFOCUS + MB_ICONERROR)
else
begin
  if MessageDlg('Yakin Data Akan disimpan ?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
    Begin
        with dm.qr do
              begin
                  sql.Clear;
                  sql.Add('select * from tbjkerja where jeniskerja = "'+cbnama_proses.Text+'"');
                  sql.Add(' and spesial = "'+inttostr(cbtipe.ItemIndex)+'" and nik="'+lnik.Caption+'"');
                  open;
                  if (RecordCount > 0 )then
                       begin
                         application.MessageBox('Data Sudah Ada','info',MB_OK+MB_ICONERROR);
                         exit;
                       end
                   else
                      Begin
                          SQL.Clear;
                          sql.Add('insert into tbjkerja(nik,jeniskerja,`spesial`,`user`)');
                          sql.Add('values(:nik,:jk,:sp,:user)');
                          ParamByName('nik').AsString := lnik.Caption;
                          ParamByName('jk').AsString := cbnama_proses.Text;
                          ParamByName('sp').AsInteger := cbtipe.ItemIndex;
                          ParamByName('user').AsString := '';
                          ExecSQL;
                          close;
                          qrkerja.Refresh;
                          qrkaryawan.Refresh;
                          showmessage(‘Data Telah disimpan’)
                          cbnama_proses.Text :='';
                          cbtipe.Text := '';
                          cbnama_proses.setfocus
                         
                       end;
              end;
    end;
 end;
end;
 



OUTPUT



if (cbnik_karyawan.Text = '') or (cbnama_proses.Text='') or (cbtipe.Text='') then
    application.MessageBox ('Data Harus di isi lengkap','Info',MB_OK+ MB_NOFOCUS + MB_ICONERROR)



             
Syntak Validasi
sql.Clear;
sql.Add('select * from tbjkerja where jeniskerja = "'+cbnama_proses.Text+'"');
sql.Add(' and spesial = "'+inttostr(cbtipe.ItemIndex)+'" and nik="'+lnik.Caption+'"');
open;
  if (RecordCount > 0 )then
         begin
              application.MessageBox('Data Sudah Ada','Info',MB_OK+MB_ICONERROR);
              exit;
          end

Jika Data benar maka proses insert data akan dijalankan. Hasilnya seperti berikut




Selamat Mencoba

https://drive.google.com/file/d/0B3cW7eEIjOtkUEVTRzV3djc2aEk/view?usp=sharing


PADEPOKAN IT COURSE
IT Tutorial, Training Center & IT Solution


                                    


Share

Artikel Lainnya :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution