APARECER NOME E CODIGO DO OPERADOR NA TELA DE VEND
amigos minha duvida é na SQL, como eu faço para que quando eu logar no sistema, na tela de venda pegar o nome e o codigo do operador ex.
tela de login:
Nome: fulano
Senha: 123
o codigo do fulano é o 3, ai na tela de venda vai estar assim
Operador: [txt-color=#0000f0]1 fulano[/txt-color]
eu tentei assim:
criei essa sub ai abaixo e estou chamando no form load da tela de venda.
[txt-color=#0000f0]Private Sub vFuncionario()
Conecta True [ô] processo da conexao com o banco de dados
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] [Ô]
Set RS = Conexao.Execute(sSQL)
If Not RS.EOF Then
lblOperador.Caption = RS([Ô]nome[Ô])
lblCoperador.Caption = RS([Ô]codigo[Ô]) + [Ô] -[Ô]
End If
Conecta False
End Sub[/txt-color]
acima segue a tela para vcs verem que não esta aparecendo eu chamei a sub no form load mais não ta dando certo como eu faço?
tela de login:
Nome: fulano
Senha: 123
o codigo do fulano é o 3, ai na tela de venda vai estar assim
Operador: [txt-color=#0000f0]1 fulano[/txt-color]
eu tentei assim:
criei essa sub ai abaixo e estou chamando no form load da tela de venda.
[txt-color=#0000f0]Private Sub vFuncionario()
Conecta True [ô] processo da conexao com o banco de dados
Dim RS As Recordset
Dim sSQL As String
sSQL = [Ô]SELECT * FROM CadSenhas Where nome=[Ô] & [Ô][ô][Ô] & txtUserName & [Ô][ô] [Ô]
Set RS = Conexao.Execute(sSQL)
If Not RS.EOF Then
lblOperador.Caption = RS([Ô]nome[Ô])
lblCoperador.Caption = RS([Ô]codigo[Ô]) + [Ô] -[Ô]
End If
Conecta False
End Sub[/txt-color]
acima segue a tela para vcs verem que não esta aparecendo eu chamei a sub no form load mais não ta dando certo como eu faço?
Crie em um Modulo 2 Variáveis Publicas
Public iCodigoUsuario as Integer
Public sNomeUsuario as String
Assim a Primeira vez que a pessoa logar você já guarda esses dados nessas variáveis
depois só jogar assim
lblOperador.Caption = sNomeUsuario
lblCoperador.Caption = iCodigoUsuario
entendeu?
Public iCodigoUsuario as Integer
Public sNomeUsuario as String
Assim a Primeira vez que a pessoa logar você já guarda esses dados nessas variáveis
depois só jogar assim
lblOperador.Caption = sNomeUsuario
lblCoperador.Caption = iCodigoUsuario
entendeu?
vlw meu brother!
Tópico encerrado , respostas não são mais permitidas