المستخدمين

up

لديك إحدى طريقتين:

1- ان تقوم بعمل حسابات للمستخدمين في SQL Server ، وعند الدخول للبرنامج تدخلهم بأسماء حساباتهم مع استعمال SQL Server authentication ، وتحدد الصلاحيات (إضافة، حذف، استعلام، ... إلخ ) لكل واحد منهم، كما هو موضح في هذا الموضوع:

كيف يمكن انشاء صلاحية لمدخل البيانات

2- أن تنشيء جدولاً يحوي أسماء المستخدمين مع كلمات السر الخاصة بهم، وتنشيء جدولاً آخر مرتبطاً بهذا الجدول يحتوي على صلاحيات كل مستخدم، وعند دخول المستخدم يقوم البرنامج بقراءة صلاحياته ومن ثم تطبيقها.

بالتوفيق بإذن الله :)

أخي walcom

شكراً جزيلاً على ردك

..................

و لكن ألا تتفق معي أننى لو أخذت برأيك الثاني سأكون قد تجاهلت كل إمكانيات الsql server(و التى لا أعلمها جيداً و لكنى أسمع عنها فقط)

و لو أخذت برأيك الأول

و هو عمل الصلاحيات من خلال الsql server نفسه ستكون حقوق المستخدمين بسيطة

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

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

هنا تظهر المشكلة التى أسئل عليها

كيف يمكن عمل حقوق للمستخدمين ((( حقوق معقدة ))) :wacko:

شباب أنتظر ردودكم ز و شكراً

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

أخى العزيز egyman

بالراحة شوية على أستاذنا الكبير walcom

الراجل جاوبك على الكلام اللى فى مشاركتك الأولى وكانت إجابة ما شاء الله عليها كافية

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

وهى أنى بعمل جدول للمستخدمين وأعطى كل منهم دور User_Role عبارة عن حرف واحد من A-Z

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

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

والدخول على هذا النموذج فى حد ذاته صلاحية

بهذا أنت تستطيع عمل حتى ما يسمح به السيكول من أعمدة ناقص واحد وهو حقل اسم الدور وطبعا أنا عملته حرف واحد لأنى لا أحتاج أكثر من هذا فحصلت على 26 دور (حروف اللغة الإنجليزية) ولو جعلته حرفين لأصبحت 2 مرفوعة للقوة 26 بفرض أنها حروف فقط

أرجو أن تكون فكرتى وصلت

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

لو ما وصلتكش فكرتى ممكن أوضح لك بمثال بسيط

لو عندك مربع نص تحب أنك تبحث عن عميل اسمه يحتوى على حروف معينة

Select * from Customers Where CustomerName Like '% " & Text1,Text & "%' Order By CustomerName Asc"

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

' Or 1=1 --

سيحصل على كل ما فى الجدول وليس ما أردت له ظهوره فقط

صح أم تختلف معى؟

فأنت تختار لنفسك مستويات الأمان التى تناسبك وعلى حسب خطورة بياناتك تزيد من عدد مستويات التقييد (البرنامج - قاعدة البيانات - الويندوز)

والله من وراء القصد وهو يهدى السبيل

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

أولاً أشكر الأخ walcom (للمرة الثانية)

و أشكرك أخي abulyman شكراً جزيلاً

..........

و لكن

أنت قمت بعمل جداول المستخدمين بال sql و أدرتها من خلال vb

سؤالي لك هو :

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

و لكنك تريده أن تمنع المستخدم من التعامل مثلاُ مع حساب رقم 1234

ماذا تفعل

.............

ممكن أقول رأيى ( بس أنا مش موافق عليه بنسبة كبيرة)

أن نقوم بإضافة جملة where إلى جملة الاتصال بالجدول و الذي ستكون مصدر البيانات بالنموذج

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

............

فهل يوجد طريقة أخرى (و شكراً لسعة صدركم لي)

الأخ abulyaman

اقتباس

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

وهى أنى بعمل جدول للمستخدمين وأعطى كل منهم دور User_Role عبارة عن حرف واحد من A-Z

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

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

والدخول على هذا النموذج فى حد ذاته صلاحية

بهذا أنت تستطيع عمل حتى ما يسمح به السيكول من أعمدة ناقص واحد وهو حقل اسم الدور وطبعا أنا عملته حرف واحد لأنى لا أحتاج أكثر من هذا فحصلت على 26 دور (حروف اللغة الإنجليزية) ولو جعلته حرفين لأصبحت 2 مرفوعة للقوة 26 بفرض أنها حروف فقط

هذا ما كنت أقصده

الأخ egyman

اقتباس

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

و لكنك تريده أن تمنع المستخدم من التعامل مثلاُ مع حساب رقم 1234

ما رأيك بهذه الطريقة:

أضف حقلا إضافيا لجدول أرقام الحسابات ليحدد مجموعة المستخدمين الذين يستطيعون التعامل مع هذا الحقل، درجات الصلاحية مثلا: "استعراض فقط"، "استعراض وتعديل"، "لايعرض".

