تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج
#1
قمت بعمل برنامج صغير ووضعت كلمة مرور واسم مستخدم له وهذا هوا الكود

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() 



المطلوب هوا كود تعديل أسم المستخدم وكلمة المرور في البرنامج
الرد }}}}
تم الشكر بواسطة:
#2
غيرت اسم المستخدم من 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 
الرد }}}}
تم الشكر بواسطة: Sajad , Ameer syria , ahmed saba
#3
مشكوور اخي العزيز على الرد لكن طلبي هوا ماهوا كود تغيير كلمة المرور وأسم المستخدم
في البرنامج بعد الدخول اليه Huh
وليس كود الدخول بكلمة مرور وأسم مستخدم
الرد }}}}
تم الشكر بواسطة:
#4
شوف المثال
http://vb4arb.com/vb/showthread.php?tid=759
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
مشكور اخي العزيز على الرد لكن لم استفد من المثال الموجود
وارجو منك ومن جميع المشاركين في هذا المنتدى كتابة الاكواد بدون اختصارات لتكون مفهومة اكثر ليس المهم ان نجد من يحل مشاكلنابقدر ماهو مهم ان نعرف طريقة حلها ونفهمها
فهذا المنتدى لنتعلم ونستفيد جميعنا ولك ولكل الاعضاء كل التقدير
الرد }}}}
تم الشكر بواسطة:
#6
انا معك اخوي بالاقتراح
لكن فين الغموض وابشر وانا اخوك باللي اقدر عليه .
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: العزابي
#7
تم ارفاق البرنامج وارجو التعديل عليه
المطلوب كود تغيير اسم المستخدم وكلمة المرور


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 106.01 ك ب / التحميلات : 115)
الرد }}}}
تم الشكر بواسطة:
#8
طيب :
هو الأمر في غاية البساطة لو فكرت فيها وبأمكانك حلها .
شوف :
هو كل الموضوع يدور حول Current Active User
بمعنى : أن الـــ Profile اللى مفروض يظهر لك هو تابع للمستخدم الحالي فقط ,,,
يعني أنت مش لازم تبحث عن البيانات حتى تبدأ تعدل
تمـــــــــــام ...؟؟

طيب :
أعمل متغير 1 أو 2 في Module يحمل أسم المستخدم الحالى وكلمة المرور الحاليه .
ولما تبدأ تفتح التعديل ,, ح يكون على الفورم 4 TextBoxes تمــــــــــام ..؟؟

الأول : ح يكون فيه UserMame
والتاني : ح يكون فيه CurrentPassword
والتالث ح يكون فيه NewPassword
والرابع ح يكون فيه : ConfrmPassword
وكلها طبعا Starts يعني *
وقارن بين المربعات وتأكد من العمليه ...

بس خلاص .
Abu Ehab : Microsoft Partner  & Systems Developer
  Facebook   Youtube    Twitter   
الرد }}}}
تم الشكر بواسطة: سعود , مبرمج أوتار
#9
لم تنجح معي عملية التعديل ارجو التعديل على المثال المرفق


الملفات المرفقة
.rar   WindowsApplication3.rar (الحجم : 106.01 ك ب / التحميلات : 128)
الرد }}}}
تم الشكر بواسطة:
#10
Huh
مر شهر كامل ولم يقم اي احد من الزملاء بتعديل المثال
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود فاتورة مبيعات بلغة #C أرجو المساعدة أبو راشد عبدالوهاب 5 158 11-07-17, 12:56 AM
آخر رد: أبو راشد عبدالوهاب
  مساعده فى تعديل كود فاتورة مبيعات نبيل كونكت 4 100 10-07-17, 08:49 PM
آخر رد: نبيل كونكت
  [VB.NET] تظهر رسالة توقف البرنامج dr_amr82 3 121 14-06-17, 03:12 AM
آخر رد: boudyonline
  مشكلة في تحزيم البرنامج samawi 2 146 23-04-17, 03:06 AM
آخر رد: samawi
  كيفية تعديل صورة في قاعدة بيانات اكسس oz7z 6 194 29-03-17, 09:01 AM
آخر رد: oz7z
  [VB.NET] ربط البرنامج بعدة اجهزة abid 10 5,165 05-03-17, 02:41 PM
آخر رد: وائل القطاوي
  أريد منع المستخدم من تعديل خلية معينة في داتا جريد ؟؟؟ Abdh111 3 432 05-06-16, 09:28 PM
آخر رد: khodor1985
  تعديل بيانات حقل في جميع السجلات aftfm 2 531 31-05-16, 06:32 PM
آخر رد: Sajad
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 806 31-05-16, 12:10 AM
آخر رد: kofa
Photo طريقة بحث و إظهار حقل معين من سجلين مختلفين ,, ولكن يتساويا في رقم المستخدم ahmed_elwerfalli 6 726 27-12-15, 03:55 AM
آخر رد: ahmed_elwerfalli

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم