|
|
دليل استخدام إجراءات VBAppAss.dllللمبرمجين بلغة Visual Basic 6.0 |
إضافة صلاحية إلى مجموعة من الصلاحيات.
الصيغة:
Sub AddAuthority(ByRef Authorities As Long, Authority As Long)
الصنف:
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.AddAuthority UserAuths, AUTH_ADD_CUST
ObjUI.AddAuthority UserAuths, AUTH_DEL_CUST
انظر أيضاً:
الدالة UserAuthorized.
الروتين AddAllAuthorities.
الروتين RemoveAuthority.
الروتين RemoveAllAuthorities.