[سعود]

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

---

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

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

[مبرمج بلا حدود]

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

[سعود]

احذف الكود المسؤول عنها

PHP كود :

           If clog.isadmin(gb1.SelectedValue.ToString) Then
                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 اداري.

[مبرمج بلا حدود]

(09-09-15, 06:38 AM)سعود كتب : احذف الكود المسؤول عنها

PHP كود :

           If clog.isadmin(gb1.SelectedValue.ToString) Then
                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 


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

[سعود]

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

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

[مبرمج بلا حدود]

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

[سعود]

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

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

[مبرمج بلا حدود]

(09-09-15, 08:28 PM)سعود كتب :

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

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

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

[سعود]

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

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

[سعود]

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