الجزء الأول من شاشة الدخول - ( سلسلة تفكيك برنامج الارشفة الاليكترونية - 2)

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

الجزء الاول من صلاحيات دخول المستخدمين الى البرنامج

فى هذا الجزء 

- فى حالة عدم وجود مستخدم مسجل اى عند فتح القاعدة للمرة الأولى يتم انشاء المستخدم  الأدمن اليا    يا سلام يا سلام
-البيانات فى الجداول مشفرة   << -----------<      تلبية ورغبة لطلب احبائى الكرام
-تم إخفاء معظم كائنات قاعدة البيانات التى تخص دخول المستخدمين 
-نموذج الدخول يمكن من خلاله تسجيل مستخدم جديد  فى انتظار الادمن للموافقة عليه وتصنيفه تبعا لمجموهة الصلاحيات << -----------< الادمن كده هيستريح الله الله الله 
-نموذج الدخول يمكن من خلاله استرجاع كلمة المرور فى حالة النسيان ولكن بعد ادخال بيانات التسجيل الصحيحة ( اسم الدخول - الاسم الرباعى - الايميل- سؤال الامان - اجابة السؤال)
-امكانية كشف نجوم كلمة المرور 

ما تيجو نشوف كده

 

قد يكون هناك اخطاء سهوا منى
وقد تكون هناك لدى احد اساتذتى الكرام واحبائى فكرة افضل 

يسعدنى تلقى مقترحاتكم حول المرفق

القاعدة مطروحة للتجربة
ـــــــــــــــــــــــــــــــــــــــــــــ

SecurityLevel group.accdb SecurityLevel group.mdb

[essam rabea]

حقا أنت رائع .. ملاحظاتى إن جاز وسميتها ملاحظات

1-لم يتم التأكد عند التقدم بطلب تسجيل جديد من صحة البريد الالكترونى عند الخروج من الحقل (كتبت البريد بدون @) وتم قبوله.

2-يقبل كلمة مرور ولو كانت أرقام فقط.

3-كيف يتم التعديل على بيانات الأدمن (تغيير الإسم , كلمة المرور).

4-هل يتم دخول الأدمن أول مرة فقط باليوزر والباسوورد والمرات التالية يتم تجاهلهم؟ حيث اغلقت البرنامج وفتحته مرة أخرى وبدون إدخالهم تمكنت من الدخول طلبات التسجيل , نسيان كلمة المرور ,مراجعة الطلبات.

5-شاشة طلب التسجيل تظهر خلف الشاشة الرئيسية.

 

شكلى مش فاهم 

[ابو جودي]

22 دقائق مضت, essam rabea said:

1-لم يتم التأكد عند التقدم بطلب تسجيل جديد من صحة البريد الالكترونى عند الخروج من الحقل (كتبت البريد بدون @) وتم قبوله.

1-كنت نايم فى الاواخر ومكنتش مركز حلو حاضـــر جارى التعديل
 

22 دقائق مضت, essam rabea said:

2-يقبل كلمة مرور ولو كانت أرقام فقط.

مش فاهم قصد حضرتك

22 دقائق مضت, essam rabea said:

3-كيف يتم التعديل على بيانات الأدمن (تغيير الإسم , كلمة المرور).

هههههه فى الجزء الثانى ان شاء الله لا تقلق
 

22 دقائق مضت, essam rabea said:

4-هل يتم دخول الأدمن أول مرة فقط باليوزر والباسوورد والمرات التالية يتم تجاهلهم؟ حيث اغلقت البرنامج وفتحته مرة أخرى وبدون إدخالهم تمكنت من الدخول طلبات التسجيل , نسيان كلمة المرور ,مراجعة الطلبات.

هو مش مركز ومش قادر افهم قوى لكم ممكن بالتجربة افهم معلش فهمى تقيل جبتين صعيدى 

22 دقائق مضت, essam rabea said:

5-شاشة طلب التسجيل تظهر خلف الشاشة الرئيسية.
شكلى مش فاهم 

العفو منكم استاذى الفاضل انا اكيد غلط بش من قلة التركيــــز بآخر الوقت ومعلش سامحنى ان شاؤ يتم تدارك كل هذه النقاط

ولكن لى سؤال

