صلاحيات

[العبيدي رعد]

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

عندي قاعدة بيانات  اكسس  ... فيها جدول ونموذج للدخول  بحسب صلاحيات 
الدخول  للواجهة الرئيسية  للجميع  ... لكن  فقط المستخدم a له كل الصلاحيات  عدا  زر  التغيير

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

ولهم صلاحيات  الاطلاع على  اي  تغيير  يجريه  المستخدم  a

Database2.accdb

[مالك الحرايزة]

مرحبا معرفتي قليلة 

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

كل الاحترام

[kkhalifa1960]

بعطيك برنامج صلاحيات هيعجبك انشاء الله هتحصل به كل ماتشاء أقرأه جيدا هيوصلك لمبتغاك ووافني بالرد

MahdiPermissions.rar

[العبيدي رعد]

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

[kkhalifa1960]

اعمل كما بالصورة سيظهر لك كل شئ

[العبيدي رعد]

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

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

السلام عليكم 

مشاركة مع الاستاذ @kkhalifa1960 جزاه الله خيرا 

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

بالتوفيق

صلاحيات.accdb

[العبيدي رعد]

في 17‏/1‏/2023 at 18:25, kkhalifa1960 said:

بعطيك برنامج صلاحيات هيعجبك انشاء الله هتحصل به كل ماتشاء أقرأه جيدا هيوصلك لمبتغاك ووافني بالرد

MahdiPermissions.rar 498.48 kB · 7 downloads

 

في 19‏/1‏/2023 at 18:22, سامي الحداد said:

السلام عليكم 

مشاركة مع الاستاذ @kkhalifa1960 جزاه الله خيرا 

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

بالتوفيق

صلاحيات.accdb 864 kB · 17 downloads

الف  شكر  استاذنا  العزيز   

[العبيدي رعد]

اريد  تحديد  النماذج  بالنسبة  للمستخدمين   1  و  2 
والادمن  يملك  صلاحيات  تغيير  المستخدمين   ومعاينة  فقط  لبعض النماذج

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

أخي الكريم @العبيدي رعد

الملف الذي ارفقته لك فيه كل ما طلبت يمكن جنابكم ما فتحتم الملف. 

سجل الدخول بإسم Sami وكلمة المرور 555 ادخل على صلاحيات المستخدمين واختار المستخدم من القائمة وسترى النماذج والتي بامكانك تغيرها على حسب النماذج التي  في برنامجك ومنها تستطيع  ان تعطي الصلاحيات لكل نموذج . إذا الموضوع صعب عليك ارفق برنامجك هنا وساعمل لك الصلاحيات المطلوبة لكل مستخدم .. الموضع سهل جدا وما فيه اي تعقيد. 

غير المستخدم سامي واجعله الادمن وغير اسماء المستخدمين واعطيهم الصلاحيات الطلوبه.

بانتظار ردك.

تحياتي

[العبيدي رعد]

@سامي الحداد الاستاذ  الفاضل 

السلام عليكم  ....  اقصد في كلامي  إضافة  النماذج  في البرنامج 
وأعتقد أن  جدول  allforms  هو  من يضيف  اسماء النماذج  ...... والسؤال  هنا  هل  اختار  bouttun disabaie

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

وعليكم السلام أخي الكريم

بالنسبة ل All Forms فهي للادمن فقط. اما بالنسبة لزر  Disable Button فهو لاخفاء زر معين في نموذج أو من القائمة الرئيسية مثلا : في النموذج لديك مستخدم يستطيع ان يضيف ولكن لا يستطيع ان يحذف وهذا النموذج فيه اضافة وحذف هنا يأتي زر الاخفاء بحيث هذا المستخدم لا يستطيع ان يحذف, فقط يستطيع الاضافة.  لهذا اضفت هذه الخاصية لتعطيل زر معين. أدخل باسم المستخدم B على ما اعتقد سترى ان زر صفحة الادمن غير مفعلة. وهناك بعض الازرار مفعلة ولكن ليس لدية الصلاحية لفتح النموذج. واليك كيفية عمل ذلك..

استدعاء وظيفة User Permission في كل نموذج ضمن الحدث Form_Open

Private Sub Form_Open(Cancel As Integer)
       Call UserPermission(Me, GetUserLoginID())
End Sub

