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

مشكلة في كود الباسورد

بدأه susan.a في 17 مايو 2010 · 3 رد · 687 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

ايها الأخوة الكرام لدي مشكلة في كود الباسورد ....اريد عمل برنامج بحيث اول ما يفتح البرنامج يقوم المستخدم بإدخال اسم المستخدم و كلمة المرور الخاصة به

علما بأن هناك اربعة مستخدمين للبرنامج ...

ولقد قمت عمل جدول بقاعدة البيانات الخاصة بالبرنامج وضعت فيها اسماء المستخدمين مع كلمات المرور الخاصة بكل مستخدم

والكود الذي كتبته على برنامج الفيجوال كان كالتالي:

قمت بتسمية الtext box الاول ب txtname والثاني بpassword وقمت بإدراج بوتون ok اسميته btnok وبوتون cancel اسميته btncancel

ومن ثم كتبت

public class form1

public stname as string

public stpassword as string

من خلال الإجراء الحدثي activate الخاص بالنموذج form 1 كتبت داخل إجراء الحدث form _activated

txtname.text=stname

txtpassword.text=stpasswrd

ثم نقوم بكتابة الكود التالي داخل إجراء الحدثbtnok_click

stname=txtname.text

stpassword=txtpassword.text

me.hide

ثم كتبت هذا الكود داخل إجراء الحدث btncancel-click

" "=stname

" "=stpassword

me.hide

ثم اضفت زر امر جديد بعنوان log on واسم btnlogon وقمت بكتابة الكود التالي دالخل البوتون

dim a as new form1

a.showdialog

if a.stname="ahmed" and a.stpassword="aaa" then

a.close

messagebox.show("info ok")

else

a.close

messagebox.show("bad info")

end

end if

انا مو عارفه ايش الخطأ في الكود لاني لما ادخل كلمة المرور يقول خطأ

وكمان يفتح لي الفورم اكثر من مره

انا مبتدئه جدا جدا جدا في البرمجة

ارجو مساعدتي في اقرب وقت ممكن .

#2

أخي ممكن تُرفق لنا الكود, صراحة لم أستطع فهم مشكلتك بالضبط...

#3

السلام عليكم اختي الكريمة

الخطاء في الكود انكي عرفتي متغيرين من نوع نص (String) وتركتي بهما قيمة فارغة

هذا هو الخطاء لانه في كل مرة تفعل الفورم يطلب قيم وتكون هذه القيم فارغة لذلك يعترض عليها

لانك لم تسمحي للمستخدم بادخال الاسم والرقم السري الخاص به

يجب عليكي جعل المتسخدم يدخل معلوماته ثم يتم ادخال البيانات

ترقبي مثال على هذا الموضوع في القريب العاجل باذن الله

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#4

السلام عليكم اختي الكريمة

هناك اخطاء كثيرة بطريقة العمل لديك ومن ضمنها التعامل مع الاحداث وعدم التعامل مع قاعدة البيانات بالكود لديك

اليك هذا الكود

في حدث Click الخاص Buttonok قم بإضافة هذا الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cn As New SqlClient.SqlConnection("سلسلة الاتصال بقاعدة البيانات")

Using CM As New SqlClient.SqlCommand("select * from users where stname like '" & txtstname.Text & "'", cn)

Using dr As SqlClient.SqlDataReader = CM.ExecuteReader

If dr.Read Then

If dr!password = txtpass.text Then

Me.Hide()

Fmain.ShowDialog()

Else

MsgBox("كلمة المرور خاطئة")

txtpass.Clear()

txtpass.Focus()

End If

Else

MsgBox("اسم المستخدم غير موجود")

txtstname.Clear()

txtpass.Clear()

txtstname.Focus()

End If

End Using

End Using

End Sub

وفي حدث cancel ضعي هذا الكود

close

وباذن الله يعمل معكي بدون اضافة اي احداث اخري

وما من كاتب إلا سيفني .. ويبقي الدهر ما كتبت يداه.

فلا تكتب بكفك غير شئ .. يسرك في القيامة ان تراه.

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