و عليكم السلام اخي ..
الطريقة تعتمد على ما تريد انت , و على حد علمي ان هناك حالتين :
الحالة الاولى هي ان يكون اسم المستخدم و الباسورد الذي تريد ثابتين .. اي ان المستخدم لا يقوم بالتحكم بهم و تضعهم انتَ و لا يمكن تغيرهم .. ففي هذه الحالة لا طريقةَ لك الا ان تستخدم ما قاله الاخ الكريم salfig في الرد الاول ..
أما الحالة الثانية , فهي ان يكون لديك حالات تسجيل و من ثم تسجيل دخول .. اي انّ المستخدم يقوم بتحديد كلمة السر و اسم المستخدم حسبما يريد , و هنا لديك طريقتان
الاولى ( وهي الاكثر امانًا و تستخدم لحالات التسجيل الكثيرة ) هي استخدام قواعد البيانات , و هي كثيرة منها Sql ,Access , MySql ...
الثانية ( و هي الاقل امانًا و تستخدم لحالات التسجيل القليلة ) هي اما باستخدام ملف خارجي مثل XML او Text و يتم حفظ معلومات تسجيل الدخول و كذا فيها ..
حدد الطريقة التي تود و الله و انا معك ان شاء ..

(27-05-14, 01:14 AM)Ali Wisam كتب : و عليكم السلام اخي ..
الطريقة تعتمد على ما تريد انت , و على حد علمي ان هناك حالتين :
الحالة الاولى هي ان يكون اسم المستخدم و الباسورد الذي تريد ثابتين .. اي ان المستخدم لا يقوم بالتحكم بهم و تضعهم انتَ و لا يمكن تغيرهم .. ففي هذه الحالة لا طريقةَ لك الا ان تستخدم ما قاله الاخ الكريم salfig في الرد الاول ..
أما الحالة الثانية , فهي ان يكون لديك حالات تسجيل و من ثم تسجيل دخول .. اي انّ المستخدم يقوم بتحديد كلمة السر و اسم المستخدم حسبما يريد , و هنا لديك طريقتان
الاولى ( وهي الاكثر امانًا و تستخدم لحالات التسجيل الكثيرة ) هي استخدام قواعد البيانات , و هي كثيرة منها Sql ,Access , MySql ...
الثانية ( و هي الاقل امانًا و تستخدم لحالات التسجيل القليلة ) هي اما باستخدام ملف خارجي مثل XML او Text و يتم حفظ معلومات تسجيل الدخول و كذا فيها ..
حدد الطريقة التي تود و الله و انا معك ان شاء ..

(27-05-14, 01:25 AM)vb_net كتب :

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

كود :

' اليوزر نيم في تكست بوكس 1
        Dim Name As String = TextBox1.Text

        ' الباسورد في تكست بوكس 2
        Dim Pass As String = TextBox2.Text

        ' مسار الملف الدي ستخزن فيه البيانات
        Dim filename As String = "D:\data.txt"

        ' متغير الدي سينقل البيانات الى ملف تكست
        Dim str As StreamWriter = New StreamWriter(filename, True)

        ' تاكد ان الملف موجود
        If File.Exists(filename) = True Then

            ' ادا كان موجود يقوم بكتابة البيانات فيه
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' واغلاق الملف بعد الكتابة
            str.Close()

        Else

            ' ادا لم يكن الملف موجود يتم انشائه
            Dim str1 As StreamWriter = New StreamWriter("D:\data.txt")

            ' يتم كتابة البيانات فيه الملف
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' اغلاق الملف بعد الكتابة
            str.Close()

        End If

(26-05-14, 11:02 PM)salfig كتب : وعليكم السلام


تفضل اخي

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim User, Password As String
        User = "Admin"
        Password = "Admin"
        If txtuser.Text = User And txtPass.Text = Password Then
            Form3.show()
        Else
            MsgBox("Error User or Password")
        End If
    End Sub 


هل هذا ما تبحث عنه او انك تريد اسم المستخدم و كلمت مرور في قاعدات بينات