--------------------------------------------------------------------------
 إذا كان لديك بعض الأزرار لتعطيلها للمستخدم العادي ، فاستدع الوظيفة "UserPermission" و "DisableButton" ضمن حدث Form_Open

 

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission) 
End If
End Sub

يجب إضافة كل النماذج في جدول tbl_Forms ضروري.

اتمنى ان اكون قد وفقت في الشرح وبخدمتكم.

تحياتي

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

المعذرة اخي الكريم نسيت ان اضيف هذا وهو اسم الزر المراد اخفاءه في الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, Me. اسم الزر المراد اخفاءه) 
End If
End Sub

 

[العبيدي رعد]

السلام عليكم  استاذ سليم

سيتم  التطبيق    وسوف  نوافيكم  لاحقا 

الحاسبة  في  محل  العمل  قد أتأخر  أحيانا  عن  الرد 

لكن  لا أعرف  كيف  أشكركم

[العبيدي رعد]

@سامي الحدادالسلام عليكم 
استاذنا الفاضل   الشكر  موصول  لكم 
 

في 23‏/1‏/2023 at 12:16, سامي الحداد said:

المعذرة اخي الكريم نسيت ان اضيف هذا وهو اسم الزر المراد اخفاءه في الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, Me. اسم الزر المراد اخفاءه) 
End If
End Sub

 

هذا  حدث  واحد   يوضع  في  كل  فورم  ندخل  عليه  أم  في  الفورم  الرئيسي              main

[العبيدي رعد]

السلام عليكم

استاذ سامي   .... أريد  الخطوة  الاولى  وهي تعريف  المسؤول الرئيسي  هل  ابدأ من  الجدول 
فأنا  المسؤول  عن  النظام   لكني  لاأريد  امكانية  ادخال  سندات   فمهمتي   هي  مراقبة  من  يدخل  البيانات

[العبيدي رعد]

السلام  عليكم

ماهو  دور  الجدولين      tblsecurtytype

و    عسثق&حشسس

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

2 ساعات مضت, العبيدي رعد said:

هذا  حدث  واحد   يوضع  في  كل  فورم  ندخل  عليه  أم  في  الفورم  الرئيسي              main

نعم اخوي رعد يضع في كل فورم  هذا الكود.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())
End Sub

وإذا كان الفورم فيه ازرار تريدها ان تكون غير مفعلة تضع باقي الكود فيصبح كالاتي.

Private Sub Form_Open(Cancel As Integer)
Call UserPermission(Me, GetUserLoginID())

If TempVars!IsFormOpened = 1 Then
    Exit Sub
Else

    Call DisableButton(Me, GetUserLoginID, Me.cmdSetPermission, هنا تضع اسم الزر مثلا Me.Addnew) 
End If
End Sub

حياك الله 

28 دقائق مضت, العبيدي رعد said:

السلام عليكم

استاذ سامي   .... أريد  الخطوة  الاولى  وهي تعريف  المسؤول الرئيسي  هل  ابدأ من  الجدول 
فأنا  المسؤول  عن  النظام   لكني  لاأريد  امكانية  ادخال  سندات   فمهمتي   هي  مراقبة  من  يدخل  البيانات

تستطيع ان تبدا من الجدول نعم فقط لك كمسؤول . ومن ثم عليك إغلاق كل الابواب وعدم السماح بالدخول من الخلف.

 

 

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

7 دقائق مضت, العبيدي رعد said:

السلام  عليكم

ماهو  دور  الجدولين      tblsecurtytype

و    عسثق&حشسس

هاي ما اعرفها   (و    عسثق&حشسس) 

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

[العبيدي رعد]

في 26‏/1‏/2023 at 14:01, سامي الحداد said:

هاي ما اعرفها   (و    عسثق&حشسس) 

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

العفو  الخلط بالكيبورد   اقصد  جدول  user&pass  ايضا  ...  هل  احذفهما  من  البرنامج ؟  
وسؤالي  كيف  أحدد  الصلاحيات  ابتداءا  ؟  وعند  دخولي  للبرنامج  عن  طريق  الفورم   كيف  سيتعرف  عن  صاحب  الصلاحيات لنموذج  الادمن ؟

[العبيدي رعد]

@سامي الحداد  السلام عليكم

