[hassan]

(31-05-14, 03:21 AM)vbnet كتب :

(26-05-14, 10:35 PM)hassan كتب : ...
...كيف يمكنني ان اسوي شاشة دخول مستخدم يعني مثال :
انا عندي برنامج وفيه في البدايه كلمة تسجيل ودخول تسجيل يسوي يوزر جديد وبعده يقدر يروح يسوي دخول...
اتمنى شرح كل شي باتفصل عشان افهم
واي طريقه ممكنه وارجو شرح افضل طريقه
...

.....

طريقة عمل نافذة تسجيل دخول

منقول

عمل قاعدة بيانات أكسس باسم db1.mdb وإنشاء جدول باسم Users وبه الأعمدة النصية التالية ( UserName و UserPass )

نقوم يإضافة قاعدة البيانات للمشروع بالطريقة التالية: (فقط لمن يريد قاعدة البيانات بجوار ملف تشغيل البرنامج)
من القائمة Project إختر ...Add Existing Item
نقوم بتحديد نوع الملفات إلى (Data Files (*.xsd;*.dbml;*.xml;*.mdf;*.mdb;*.accdb;*.sdf
نبحث عن قاعدة البيانات ونختارها
بعد قليل تظهر النافذة Data Source Configuration Wizard نضغط زر Cancel (لأننا لا نريد إنشاء داتاست بالمعالج).
الآن أصبحت قاعدة البيانات داخل المشروع



نعمل فورم به عدد 2 من TextBox و زر واحد Button ونستخدم الكود التالي

كود :

Private conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sql As String = " SELECT * FROM [Users] WHERE [UserName]=@UserName "
    Dim comm As New OleDb.OleDbCommand(sql, conn)
    comm.Parameters.AddWithValue("@UserName", TextBox1.Text)
    comm.Parameters.AddWithValue("@UserPass", TextBox2.Text)
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(comm)
    If da.Fill(dt) > 0 AndAlso dt.Rows(0).Item("UserPass") = TextBox2.Text Then
        ' الدخول للبرنامج
    Else
        MsgBox("إسم المستخدم أو كلمة المرور غير صحيحة", MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight)
    End If
End Sub

.....

ماضبط معي بس الله يعطيك العافيه ما تقصر