منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(06-11-22, 03:42 PM)Taha Okla كتب : [ -> ]
(05-11-22, 11:51 AM)barawy كتب : [ -> ]السلام عليكم

انت فى الاتجاه الصحيح ولكن اظنك عكست المطلوب اثناء كتابة الكود واليك الكود المعدل

ملحوظة : علامة <> تعنى لا تساوى
شرح الكود : هو اذا كان نوع المستخدم لا يساوي مدير .. قم بالتالى .... تعطيل الأزرار ما عدا رقم 3 و 4 ... غير ذلك ... قم بقتح جميع الأزرار

مرفق مثال

وعليكم السلام ورحمة الله وبركاته :

بالنسبة للمثال المرفق - الطريقة جيدة وفعالة -

==========================
لكن للعلم وبعيداً عن موضوع هذه المشاركة : إن استخدامك لجملة الاستعلام عن اسم المستخدم وكلمة المرور ضعيفة جداً
وبإمكان أي مستخدم عادي(يعرف ما هي حقنة الـ SQL) أن يخترق البرامج التي تنفذها بهذه الطريقة بدون فتح قاعدة البيانات أو كسرها
ولا يحتاج تحليل أكواد البرنامج، ولا يحتاج معرفة اسم المستخدم أو كلمة المرور ..

كود :

query = "select * from users where id='" & UsernameTextBox.Text & "' and pwd='" & PasswordTextBox.Text & "'"
-
ثانياً في حال عدم صحة كلمة المرور أو اسم المستخدم : لا تجعل البرنامج يعطي رسالة تنبيه للمستخدم بخطأ الادخال .. بل اجعل الرسالة على ليبل موجودة على نفس الفورم (كي لا تجعل للمخترقين السبيل سهل على حقن بربنامجك أيضاً عن طريق برامج تعديل الملفات التنفيذية).
فالتنبيه برسالة (ضمن نافذة حوار جديدة Dialog) تعني أن الكود الذي سبق هذه الرسالة هو كود التحقق.

ممكن تكتب اكواد في ردود لانه ملف اخ لايفتح عندي

الاكواد الموجود في مشاركة الأخ (barawy)
هي نفسها أكواد مشروعه ..

ولا تحتاج لفتح المشروع أصلاً ..

أقرأ مشاركته جيداً ..

(06-11-22, 03:51 PM)Taha Okla كتب : [ -> ]الاكواد الموجود في مشاركة الأخ (barawy)
هي نفسها أكواد مشروعه ..

ولا تحتاج لفتح المشروع أصلاً ..

أقرأ مشاركته جيداً ..

انا لدي نوعين من صلاحيات مدير وعادي
اذا كان مدير يظهر كل ازرار التي تتفتح شاشات
اذا كان نوع عادي يعطل زر شاشة المستخدمين وننسخ احتياطي
هدا كود شرط اف في حالة لو كان ليس مدير else في حالة كان مدير
لكن انا سواء دخلت بمستحدم مدير او مستخدم عادي يضل زرين لايعمل
هدا كود

كود :

If UserType <> "مدير" Then

            Button1.Enabled = True

            Button2.Enabled = True

            Button3.Enabled = True

            'تعطيل زر المستخدمين 

            Button4.Enabled = False

            'تعطيل زر نسخ احتياطي 

            Button5.Enabled = False

            Button8.Enabled = True

            Button7.Enabled = True

        Else

            Button1.Enabled = True

            Button2.Enabled = True

            Button3.Enabled = True

            Button4.Enabled = True

            Button5.Enabled = True

            Button8.Enabled = True

            Button7.Enabled = True

        End If

حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

وسلامتك..

(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

وسلامتك..

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

كود :

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

        Else

            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

        End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

لو دخلت ب نادر وهو مدير تظهر مشكله

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

(06-11-22, 05:16 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 04:29 PM)Taha Okla كتب : [ -> ]حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً

كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي

بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..

يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)

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

