[4545Mohamed]

اريد كود لحفظ الباسورد الخاص ببرنامجي عندما افتحه بعد ما اضع الكود يكون محفوظ ؟

[ابراهيم ايبو]

السلام عليكم ورحمة الله ويركاته
اخي الكريم 
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم 
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح

[4545Mohamed]

(07-07-21, 09:53 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله ويركاته
اخي الكريم 
ان كان ماتريد هو انشاء شاشة Login للدخول الى البرنامج بكلمة السر واسم مستخدم 
تابع هذا الرابط
https://www.youtube.com/watch?v=KRcBnZdYiQc
اما ان غير ذلك فنرجو الايضاح

انا اريد كود لحفظ النص الي في التكست بوكس من فضلك

[ابراهيم ايبو]

اخي الكريم 
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command

[4545Mohamed]

(07-07-21, 10:29 PM)ابراهيم ايبو كتب : اخي الكريم 
الحفط عادي مثلما تحفط اي بيانات الى قاعدة البيانات حسب الجدول والحقول عبر Command

انا اقصد حفظ النص الموجود في التكست بوكس

[asemshahen5]

ضع ثلاث متغيرات في السيتنغ اثنان مننوع استرنغ وواحد من نوع بولين .
ضعهم كالتالي :
1- String : UserNameXT
2- String : PasswordXT
3- Boolean : RemmperMe

   

ضع على فورم إثنين تيكست بوكس و تشك بوكس واحدة .

كالتالي :
TextBox Name : Txt_UserNameXT
TextBox Name : Txt_PasswordXT
CheckBox : Chk_RemmperMe

   

عند تسجيل الدخول اذا أردت ان تحفظ اسم المستخدم و كلمة لمرور بشكل دائم و لا تقوم بكتابتهم كل مرة تضغط على التشك بوكس ( RemmperMe ) لتعطي اشارة الصح .

كود تسجيل الدخول و حفظ اسم المستخدم و كلمة المرور ليتم ظهورهم بشكل تلقائي دون كتابتهم كل مرة :

PHP كود :

   Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles BtnOk.Click
        '' كود التذكر
        If Chk_RemmperMe.Checked Then
            My.Settings.RemmperMe = Chk_RemmperMe.Checked
            My.Settings.UserNameXT = Txt_UserNameXT.Text
            My.Settings.PasswordXT = Txt_PasswordXT.Text
            My.Settings.Save()
        Else
            My.Settings.RemmperMe = False
            My.Settings.UserNameXT = ""
            My.Settings.PasswordXT = ""
            My.Settings.Save()
        End If
        '' كود الاستعلام الخاص بتسجيل الدخول
        If Txt_UserNameXT.Text = "Admin" And Txt_PasswordXT.Text = "Admin" Then
            Dim frm As New MainFrm
            frm.Show()
            Close()
        End If
    End Sub 


كود تحميل الفورم عند التشغيل :

PHP كود :

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
                If My.Settings.RemmperMe Then
            Txt_UserNameXT.Text = My.Settings.UserNameXT
            Txt_PasswordXT.Text = My.Settings.PasswordXT
            Chk_RemmperMe.Checked = My.Settings.RemmperMe
        Else
            Txt_UserNameXT.Clear()
            Txt_PasswordXT.Clear()
        End If
    End Sub 


   

[4545Mohamed]

(08-07-21, 12:12 PM)asemshahen5 كتب : شكرا جزيلا