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

[ابو جودي]

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

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

فى هذا الجزء 

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

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

 

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

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

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

SecurityLevel group.accdbFetching info... SecurityLevel group.mdbFetching info...

[essam rabea]

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

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

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

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

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

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

 

شكلى مش فاهم 

[ابو جودي]

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

ولكن لى سؤال

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

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

[SEMO.Pa3x]

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

[ابو جودي]

  في 24‏/4‏/2019 at 10:24, SEMO.Pa3x said:

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

Expand  

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

 

[essam rabea]

  في 24‏/4‏/2019 at 09:12, essam rabea said:

2-

 

Expand  

 

  في 24‏/4‏/2019 at 10:20, ابا جودى said:

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

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

Expand  

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

 

  في 24‏/4‏/2019 at 10:20, ابا جودى said:

  في 24‏/4‏/2019 at 09:12, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 09:12, essam rabea said:

Expand  

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

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

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

 

[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

[ابو جودي]

  في 10‏/9‏/2019 at 14:10, محمد صلاح1 said:

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

Expand  

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

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

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

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

[محمد صلاح1]

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

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

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

[السبيل1]

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

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

[ابو جودي]

  في 1‏/11‏/2021 at 19:04, السبيل1 said:

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

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

Expand  

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

 

[Moosak]

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

[Moosak]

  في 24‏/4‏/2019 at 10:20, ابا جودى said:

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

Expand  

الأحمر جميل