دخول

aymen · 24-01-2022, 08:27 PM

السلام عليكم
كيف اقوم بمنع المستخدم المسوْول من حذف الحساب الرئيسي (admin) الذي به بيانات الدخول الى البرنامج حيث اتيح له فقط التعديل عليه ؟

seddik_xp

إضافة الكود التالي عند الحدث 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;

aymen · 25-01-2022, 04:17 PM

بارك الله فيك جزاك الله خيرا

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة