cara-membuat-login-case-sensitive
Imports System.Data.OleDb
Public Class Login
Dim Hitung As Integer = 0
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Call Koneksi()
CMD = New OleDbCommand("select * from tbluser where nama_user='" & TNama.Text & "' and pwd_user='" & TPassword.Text & "'", CONN)
DR = CMD.ExecuteReader
DR.Read()
If Not DR.HasRows Then
MsgBox("Login gagal")
Hitung = Hitung + 1
If Hitung > 2 Then
End
End If
Exit Sub
Else
If TPassword.Text <> DR.Item("pwd_user") Then
MsgBox("password salah")
TPassword.Focus()
Exit Sub
End If
Me.Visible = False
MenuUtama.Show()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class