|
|
دليل استخدام إجراءات VBAppAss.dllللمبرمجين بلغة Visual Basic 6.0 |
إزالة صلاحية من مجموعة صلاحيات مستخدم.
الصيغة:
Sub RemoveAuthority(ByRef Authorities As Long, Authority As Integer)
الصنف:
TUserInterface.
الوسائط (Parameters):
| Authorities | متغير من النوع Long يمثل مجموعة الصلاحيات التي ستتم إزالة الصلاحية المحددة منها. | |
| Authority | الرقم الذي يمثل الصلاحية، و يجب أن يكون بين 1 و 32. |
الشرح:
يقوم هذا الروتين بإزالة صلاحية واحدة من مجموعة الصلاحيات. البارامتر Authorities يجب أن يكون متغيراً حيث ستتم إزالة الصلاحية.
للحصول على شرح كامل لهذه الطريقة في معالجة الصلاحيات، انظر الدالة UserAuthorized.
الاستخدام:
Const AUTH_ADD_CUST = 1
Const AUTH_DEL_CUST = 2
Dim ObjUI As New TUserInterface
Dim UserAuths As Long ' نفرض أن هذا المتغير يمثل مجموعة الصلاحيات
ObjUI.RemoveAuthority UserAuths, AUTH_ADD_CUST
ObjUI.RemoveAuthority UserAuths, AUTH_DEL_CUST
انظر أيضاً:
الدالة UserAuthorized.
الروتين RemoveAllAuthorities.
الروتين AddAuthority.
الروتين AddAllAuthorities.