Imports System.Data.SqlClient
Public Class Login

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call koneksi()
CMD = New SqlCommand("select * from Tbl_User where NIK='" & TextBox1.Text & "' and Password='" & TextBox2.Text & "'", CONN)
DR = CMD.ExecuteReader
DR.Read()
If DR.HasRows Then
MenuUtama.Show()
MenuUtama.Panel1.Text = DR.Item("NIK")
MenuUtama.Panel2.Text = DR.Item("Nama_Kasir")
MenuUtama.Panel3.Text = DR.Item("Status")
Me.Hide()
Else
MsgBox("login salah, periksa kembali NIK dan Password anda")
TextBox1.Focus()
End If
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.TextBox1.Focus()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Application.Exit()
End Sub

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
If Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <> 8 AndAlso Not IsNumeric(e.KeyChar) Then
MessageBox.Show("Hanya Angka")
e.Handled = True
End If
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
If Char.IsLetterOrDigit(e.KeyChar) Or e.KeyChar = ControlChars.Back Or e.KeyChar = "." Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

End Class