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

السلام عليكم ورحمة الله وبركاته جمعه مباركه علي الجميع 
لمذا كود صلاحيات لايعمل 
لدي مجموعة من ازرار علي شاشة رئيسة و menustrip  به مجموعه من خيارات مسمي كل منه  p1 ,p2......
والصلاحيه عباره عن مستخدم او مدير 
جدول مستخدمين

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

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

---

(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 كتب : [ -> ]ارفق ملفات المشروع ليتم التعديل عليه

ممكن تحويل كود تالي الي وضع المنفصل 

بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc

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

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

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

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

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

انا حتى كود اظهار رسالة ما اعرفه... مبتدئ كنت ولكن لم اتعلم البرمجة بسبب الوقت غير فاضي