Imports System.Data.SqlClient

​

Public Class Login

    Dim conn As New SqlConnection("Data Source=SQL,1433; Network Library=DBMSSOCN; Initial Catalog=Archive; User ID=admin; Password=qwe-123")

    Dim cmd As SqlCommand

    Dim dt As New DataTable

    Dim da As New SqlDataAdapter

​

    'Declare the variables for Move Login window

    Dim drag As Boolean

    Dim mousex As Integer

    Dim mousey As Integer

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click

        Me.Close()

    End Sub

​

    Private Sub lblX_Click(sender As Object, e As EventArgs) Handles lblX.Click

        Me.Close()

    End Sub

​

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click

        Dim query As String = "SELECT * FROM TBL_lOGIN WHERE UserName=@username AND Password=@Password"

        cmd = New SqlCommand

        cmd.Connection = conn

        cmd.CommandText = query

​

        Dim param(1) As SqlParameter

​

        param(0) = New SqlParameter("@username", SqlDbType.NVarChar)

        param(0).Value = txtUserName.Text

​

        param(1) = New SqlParameter("@Password", SqlDbType.NVarChar)

        param(1).Value = txtPassword.Text

​

        cmd.Parameters.AddRange(param)

​

        da = New SqlDataAdapter(cmd)

        dt = New DataTable

​

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            'MsgBox("تم تسجيل الدخول بنجاح", MsgBoxStyle.Information, "تسجيل الدخول")

            Dim MainForm As New FRM_Main

            MainForm.lblCurrentUser.Text &= Me.txtUserName.Text

            MainForm.Show()

            Me.Hide()

        Else

            MsgBox("عفوا اسم المستخدم او كلمة المرور خطأ", MsgBoxStyle.Exclamation, "تسجيل الدخول")

        End If

​

        'conn.Open()

        'Dim dr As SqlDataReader = cmd.ExecuteReader

​

        'dr.Read()

        'If dr.HasRows Then

        '    MsgBox("تم تسجيل الدخول بنجاح", MsgBoxStyle.Information, "تسجيل الدخول")

        '    Dim MainForm As New FRM_Main

        '    MainForm.Show()

        '    Me.Hide()

        'Else

        '    MsgBox("عفوا اسم المستخدم او كلمة المرور خطأ", MsgBoxStyle.Exclamation, "تسجيل الدخول")

        'End If

        'dr.Close()

        'conn.Close()

​

    End Sub

​

    Private Sub Login_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown

        drag = True 'Sets the variable drag to true.

        mousex = System.Windows.Forms.Cursor.Position.X - Me.Left 'Sets variable mousex

        mousey = System.Windows.Forms.Cursor.Position.Y - Me.Top 'Sets variable mousey

    End Sub

​

    Private Sub Login_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove

        'If drag is set to true then move the form accordingly.

        If drag = True Then

            Me.Left = System.Windows.Forms.Cursor.Position.X - mousex

            Me.Top = System.Windows.Forms.Cursor.Position.Y - mousey

        End If

    End Sub

​

    Private Sub Login_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp

        'Sets drag to false, so the form does not move according to the code in MouseMove

        drag = False

    End Sub

​

    Private Sub lblX_MouseHover(sender As Object, e As EventArgs) Handles lblX.MouseHover

        lblX.ForeColor = Color.OrangeRed

    End Sub

​

End Class