Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Membuat Login Case Sensitive VB.Net

Halo sobat Coding, dalam membuat form login terkadang kita bisa bebas memasukan huruf dengan huruf besar atau huruf kecil lalu bisa tetap masuk ke aplikasi.. Pertanyaanya…??? Bagaimana jika waktu kita login harus memasukan loginnya sesuai dengan data yang ada di database. Maka dari itu kali ini saya akan share Cara Membuat Login Case Sensitive VB.Net.

cara membuat login case sensitive VB.Net  Validasi Membedakan Huruf Besar dan Kecil Validasi Case Sensitive di Visual Basic Net

Cara Membuat Login Case Sensitive VB.Net

Imports System.Data.SqlClient
Public Class Login
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 If
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 If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button1.Click
If TextBox1.Text = “” Or TextBox2.Text = “” Then
MsgBox(“Lengkapi data login anda”)
If TextBox1.Text = “” Then TextBox1.Focus()
If TextBox2.Text = “” Then TextBox2.Focus()
Exit Sub
Else
Call Koneksi()

CMD = New sqlcommand(“select * from tbluser where
nama_user=’” & TextBox1.Text & “‘ and pwd_user=’” & TextBox2.Text
& “‘”, CONN)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
Dim nama As String = RD.Item(“Nama_user”)
Dim pwd As String = RD.Item(“pwd_user”)
If TextBox1.Text = nama And TextBox2.Text = pwd
Then
Me.Visible = False
MenuUtama.Show()
MenuUtama.Panel1.Text = RD.Item(“kode_user”)
MenuUtama.Panel2.Text = RD.Item(“Nama_user”)
MenuUtama.Panel3.Text = RD.Item(“status_user”)
If MenuUtama.Panel3.Text = “OPERATOR” Or
MenuUtama.Panel3.Text = “Operator” Or MenuUtama.Panel3.Text =
“USER” Then
MenuUtama.UserToolStripMenuItem.Enabled =
False
MenuUtama.Button1.Enabled = False
Else
MenuUtama.UserToolStripMenuItem.Enabled =
True
MenuUtama.Button1.Enabled = True
End If
Else
MsgBox(“Password salah”)
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
End If
Else
MsgBox(“login gagal”)
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme