09-10-2017, 12:11 PM
begin
if (Not DM.Temploye.Locate('Matrecul',DBMat.Text,[locaseinsensitive,lopartialkey])) then
begin
DM.Temploye.post;
MessageDlg(' لقد تمت اضافة ملف عامــل بكل نجاح ', mtCustom,[mbYes],0);
exit
end
else
begin
MessageDlg('الرقم الذي الذي ادخلته مسجل من قبل '+ #13+ DBMat.Text ,mtError,[mbYes],0);
exit ;
end;
end;