tela de login com ado

SISTEMA DE LOGIN SEM USO DE SQL

Clique com o botao direito em Project1 e va em add,depois form

Vai abrir uma janela com varias opções de forms,escolha "Log in Dialog"

Agora um form com um sistema simples de login foi adicionado ao seu projeto

No form anterior(sem ser o de login) ,clique duas vezes no form ,vai abrir
a janela de codigos com o seguinte codigo escrito nela
---------------------------- Linha de codigos -------------------------
Private Sub Form_Load()

End Sub
---------------------------------------------------------------------------

Entre essas duas linhas,adicione esse codigo

Form1.Hide
frmLogin.Show

Ficara assim..
---------------------------- Linha de codigos -------------------------
Private Sub Form_Load()
Form1.Hide
frmLogin.Show
End Sub
---------------------------------------------------------------------------
Agora minimize essa janela de codigos e esse form,voltando no form de login,abra a janela de codigos e apague tudo que tem dentro,volte para o form e clique duas vezes no botao "Cancel",a janela de codigos se abrira com o seguinte codigo

---------------------------- Linha de codigos -------------------------

Private Sub cmdCancel_Click()

End Sub
---------------------------------------------------------------------------

Explicando o codigo :
cmdCancel: Componente que o evento se refere
Click(): Evento sendo utilizado
End Sub : Final do evento

Agora ,entre as duas linhas,adicione o codigo a seguir

Quit

Ficara assim

---------------------------- Linha de codigos -------------------------

Private Sub cmdCancel_Click()
Quit
End Sub
---------------------------------------------------------------------------

Agora sim...a parte + complicada do tuto
Clique Duas vezes no botao "OK" ,o mesmo codigo ali de cima aparecera,+ a parte verde "cmdCancel",sera "cmdOK",pq o componente eh outro.
Entre aquelas duas linhazinhas,adicione esse codigo :

---------------------------- Linha de codigos -------------------------
If txtUserName.Text = "SEU LOGIN AQUI" And txtPassword.Text = "SUA SENHA AQUI" Then
Msgbox "Senha Correta Obrigado por Usar meu sistema de login By Matheus Pontes"
Form1.Show
frmLogin.Hide
Else
MsgBox "Voce errou o password ou username,tente denovo!"
End If
---------------------------------------------------------------------------

FAVOR NAO RETIRE OS CREDITOS POIS ASSIM VOCE ESTARA ESTRAGANDO MEU TRABALHO