اى الالوان اجمل الازرق ام الاحمر

ههههههه هذا ذوق الاستاذ @SEMO.Pa3x 

[SEMO.Pa3x]

عمل جميل بالتوفيق عزيزي

[ابو جودي]

الان, SEMO.Pa3x said:

عمل جميل بالتوفيق عزيزي

كل الشكر والتقدير استاذى الجليل ومعلمى القدير 

 

[essam rabea]

1 ساعه مضت, essam rabea said:

2-

 

 

23 دقائق مضت, ابا جودى said:

يقبل كلمة مرور ولو كانت أرقام فقط.

مش فاهم قصد حضرتك

1 ساعه مضت, essam rabea said:

أقصد إن المفروض كلمة السر تكون حروف وأرقام وعلامات وطول معين لاتقل عنه.

 

25 دقائق مضت, ابا جودى said:

1 ساعه مضت, essam rabea said:

4-هل يتم دخول الأدمن أول مرة فقط باليوزر والباسوورد والمرات التالية يتم تجاهلهم؟ حيث اغلقت البرنامج وفتحته مرة أخرى وبدون إدخالهم تمكنت من الدخول طلبات التسجيل , نسيان كلمة المرور ,مراجعة الطلبات.

هو مش مركز ومش قادر افهم قوى لكم ممكن بالتجربة افهم معلش فهمى تقيل جبتين صعيدى 

1 ساعه مضت, essam rabea said:

من رأيى إخفاء (طلب تسجيل , نسيت كلمة المرور , مراجعة طلبات إنضمام مستخدمين) وإظهارها بعد تسجل دخول الأدمن.

ما شاء الله شغل عالى ودماغ أعلى 

تقبل إعتذارى لو أسات فى أى تعبير

 

[kaser906]

ما شاء الله

عمل جميل أستمر

ملاحظة عند كتابة اسم مستخدم غير موجود يظهر خطأ وتفتح نافذة محرر الاكواد

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

::بالتوفيق::

[A7MD M7MD]

فعلا الشغل متعوب عليه ويجنن لكن فعلا يحتاج حبة تظبيطات تحياتى

وشابوه بجد 

وراى الأزرق اريح للعين

[ديو05]

شغل جبار أخي أبو جودي

[asam mahmod]

شغل جميل جدا بالتوفيق والنجاح  ارى ان اللون الازرق افضل ومريح للعين

[محمد التميمي]

احسنت اخي ابو الجود ياجواد  ( الجود والجواد معناه الكرم ) 

سلمت يداك

[محمد صلاح1]

الاستاذ @ابا جودى الأخوة الأفاضل السلام عليكم

هل يمكن المساعدة باستخراج الكود المشتق من الكود التالي والذي يوضع في حدث عند فتح النموذج الذي نريد عمل صلاحية له حتى يتم التحقق والتأكيد من وجود هذه صلاحية  عند الدخول

Dim SF As Control, strsubfrm As String
''Dim SF As Control
With MyUser
     If .GetAbility(frmName, lvlOpenForm) Then
      ContinueCode = True
      Forms(frmName).AllowAdditions = .GetAbility(frmName, lvlAdd)
      Forms(frmName).AllowEdits = .GetAbility(frmName, lvlEdit)
      Forms(frmName).AllowDeletions = .GetAbility(frmName, lvlDelete)
      
      For Each SF In Forms(frmName).Controls
        
        If SF.ControlType = acSubform Then
        strsubfrm = SF.SourceObject
        If Not IsNull(DLookup("lvlFormName", "UsystbllvlControlForms", "lvlFormName = '" & strsubfrm & "'")) Then
        If .GetAbility(strsubfrm, lvlOpenForm) Then
         
            SF.Form.AllowAdditions = .GetAbility(strsubfrm, lvlAdd)
            SF.Form.AllowEdits = .GetAbility(strsubfrm, lvlEdit)
            SF.Form.AllowDeletions = .GetAbility(strsubfrm, lvlDelete)
         Else
        SF.SourceObject = ""
        SF.Visible = False
        End If
        Else
            SF.Form.AllowAdditions = Forms(frmName).AllowAdditions
            SF.Form.AllowEdits = Forms(frmName).AllowEdits
            SF.Form.AllowDeletions = Forms(frmName).AllowDeletions
           End If
           End If
      Next
   Else
      MsgBox "عفواً " & .UserName & "      " & vbCr & vbCr & "ليس لديك الصلاحية لهذا الإجراء ", 0 + 16 + 1572864, "نظام الصلاحيات"
       ContinueCode = False
      DoCmd.Close acForm, frmName
   End If
