SISTEMA DE LOGIN

TIAGOFABRE 13/11/2009 00:36:54
#327596
preciso de um sistema de login, que no campo login tenha 4 usuários, em uma caixa de combinação e cada usuário tenha sua senha, quando selecionar um nome que saia a foto da pessoa, e se o login estiver certo, aparecer um botão, para que o usuário acesse uma userform.
TECLA 13/11/2009 09:49:19
#327613
Você precisa de uma AJUDA ou do SISTEMA PRONTO?
Aqui no site, fornecemos a primeira opção.
Portanto, poste o ponto exato em que está tendo DIFICULDADES para que possamos (tentar) ajudá-lo.
TIAGOFABRE 13/11/2009 14:51:08
#327685
[txt-size=1]e como vou buscar os dados do login no BD?[/txt-size]
SUELISMAR 13/11/2009 15:26:19
#327690
Vou tentar ajudar vc meu caro... aguarde alguns intantes enquanto desenvolvo um exemplo pra vc....
ROBIU 13/11/2009 16:07:13
#327696
Quando se trata de login, devemos nos preocupar com o mínimo de segurança. Os dados protegidos apenas pela senha do access ficam vulneráveis. Até quem não conhece de programação pode quebrar senha access. Eu tenho um componente que guarda os user e senhas em arquivo access mas os registros estão cryptografados.
Veja minha ocx RmSenha aqui
Eu estou trabalhando neste componente. Atualmente já podemos cadastrar os grupos e listar os users. Em preve a nova versão será disponível aqui.
NICOLLAS2 13/11/2009 16:34:24
#327704 Resposta escolhida
Citação:

TIAGOFABRE escreveu:
[txt-size=1]e como vou buscar os dados do login no BD?[/txt-size]


