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
PADEPOKAN IT COURSE
IT Tutorial, Training Center & IT Solution
Share
No comments:
Post a Comment