منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] استفسار
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] استفسار
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#1
06-01-23, 01:42 PM
السلام عليكم ورحمة الله وبركاته جمعه مباركه علي الجميع 
لمذا كود صلاحيات لايعمل 
لدي مجموعة من ازرار علي شاشة رئيسة و 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 
جدول مستخدمين


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#2
08-01-23, 05:26 PM
(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 
جدول مستخدمين

ياريت رد علي سؤال من اعضاء منتدي وجزاكما الله خيرا
البحث
الرد }}}
تم الشكر بواسطة:
aljzazy غير متصل
عضو نشيط
*
المشاركات : 370
المواضيع 20
الإنتساب : May 2018
السمعة : 82
الشكر: 32
تم شكره 893 مرات في 353 مشاركات
#3
08-01-23, 08:14 PM (آخر تعديل لهذه المشاركة : 08-01-23, 08:14 PM {2} بواسطة aljzazy.)
تابع الدروس وستفهم باذن الله بطريقة سهلة وبسيطة


البحث
الرد }}}
تم الشكر بواسطة: ali_ahmed12
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#4
08-01-23, 10:12 PM (آخر تعديل لهذه المشاركة : 08-01-23, 10:12 PM {2} بواسطة 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, 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) 


الملفات المرفقة صورة/صور
           
البحث
الرد }}}
تم الشكر بواسطة:
aljzazy غير متصل
عضو نشيط
*
المشاركات : 370
المواضيع 20
الإنتساب : May 2018
السمعة : 82
الشكر: 32
تم شكره 893 مرات في 353 مشاركات
#5
08-01-23, 11:47 PM
ارفق ملفات المشروع ليتم التعديل عليه
البحث
الرد }}}
تم الشكر بواسطة:
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#6
09-01-23, 12:32 PM
(08-01-23, 11:47 PM)aljzazy كتب : ارفق ملفات المشروع ليتم التعديل عليه

ممكن تحويل كود تالي الي وضع المنفصل 
PHP كود :
If ComboBox1.SelectedIndex < 0 Then
            MessageBox.Show("الرجاء اختيار اسم المستخدم ")
            Exit Sub
        End If
        Module1.con.Open()
        cmd = New SqlCommand("select *from users where user_name=@user_name and user_password=@user_password", Module1.con)
        cmd.Parameters.AddWithValue("@user_name", ComboBox1.Text)
        cmd.Parameters.AddWithValue("@user_password", Textpass.Text)
        rdr = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows() Then
            str_username = rdr("user_name").ToString()
            With Form_main
                .btn_sales.Enabled = rdr("btn_sales").ToString()
                .btn_customer.Enabled = rdr("btn_customer").ToString()
                .btn_product.Enabled = rdr("btn_product").ToString()
                .btn_users.Enabled = rdr("btn_users").ToString()
                .btn_con.Enabled = rdr("btn_con").ToString()
                .Show()
                Me.Hide()
            End With
        Else
            MessageBox.Show("كلمة المرور خطأ")
            Textpass.Select()
        End If
        rdr.Close()
        Module1.con.Close() 
البحث
الرد }}}
تم الشكر بواسطة:
هاوي1995 غير متصل
عضو مبدع
المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة : 2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
#7
10-01-23, 05:38 PM
بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc
البحث
الرد }}}
تم الشكر بواسطة:
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#8
10-01-23, 07:36 PM
(10-01-23, 05:38 PM)هاوي1995 كتب : بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc

كود صلاحيات يعمل لدي مشكلة موجوده في سؤالي في قسم أسئلة c# ممكن تطلع عليه إذا تعرف سبب خطا
البحث
الرد }}}
تم الشكر بواسطة:
هاوي1995 غير متصل
عضو مبدع
المشاركات : 67
المواضيع 13
الإنتساب : Sep 2016
السمعة : 2
الشكر: 88
تم شكره 41 مرات في 29 مشاركات
#9
10-01-23, 09:30 PM
(10-01-23, 07:36 PM)ali_ahmed12 كتب :
(10-01-23, 05:38 PM)هاوي1995 كتب : بقلة خبرتي
وبعدم معرفتي للأكواد
وبحبي لنشر العلم والمساعدة
اليك سورس مفتوح المصدر وقم بالتعديل عليه حسب رغبتك وخبرتك
https://youtu.be/HA2kRRTOekc

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort dubai.eig 2 664 18-06-25, 11:09 AM
آخر رد: dubai.eig
  استفسار لو سمحتم خالد كامل1 3 830 04-06-25, 06:03 PM
آخر رد: Kamil
  استفسار عن حامية برنامج ahmedramy 2 589 27-04-25, 06:02 PM
آخر رد: princelovelorn
  استفسار عن تنسيق الفورم في حالة تغيرالفورم من وضع العادي الي التكبير fireswored1 4 838 22-01-25, 09:04 PM
آخر رد: fireswored1
  استفسار عن حمايه البرنامج ahmedramy 1 558 25-12-24, 11:07 PM
آخر رد: aljzazy
  [سؤال] استفسار ads 0 300 18-11-24, 12:00 AM
آخر رد: ads
  [VB.NET] استفسار حول دمج سطرين rdxdz 1 403 16-11-24, 11:19 PM
آخر رد: قناص المدينة
  استفسار هل استطيع جلب بيانات من موقع الى الفروم بالفجول alachk 0 328 02-09-24, 09:15 PM
آخر رد: alachk
  استفسار في حفظ الفاتورة vb.net Hamza8484 2 435 23-07-24, 05:05 AM
آخر رد: Hamza8484
  استفسار في الData Grid view Hamza8484 1 331 22-07-24, 10:09 AM
آخر رد: تركي الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: