منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET المستخدمين
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
المستخدمين
ali_ahmed12 غير متصل
عضو مبدع
المشاركات : 164
المواضيع 57
الإنتساب : Sep 2022
السمعة : 1
الشكر: 99
تم شكره 9 مرات في 7 مشاركات
#17
06-11-22, 05:42 PM (آخر تعديل لهذه المشاركة : 06-11-22, 05:50 PM {2} بواسطة ali_ahmed12.)
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب

صورة دخول ب نادر
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب

صورة دخول ب نادر
صورة دخول بطه رغم انه مدير ينطبق عليه شرط اول فقط
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب

صورة دخول ب نادر
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :


كود :
If UserType = "مدير" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   Me.Button4.Enabled = True
   Me.Button5.Enabled = True
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True

ElseIf UserType = "عادي" Then
   Me.Button1.Enabled = True
   Me.Button2.Enabled = True
   Me.Button3.Enabled = True
   'تعطيل زر المستخدمين
   Me.Button4.Enabled = False
   'تعطيل زر نسخ احتياطي
   Me.Button5.Enabled = False
   Me.Button8.Enabled = True
   Me.Button7.Enabled = True
Else
   Me.Button1.Enabled = False
   Me.Button2.Enabled = False
   Me.Button3.Enabled = False
   Me.Button4.Enabled = False
   Me.Button5.Enabled = False
   Me.Button8.Enabled = False
   Me.Button7.Enabled = False
End If

نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت 
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب

صورة دخول ب نادر
صورة دخول بطه رغم انه مدير ينطبق عليه شرط اول فقط

غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if  وهم حالتين مدير وعادي فقط ياريت توضح ليا 
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه


الملفات المرفقة صورة/صور
       
البحث
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
المستخدمين - بواسطة ali_ahmed12 - 30-10-22, 08:20 PM
RE: المستخدمين - بواسطة barawy - 02-11-22, 01:04 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 02-11-22, 06:33 PM
RE: المستخدمين - بواسطة مصمم هاوي - 02-11-22, 09:16 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 02-11-22, 09:17 PM
RE: المستخدمين - بواسطة مصمم هاوي - 03-11-22, 08:01 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 03-11-22, 08:16 PM
RE: المستخدمين - بواسطة barawy - 05-11-22, 11:51 AM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 12:54 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 03:42 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 03:46 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 03:51 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 04:01 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 04:29 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 05:16 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 05:33 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 05:42 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 05:50 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 06:02 PM
RE: المستخدمين - بواسطة Taha Okla - 06-11-22, 06:12 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 06:16 PM
RE: المستخدمين - بواسطة أبو خالد الشكري - 06-11-22, 06:52 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 06-11-22, 07:03 PM
RE: المستخدمين - بواسطة أبو خالد الشكري - 07-11-22, 01:19 PM
RE: المستخدمين - بواسطة ali_ahmed12 - 07-11-22, 01:50 PM
RE: المستخدمين - بواسطة هاوي1995 - 12-11-22, 06:10 AM
RE: المستخدمين - بواسطة ali_ahmed12 - 12-11-22, 01:18 PM
RE: المستخدمين - بواسطة هاوي1995 - 12-11-22, 10:12 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد تحديد صلاحيات المستخدمين عن طريق حقل في جدول قاعدة البيانات F.H.M 0 329 12-09-24, 06:29 PM
آخر رد: F.H.M
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 1,172 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  سؤال بخصوص المستخدمين النشطاء الحاليين علي الشبكة عبدالكريم برشدان 1 615 27-03-23, 11:18 PM
آخر رد: sanyor77
  [VB.NET] استفسار حول صلاحيات المستخدمين ali_ahmed12 7 1,438 20-11-22, 10:28 PM
آخر رد: ali_ahmed12
  اريد فهم الخطأ الحالى فى صلاحيات المستخدمين لدى حماده ممدوح البحيرى 9 2,030 16-05-22, 12:56 PM
آخر رد: سعود
  تعدد المستخدمين aldery 0 1,088 12-06-21, 03:51 PM
آخر رد: aldery
  كيف يمكنني نسخ ملف الي سطح المكتب لجميع المستخدمين والتأكد من وجوده ام لا؟ dametucorazon 2 1,246 04-06-21, 03:23 AM
آخر رد: dametucorazon
  صلحيات المستخدمين علي المفاتيح محمدالزند 2 1,635 17-11-19, 02:26 AM
آخر رد: محمدالزند
  [VB.NET] تحديث مشروع فيجوال بيسيك بعد توزيعه على المستخدمين عبر الانترنت khairallah 1 2,936 01-10-19, 11:30 PM
آخر رد: asemshahen5
  [VB.NET] عند تشغيل اداة print form على حاسوب المستخدمين يعطي رسالة خطا khairallah 3 2,279 16-09-19, 08:45 PM
آخر رد: khairallah

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


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