End With

 

[محمد صلاح1]

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

Dim SF As Control
With MyUser

     If .GetAbility(frmName, lvlOpenForm) Then
      Forms(frmName).AllowAdditions = .GetAbility(frmName, lvlAdd)
      Forms(frmName).AllowEdits = .GetAbility(frmName, lvlEdit)
      Forms(frmName).AllowDeletions = .GetAbility(frmName, lvlDelete)
      
      For Each SF In Forms(frmName).Controls
        
        If SF.ControlType = acSubform Then
        
        strsubfrm = SF.SourceObject

            SF.Form.AllowAdditions = Forms(frmName).AllowAdditions
            SF.Form.AllowEdits = Forms(frmName).AllowEdits
            SF.Form.AllowDeletions = Forms(frmName).AllowDeletions
            
           End If
      Next
   Else
      MsgBox "عفواً " & .UserName & "      " & vbCr & vbCr & "ليس لديك الصلاحية لهذا الإجراء ", 0 + 16 + 1572864, "نظام الصلاحيات"
       ContinueCode = False
      DoCmd.Close acForm, frmName
   End If
End With

 

تم تعديل سبتمبر 5, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

للرفع

[ابو جودي]

ممكن قاعدتك التى تحتوى على هذه المشكله

[محمد صلاح1]

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

تم تعديل سبتمبر 10, 2019 بواسطه محمد صلاح1

[ابو جودي]

في ١٠‏/٩‏/٢٠١٩ at 16:10, محمد صلاح1 said:

العنل في صور التجهيز والاعداد إن كان لديك الوقت والجهد اليوم الذي يسمح بذلك أرسلها لك بعد العمل اليوم إن شاء الله ولكني سأحتاج لردك بالتعديل اليوم فهل ذلك يناسبك أم سيكون به مشقة عليك

انا بصراحة مش قادر افهم السؤال لذلك طلبت القاعدة التى احتوت المشكلة

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

لابد لى ان اطلع على القاعدة لاعلم اى طريق سلكته انت حتى اتيك بهذا الكود المناسب فلكل كود طريقة فى التعامل معه تختلف عن غيره
 

تم تعديل سبتمبر 10, 2019 بواسطه ابا جودى

[محمد صلاح1]

نعم هذا حقيقة ما واجهني عند تطبيق أخر عمل لكم علي عملي الذي أقوم به فبعد القيام بتعديلاتي التي هي طبعاً كوبي وبست وفق ما استوعبته منها واجهتني هذه المشكلة

عموماً إن كنت مستعد سوف أغادر عملي الآن وفور عودتي للبيت سوف أرسل لحضرتك الجزئية المراد تعديلها وأتمني لك عاجل الشفاء وأن تعود لسابق عهدك إن شاء الله تعالي بارك الله فيك وشكراً لحسن استجابتك رغم ما تمر به جعله الله في ميزان حسناتك

تم تعديل سبتمبر 10, 2019 بواسطه محمد صلاح1

[السبيل1]

أستاذ @ابا جودى

هل هناك نسخة مطورة من هذا العمل ؟

[ابو جودي]

21 دقائق مضت, السبيل1 said:

أستاذ @ابا جودى

هل هناك نسخة مطورة من هذا العمل ؟

جارى العمل على التطوير والشرح خطوة خطوة بأمر الله فى الموضوع الاتى حتى لا اقدم المرفق اجمالا بما فيه ويتم استعماله او استخدامه بدون فهم الاكواد والية العمل 
تابع معى ان شاء الله 

 

[Moosak]

دائما مبدع ومتميز أستاذنا @ابا جودى

[Moosak]

في ٢٤‏/٤‏/٢٠١٩ at 14:20, ابا جودى said:

اى الالوان اجمل الازرق ام الاحمر

الأحمر جميل