ورشة عمل لتطوير نظام صلاحيات المستخدمين Users Maker 2

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

الاخ مهند عبادي من الرعيل الاول الذي كان بحق من العباقرة

ونرجو من الله

ثم من باقي الاخوة ان يكملوا ما بدء وانا معك في دعوتك قلبا وقالبا

مشكور اخي على طرح الفكرة

لو يتم وضع طريقة يتم في المستخدم ان يتم التعديل على الباسوورد

sx1 كتب:

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

الاخ مهند عبادي من الرعيل الاول الذي كان بحق من العباقرة

ونرجو من الله

ثم من باقي الاخوة ان يكملوا ما بدء وانا معك في دعوتك قلبا وقالبا

أهلاً بك أخي الكريم sx1

فعلاً مهند عبادي من كبار النخبة والعباقرة في هذا المنتدى

أتمنى كما يتمنى الجميع هنا أن نراه بيننا في القريب العاجل .....

moom2007 كتب:

مشكور اخي على طرح الفكرة

لو يتم وضع طريقة يتم في المستخدم ان يتم التعديل على الباسوورد

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

انظر الصورة

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

يعطيك العافية اخوي abs_2000

اضافة جميلة جدا وفعلا هذي من الامور المهمه في نظام الصلاحيات

وتستاهل +1

مشارف كتب:

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

يعطيك العافية اخوي abs_2000

اضافة جميلة جدا وفعلا هذي من الامور المهمه في نظام الصلاحيات

وتستاهل +1

شكرا لك وللجميع ونتمنى أن تتظافر الجهود من الجميع في تطويره

.

.

.

.

هذا الكود يجب وضعه في كل فورم تريد وضع صلاحيات عليه

Dim SF As Control
With MyUser
   If .GetAbility(Me.Name, OpenForm) Then
      Me.AllowAdditions = .GetAbility(Me.Name, Add)
      Me.AllowEdits = .GetAbility(Me.Name, Edit)
      Me.AllowDeletions = .GetAbility(Me.Name, Del)
      For Each SF In Me.Controls
        If SF.ControlType = acSubform Then
            SF.Form.AllowAdditions = Me.AllowAdditions
            SF.Form.AllowEdits = Me.AllowEdits
            SF.Form.AllowDeletions = Me.AllowDeletions
        End If
      Next
   Else
      MsgBox "عفواً " & .UserName & "      " & vbCr & vbCr & "ليس لديك الصلاحية لفتح هذا النموذج", 0 + 16 + 1572864, "نظام الصلاحيات"
      Cancel = True
   End If
End With

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

Call AAZZ

الحقيقة حاولت وعدلت في الأكواد ولم تفلح معي بنتيجة صحيحة

انتظركم

كيف يتم عمل باسوورد للمستخدم

moom2007 كتب:

كيف يتم عمل باسوورد للمستخدم

ممكن توضح أكثر ؟

هل قمت بإنزال الملف والتجربة عليه ؟

abs_2000 كتب:

ممكن توضح أكثر ؟

هل قمت بإنزال الملف والتجربة عليه ؟

/uploads/monthly_06_2010/post-47128-014803800%201277097494.jpg

كيف يتم عمل ان المستخدم يستطيع تغيير الرقم السري

moom2007 كتب:

/uploads/monthly_06_2010/post-47128-014803800%201277097494.jpg

كيف يتم عمل ان المستخدم يستطيع تغيير الرقم السري

الحين يوجد في البرنامج مستخدمين باسم

1- س والرقم السري = س

2- محمد والرقم السري = 1

ادخل مثلا

اسم المستخدم = محمد

الرقم السري = 1

ثم اضفط على زر (الرقم السري) كما في الصورة

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

وبكذا خلاص

أتمنى اكون شرحت بوضوح ......

هل من جديد يا مبرمجين ؟

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

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

الله يجزاه خير الي سوا البرنامج و جعله مفتوح المصدر للكل حتى يستفيد ويطور

بارك الله فيكم