USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Form Login
Postada em 21/8/2006 por >>|Bedin|<<            
Um exemplo simples de um Form para Login:

Primeiramente,

Banco: bd_Teste.mdb - com um tabela ADMIN
2 Label's
2 Text's - LOGIN e SENHA
2 CommandButton's - OK e Cancel
--------------------------------------------------------------------------------------------------

'No Modulo

Global DB As Database

Sub ABRIR_BANCO()
  Set DB = OpenDatabase(App.Path & "d_Teste.mdb")
End Sub

Sub ABRIR_ADMIN()
  Set TADMIN = DB.OpenRecordset("ADMIN")
    TADMIN.Index = "PrimaryKey"
End Sub
--------------------------------------------------------------------------------------------------

'No Form

Private Sub CANCEL_Click()
  Unload Me
  End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = 27 Then
     Unload Me
     End
  End If
End Sub

Private Sub Form_Load()
  ABRIR_BANCO 'Referencia do modulo
End Sub

Private Sub LOGIN_GotFocus()
  LOGIN.SelStart = 0
  LOGIN.SelLength = Len(LOGIN.Text)
End Sub

Private Sub SENHA_GotFocus()
  SENHA.SelStart = 0
  SENHA.SelLength = Len(SENHA.Text)
End Sub

Private Sub OK_Click()
Dim L As String
L = LOGIN

  If LOGIN = "" Or Len(LOGIN) < 1 Then
    MsgBox "Campo LOGIN Vazio!", vbExclamation
    LOGIN.SetFocus
    Exit Sub
  End If
  
  If SENHA = "" Or Len(SENHA) < 1 Then
    MsgBox "Campo SENHA Vazio!", vbExclamation
    SENHA.SetFocus
    Exit Sub
  End If
  
  ABRIR_ADMIN 'Abre a Tabela ADMIN
  TADMIN.Seek "=", LOGIN
    If TADMIN.NoMatch Then
      MsgBox "LOGIN ou SENHA Incorretos!", vbCritical
      LOGIN = ""
      SENHA = ""
      LOGIN.SetFocus
      Exit Sub
    End If
    
    If LOGIN <> TADMIN("LOGIN") Then
      MsgBox "LOGIN ou SENHA Incorretos!", vbCritical
      LOGIN = ""
      SENHA = ""
      LOGIN.SetFocus
      Exit Sub
    End If
    
    If SENHA <> TADMIN("SENHA") Then
      MsgBox "LOGIN ou SENHA Incorretos!", vbCritical
      LOGIN = ""
      SENHA = ""
      LOGIN.SetFocus
      Exit Sub
    End If
    
    If LOGIN = "master" And SENHA = TADMIN("SENHA") Then
      MDIfrmMENU.Show
      Unload Me
      MDIfrmMENU.StatusBar1.Panels.Add 1, , UCase(L)
    End If
End Sub


b3d1n
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página