وتعطى درجات الصلاحية هذه للمستخدمين، وعند استرجاع سجل رقم الحساب المعين تسترجع معه مجموعة المستخدمين الذين يستطيعون التعامل مع هذا السجل، وقراءة مجموعة المستخدم الحالي لتحديد ما إذا يستطيع التعديل أم لا ، ام لا يعرض السجل له من الأصل.

اقتباس

أن نقوم بإضافة جملة where إلى جملة الاتصال بالجدول و الذي ستكون مصدر البيانات بالنموذج

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

ممكن توضيح أكثر ؟ :unsure:

بالذات "جملة الاتصال بالجدول"

شكراً أخي walcom

>>>

ما أقصده بجملة where ف جملة الاتصال

أي أن أقوم عند تحديد صلاحيات المستخدمين بعمل جدول لهم

و عمل جدول أخر مرتبط بالجدول الأول بدلالة رقم المستخدم

يكتب بالجدول الأخر أرقام الحسابات الغير مسموح له بها

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

(( على فكرة أنا مش موافق على رأيي ذت مقلت قبل كده))

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

أنتظر أفكاركم يا شباب

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

أخى egyman

برغم أنى حاسس أننا - أنا وأنت والأستاذ walcom - بنتكلم نفس اللغة وفى نفس الاتجاه إلا أن الصورة ما زالت ناقصة وغير واضحة بالنسبة لك

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

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

بذلك ستقع فى العديد من الاستثناءات والحالات الشاذة وتصمم أكواد كثيرة لكل حالة نادرة أو شاذة ويصبح برنامج معقد مثل المكرونة الإسباجيتى - كما يسمى حاليا وهو خطأ شائع مع معتادى فيجوال بيزك 6 وأنا أولهم -

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

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

وممكن تكون هناك فئات مجمعه أى أن يكون الفرد مدير مبيعات مثلا يجعله يأخذ صلاحيات المدير وصلاحيات الإشراف على المبيعات

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

هذا قد يضطرك لتصميم جدولين للصلاحيات.

أرجوا ألا يشوشك هذا المثال.

أنا غرضى - من الآخر يعنى - أنظر إلى طبيعة العمل عندك Business Logic ومن خلالها صمم شجرة لكل تدفق عمليات Process Flow عندك فى البرنامج.

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

والله من وراء القصد وهو يهدى السبيل

الأخ abulyaman

اقتباس

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

مكانه هو قسم تصميم التطبيقات، وإن كان ممكنا النقاش حول ذلك في هذا القسم.

وشكرا على التوضيح :)

عذرا ياخ egyman اني وضعت سؤالي في مشاركتك :) ولكن حتى لاتتعدد الاسئلة عن نفس الموضوع

مثلا يا اخوان abulyaman و walcom لو اردت اعمل الطريقة الثانية سوف اضع في الجدول الذي احدد فية الصلاحيات مثلا صلاحيات اضافة الكتب والمجلات وصلاحية الاستعارة وهكذا فكيف استفيد من ذلك في البرنامج مثلا انا برنامجي يتعامل مع button (يعني الازارير هي اللتي يتم عليها الاحداث والاتصال بقاعدة البيانات ) واحد لاضافة واخر للحذف والاضافة والحذف متعددة من فورم لاخر واريد ان اضع سماحيات مختلفة لها واخر للميزانية واخر للاستعارة والاستعارة انواع وكل واحد من الازارير السابقةفي فورم مختلف فكيف سيتعرف البرنامج على هذه الصلاحيات هل عند دخول البرنامج بعد وضع كلمة السر ارجع صلاحية الدخول واختبرها بجمل IF ELSE واسمح بالازارير اللتي اريدها لكل صلاحية ولكن بذلك لن استفيد من الجدول الاخر الذي حدد الصلاحيات ,هل ماسأفعلة صحيح وهو المقصود؟

ارجو ان تعطينا مثال عن انواع الصلاحيات وكيف يفهمها البرنامج للطريقة الثانية و لو اردت اعمل مستخدمين من الSQL ما لفائدةالمرجوة وكيف ساضع نوع المستخدم في جدول الموظفين ام ساربط نفس المستخدم بالموظفين وفي هذه الحالة اليس لو احد يريد يصل من البرنامج لشيء غير المسموح لة سيظهر رسالة باللغة الانجليزية ومستخدمين النظام لن يفهوا المعنى

**كما انني ساطلب الاستشارة بما عملتة وهو انني افتح الاتصال بقاعدة البيانات كل ماردت اعمل شي ثم ارجع اقفلها مرة ثانية في كل طلب معلومة يعني مافتح القاعدة مع فتح البرنامج ولكن مع كل طلب اضافة او حذف او تعديل او بحث وهكذا وكانت وجهة نظري في ذلك ان لاافتح القاعدة واجعلها مفتوحة بدون فائدة ولو لاقدر الله حصل اي خطأستكون القاعدة عرضة للخطر (الكلام صح او خطأ :rolleyes: )

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

