Vamos implementar o recurso criando uma tabela chamada Usuarios com os campos: nomeUsuario e SenhaId.

A senha será armazenada na forma de um Hash que iremos gerar usando uma classe.

Incluímos um controle CheckBox para permitir que o nome do usuário seja armazenado na aplicação.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim conn As New SqlConnection

Dim comando As New SqlCommand

Dim senhaID As String

conn.ConnectionString = My.Settings.LocadoraConnectionString

Try

  conn.Open()
 

  comando.Connection = conn

  comando.CommandText = "SELECT senhaID FROM usuarios Where nomeUsuario=@nomeUsuario"

  comando.Parameters.AddWithValue("@nomeUsuario", UsernameTextBox.Text)

  senhaID = comando.ExecuteScalar
 

  conn.Close()
 

   If chkLembraUsuario.Checked Then

       My.Settings.Usuario = UsernameTextBox.Text

       My.Settings.Save()

   Else

        My.Settings.Usuario = ""

   End If
 

   If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then

       My.Forms.Principal.Show()

       Me.Hide()

    Else

        MessageBox.Show("Senha/Usuário Incorreto(s)", "Senha incorreta", MessageBoxButtons.OK, MessageBoxIcon.Information)

        PasswordTextBox.Focus()

    End If

Catch ex As SqlException

     MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message)

     conn.Dispose()

End Try

End Sub

O método ExecuteScalar é o meio mais rápido de se acessar e retornar dados em um base de dados.

Imports System.Security.Cryptography

Imports System.text
 

Public Class util

Public Shared Function GeraHash(ByVal texto As String) As String

'Cria um objeto enconding para assegurar o padrão

'de encondig para o texto origem

Dim Ue As New UnicodeEncoding()

'Retorna um byte array baseado no texto origem

Dim ByteSourceText() As Byte = Ue.GetBytes(texto)

'Instancia um objeto MD5

Dim Md5 As New MD5CryptoServiceProvider()

'Calcula o valor do hash para o texto origem

Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)

'Converte o valor obtido para o formato string

Return Convert.ToBase64String(ByteHash)

End Function

End Class

• TextBox : txtUsuario, TxtSenha e TxtSenha2
• Button : btnRegistrar e btnCancelar

Private Sub btnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistrar.Click

Dim conn As New SqlConnection

Dim comando As New SqlCommand

Dim reg As Integer

conn.ConnectionString = My.Settings.LocadoraConnectionString

If txtUsuario.Text = "" Then

   MessageBox.Show("Informe um valor válido.")

   txtUsuario.Focus()

   Exit Sub

End If

If txtsenha.Text = "" Then

   MessageBox.Show("Informe um valor válido.")

   txtsenha.Focus()

   Exit Sub

End If

If Not txtsenha.Text.Equals(txtSenha2.Text) Then

   MessageBox.Show("A senha não confere.")

   txtSenha2.Focus()

   Exit Sub

End If

Try

  conn.Open()

  comando.Connection = conn

  comando.CommandText = "INSERT INTO Usuarios(nomeUsuario,senhaID) values(@Usuario,@senha)"

  comando.Parameters.AddWithValue("@Usuario", txtUsuario.Text)

  comando.Parameters.AddWithValue("@senha", util.GeraHash(txtsenha.Text))

  reg = comando.ExecuteNonQuery()

  MessageBox.Show(reg.ToString + " registro de Usuário incluido com sucesso.")

Catch ex As SqlException

  MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message)

Finally

  conn.Close()

  conn.Dispose()

End Try

End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

If e.KeyChar = Convert.ToChar(13) Then

   e.Handled = True

    SendKeys.Send("{TAB}")

End If

End Sub