LOGIN

MOREIRA 08/06/2007 12:06:43
#220350

Estou fazendo um Login... e gostaria q aparecesse o nome do usuario na status bar no MDI... ESTOU FAZENDO ASSIM:

Option Explicit
Dim SSQL As String
Dim ContaTentativas As Integer
Dim RSTUSUARIO As New ADODB.Recordset

Private Sub cmdCancelar_Click()
Saida
End Sub

Private Sub cmdEntrar_Click()
Set RSTUSUARIO = New ADODB.Recordset
SSQL = "SELECT * FROM TblUsuario where Usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'"
RSTUSUARIO.Open SSQL, Conexao, 3, 2
If RSTUSUARIO.EOF Then
MsgBox "Nome ou Senha do Usuário Incorreto", vbCritical, "ATENÃ‡ÃƒO"
txtUsuario.Text = ""
txtSenha.Text = ""
txtUsuario.SetFocus
Else
Unload Me
End If

MDI_Principal.Show
RSTUSUARIO.Close
End Sub

E NO LOAD DO MDI ESTA SSIM:

Private Sub MDIForm_Load()
MDI_Principal.StatusBar1.Panels(2).Text = "Usuário: " & frm_Logim.txtUsuario.Text
End Sub

USUARIO.EXCLUIDOS 08/06/2007 12:13:32
#220351 Resposta escolhida

primeiro o login e depois o MDI?
se for no frmlogin antes de verificar o usuário:
MDI_Principa.statusbar1.Panels(2).test = Me.txtUsuário ' seu campo para o usuário.

ou seja vc deve colocar no antes do processo de validação. caso não seja isso poste novamente.

MOREIRA 08/06/2007 12:35:20
#220355

primeiro o login..
depois o MDI

DESCULPA, MAS NAO ENTENDI.

USUARIO.EXCLUIDOS 08/06/2007 12:43:17
#220360

do login quando vc for fazer a validação:

...
MDI_principal.statusbar1.panels(2).text = Me.txtUsuario
setRSTUSUARIO = New ADODB.Recordset
SSQL = "SELECT * FROM TblUsuario where Usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'"
RSTUSUARIO.Open SSQL, Conexao, 3, 2
If RSTUSUARIO.EOF Then
MsgBox "Nome ou Senha do Usuário Incorreto", vbCritical, "ATENÃ‡ÃƒO"
txtUsuario.Text = ""
txtSenha.Text = ""
txtUsuario.SetFocus
Else
Unload Me
End If

MDI_Principal.Show
RSTUSUARIO.Close

quando o logn for realizado o dado passará para o MDI.

USUARIO.EXCLUIDOS 08/06/2007 12:52:11
#220361

VOCE NAO VAI CONSEGUIR RECUPERAR O NOME DO USUARIO SE VOCE APAGAR O CAMPO.
OU SEJA VOCE TERA QUE PREENCHER PRIMEIRO O MDI "PAINEL" E DEPOIS FECHAR A TELA DE LOGIN

MOREIRA 08/06/2007 12:57:49
#220363

olá GHSTDRK, deu certo.. mas como devo colocar nessa linha
MDI_Principal.StatusBar1.Panels(2).Text = "Usuário Logado: ADMINISTRADOR ???

MDI_principal.statusbar1.panels(2).text = Me.txtUsuario

USUARIO.EXCLUIDOS 08/06/2007 13:28:55
#220377

MDI_Principal.statusbar.panels(2).text = "Usuário logado:" & Me.txtUsuario.text

USUARIO.EXCLUIDOS 08/06/2007 13:31:36
#220378

MDI_Principal.StatusBar1.Panels(2).text = "Usuário logado:" & Me.txtUsuário

desculpe me mas no topico anterior deixei de colocar (1) para o StatusBar rsrs

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar