منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] احتاج تعديل الكود يخص تشغيل Button حسب user domin (/showthread.php?tid=20458)

احتاج تعديل الكود يخص تشغيل Button حسب user domin - hglogtd - 19-05-17

السلام عليكم 


اسعد الله صباحكم ومسائكم بكل خير 


عندي كود وظيفته عند تشغيل الفورم يقوم بقراءة اسم المستخدم على الدومين فإذا كان موجود من ضمن الاسماء الموجوده قاعدة البيانات مضاف يظهر البوتون 

كود :
Me.Cheqs_userTableAdapter.Fill(Me.BIDataSet.cheqs_user)
       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button1.Visible = False

 
وطبعا شغال الكود تمام على user_admin اما user_edit و user_view  ما نفع معاي حاولت وارجوا اني الاقي احد يساعدني وفقكم الله




صورة من القاعدة 



مرفق مثال

RE: احتاج تعديل الكود يخص تشغيل Button حسب user domin - hglogtd - 19-05-17

من ضمن تعديلي على الكود لكن يطلع لي خطا

كود :
 Me.Cheqs_userTableAdapter.Fill(Me.BIDataSet.cheqs_user)
       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button1.Visible = False

       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_edit, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button2.Visible = False

       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_view, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button3.Visible = False


RE: احتاج تعديل الكود يخص تشغيل Button حسب user domin - alma2 - 19-05-17

كود :
Button1.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
        Button2.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_edit, Environment.UserName, StringComparison.OrdinalIgnoreCase))
        Button3.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_view, Environment.UserName, StringComparison.OrdinalIgnoreCase))


RE: احتاج تعديل الكود يخص تشغيل Button حسب user domin - hglogtd - 20-05-17

اسعدك الله في الدارين

بجرب الكود وارد لك ...

RE: احتاج تعديل الكود يخص تشغيل Button حسب user domin - hglogtd - 22-05-17

الكود شغال 100%

وبارك الله فيك تمام التمام