LOGANDO NO SISTEMA

FELIPEA 02/03/2005 21:25:26
#70846

Explique-se melhor. Vc quer um tipo de código que permite a entrada no sistema apenas quando a senha estiver correta???

USUARIO.EXCLUIDOS 02/03/2005 21:48:55
#70851

tipow , coloque dois texts box em um form

ai a base é vc fazer uma verificação podem ser feitas de varias formas
uma delas é vc concatenar senha e nome de usuario de forma a fazer apenas um if em todo o banco de dados ex:

dim varVerific as string
varVerific = txtsenha.text & txtusurio.text
ai um loop

do until rs.eof
if rs("senha")&rs("usuaio")=varVerific then
'Comandos
else
end if
rs.movenext
loop

desculpe a desordem do codigo , fiz agora sem estar no vb

espero ter ajudado

vlw

USUARIO.EXCLUIDOS 03/03/2005 09:31:27
#70892 Resposta escolhida

BOM, COLOCA UM FORM, DENTRO DO FORM VC COLOCA UMA LABEL, COMO A PROPRIEDADE CAPTION ="Usuário" e OUTRA LABEL COM A CAPTION ="senha". Coloca uma text com a propriedade name chamada "user" e outra "pass"
Crie mais um form com o nome de entrada.frm. Crie um botão no form, com a propriedade caption chamada "Entrar"
agora coloca o código abaixo no botão:

Private Sub cmdEntrar_Click ()
if user="joao" and pass="123456" then
dim m as string
m=msgbox("Carregando o Sistema",vbInformation,"Sistema")
entrada.show
else
m=msgbox("Usuário ou Senha Não Reconhecidos, Digite Novamente",vbcritical,"Sistema")
end if
end sub

USUARIO.EXCLUIDOS 03/03/2005 09:46:21
#70900

o exemplo do amigo JEFINHO é util se o sistema tiver apenas um user ou nao utilize bd , caso tenha varios users é necessario fazer um loop no bd para verificar todos users cadastrados , ...

valew amigos ...

:)