login - نسخة قابلة للطباعة

كود :

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

        Dim DBcontext As New db_accountDataContext

        Dim us As New user7

        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





                Dim userid = (From myuser In DBcontext.user7s Where myuser.user_name = Txtuser_name.Text).ToList()(0).user_id

                frm.Lbl_user_id.Text = userid



                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

كود :

Function ValidateLogin(ByVal username As String, ByVal password As String) As Boolean

        Dim DBcontext As New db_accountDataContext()

        Dim usr = DBcontext.user7s.SingleOrDefault(Function(u) u.user_name = username AndAlso u.user_password = password)

        Return (usr IsNot Nothing)

    End Function

PHP كود :

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
       Dim DBcontext As New db_accountDataContext
       Dim us As New user7
       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


               Dim userid = (From myuser In DBcontext.user7s Where myuser.user_name = Txtuser_name.Text).ToList()(0).user_id
               frm.Lbl_user_id.Text = userid
                   my.settings.current_user=me.Txtuser_name.text  
                   my.settings.save
               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