LOGIN

USUARIO.EXCLUIDOS 12/03/2005 06:38:30
#72521
alguem tem um cod fonte de um login com a possiblidade de inserir novos utilizadores?
USUARIO.EXCLUIDOS 12/03/2005 22:44:13
#72689
primeiro crie duas text's e dois botões, um chamado logar e outro cadastro

o de cadastrar eh esse

Private Sub cadastrar_Click()
Dim user, pass As String
user = InputBox("Digite Seu Nome de Usuário de Sua Preferencia", "Congonhas")
pass = InputBox("Digite Uma Senha Para Sua Conta", "Congonhas")
If user = "adm" Then
m = MsgBox("Já Existe Um Usuário Com Este Nome de Usuário", vbCritical, "Congonhas")
Else
m = MsgBox("Usuário Cadastrado Com Sucesso, Faça Seu Login Agora", vbInformation, "Congonhas")
nome_user.Caption = user
nome_senha.Caption = pass
usuario = ""
senha = ""
usuario.SetFocus
End If
End Sub

o de logar eh esse

Private Sub logar_Click()
Dim m As String
If usuario = "" Then
m = MsgBox("Você Não Digitou o Campo Usuário, Digite", vbCritical, "Congonhas")
usuario.SetFocus
ElseIf senha = "" Then
m = MsgBox("Você Não Digitou o Campo Senha, Digite", vbCritical, "Congonhas")
senha.SetFocus
ElseIf usuario = "adm" And "2549" Then
m = MsgBox("Usuário Encontrado Com Sucesso, Preencha Agora a Validação", vbInformation, "Congonhas")
Unload Me
validacao.Show
ElseIf usuario = nome_user And senha = nome_senha Then
m = MsgBox("Usuário Encontrado Com Sucesso, Preencha Agora a Validação", vbInformation, "Congonhas")
Unload Me
validacao.Show
Else
m = MsgBox("Usuário ou Senha Não Cadastrados no Sistema", vbCritical, "Congonhas")
usuario.SetFocus
End If


qualquer dúvida converse comigu por msn eu por e-mail

jeffersonislan@hotmail.com

espero ter ajudado
WEBMASTER 12/03/2005 22:49:36
#72693
Meio ultrapassado Jefinho..
Hugo, pegue exemplos de database aqui do site que saberás como fazê-lo ! :)
USUARIO.EXCLUIDOS 19/03/2005 22:43:36
#73809
ultrapassado mais vc nao ajudou o HUGO né

primeiro crie duas text's e dois botões, um chamado logar e outro cadastro

o de cadastrar eh esse

Private Sub cadastrar_Click()
Dim user, pass As String
user = InputBox("Digite Seu Nome de Usuário de Sua Preferencia", "Congonhas")
pass = InputBox("Digite Uma Senha Para Sua Conta", "Congonhas")
If user = "adm" Then
m = MsgBox("Já Existe Um Usuário Com Este Nome de Usuário", vbCritical, "Congonhas")
Else
m = MsgBox("Usuário Cadastrado Com Sucesso, Faça Seu Login Agora", vbInformation, "Congonhas")
nome_user.Caption = user
nome_senha.Caption = pass
usuario = ""
senha = ""
usuario.SetFocus
End If
End Sub

o de logar eh esse

Private Sub logar_Click()
Dim m As String
If usuario = "" Then
m = MsgBox("Você Não Digitou o Campo Usuário, Digite", vbCritical, "Congonhas")
usuario.SetFocus
ElseIf senha = "" Then
m = MsgBox("Você Não Digitou o Campo Senha, Digite", vbCritical, "Congonhas")
senha.SetFocus
ElseIf usuario = "adm" And "2549" Then
m = MsgBox("Usuário Encontrado Com Sucesso, Preencha Agora a Validação", vbInformation, "Congonhas")
Unload Me
validacao.Show
ElseIf usuario = nome_user And senha = nome_senha Then
m = MsgBox("Usuário Encontrado Com Sucesso, Preencha Agora a Validação", vbInformation, "Congonhas")
Unload Me
validacao.Show
Else
m = MsgBox("Usuário ou Senha Não Cadastrados no Sistema", vbCritical, "Congonhas")
usuario.SetFocus
End If


qualquer dúvida converse comigu por msn eu por e-mail

jeffersonislan@hotmail.com

espero ter ajudado

jefinho
WEBMASTER 19/03/2005 22:53:37
#73811
Dê uma olhada neste código que postei faz algum tempo!!!

http://www.vbmania.com.br/vbmdetail.php?varID=2687
Tópico encerrado , respostas não são mais permitidas
Voltar