semo.pa3x صلاحيات المستخدمين بأبسط طريقة - Users Permission

[SEMO.Pa3x]

السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين"

قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج

لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال:

اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات

اي سؤال انا موجود.

تحياتي لكم

Permission.accdb

[أبوبسمله]

وعليكم السلام د حسنين جزاك الله خيرا 💐

[أبوبسمله]

استاذى العزيز @SEMO.Pa3x جزاك الله خيرا 💐

ممكن استاذنك واطمع بشرح بسيط لكل داله حتى استزيد بشرحكم لفهم

[SEMO.Pa3x]

1 دقيقه مضت, احمد الفلاحجي said:

استاذى العزيز @SEMO.Pa3x جزاك الله خيرا 💐

ممكن استاذنك واطمع بشرح بسيط لكل داله حتى استزيد بشرحكم لفهم

 

تفضل

[أبوبسمله]

2 دقائق مضت, SEMO.Pa3x said:

تفضل

يزيد فضلك د حسنين

3 دقائق مضت, احمد الفلاحجي said:

واطمع بشرح بسيط لكل داله حتى استزيد بشرحكم لفهم

انا اطمع بشرح بسيط منك لكل داله ان كان وقتكم يسمح

[SEMO.Pa3x]

الان, احمد الفلاحجي said:

يزيد فضلك د حسنين

انا اطمع بشرح بسيط منك لكل داله ان كان وقتكم يسمح

لو ممكن تحدد اي دالة؟ لا اتذكر اني استخدمت دوال بل فنكشنات

[أبوبسمله]

1 دقيقه مضت, SEMO.Pa3x said:

فنكشنات

🙂 ايوه الفنكشن بعتذر لاننى لم اوضحها

[الحلبي]

2 ساعات مضت, SEMO.Pa3x said:

اي سؤال انا موجود.

عمل جميل ورائع 

هل يمكن زيادة فنكشن به دالة او كود تخبر المستخدم بانه  النموذج الاول مثلا للقراءة والاطلاع فقط وليس للتعديل

اى كود فى الفنكشن يخبر بالفتح  وعند التعديل تظهر رسالة تخبره بان صلاحيته للقراءة فقط .

[SEMO.Pa3x]

3 ساعات مضت, احمد الفلاحجي said:

🙂 ايوه الفنكشن بعتذر لاننى لم اوضحها

 

حسنا، لا مشكلة مع انني شرحت الاكواد داخل البرنامج

Public Function XOREncryption(CodeKey As String, DataIn As String) As String

 

خوارزمية تشفير النصوص يطلب براميترات اثنان الاول هو مفتاح التشفير ( CodeKey As String ) وهو المتمثل هنا

 

Function KEY_ENDE()
    KEY_ENDE = "PA$X"
End Function

 

والبراميتر الثاني ( DataIn As String ) النص المراد تشفيرة

نفس الكلام ينطبق على فنكشن فك التشفير

 

Public Function XORDecryption(CodeKey As String, DataIn As String) As String

 

الفنكشن هذا

 

Public Function GetUsernameLogin() As String

 

يقوم بجلب اسم المستخدم الحالي لقاعدة البيانات من جدول AutoSave ويقوم بفك تشفيرة وارجاعه كـ نص عادي لكي يتم مطابقتة فيما بعد

 

اما هذا الفنكشن

 

Public Function CheckPermissions(Username As String, permissions As String) As Boolean

 

يحتاج براميترات اثنان الاول اسم المستخدم لقاعدة البيانات والثاني الصلاحية المطلوبة لكي يتم تدقيقها هل هي True أو False

هل مسموح له بعمل هذا الاجراء او لا، نمرر البراميتر الأول وهو الـ Username من الفنكشن التالي GetUsernameLogin

ثم نمرر البراميتر الثاني وهو حسب ما مكتوب في الجدول وحسب الفورم المطلوب فتحه

مثلا: لدي في الجدول حقل اسمه frm_setting واريد ان اتحقق هل اليوزر لديه صلاحية بفتح هذا الفورم

فأكتب:

    If CheckPermissions(GetUsernameLogin, "frm_setting") = False Then
        MsgBox "You do not have permissions !", vbCritical, "ERROR!"
        Exit Sub
    End If

 

وسلامتك.

1 ساعه مضت, حلبي said:

عمل جميل ورائع 

هل يمكن زيادة فنكشن به دالة او كود تخبر المستخدم بانه  النموذج الاول مثلا للقراءة والاطلاع فقط وليس للتعديل

اى كود فى الفنكشن يخبر بالفتح  وعند التعديل تظهر رسالة تخبره بان صلاحيته للقراءة فقط .

 

نعم، ممكن ذلك.

عندما اجد وقت كافي سأقوم بعمل مثال لك.

[أبو عبدالله الحلوانى]

جزاكم الله خيرا 

ولو تسمح لنا بتوضيح ما الفائدة من وجود جدول التشفير 

وفانكشن التشفير وفك التشفير 

تم تعديل يناير 15, 2021 بواسطه أبو عبدالله الحلوانى

[SEMO.Pa3x]

11 دقائق مضت, أبو عبدالله الحلوانى said:

جزاكم الله خيرا 

ولو تسمح لنا بتوضيح ما الفائدة من وجود جدول التشفير 

وفانكشن التشفير وفك التشفير 

 

لصعوبة كشف كلمة المرور والبيانات المهمة من قبل المتطفلين.

[abouelhassan]

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

شكروتقدير واحترام من اخيك

[أبوبسمله]

8 ساعات مضت, SEMO.Pa3x said:

وسلامتك.

الله يسلم عمرك اخى واستاذى ابومهاب وجزاك الله كل خير 💐

[المهاجر ابو معاذ]

14 ساعات مضت, SEMO.Pa3x said:

السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين"

قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج

لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال:

اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات

اي سؤال انا موجود.

تحياتي لكم

Permission.accdb 516 kB · 19 downloads

مشكور

[السبيل1]

مجهود رائع لشخص ذو علم 

المثال أفترض وجود نموذجين فقط لعمل صلاحيات عليهم ماذا إذا كانت النماذج التي تحتاج لصلاحيات كثيرة ما هو التعديل المطلوب

هل يكون هناك جدول مستقل لبيانات المستخدمين بخلاف جدول الدخول وكيف يتم تطبيق ذلك علي مثالكم الجميل