كود :

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 Else 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 End If

لو دخلت ب نادر وهو مدير تظهر مشكله

يوجد مشكله عندما ادخل بشخص اخر رغم انه مدير مثل علي لكن لايظهر زرين له ما السبب ياخ طه

جرب هذا الكود مع نادر وأعطيني النتيجة :

كود :

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: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 وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

أجعل الـ (UserType) ك متغير نصي عام - عرفه في الـ (Module1)
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..

كود :

Module1.UserType= dt.Rows(0)(3)

أمسح جميع المستخدمين من قاعدة البيانات
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.

إذا نجح الأمر - بيكون خالص.

وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟

=====

(06-11-22, 05:42 PM)ali_ahmed12 كتب : [ -> ]غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ :: هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة :: وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟ هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.

(06-11-22, 05:50 PM)Taha Okla كتب : [ -> ]أجعل الـ (UserType) ك متغير نصي عام - عرفه في الـ (Module1)
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..

كود :

Module1.UserType= dt.Rows(0)(3)

أمسح جميع المستخدمين من قاعدة البيانات
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.

إذا نجح الأمر - بيكون خالص.

وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟

(06-11-22, 05:42 PM)ali_ahmed12 كتب : [ -> ]غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ :: هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة :: وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟ هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.

عندا اصل لمتغير بال اسم فورم امور تمام لكن لو عملت متغير داخل مودل يظهر له كل شي سواء كان مدير او عادي

كود :

If TextBox1.Text = "" Then

            MessageBox.Show("الرجاء ادخال كلمة المرور")

            TextBox1.Focus()

        End If

        Dim dt As New DataTable

        query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"

        da = New SqlDataAdapter(query, Module1.con)

        da.Fill(dt)

        If (dt.Rows.Count <> 0) Then

            Module1.id = dt.Rows(0)(0)

            Module1.pwd = dt.Rows(0)(1)

            Me.Hide()

            fullname = dt.Rows(0)(2)

            Form_main.UserType = dt.Rows(0)(3)

            Form_main.ShowDialog()

            Me.Dispose()

        Else

            MessageBox.Show("كلمة المرور غير صحيحة")

        End If

    End Sub

(06-11-22, 06:02 PM)ali_ahmed12 كتب : [ -> ]
(06-11-22, 05:50 PM)Taha Okla كتب : [ -> ]أجعل الـ (UserType) ك متغير نصي عام - عرفه في الـ (Module1)
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..

كود :

Module1.UserType= dt.Rows(0)(3)

أمسح جميع المستخدمين من قاعدة البيانات
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.

إذا نجح الأمر - بيكون خالص.

وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟

(06-11-22, 05:42 PM)ali_ahmed12 كتب : [ -> ]غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ :: هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة :: وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟ هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.

عندا اصل لمتغير بال اسم فورم امور تمام لكن لو عملت متغير داخل مودل يظهر له كل شي سواء كان مدير او عادي

كود :

If TextBox1.Text = "" Then MessageBox.Show("الرجاء ادخال كلمة المرور") TextBox1.Focus() End If Dim dt As New DataTable query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'" da = New SqlDataAdapter(query, Module1.con) da.Fill(dt) If (dt.Rows.Count <> 0) Then Module1.id = dt.Rows(0)(0) Module1.pwd = dt.Rows(0)(1) Me.Hide() fullname = dt.Rows(0)(2) Form_main.UserType = dt.Rows(0)(3) Form_main.ShowDialog() Me.Dispose() Else MessageBox.Show("كلمة المرور غير صحيحة") End If End Sub

في حالة مستخدم نوعه عادي اريد عدم تفعيل زر حفظ منتج له عملت كود هدا لكن لايعمل

كود :

 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

            Form_add_product.Btn_save.Enabled = True

        Else

            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

        End If

قم بارفاق مشروعك لاستطيع مساعدتك ..