تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود بحث كومبوبكس وتظهر النتيجة على الشيك بوكس يعني صح او خطا
#1
السلام عليكم ورحمة الله وبركاتة
اريد كود بحث لصلاحيات المستخدمين او لا ستخدامة للبحث عن اي شيء يحمل قيمة صح او خطا
يوجد فورم وبها كومبو بكس 
ويوجد بها مجموعة من الشيك بوكس اريد عند تحديد اسم مستخدم من الكومبو بكس يظهر لي الصلاحيات الممنوحة لة عن طريق الشيك بوكس .


طبعا استخدمت هذا الكود بعد تحويلة من سي شارب الى في بي وكلة اخطاء

مشكورين
كود :
Private Sub cbxUser1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs)
   Try
       tblSearch.Clear()
       tblSearch = db.readData("select * from User_Setting where User_ID=" & cbxUser1.SelectedValue & "", "")

       If tblSearch.Rows.Count >= 1 Then

           If Convert.ToDecimal(tblSearch.Rows(0)(1)) = 1 Then
               checkUnit.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(1)) = 0 Then
               checkUnit.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(2)) = 1 Then
               checkPermission.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(2)) = 0 Then
               checkPermission.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(3)) = 1 Then
               checkViewItems.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(3)) = 0 Then
               checkViewItems.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(4)) = 1 Then
               checkSetting.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(4)) = 0 Then
               checkSetting.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(5)) = 1 Then
               checkaddItem.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(5)) = 0 Then
               checkaddItem.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(6)) = 1 Then
               checkItemsGroup.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(6)) = 0 Then
               checkItemsGroup.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(7)) = 1 Then
               checkAddStore.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(7)) = 0 Then
               checkAddStore.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(8)) = 1 Then
               checkStoreGard.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(8)) = 0 Then
               checkStoreGard.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(9)) = 1 Then
               checkStoreTransfire.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(9)) = 0 Then
               checkStoreTransfire.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(10)) = 1 Then
               checkStoreOut.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(10)) = 0 Then
               checkStoreOut.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(11)) = 1 Then
               checkStoreTransfireReport.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(11)) = 0 Then
               checkStoreTransfireReport.Checked = False
           End If

           If Convert.ToDecimal(tblSearch.Rows(0)(12)) = 1 Then
               checkStoreOutReport.Checked = True
           ElseIf Convert.ToDecimal(tblSearch.Rows(0)(12)) = 0 Then
               checkStoreOutReport.Checked = False
           End If
       End If

   Finally
   End Try
End Sub
الرد
تم الشكر بواسطة: asemshahen5
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم تابع هذا الرابط
https://www.youtube.com/watch?v=VCldd11T...j&index=47
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: essawq , essawq , asemshahen5 , عبد العزيز البسكري
#3
مشكور اخي ابراهيم وبارك الله فيك
الفيديو المرفق من قبلكم اولا يعمل بقاعدة بيانات اكسس
ولكي يعرض صلاحيات المستخدمين داخل الشيك بكس يستخدم زر


ما اريدة اخي ليس كطريقتة

اريد كومبو بكس بفورم يتم تحميل بيانات المستخدمين من قاعدة بيانات سيكول سيرفر بها بها مجموعة شيك بوكس
ما اريدة وعجزت هنا :
عند اختيار احد المستخدم يظهر الشيك بوكس متعلم علية لكل شيك بوكس