أخي  العزيز  .. عرفت الادمن  من جدول  الصلاحيات  ولكن يظهر لي خطأ في الكود  عندما  اريد  الدخول الى الصفحة الرئيسية  main

وأرفق صور توضيحية للجدول  والخطأ  الذي  يحث  في  حدث    onopen  للنموذج 

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

اخي العزيز @العبيدي رعد

2 ساعات مضت, العبيدي رعد said:

العفو  الخلط بالكيبورد   اقصد  جدول  user&pass  ايضا  ...  هل  احذفهما  من  البرنامج ؟  
وسؤالي  كيف  أحدد  الصلاحيات  ابتداءا  ؟  وعند  دخولي  للبرنامج  عن  طريق  الفورم   كيف  سيتعرف  عن  صاحب  الصلاحيات لنموذج  الادمن ؟

الجدول user&pass كان في ملفك من الاساس

تحديد الصلاحيات يتم عن طريق دخول الادمن من نموذج تسجيل الدخول او الجدول ثم اعطاء كل الصلاحيات للنماذج وتفعيل كل الخانات  ما عدا  Button Disable. ضروري ان يكون الزر غير مفعل

وبعدها تستطيع ان تكمل مع باقي المستخدمين واعطاء كل مستخدم الصلاحية المطلوبة. وإغلاق الازرار 

منذ ساعه, العبيدي رعد said:

@سامي الحداد  السلام عليكم

أخي  العزيز  .. عرفت الادمن  من جدول  الصلاحيات  ولكن يظهر لي خطأ في الكود  عندما  اريد  الدخول الى الصفحة الرئيسية  main

وأرفق صور توضيحية للجدول  والخطأ  الذي  يحث  في  حدث    onopen  للنموذج 

بالنسبة لهذا الخطاء هو انه  زر الامر Command0  غير موجود في هذا  القورم . 

وهناك ايضا خطاء انه تم تفعيل زر Button Disable لان الشخص ابو ايمان له كل الصلاحيات إذن يجب إلغاء هذا الزر وعدم تفعيله اذا كان الادمن.

سارفق لك نفس ملفك الاول والذي عملت عليه واعطيت سامي صلاحية الادمن وكلمة المرور 555  انظرا جيدا كيف تم العمل واكمل .

واي استفسار بخدمتكم . ربما أتاخر في الاجابة بسببت فرق التوقيت 

تحياتي

صلاحيات.accdb

[Marwan Naji]

الأستاذ الفاضل @سامي الحداد

سمحت لنفسي بأخذ الملف صلاحيات الذي قمت بتعديله للزميل العضو @العبيدي رعد

وقمت بتطبيقة في قاعدة بيانات خاصة بي شاكراً مجهوداتكم الرائعة..

وأنا أحتاج بعض التعيدلات ولم استطع تنفيذها مثل:

1. أن يكون الدخول من شاشة تسجيل الدخول إلى الشاشة الرئيسية الخاصة بنظامي والتي أسميتها في المرفق MY_MAIN_FoRM

2. يكون الدخول لشاشة التحكم بالمستخدمين والصلاحيات من داخل MY_MAIN_FoRM ولا تفتح إلا لمن لديه صلاحيات admin

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

مرفق لكم الملف الذي أعمل عليه..

MRNDB.rar

[Marwan Naji]

6 ساعات مضت, Marwan Naji said:

الأستاذ الفاضل @سامي الحداد

سمحت لنفسي بأخذ الملف صلاحيات الذي قمت بتعديله للزميل العضو @العبيدي رعد

وقمت بتطبيقة في قاعدة بيانات خاصة بي شاكراً مجهوداتكم الرائعة..

وأنا أحتاج بعض التعيدلات ولم استطع تنفيذها مثل:

1. أن يكون الدخول من شاشة تسجيل الدخول إلى الشاشة الرئيسية الخاصة بنظامي والتي أسميتها في المرفق MY_MAIN_FoRM

2. يكون الدخول لشاشة التحكم بالمستخدمين والصلاحيات من داخل MY_MAIN_FoRM ولا تفتح إلا لمن لديه صلاحيات admin

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

مرفق لكم الملف الذي أعمل عليه..

MRNDB.rar 790.25 kB · 0 downloads

أرجوا تجاهل المشاركة السابقة فقد تم والحمد لله حل الاشكاليات التي واجهتني.