منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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 

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

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

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

)
بعد الانتهاء ان لم يسبقني باذن الله اعدل على المثال.

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

(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)مبرمج بلا حدود كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
نعم استاذ بالضبط فقط اول حساب اعمل له حماية
جزاكـ ربي الجنة
ربي يحفظكـ

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

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

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