انا حملت البيانات لكن البحث لم افلح بة
واستخدم كلاس
بارك الله فيك اخي
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#4
السلام عليكم ورحمة الله وبركاته
من يومين عملت مثل ماتقول اي تحميل اسماء المستخدمين في الكومبو بوكس وبمجرد اختيار اسم من الكومبو تظهر الصلاحيات
واجهتني مشكلات ولم افلح بحلها الى الان فقمت بوضع بوتون مثل ماهو موجود بالفيديو كحل مؤقت ريثما احل المشكلة 
وعندما اجد الحل ساضعه لك
دمت بخير
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#5
مشكور اخي ابراهيم وبارك الله فيك
ان شاء تجد حل اخي
او اي احد من الاخوان في هذا المنتدى الرائع
شكرا لك
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#6
شكرا اخي الكريم ولك اضعاف ماتمنيته لي
 وبارك الله فيك ولك
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: essawq , essawq , asemshahen5
#7
لي سؤال هنا
هل ما يستطيع تطبيقة سي شارب
نستطيع تطبيقة الدوت نيت
الرد
تم الشكر بواسطة: asemshahen5
#8
نعم يمكن ذلك 
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: essawq , asemshahen5
#9
بانتظار ردودكم ومساعدتكم اخواني بارك الله فيكم
الرد
تم الشكر بواسطة: asemshahen5
#10
Smile 
هذا اخذته سابقا من عند الاستاذ عاصم ولكن لاول مره اكتشف انه لا فرق بين Sql والاكسس شي واتمنى ان يفيدكم هذا واعتذر لعدم جدارتي 


هذا الفنكشن نضيفه في الموديل
كود :
Function FindByColumn(TableName As String, ColumnName As String, Txt_Find As String) As SqlDataReader

       Dim Cmd As New SqlCommand("select * from " & TableName & " where " & ColumnName & "=@ID", Con)
       Cmd.Parameters.AddWithValue("@ID", Txt_Find)

           If Con.State = 1 Then Con.Close()
           Con.Open()

           Dim dr As SqlDataReader = Cmd.ExecuteReader
           dr.Read()
           If dr.HasRows Then
               Return dr
               dr.Close()
           If Con.State = 1 Then Con.Close()
       Else
               Return dr
           If Con.State = 1 Then Con.Close()
       End If

           Return dr
   End Function

وهذا الكود يضع في الفورم
كود :
 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       Try
           Dim dr As SqlDataReader
           dr = FindByColumn("Table_1", "userName", ComboBox1.Text)
           If dr.HasRows Then
               TextBox1.Text = dr("userName")
               TextBox2.Text = dr("pass")
               CheckBox1.Checked = dr("p1")
               CheckBox2.Checked = dr("p2")
               CheckBox3.Checked = dr("p3")
           Else
               TextBox1.Text = ""
               TextBox2.Text = ""
               CheckBox1.Checked = False
               CheckBox2.Checked = False
               CheckBox3.Checked = False
           End If
       Catch ex As Exception
       End Try
   End Sub



والشكر الجزيل لجميع المدرسين في هذا المنتدى فالمنتدى مدرسه تعلمنا منها الكثير
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف أقلب النص في تكست بوكس المهنا 3 113 14-07-20, 06:33 PM
آخر رد: ابراهيم ايبو
  Proxy Selenium VB.net اريد مساعدة developermedo111 0 36 11-07-20, 06:23 PM
آخر رد: developermedo111
  مشكلة اريد لها حل ومساعدة العطر الرايق 2 105 04-07-20, 12:48 AM
آخر رد: العطر الرايق
  اريد نقل التركيز على السجل فى الداتا جريد new_programer 1 87 02-07-20, 12:24 PM
آخر رد: معاند الحظ
  كيف اجع من التاكست بوكس تعرض ارقام با فواصل ahmedbezia 10 312 27-06-20, 07:36 PM
آخر رد: kiki
  كود يعمل لوب على الداتا جريد ويضيف قيمة تكست بوكس ahmedramzyaish 0 108 21-06-20, 09:38 PM
آخر رد: ahmedramzyaish
  [كود] اريد كود شرط جمله if سعيد احمد 3 197 20-06-20, 12:27 AM
آخر رد: سامي محمد
  اريد مساعدة في مثال جلب وتخزين صورة موضف ahmedbezia 1 248 15-06-20, 09:08 PM
آخر رد: rochdi191
  اريد تحميل فيجوال بيسك 2017 اللورد محمود 4 230 14-06-20, 10:15 PM
آخر رد: kiki
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 19 4,521 06-06-20, 07:32 PM
آخر رد: Omar ahmed

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم