|
|
|
|
|
|
|
|
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
|
|
|
|
|
