منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

لسلام عليكم
اريد تصميم شاشه 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

السلام عليكم ورحمة الله وبركاته
اخي الكريم هل انت متأكد من انك تعمل بتقنية 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 فعليك تغيير الكود ويفضل وضع مشروعك (فورم الدخول بشكل مختصر ) ليتم التعديل اومساعدتك من قبل اخوتك في المنتدى

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

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

شكراااااااا

اضفت السطر التالى ليظهر اسم المستخدم فى الفورم الاساس للبرنامج

كود :

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 لارفعه على الموقع لم ينضغط

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

كود :

 Dim frm As New MDIParentaccounting()

                frm.Txtuser_name.Text = Me.Txtuser_name.Text

                Me.Hide()

                frm.Show()

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

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

شكرا
اريده ان يبحث عن رقم ال 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=

السلام عليكم ورحمة الله وبركاته
اخي الكريم
ننشء استعلام بحيث يجلب الاي دي للاسم المدخل في مربع نص اسم المستخدم ونضع الناتج في مربع النص في الفورم الرئيسية قبل اظهارها
فقط تاكد من اسم الجدول في جملة الاستعلام
عدل الاسطر للكود في بوتون الدخول هكذا

كود :

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

يظهر

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام و محبه

ابراهيم ايبو

سلام و محبه

ابراهيم ايبو

سلام و محبه

ابراهيم ايبو

سلام و محبه

ابراهيم ايبو

سلام و محبه

BaLaDy