(06-01-23, 01:42 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته جمعه مباركه علي الجميع 
لمذا كود صلاحيات لايعمل 
لدي مجموعة من ازرار علي شاشة رئيسة و menustrip  به مجموعه من خيارات مسمي كل منه  p1 ,p2......
والصلاحيه عباره عن مستخدم او مدير 

PHP كود :

If ComboBox1.SelectedIndex < 0 Then
            MessageBox.Show("الرجاء اختيار اسم المستخدم ")
            Exit Sub
        End If
        query = "select * from users where user_name='" & ComboBox1.Text & "' and user_password= '" & Textpass.Text & "'"
        da = New SqlDataAdapter(query, Module1.con)
        da.Fill(dt)


        If dt.Rows.Count > 0 Then
            If dt.Rows(0).Item("type") = "مدير".ToString() Then
                Form_main.btn_con.Enabled = True
                Form_main.p1.Enabled = True
                Form_main.btn_customer.Enabled = True
                Form_main.p2.Enabled = True
                Form_main.btn_product.Enabled = True
                Form_main.p3.Enabled = True
                Form_main.btn_sales.Enabled = True
                Form_main.p4.Enabled = True
                Form_main.btn_users.Enabled = True
                Form_main.p5.Enabled = True
                Form_main.Label2.Text = Me.ComboBox1.Text
                Form_main.ShowDialog()
                Me.Close()
            ElseIf dt.Rows(0).Item("type") = "مستخدم".ToString()
                Form_main.btn_con.Enabled = True
                Form_main.p1.Enabled = True

                Form_main.btn_customer.Enabled = True
                Form_main.p2.Enabled = True

                Form_main.btn_product.Enabled = True
                Form_main.p3.Enabled = True

                Form_main.btn_sales.Enabled = True
                Form_main.p4.Enabled = False

                Form_main.btn_users.Enabled = False
                Form_main.p5.Enabled = True

            End If

        End If 


جدول مستخدمين

(08-01-23, 08:14 PM)aljzazy كتب : تابع الدروس وستفهم باذن الله بطريقة سهلة وبسيطة

(08-01-23, 10:12 PM)ali_ahmed12 كتب :

(08-01-23, 08:14 PM)aljzazy كتب : تابع الدروس وستفهم باذن الله بطريقة سهلة وبسيطة

طبقت مثل فيديو يظهر لي خطا 
انا لدي شاشة form_main به 5 ازار كل زر يفتح شاشة عملت صلاحيات لهم هدا 
كود دخول 

PHP كود :

If ComboBox1.SelectedIndex < 0 Then
            MessageBox.Show("الرجاء اختيار اسم المستخدم ")
            Exit Sub
        End If
        query = "select * from users where user_name='" & ComboBox1.Text & "' and user_password= '" & Textpass.Text & "'"
        da = New SqlDataAdapter(query, Module1.con)
        da.Fill(dt)


        If dt.Rows.Count > 0 Then

            Dim dr As DataRow
            Form_main.Label2.Text = Me.ComboBox1.Text
            Form_main.btn_sales.Enabled = dr("btn_sales")
            Form_main.btn_customer.Enabled = dr("btn_customer")
            Form_main.btn_product.Enabled = dr("btn_product")
            Form_main.btn_users.Enabled = dr("btn_users")
            Form_main.btn_con.Enabled = dr("btn_con")
            Form_main.ShowDialog()
            Me.Close()
        Else
            MessageBox.Show("كلمة المرور خطأ")
            Textpass.Select()


        End If 


هادي شاشة مستخدمين 
وجدول مستخدمين 
ورسالة خطا اثناء دخول 
وكود حفظ مستخدم

PHP كود :

If user_password.Text <> password_confirm.Text Then
            MessageBox.Show("كلمه المرور غير مطابقه")
            Exit Sub
        End If
        If user_name.Text = "" Then
            MessageBox.Show("الرجاء ادخال اسم المستخدم")
            user_name.Select()
            Exit Sub
        End If
        Dim sql = "select *from users where user_name=N'" & (user_name.Text) & "'"
        Dim adp As New SqlDataAdapter(sql, Module1.con)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            MessageBox.Show("اسم مستخدم موجود مسبقا")
        Else

            Dim DR = dt.NewRow
            DR!user_name = user_name.Text
            DR!user_password = user_password.Text
            DR!btn_sales = CheckBox1.Checked
            DR!btn_customer = CheckBox2.Checked
            DR!btn_product = CheckBox3.Checked
            DR!btn_users = CheckBox4.Checked
            DR!btn_con = CheckBox5.Checked
            dt.Rows.Add(DR)
            Dim cmd As New SqlCommandBuilder(adp)
            adp.Update(dt)

            MessageBox.Show("تم حفظ بنجاح")
        End If
        fill_users()
        Button4_Click(sender, e) 


(08-01-23, 11:47 PM)aljzazy كتب : ارفق ملفات المشروع ليتم التعديل عليه

(10-01-23, 05:38 PM)هاوي1995 كتب : بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc

(10-01-23, 07:36 PM)ali_ahmed12 كتب :

(10-01-23, 05:38 PM)هاوي1995 كتب : بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc

كود صلاحيات يعمل لدي مشكلة موجوده في سؤالي في قسم أسئلة c# ممكن تطلع عليه إذا تعرف سبب خطا