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

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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 102 منذ 10 ساعة مضت
آخر رد: مصمم هاوي
  تعديل كود ارسال صورة الى الواتس new_programer 0 58 12-03-24, 03:12 AM
آخر رد: new_programer
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 86 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 130 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [سؤال] undo/redo button mohamed sabry 1 151 15-01-24, 11:33 AM
آخر رد: تركي الحلواني
  ممكن تعديل في كود التفقيط للارقام melad2002 2 323 01-01-24, 08:47 PM
آخر رد: melad2002

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


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