|
|
Postada em 16/07/2006 04:15 hs
Pessoal estou com algumas dúvidas do login: -como faço para coloca o form do login, antes do MID Principal. -o código para eu criar a validação do login, pq tenho q ter um login de adminstrador onde todos os recursos serão liberados e um de funcionário, onde apenas alguns recursos. Obrigado |
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/07/2006 11:41 hs
eu nao uso MDI mas acredito que seja igual tipo coloca num modulo Private Sub main()
On Error GoTo final
Screen.MousePointer = 11
NomedaSuaConexao
FrmLogin.Show
Screen.MousePointer = 0
Exit Sub
final:
MsgBox err.Description, vbInformation, err.Number & "Sub Main"
End Sub e em Project deixe o Startup Object como SUB MAIN
Jesus Cristo é O Senhor!!!
|
|
TÓPICO EDITADO
|
|
|
|
>>|Bedin|<<
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/07/2006 12:34 hs
EAE blz?!
Tente isso:
1º crie o Banco: bd_Teste
2º crie a Tabela: ADMIN; com os campos LOGIN e SENHA (devem ser os mesmos do seu formulario)
3º cadastre o usuário: master c/ um senha, nos campos LOGIN e SENHA de seu tabela
4º com tudo criado, copie e cole o código abaixo!...hehe
--------------------------------------------------------------------------------------------------
'NO Module
Global DB As Database
Global TADMIN As Recordset
Sub ABRIR_BANCO()
On Error GoTo ERRO_BANCO
Set DB = OpenDatabase(App.Path & "d_Teste.mdb")
Exit Sub
ERRO_BANCO:
MsgBox "A Base de Dados do Sistema não foi encontrada," & vbCrLf & "contate o Administrador do Sistema", vbCritical
End
End Sub
Sub ABRIR_ADMIN()
Set TADMIN = DB.OpenRecordset("ADMIN")
TADMIN.Index = "PrimaryKey"
End Sub
--------------------------------------------------------------------------------------------------
'No Form
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
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 'Abre seu MDI
Unload Me
MDIfrmMENU.StatusBar1.Panels.Add 1, , UCase(L)
End If
End Sub
Private Sub Form_Load()
ABRIR_BANCO
End Sub
Private Sub CANCEL_Click()
Unload Me
End
End Sub
Espero ter ajudado!
Viva o código aberto!!!...uahauhauahua
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/07/2006 13:01 hs
mandei um pro seu email tambem
Jesus Cristo é O Senhor!!!
|
|
|
|
Maha
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/07/2006 17:15 hs
No seu projeto defina o SUB MAIN como ínicio e este deve estar em um módulo; No SUB MAIN faça a conexão ao banco; Se a conexão estiver tudo ok chame o form do login e nele devem estar todos os controles como Bendin desenhou; Faça a consulta ao banco verificando o usuário e senha; Se o login for aceito descarregue o form LOGIN e chame o MDI. Este é o fluxo natural de um login, existem várias formas de se fazer isso mas basicamente é assim.
Saúde e Paz, o resto... trabalhando vem!!! "Se um dia a vida lhe der as costas, passe a mão na bunda dela!!!"
|
|
|
|
