السلام عليكم ورحمة الله وبركاتة
اريد كود بحث لصلاحيات المستخدمين او لا ستخدامة للبحث عن اي شيء يحمل قيمة صح او خطا
يوجد فورم وبها كومبو بكس
ويوجد بها مجموعة من الشيك بوكس اريد عند تحديد اسم مستخدم من الكومبو بكس يظهر لي الصلاحيات الممنوحة لة عن طريق الشيك بوكس .
طبعا استخدمت هذا الكود بعد تحويلة من سي شارب الى في بي وكلة اخطاء
مشكورين
اريد كود بحث لصلاحيات المستخدمين او لا ستخدامة للبحث عن اي شيء يحمل قيمة صح او خطا
يوجد فورم وبها كومبو بكس
ويوجد بها مجموعة من الشيك بوكس اريد عند تحديد اسم مستخدم من الكومبو بكس يظهر لي الصلاحيات الممنوحة لة عن طريق الشيك بوكس .
طبعا استخدمت هذا الكود بعد تحويلة من سي شارب الى في بي وكلة اخطاء
مشكورين
كود :
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