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

(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 


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