منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ابسط مثال للتصاريح - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : ابسط مثال للتصاريح (/showthread.php?tid=42)

الصفحات: 1 2 3 4 5


RE: ابسط مثال للتصاريح - سعود - 23-08-15

(22-08-15, 10:45 AM)الموحتريف كتب : اخوي ماهي كلمة مرور قاعدة البيانات؟

كل ما اريد ان افتح القاعدة يأتيني



اخي الكريم المثال عندك مفتوح المصدر تستطيع معرفة كلمة المرور من جملة الاتصال ...


RE: ابسط مثال للتصاريح - مبرمج بلا حدود - 09-09-15

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


RE: ابسط مثال للتصاريح - سعود - 09-09-15

احذف الكود المسؤول عنها
PHP كود :
           If clog.isadmin(gb1.SelectedValue.ToStringThen
                ofcon
()
 
               MsgBox("هذه العضوية محمية من التعديل"MsgBoxStyle.Information"")
 
               Exit Sub
            End 
If 

لكن لابد تضع احتياط لانه ربما يتم تعطيل الاداري ايضا .. يعني ممكن تعدل الاستعلام بالدالة
PHP كود :
Public Function isadmin(ByVal un As String) As Boolean
        Dim cm 
As New OleDbCommand(""con)
 
       cm.CommandText "select count(tid) from fusers where fuser=@fuser and isadmin=true"
 
       cm.Parameters.AddWithValue("@fuser"un)

 
       If con.State ConnectionState.Closed Then
            con
.Open()
 
       End If
 
       If cm.ExecuteScalar 0 Then
            Return True
        Else
            Return False
        End 
If
 
       ofcon()
 
   End Function 
بحيث يستعلم عن رقم المعرف او الاسم ليتم تطبيق ماتريد لاني حين كتبت المثال استبعدت ان يكون هناك عدد 2 اداري.


RE: ابسط مثال للتصاريح - مبرمج بلا حدود - 09-09-15

(09-09-15, 06:38 AM)سعود كتب : احذف الكود المسؤول عنها
PHP كود :
           If clog.isadmin(gb1.SelectedValue.ToStringThen
                ofcon
()
 
               MsgBox("هذه العضوية محمية من التعديل"MsgBoxStyle.Information"")
 
               Exit Sub
            End 
If 

لكن لابد تضع احتياط لانه ربما يتم تعطيل الاداري ايضا .. يعني ممكن تعدل الاستعلام بالدالة
PHP كود :
Public Function isadmin(ByVal un As String) As Boolean
        Dim cm 
As New OleDbCommand(""con)
 
       cm.CommandText "select count(tid) from fusers where fuser=@fuser and isadmin=true"
 
       cm.Parameters.AddWithValue("@fuser"un)

 
       If con.State ConnectionState.Closed Then
            con
.Open()
 
       End If
 
       If cm.ExecuteScalar 0 Then
            Return True
        Else
            Return False
        End 
If
 
       ofcon()
 
   End Function 
بحيث يستعلم عن رقم المعرف او الاسم ليتم تطبيق ماتريد لاني حين كتبت المثال استبعدت ان يكون هناك عدد 2 اداري.

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

السلام عليكم ورحمة الله وبركاته 
تمام استاذ عمل والحمدلله جزاكـ الله خير 
والدالة هذه 

PHP كود :
Public Function isadmin(ByVal un As String) As Boolean
        Dim cm 
As New OleDbCommand(""con)
 
       cm.CommandText "select count(tid) from fusers where fuser=@fuser and isadmin=true"
 
       cm.Parameters.AddWithValue("@fuser"un)

 
       If con.State ConnectionState.Closed Then
            con
.Open()
 
       End If
 
       If cm.ExecuteScalar 0 Then
            Return True
        Else
            Return False
        End 
If
 
       ofcon()
 
   End Function 

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


RE: ابسط مثال للتصاريح - سعود - 09-09-15

إقتباس :ممكن نخلي الحماية على المسجل الاول فقط والي هو المدير بحيث لا يستطيع احد تغير صلاحياته 
مثل ماقلت لك اخي الكريم عدل على isadmin=true  الى رقم الادمن.
حاول تحلها لانها سهلة
الحين انا مشغول بالمثال الجديد  تقدر تسجل من خلاله بمنتداي(منتدى التجاربSmile)
بعد الانتهاء ان لم يسبقني باذن الله اعدل على المثال.


RE: ابسط مثال للتصاريح - مبرمج بلا حدود - 09-09-15

جزاكـ الله خير وربي يسهلكـ ويسر ما تعمل به
ربي يحفظكـ


RE: ابسط مثال للتصاريح - سعود - 09-09-15

(09-09-15, 08:16 PM)مبرمج بلا حدود كتب : جزاكـ الله خير وربي يسهلكـ ويسر ما تعمل به
ربي يحفظكـ

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


RE: ابسط مثال للتصاريح - مبرمج بلا حدود - 09-09-15

(09-09-15, 08:28 PM)سعود كتب :
(09-09-15, 08:16 PM)مبرمج بلا حدود كتب : جزاكـ الله خير وربي يسهلكـ ويسر ما تعمل به
ربي يحفظكـ

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

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


RE: ابسط مثال للتصاريح - سعود - 10-09-15

(09-09-15, 10:53 PM)مبرمج بلا حدود كتب : السلام عليكم ورحمة الله وبركاته 
نعم استاذ بالضبط فقط اول حساب اعمل له حماية 
جزاكـ ربي الجنة 
ربي يحفظكـ

تم وضع المرفق بعد التعديل ليناسب طلبك Heart


RE: ابسط مثال للتصاريح - سعود - 10-09-15

المتغير I بالكلاس ماله داعيSmile