Create Login Form POS Application

This is Step-5 how to build POS (Point Of Sale) Application using VB NET 2013

Step-1 : Create New Project POS Application Using VB Net 2013
Step-2 : Create Main Menu POS Application VB NET 2013 
Step-3 : Create Database and Table POS Application 
Step-4 : Create Database Connection Use Module VB NET 2013

Follow below steps to Create Form Login POS Application
Open Project POS Application before

Click - Project - Add Windows Form...

And then follow like below picture

Click Add
Design LoginForm.vb like below picture

Place below code at MainMenuForm

Public Class MainMenuForm
    Sub LockMenu()
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        MasterToolStripMenuItem.Enabled = False
        TransactionToolStripMenuItem.Enabled = False
        ReportToolStripMenuItem.Enabled = False
        UtilityToolStripMenuItem.Enabled = False
    End Sub
    Private Sub MainMenuForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call LockMenu()
    End Sub

    Private Sub LoginToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LoginToolStripMenuItem.Click
        LoginForm.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class

Place below code at LoginForm

Imports System.Data.OleDb
Public Class LoginForm
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then TextBox2.Focus()
    End Sub
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Please fill form")
            Exit Sub
        Else
            Call OpenDB()
            CMD = New OleDbCommand("select * from TBL_USER where USER_ID='" & TextBox1.Text & "' and USER_PASSWORD='" & TextBox2.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
                Me.Close()
                MainMenuForm.Show()
                MainMenuForm.LoginToolStripMenuItem.Enabled = False
                MainMenuForm.LogoutToolStripMenuItem.Enabled = True
                MainMenuForm.MasterToolStripMenuItem.Enabled = True
                MainMenuForm.TransactionToolStripMenuItem.Enabled = True
                MainMenuForm.ReportToolStripMenuItem.Enabled = True
                MainMenuForm.UtilityToolStripMenuItem.Enabled = True
            Else
                MsgBox("User id or Password is Incorrect")
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
    Private Sub FormLogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        TextBox1.Focus()
    End Sub
    Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 6
        TextBox2.PasswordChar = "X"
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
End Class

And then you can Run or start your POS Application
CLICK HERE to download source code project for step above
Please following Step-6 to continue build POS Application using VB NET 2013