منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
login - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : login (/showthread.php?tid=37251)

الصفحات: 1 2 3 4

login - سلام و محبه - 21-12-20

لسلام عليكم
اريد تصميم شاشه login
 [/url]
كتبت كود لم يعمل

كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click


      If (Txtuser_name.Text.Trim() And Txtuser_password.Text.Trim()) = True Then
          Dim db = New db_accountDataContext

          Dim xname = (From s In db.user7s Where s.user_name = Txtuser_name.Text And s.user_password = Txtuser_password.Text Select s.user_name).SingleOrDefault

          If xname = IsDBNull(Txtuser_name.Text) Then

              MsgBox("ادخل بيانات صحيحه", MsgBoxStyle.Information, Application.ProductName)

              Return
          Else
              Form1.Show()
              Me.Hide()
          End If
      End If
  End Sub


RE: login - ابراهيم ايبو - 22-12-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم هل انت متأكد من انك تعمل بتقنية LinQ  ؟
اذا كان كذلك اليك هذا الفنكشن لمقارنة اسم المستحدم وكلمة المرور مع مثيلاتها في جدول ال User
ملحوظة : غير التسميات لتتوافق مع التي اسميتها في مشروعك
  

كود :
' انشئ هذا الفنكشن
   Function ValidateLogin(ByVal username As String, ByVal password As String) As Boolean
       Dim DBcontext As New DBDataContext()
       Dim usr = DBcontext.Users.SingleOrDefault(Function(u) u.UName = username AndAlso u.UPassword = password)
       Return (usr IsNot Nothing)
   End Function

   ' في بوتون الدخول
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Txt_Uname.Text.Trim <> "" Or Txt_Upassword.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txt_Uname.Text, Txt_Upassword.Text) = True Then
               Dim frm As New Form1()
               Me.Hide()
               frm.Show()
           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة")
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ")
       End If

   End Sub

وان كنت تستخدم تقنية Ado.net فعليك تغيير الكود ويفضل وضع  مشروعك (فورم الدخول بشكل مختصر ) ليتم التعديل اومساعدتك من قبل اخوتك في المنتدى

RE: login - سلام و محبه - 22-12-20

عدلت الكود و ظهر exception


RE: login - ابراهيم ايبو - 22-12-20

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

RE: login - سلام و محبه - 22-12-20

شكراااااااا
اضفت السطر التالى ليظهر اسم المستخدم فى الفورم الاساس للبرنامج
كود :
MDIParentaccounting.Txtuser_name.Text = Txtuser_name.Text
لكن لم يعمل ما الحل ؟
كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then
               Dim frm As New MDIParentaccounting
               frm.Show()
               Me.Hide()
               MDIParentaccounting.Txtuser_name.Text = Txtuser_name.Text

               'MDIParentaccounting.TxtCmb_user_id.Text=

           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK)
       End If

   End Sub

حاولت ضغط الملف ب winrar لارفعه على الموقع لم ينضغط

RE: login - ابراهيم ايبو - 22-12-20

السلام عليكم اخي الكريم
عندما تضع اسم المستخدم في فورم تسجيل الدخول ثم تريد اظهار هذا الاسم (اي المستخدم الحالي) في الفورم الرئيسية في label 
اكتب التالي :

كود :
 Dim frm As New MDIParentaccounting()
               frm.Txtuser_name.Text = Me.Txtuser_name.Text
               Me.Hide()
               frm.Show()



نعرف نسخة من الفورم الرئيسية frm

ثم نسند القيمة الموجودة في مربع اسم المستخدم من فورم الدخول الى اللايبل الموجود في الفورم الرئيسية
نخفي فورم الدخول
نظهر الفورم الرئيسية

RE: login - سلام و محبه - 23-12-20

شكرا
اريده ان يبحث عن رقم ال user_id اذا كان اسم ال user_name و الباسوورد صح



كود :
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

       If Txtuser_name.Text.Trim <> "" Or Txtuser_password.Text.Trim <> "" Then
           ' اذا كانت القيمة العائدة من الفنكشن  ترو
           If ValidateLogin(Txtuser_name.Text, Txtuser_password.Text) = True Then

               Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text
               'frm.TxtCmb_user_id.Text=
               frm.Show()
               Me.Hide()




           Else
               MessageBox.Show("اسم المستخدم او كلمة المرور خاطئة", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
               Exit Sub
           End If
       Else
           MessageBox.Show("الرجاء ادخال اسم المستخدم و كلمة المرور ", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Question)
       End If
     
   End Sub
فى السطر
كود :
 'frm.TxtCmb_user_id.Text=


RE: login - ابراهيم ايبو - 23-12-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
ننشء استعلام بحيث يجلب الاي دي للاسم المدخل في مربع نص اسم المستخدم ونضع الناتج في مربع النص في الفورم الرئيسية قبل اظهارها
فقط تاكد من اسم الجدول في جملة الاستعلام
عدل الاسطر للكود في بوتون الدخول هكذا
كود :
 Dim frm As New MDIParentaccounting
               frm.Lbluser_name.Text = Me.Txtuser_name.Text
               frm.TxtCmb_user_id.Text.Text = DBcontext.User7s.SingleOrDefault(Function(u) u.user_name = Txtuser_name.Text).id
               frm.Show()
               Me.Hide()


RE: login - سلام و محبه - 24-12-20

يظهر


RE: login - BaLaDy - 25-12-20

يوجد لديك اكثر من user_name كما تشيرين اليه في الصوره وهو c

لعدم قبول تسجيل مكرر مستقبلا اجعلي العمود user_name بحيث يكون unique من خصائصه