تقييم الموضوع :
  • 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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 144 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit

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


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