الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ في كود if

بدأه тëмїz في 22 أغسطس 2010 · 21 رد · 1,528 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

نظراً لأني مبتدأ ومفهمتش حاجه

لذا اعتمت علي كومبو بوكس ويحتوي علي 2 يوزر نيم

Admin و User ولكل منهما اختصاصاته

كود الادمن

اقتباس
If Combo1.Text = "Admin" And Text1.Text = "admin" Then

LoginSucceeded = True

Form1.Show

Unload Me

End If

كود اليوزر مع صلاحياته

اقتباس
If Combo1.Text = "User" And Text1.Text = "123456" Then

loginSucceded = True

Form1.Show

Form1.Command1.Enabled = False

Form1.Command2.Enabled = False

Form1.Command3.Enabled = False

Form1.Text1.Enabled = False

Form1.Text2.Enabled = False

Form1.Text3.Enabled = False

Unload Me

End If

المشكلة اريد اضاف ماسج توضح ان الباسورد عند غير صحيحة

فجربت هذا الكود

اقتباس
If Combo1.Text = "Admin" And Text1.Text = "admin" Then

LoginSucceeded = True

Else

MsgBox " كلمة المرور غير صحيحة "

اصبحت هذه الرسالة تظهر في user حتي ولو كتبت كلمة المرور صحيحة

فهل هناك حل لكي تظهر الماسج بدون استعمال Else ???

ولكم جزيل الشكر laugh.gif

#2

السلام عليكم

انت تريد ان تظهر رسالة الخطأ اذا كان الباسورد خطأ ولذلك يجب ان يكون الكود بهذا الشكل

If Combo1.Text <> "Admin" And Text1.Text <> "admin" Then

http://blogourvision.blogspot.com/

العلم علمان : علم باللسان ، وعلم بالقلب

فعلم القلب : هو العلم النافع

وعلم اللسان : هو حجة الله على ابن آدم

#3

انا جربت الكود ولم يعمل , نفس المشكلة موجودة

data.rar

تم تعديل هذه المشاركة بواسطة тëмїz في 22 أغسطس 2010 في 15:59

#4

تم حل المشكله في المرفقات البرنامج

data.rar

#5
اقتباس
تم حل المشكله في المرفقات البرنامج

مشكور يا اخي وجزاك الله كل خير

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

مثال بعد كتابه الباسورد 3 خطأ يقوم البرنامج بالاغلاق

تم تعديل هذه المشاركة بواسطة тëмїz في 23 أغسطس 2010 في 08:17

#6

اي يمكن

#7

طب ايه هو الكود؟

#8

استفاد من هذا السطر

static a as integer

كلما يكتب خطأ يزيد واحد

اذا خطا 3 مرات

يعمل

end

#9

طيب ممكن مثال للتوضيح smile.gif

عذراً انا مبتدأ وفي حجات مش فاهمها laugh.gif

#10

راجع المرفق التالي

data.rar

#11

مشكور أخ ammarvb

أسف أخي للأطالة عليك

ماهو كود تغير باسورد الدخول علماً بأن الباسورد غير متصلة بملف أكسيس

ولك جزيل الشكر

تم تعديل هذه المشاركة بواسطة тëмїz في 24 أغسطس 2010 في 09:22

#12

طبعا انته لازم تعمل جدول تضع بيه اسماء المستخدمين مع صلاحياتهم

#13

تم عمل جدول للمستخدمين يمكنك من تغيير كلمه المرور راجع المرفق

data.rar

#14

بجد كلمات الشكر لا تكفي wub.gif

انت بجد عامل احسن واجب معايا laugh.gif

بجد انا استفدت من الاكواد دي وعرفت اطبقها علي مشاريع تانيه لوحدي happy.gif

بس في استفسار صغير و اوعدك حيكون الاخير (( اكيد انت دلوقتي بتقول mad.gif الواد ده مورهوش غيري ))

ازاي اطبع بيانات الـ datagird في شكل جدول منسق

انا دورت علي الاكواد و الكود الوحيد اللي اشتغل معايا هو كود طباعه الفورم sleep.gif

ارجوا انك تفيدني في الموضوع ده smile.gif

#15

السلام عليكم

اولا: احب اقولك اني مش متضايق من اسئلتك بل على العكس واني مستعد للاجابه مهما كثرت الاسئله لذلك اذا كان لديك المزيد فارجوك لا تتردد.

ثانيا:لقد قمت بالتعديلات التاليه :

1-تم اضافه تقرير طباعه

2-تحسين كود البحث داخل الفور ليبحث في حقل واحد او حقلين

3-عند الضغط على حقول البحث يتم تفريغها تلقائيا لاستقبال القيمه

4-تحسين شكل الفورم كافه

البرنامج في المرفقات

data.rar

تم تعديل هذه المشاركة بواسطة ammarvb في 25 أغسطس 2010 في 01:29

#16

لا تعليق لساني يعجز عن الكلام mellow.gif

بارك الله فيك وجعله في ميزان حسناتك ممم بسم الله ماشاء الله معلوماتك غزيرة ( مش بحسد ) بجد انا لو مكانك اعمل كتاب شرح للمبتدئين في الفيجوال بيسك

اقتباس
اني مش متضايق من اسئلتك بل على العكس واني مستعد للاجابه مهما كثرت الاسئله

طيب خد السؤال ده :P

طبعا اكيد حضرتك حفظت المشروع التجريبي بتاعي ده من كتر التعديل عليه biggrin.gif

السؤال بيقول

بالنسبة للصلاحيات اليوزرز

كان في كود زي ده علشان يعمل الزرار ديسابول

اقتباس
Form1.Command1.Enabled = False

انا بقا عايز اعمله مختفي ... هداني تفكيري للكود ده

اقتباس
Form1.Command1.Visible = True

بس للأسف غلط وبيحدد علي كلمة Visible

فممكن حضرتك تقولي ايه الغلط في هذا الكود

تم تعديل هذه المشاركة بواسطة тëмїz في 25 أغسطس 2010 في 15:22

#17

من اجل ان يختفي الزرار يجب استعمال الكود التالي:

Form1.Command1.Visible = False

حيث نجعله false ليختفي

و لكي نضهره نجعله true

جربها و اي شيء اخر اني حاضر

تحياتي

#18

تم تطبيق كود ال visible البرنامج في المرفقات

data.rar

#19

الف شكر الحاجه الغريبة ان الكود نفع معايا

و اشتغل علي الرغم اني جربته علي Label ومنفعتش wacko.gif

تسلم ايدك ياغالي happy.gif وجزاك الله خير

#20

ارسل البرنامج الذي لم يعمل لكي اطلع عليه

#21

نفس البرنامج ( data.rar ) حيث عن الدخول بالادمن يظهر لابول " مرحباً بك Admin "

وفي اليوزر يظهر " مرحباً بك User "

بس الغلط كان اني كررت الكود مرتين حيث في الجزء الخاص بالادمن

اقتباس

Form1.label1.visible = True

Form1.lable2.visible = false

والجزء المتعلق باليوزر " بعد كلمة Else "

اقتباس

Form1.label1.visible = false

Form1.lable2.visible = true

كان هذا الخطأ لكن الحمد لله اتحلت

عمل جميع اللابول من الخصائص visible = false

ووضع الكود visible = true

laugh.gif

#22

الحمد لله

مواضيع مشابهة