+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج (/showthread.php?tid=715)
الصفحات:
1
2
ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج - Ameer syria - 27-10-13
قمت بعمل برنامج صغير ووضعت كلمة مرور واسم مستخدم له وهذا هوا الكود
PHP كود :
Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")
Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", connection)
Dim usernameParam As New OleDbParameter("username", Me.TextBox1.Text)
Dim passwordParam As New OleDbParameter("password", Me.TextBox2.Text)
command.Parameters.Add(usernameParam)
command.Parameters.Add(passwordParam)
command.Connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
If reader.HasRows Then
MessageBox.Show("أهلا بك في")
TextBox2.Text = ""
Me.Hide()
Alameer.Show()
Else
MessageBox.Show("خطأفي كلمة السر أو الأسم")
TextBox2.Text = ""
End If
command.Connection.Close()
المطلوب هوا كود تعديل أسم المستخدم وكلمة المرور في البرنامج
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - مبرمج أوتار - 27-10-13
غيرت اسم المستخدم من TextBox1.Text الي fusername.Text
غيرت رقم السري من TextBox2.Text الي password_user.Text
PHP كود :
Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")
Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", connection)
Dim usernameParam As New OleDbParameter("username", Me.fusername.Text)
Dim passwordParam As New OleDbParameter("password", Me.password_user.Text)
command.Parameters.Add(usernameParam)
command.Parameters.Add(passwordParam)
command.Connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
If reader.HasRows Then
MessageBox.Show("أهلا بك في")
'اسم المستخدم
fusername.Text = ""
'كلمة السر
password_user.Text = ""
Me.Hide()
Alameer.Show()
Else
MessageBox.Show("خطأفي كلمة السر أو الأسم")
fusername.Text = ""
End If
command.Connection.Close()
ضيف Module1.vb
وضيف فيها
PHP كود :
'اسم المستخدم
Public fusername As String
'كلمة المرور
Public password_user As String
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Ameer syria - 27-10-13
مشكوور اخي العزيز على الرد لكن طلبي هوا ماهوا كود تغيير كلمة المرور وأسم المستخدم
في البرنامج بعد الدخول اليه
وليس كود الدخول بكلمة مرور وأسم مستخدم
في البرنامج بعد الدخول اليه
وليس كود الدخول بكلمة مرور وأسم مستخدم
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - سعود - 29-10-13
شوف المثال
http://vb4arb.com/vb/showthread.php?tid=759
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Ameer syria - 29-10-13
مشكور اخي العزيز على الرد لكن لم استفد من المثال الموجود
وارجو منك ومن جميع المشاركين في هذا المنتدى كتابة الاكواد بدون اختصارات لتكون مفهومة اكثر ليس المهم ان نجد من يحل مشاكلنابقدر ماهو مهم ان نعرف طريقة حلها ونفهمها
فهذا المنتدى لنتعلم ونستفيد جميعنا ولك ولكل الاعضاء كل التقدير
وارجو منك ومن جميع المشاركين في هذا المنتدى كتابة الاكواد بدون اختصارات لتكون مفهومة اكثر ليس المهم ان نجد من يحل مشاكلنابقدر ماهو مهم ان نعرف طريقة حلها ونفهمها
فهذا المنتدى لنتعلم ونستفيد جميعنا ولك ولكل الاعضاء كل التقدير
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - سعود - 29-10-13
انا معك اخوي بالاقتراح
لكن فين الغموض وابشر وانا اخوك باللي اقدر عليه .
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Ameer syria - 30-10-13
تم ارفاق البرنامج وارجو التعديل عليه
المطلوب كود تغيير اسم المستخدم وكلمة المرور
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Abu Ehab - 30-10-13
طيب :
هو الأمر في غاية البساطة لو فكرت فيها وبأمكانك حلها .
شوف :
هو كل الموضوع يدور حول Current Active User
بمعنى : أن الـــ Profile اللى مفروض يظهر لك هو تابع للمستخدم الحالي فقط ,,,
يعني أنت مش لازم تبحث عن البيانات حتى تبدأ تعدل
تمـــــــــــام ...؟؟
طيب :
أعمل متغير 1 أو 2 في Module يحمل أسم المستخدم الحالى وكلمة المرور الحاليه .
ولما تبدأ تفتح التعديل ,, ح يكون على الفورم 4 TextBoxes تمــــــــــام ..؟؟
الأول : ح يكون فيه UserMame
والتاني : ح يكون فيه CurrentPassword
والتالث ح يكون فيه NewPassword
والرابع ح يكون فيه : ConfrmPassword
وكلها طبعا Starts يعني *
وقارن بين المربعات وتأكد من العمليه ...
بس خلاص .
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Ameer syria - 04-11-13
لم تنجح معي عملية التعديل ارجو التعديل على المثال المرفق
RE: ماهوا كود تعديل اسم السمتخدم وكلمة المرور في البرنامج - Ameer syria - 20-11-13
مر شهر كامل ولم يقم اي احد من الزملاء بتعديل المثال