تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin
#1
السلام عليكم 


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


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

كود :
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  ما نفع معاي حاولت وارجوا اني الاقي احد يساعدني وفقكم الله




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



مرفق مثال


الملفات المرفقة صورة/صور
   

.zip   USER_DOMIN.zip (الحجم : 2.29 م ب / التحميلات : 34)



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#2
من ضمن تعديلي على الكود لكن يطلع لي خطا

كود :
 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



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#3
كود :
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))
الرد
تم الشكر بواسطة:
#4
اسعدك الله في الدارين

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



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#5
الكود شغال 100%

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



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تحويل هذا الكود و جعله يعمل Necro PC 2 129 15-10-21, 03:08 PM
آخر رد: Necro PC
  [Acces2010] ممكن تعديل الكون بسام محمدغانم 6 185 15-10-21, 04:26 AM
آخر رد: بسام محمدغانم
  تشغيل برنامج تم التثبيت في الجهاز بسام محمدغانم 1 101 12-10-21, 09:58 AM
آخر رد: ابو انس
  [سؤال] ما هو الخطأ في عدم تنفيذ هذه الكود محمد الصدفاوي 6 393 09-10-21, 10:05 PM
آخر رد: محمد الصدفاوي
  [سؤال] ممكن عمل الكود فجول بيسك بنفس الطريقة بسام محمدغانم 0 137 07-10-21, 09:12 AM
آخر رد: بسام محمدغانم
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 357 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 1 273 20-09-21, 10:57 PM
آخر رد: ميدو الفنان
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 271 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  مساعدة في اعادة ايقونة تشغيل المشروع exe العطر الرايق 2 232 16-09-21, 02:50 AM
آخر رد: العطر الرايق
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 249 24-08-21, 09:12 AM
آخر رد: malek369

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


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