انت فى الاتجاه الصحيح ولكن اظنك عكست المطلوب اثناء كتابة الكود واليك الكود المعدل
ملحوظة : علامة <> تعنى لا تساوى
شرح الكود : هو اذا كان نوع المستخدم لا يساوي مدير .. قم بالتالى .... تعطيل الأزرار ما عدا رقم 3 و 4 ... غير ذلك ... قم بقتح جميع الأزرار
مرفق مثال
وعليكم السلام ورحمة الله وبركاته :
بالنسبة للمثال المرفق - الطريقة جيدة وفعالة -
==========================
لكن للعلم وبعيداً عن موضوع هذه المشاركة : إن استخدامك لجملة الاستعلام عن اسم المستخدم وكلمة المرور ضعيفة جداً
وبإمكان أي مستخدم عادي(يعرف ما هي حقنة الـ SQL) أن يخترق البرامج التي تنفذها بهذه الطريقة بدون فتح قاعدة البيانات أو كسرها
ولا يحتاج تحليل أكواد البرنامج، ولا يحتاج معرفة اسم المستخدم أو كلمة المرور ..
كود :
query = "select * from users where id='" & UsernameTextBox.Text & "' and pwd='" & PasswordTextBox.Text & "'"
-
ثانياً في حال عدم صحة كلمة المرور أو اسم المستخدم : لا تجعل البرنامج يعطي رسالة تنبيه للمستخدم بخطأ الادخال .. بل اجعل الرسالة على ليبل موجودة على نفس الفورم (كي لا تجعل للمخترقين السبيل سهل على حقن بربنامجك أيضاً عن طريق برامج تعديل الملفات التنفيذية).
فالتنبيه برسالة (ضمن نافذة حوار جديدة Dialog) تعني أن الكود الذي سبق هذه الرسالة هو كود التحقق.
(06-11-22, 03:51 PM)Taha Okla كتب : الاكواد الموجود في مشاركة الأخ (barawy) هي نفسها أكواد مشروعه ..
ولا تحتاج لفتح المشروع أصلاً ..
أقرأ مشاركته جيداً ..
انا لدي نوعين من صلاحيات مدير وعادي
اذا كان مدير يظهر كل ازرار التي تتفتح شاشات
اذا كان نوع عادي يعطل زر شاشة المستخدمين وننسخ احتياطي
هدا كود شرط اف في حالة لو كان ليس مدير else في حالة كان مدير
لكن انا سواء دخلت بمستحدم مدير او مستخدم عادي يضل زرين لايعمل
هدا كود
06-11-22, 05:16 PM (آخر تعديل لهذه المشاركة : 06-11-22, 05:26 PM {2} بواسطة ali_ahmed12.)
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
(06-11-22, 04:29 PM)Taha Okla كتب : حاول أن تقرأ وتفهم الأكواد التي تضعها في برنامجك جيداً
كما قال الأخ (barawy) أن الاشارة (<>) تعني لا تساوي
بالتالي أقلبها عندك في الأكواد وستحصل على النتيجة التي تريد ..
يعني :
1 - استبدل (<>) بـ (=)..
2 - فالأوامر التي بعد الشرط (If) ضعها بعد (Else)
3 - والتي بعد (Else) ضعها بعد (If)
وسلامتك..
اخ طه فهمت عليك هدا كود الان
يعمل صحيح
لكن لو عملت مدير جديد يصبح مثل مستخدمين لايظهر له زرين هنا مشكله
لكن مدير الاول يظهر له كل شي ياتري مالسبب
انا اريد اثنين مدير مثلا
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
صورة دخول ب نادر
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
صورة دخول ب نادر
صورة دخول بطه رغم انه مدير ينطبق عليه شرط اول فقط
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
صورة دخول ب نادر
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
(06-11-22, 05:42 PM)ali_ahmed12 كتب :
(06-11-22, 05:33 PM)Taha Okla كتب : جرب هذا الكود مع نادر وأعطيني النتيجة :
نادر ظهر الان له كل شي لكن عملت مدير جديد كل ازرار تعطلت
انا فهمت كودك لو كان مدير يظهر كل شي لو كان عادي عطل زرين لو كان ليس مدير او عادي يعني لم يختار شي لاتظهر له ازارر
لكن انا عملت مدير جديد ولم تظهر له ازرار كله مالسبب
صورة دخول ب نادر
صورة دخول بطه رغم انه مدير ينطبق عليه شرط اول فقط
غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه
06-11-22, 05:50 PM (آخر تعديل لهذه المشاركة : 06-11-22, 06:06 PM {2} بواسطة Taha Okla.)
أجعل الـ (UserType) ك متغير نصي عام - عرفه في الـ (Module1)
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..
كود :
Module1.UserType= dt.Rows(0)(3)
أمسح جميع المستخدمين من قاعدة البيانات
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.
إذا نجح الأمر - بيكون خالص.
وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟
=====
(06-11-22, 05:42 PM)ali_ahmed12 كتب : غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if وهم حالتين مدير وعادي فقط ياريت توضح ليا
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه
صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ :: هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة :: وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟ هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.
06-11-22, 06:02 PM (آخر تعديل لهذه المشاركة : 06-11-22, 06:05 PM {2} بواسطة 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
(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
في حالة مستخدم نوعه عادي اريد عدم تفعيل زر حفظ منتج له عملت كود هدا لكن لايعمل
