السلام عليكم
كيف اقوم بمنع المستخدم المسوْول من حذف الحساب الرئيسي (admin) الذي به بيانات الدخول الى البرنامج حيث اتيح له فقط التعديل عليه ؟
إضافة الكود التالي عند الحدث 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;
بارك الله فيك جزاك الله خيرا