أختنا roza_03

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

أما بعد - تعقيبا على قولك

اقتباس

فكيف سيتعرف البرنامج على هذه الصلاحيات

لعدم تشعب الموضوع أجيبك عن هذه النقطة

طبعا البرمجة عبارة عن تطبيق المنطق Logic الذى ترينه يناسب إمكانيات برنامجك

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

أبسط شئ أنك تعملى بعدد حقول الصلاحيات هذه على النموذج الرئيسى CheckBoxs وتجعلى قيمتها =1 إذا كانت True أو =0 إذا كانت False

وتتغير بمجرد دخول المستخدم Log in وتجعليها خفية لكى لا يشعر بوجودها

ومن خلال أى Sub تضعيه فى هذا النوذج تبدأى الجزء الكثير الكتابة

كأن تقولى مثلا:

Sub UserClass(S As String)
 Me.MousePointer = vbHourglass
 Dim C As Integer
 Dim SqlStr As String
 For C = chkClass.LBound To chkClass.UBound
   chkClass(C).Value = 0
 Next C
 If lblClass.Caption = "" Then
    MsgBox "You have to Login again, please.", vbInformation, "Invalid login..."
    GoTo ApplyIt
 End If
  SqlStr = "Select * From Classes Order By Letter asc;"
  If Not Rs.State = adStateOpen Then
     Rs.Open (SqlStr), SqlConn1, adOpenStatic, adLockOptimistic
  End If
  Rs.MoveFirst
  Rs.Find "Letter='" & S & "'", , adSearchForward
 If Not Rs.EOF Then
  For C = chkClass.LBound To chkClass.UBound
    If CBool(Rs.Fields("C" & C)) = True Then
        chkClass(C).Value = 1
    Else
        chkClass(C).Value = 0
    End If
  Next C
 End If
ApplyIt:
  mnuSheet.Enabled = CBool(chkClass(0))       ' Salary Form
  mnuEmpLoan.Enabled = CBool(chkClass(1))       ' Loan Form
  mnuOverTime.Enabled = CBool(chkClass(2))       ' OverTime Form  
  mnuEmpData.Enabled = CBool(chkClass(7))       'Employee Data 
 If Not Rs.State = adStateClosed Then Rs.Close

 Me.MousePointer = vbDefault
End Sub

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

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

بفرض أن الـCheckBox موجودة فى نموذج اسمه mdiPayroll

Private Sub Form_Load()
'إذا كان المستخدم من حقة إضافة أو حذف أو تغيير البيانات  اجعل الأزرار فعالة
  cmdNew.Enabled = CBool(mdiPayroll.chkClass(4).Value)
  cmdDel.Enabled = CBool(mdiPayroll.chkClass(4).Value)
  cmdChange.Enabled = CBool(mdiPayroll.chkClass(14).Value)

End Sub

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

أرجو أن يكون القص واللصق تم بصورة صحيحة فقد قمت به على عجالة - والله المستعان

ربنا عليك توكلنا وإليك أنبنا وإليك المصير

شكرا اخوي abulyaman ولكن ممكن توضيح اكثر

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

أختنا الفاضلة roza_03

توضيح لأى جزء بالضبط؟

دى كانت فكرة وممكن تكون أفكارك وأفكار الزملاء أفضل من كده بكثير

لكن لو فى جزء غامض ممكن أعيد توضيح قصدى منه أو فائدته عندى

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

واتاسف اذا كانت اسألتي غير واضحة

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

أختنا الفاضلة

اقتباس

وهل الاستفادة تكون انه يمكن اضافة سماحية جديدة

بخصوص عدد الصلاحيات أو السماحيات:

من الأول عندما نصمم البرنامج نكون على علم بما نريد أن نفعله من خلاله - وهذه ما سميتيها سماحيات - صحيح؟

وبالتبعية نقوم بتسمية هذه السماحيات

وحسب الطريقة التى سبق وأشرت إليها - على فرض أنها تناسب تصميمك - مثلت هذه السماحيات بحقول فى الجدول تحمل قيمة Yes/No Boolean .

ولأن عدد المستخدمين كبير نوعا ما وأغلبهم يشترك فى السماحيات نفسها - قمت بتمثيلهم فى صورة مجاميع ، المجموعهA والمجموعة B والمجموعة C ..... وهكذا

من خلال مشاركاتك لى سؤال

- هل أفهم منها أنك تبدأين تصميم برنامج أم أن البرنامج يعمل وتريدين تعديله أم الكلام للعلم بصورة عامة؟

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

اقتباس

من خلال مشاركاتك لى سؤال

- هل أفهم منها أنك تبدأين تصميم برنامج أم أن البرنامج يعمل وتريدين تعديله أم الكلام للعلم بصورة عامة؟

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

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

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

وفقك الله - وجعله خالصا لوجه وابتغاء مرضاته - ونفع به عباده وزادنا به علما ورفعة وقوة نرهب بها أعداءه

ربنا عليك توكلنا وإليك أنبنا وإليك المصير