cara, acho melhor você procurar primeiro assunto sobre consulta em banco de dados.
AMCARVALHO 13/11/2009 19:01:26
#327712
vou te ajudar de verdade ok
Option Explicit
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô][ô][ô][ô] Iniciado dia 20/02/2007 [ô][ô][ô][ô][ô]
[ô][ô][ô][ô] Finalizado dia 03/03/2007[ô][ô][ô][ô][ô]
[ô][ô][ô][ô] Analista de Sistemas [ô][ô][ô][ô][ô]
[ô][ô][ô][ô] Antonio M. de Carvalho [ô][ô][ô][ô][ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
Dim wtime
Dim wdata
Dim wb
Dim wc
Dim wsql
Dim wresp
Dim wusuario
Dim wsenha
Dim wnumero_error
Dim wcodigo
Dim result
Dim vfmensagem As Integer [ô]VARIAVEL PARA EFETUAR LISTA MENSSAGEM
[ô]Funções Para Ativar o Som.
Private Declare Function BitBlt Lib [Ô]gdi32[Ô] (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWid As Integer, ByVal nHt As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
Private Declare Function sndPlaySound Lib [Ô]winmm.dll[Ô] Alias [Ô]sndPlaySoundA[Ô] (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_MEMORY = &H4
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Function Comprimento()
[ô]Ativação do Som na entrada do Programa
If Time < [Ô]12:00:00[Ô] Then
result = sndPlaySound(App.Path & [Ô]\down.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
result = sndPlaySound(App.Path & [Ô]\bomdia.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
ElseIf Time < [Ô]18:00:00[Ô] Then
result = sndPlaySound(App.Path & [Ô]\down.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
result = sndPlaySound(App.Path & [Ô]\boatarde.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
End If
If Time > [Ô]18:00:00[Ô] Then
result = sndPlaySound(App.Path & [Ô]\down.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
result = sndPlaySound(App.Path & [Ô]\boanoite.wav[Ô], SND_ASYNC Or SND_NODEFAULT)
imgTil.Visible = False
imgTel.Visible = True

End If

End Function
Function Msg_Text()
Dim Msg
wdata = Date
wtime = Time
If Time < [Ô]12:00:00[Ô] Then

wcomprimento.Visible = True
LblText.Visible = True
Txtusuarios1.Visible = False
TxtSenha1.Visible = False
Label2.Visible = False
Label3.Visible = False
Frame1.Visible = False
wcomprimento = [Ô]Bom Dia[Ô]
LblText = [Ô]Tenha um bom trabalho!!![Ô] & [Ô] [Ô]
ElseIf Time < [Ô]18:00:00[Ô] Then
wcomprimento.Visible = True
LblText.Visible = True
Txtusuarios1.Visible = False
TxtSenha1.Visible = False
Label2.Visible = False
Label3.Visible = False
Frame1.Visible = False
wcomprimento = [Ô]Boa Tarde[Ô]
LblText = [Ô]Tenha um bom trabalho!!![Ô] & [Ô] [Ô]
End If
If Time > [Ô]18:00:00[Ô] Then
Txtusuarios1.Visible = False
TxtSenha1.Visible = False
Label2.Visible = False
Label3.Visible = False
Frame1.Visible = False
wcomprimento.Visible = True
wcomprimento = [Ô]Boa Noite[Ô]
LblText.Visible = True
LblText = [Ô]Tenha um bom trabalho!!![Ô] & [Ô] [Ô]
End If
End Function

Private Sub CmdCancel_Click()
Unload FrmSenha
Unload Me
End Sub

Private Sub CmdCancelar_Click()
Unload FrmSenha
Unload Me
End Sub

Private Sub CmdOk_Click()
MDIPrincipal.Enabled = True
MDIPrincipal.Show
Unload FrmSenha
End Sub

Private Sub Form_Activate()
[ô]MDIPrincipal.Enabled = False
Txtusuarios1.SetFocus
imgTel.Visible = False
End Sub

Private Sub Form_Load()
[ô]Colocar como padrao este codigo
Call abrirbanco
wsql = [Ô]select (nomeempresa) as nomeempresa from tbcadempresa[Ô]
wtemp = wbanco.Execute(wsql)
FrmSenha.Caption = wtemp!NomeEmpresa & [Ô] Tabela Senha de Acesso [Ô]
Call wbanco.Close
CmdCancel.Visible = False
Top = 1000
Left = 4000
Height = 5025
Width = 5190
End Sub

Private Sub TxtSenha1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If TxtSenha1 = [Ô][Ô] Then
MsgBox ([Ô]Esse campo não pode ficar em branco[Ô]), vbInformation
TxtSenha1.SetFocus
Else
consulta_senha
If CmdOk.Enabled = False Then
Txtusuarios1.SetFocus
Else
CmdOk.SetFocus
End If
End If
End If
End Sub

Private Sub Txtusuarios1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Txtusuarios1 = [Ô][Ô] Then
MsgBox ([Ô]Esse campo não pode ficar em branco[Ô]), vbInformation
Txtusuarios1.SetFocus
Else
Txtusuarios1 = UCase(Txtusuarios1)
wusuario = Txtusuarios1
Consulta_Usuarios
End If
End If
End Sub
Function Consulta_Usuarios()
On Error GoTo usuario_error
Call abrirbanco
wsql = [Ô]select * from Tbusuario where Usuario=[Ô] & [Ô][ô][Ô] & Txtusuarios1 & [Ô][ô][Ô]
wtemp = wbanco.Execute(wsql)
If IsNull(wtemp!Usuario) Then
MsgBox ([Ô]Não há usuario cadastrado![Ô]), vbInformation
Call wbanco.Close
Exit Function
Else
End If
If wusuario = wtemp!Usuario Then
TxtSenha1.SetFocus
Call wbanco.Close
Exit Function
End If
usuario_error:
MsgBox ([Ô]Nome de usuario esta errado!!Ou não Cadastro!Verifique...[Ô]), vbInformation
Txtusuarios1 = [Ô][Ô]
Txtusuarios1.SetFocus
Call wbanco.Close
Exit Function
End Function
Function consulta_senha()
On Error GoTo senha_error
Call abrirbanco
wsql = [Ô]select * from Tbusuario where senha= [Ô] & [Ô] [ô][Ô] & TxtSenha1 & [Ô] [ô][Ô]
wtemp = wbanco.Execute(wsql)
wsenha = wtemp!senha
If wsenha = wtemp!senha Then
CmdOk.Visible = True
CmdCancel.Visible = True
Comprimento
Call wbanco.Close
Else
CmdOk.SetFocus
End If
CmdOk.Enabled = True
Exit Function
senha_error:
MsgBox ([Ô]Senha do Usuario [Ô] & Txtusuarios1 & [Ô], [Ô] & [Ô]Esta Errado!!![Ô]), vbInformation
Call wbanco.Close
Txtusuarios1 = [Ô][Ô]
TxtSenha1 = [Ô][Ô]
Txtusuarios1.SetFocus
CmdOk.Enabled = False
Exit Function
End Function
MARCELO.TREZE 13/11/2009 19:25:42
#327713
Gente ele nao sabe nem fazer consulta, como ele criou um sistema?

desse geito não adianta postar código pois creio que ele não irá entender.

Acredito que ele queira algo pronto com telas e tudo mais, para funcionar junto com algum programa.
Tópico encerrado , respostas não são mais permitidas
Voltar