+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بمنع حذف حساب الـ Admin من قاعدة البيانات ؟ (/showthread.php?tid=11778)
كيف اقوم بمنع حذف حساب الـ Admin من قاعدة البيانات ؟ - aymen - 24-01-2022
السلام عليكم
كيف اقوم بمنع المستخدم المسوْول من حذف الحساب الرئيسي (admin) الذي به بيانات الدخول الى البرنامج حيث اتيح له فقط التعديل عليه ؟
RE: كيف اقوم بمنع حذف حساب الـ Admin من قاعدة البيانات ؟ - seddik_xp - 25-01-2022
إضافة الكود التالي عند الحدث BeforeDelete
كود :
procedure Tdatamodule.Table1DataSetBeforeDelete(DataSet: TDataSet);
begin
if (Table1.FieldByName('username').asstring = 'admin') then
begin
ShowMessage('Sorry, you can not delete this user account.');
Abort;
end;
end;RE: كيف اقوم بمنع حذف حساب الـ Admin من قاعدة البيانات ؟ - aymen - 25-01-2022
بارك الله فيك جزاك الله خيرا