Cara membuat koding sensitif VB

selamat malam sobat,malam ini saya baru saja menyelesaikan tulisan ini,semoga bermanfaat.


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

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




Tips to prepare for your Child's Graduation ( landomoms)









Kali ini saya memposting cara menampilkan data dari Textbox ke Listview. Baiklah langsung saja, untuk mengikuti Tutorial kali ini anda butuh membuat Cara Membuat Modul Koneksi Mysql Database pada VB.Net, kalo agan” ingin menampilkan data dari Textbox ke Listview mungking coding yang ane kasih bisa bantu, langsung saja ane kasing listingnya :


Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
‘Menampilkan lvBarang dari Textbox
If txtQty.Text = “” Then
MsgBox(“JUMLAH BARANG MASIH KOSONG”, vbCritical, “Salah”)
txtQty.Focus()
Else
With lvCari.SelectedItems.Item(0)
If Val(.SubItems(4).Text) < txtQty.Text Then
MsgBox(“STOCK BARANG KURANG”, vbCritical, “Salah”)


ElseIf lvBarang.Items.Count + 1 Then
Dim ARR(7) As String
ARR(0) = lvBarang.Items.Count + 1
ARR(1) = txtKode.Text
ARR(2) = txtNama.Text
ARR(3) = txtHarga.Text
ARR(4) = txtDiskon.Text
ARR(5) = txtQty.Text
ARR(6) = txtTotal.Text


‘ memyimpan data ke dalam listview
Dim ListItem As ListViewItem
ListItem = New ListViewItem


ListItem = lvBarang.Items.Add(ARR(0))
ListItem.SubItems.Add(ARR(1))
ListItem.SubItems.Add(ARR(2))
ListItem.SubItems.Add(ARR(3))
ListItem.SubItems.Add(ARR(4))
ListItem.SubItems.Add(ARR(5))
ListItem.SubItems.Add(ARR(6))


Dim subTotal As String = Val(txtTotal.Text)
txtGTotal.Text = Val(txtGTotal.Text) + subTotal
txtGTotal2.Text = txtGTotal.Text
End If
End With


End If
Call formKosongBarang()
End Sub



Kode diatas adalah kode untuk menampilkan data dari Textbox ke Listview dan dipanggil waktu Tombol OK di klik.

dan demikian lah postingan kali ini semoga bermanfaat.