+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] احتاج تعديل الكود "تأكد من الصلاحية" (/showthread.php?tid=23169)
احتاج تعديل الكود "تأكد من الصلاحية" - hglogtd - 01-01-18
السلام عليكم
عندي كود التأكد من الصلاحيه
كود :
'BtnNew.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_new, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))
'BbtnEdit.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_edit, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))
'BbtnDelete.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_delete, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))احتاج تعديله بما يتناسب مع البرنامج بحيث اذا لم يكن لديه صلاحيه يعطي البوتون مضلل مرفق صورة من جدول الصلاحيات وفقكم الله اتقبل آرائكم وفقكم الله فأنا والله اتعلم منكم ...
RE: احتاج تعديل الكود "تأكد من الصلاحية" - طالب برمجة - 01-01-18
ضع Enabled بدلا من Visible
RE: احتاج تعديل الكود "تأكد من الصلاحية" - hglogtd - 02-01-18
BtnNew.enabled = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_new, ....................., StringComparison.OrdinalIgnoreCase))
تمام لكن الكود يكون فيه خطا لابد اكتب له اذا كان True
RE: احتاج تعديل الكود "تأكد من الصلاحية" - طالب برمجة - 02-01-18
حسب الكود في فإن Any تعيد True أو False