Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 16 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7081 usuários registrados
O último usuário registrado atende pelo nome de DENISON SANTOS DA SILVA

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Controle de Quem Entra e Sai

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Controle de Quem Entra e Sai

Mensagem por mfelis em 16/7/2010, 08:21

Olá. um amigo meu tem o sistema de administração de livros e livrarias acho que é o maior desta area do Brasil,mas ele tem um problema, as altualizações são feitas pelos funcionários mas os funcionários do cliente tem de fechar as sessão ai que está geralmente para ele saber se o tem usuário rodando a aplicação dele ele tem que entrar no servidor e procurar com usuário administrativo para saber os processos e verificar os usuários, mas ai que está o problema muitas vezes quem sabe a Senha do Administrador é o Técnico da Empresa, e ai o tecnico não aparece, e vira uma complicação.vamos ao Ponto. ele está procurando uma função para VFP9 que faça uma lista dos processos de todos os usuários sem que o usuário que está utilizando precise ser administrador.?

Entendeu?

Fico a Espera!!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por hugo em 16/7/2010, 10:39

quando o usuario entrar

controluser.dbf
controluser.usr ( nome do usuario )
controluser.sit ( .t. conectado, .f. desconectado )

quando logar muda pra .t.
quando sair muda pra .f.

no programa, num report voce v todos usuarios com controluser.sit=.t.
ou seja, quem esta conectado

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por mfelis em 16/7/2010, 11:38

[Você precisa estar registrado e conectado para ver este link.] escreveu:quando o usuario entrar

controluser.dbf
controluser.usr ( nome do usuario )
controluser.sit ( .t. conectado, .f. desconectado )

quando logar muda pra .t.
quando sair muda pra .f.

no programa, num report voce v todos usuarios com controluser.sit=.t.
ou seja, quem esta conectado

Legal!!
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Controle de Quem Entra e Sai

Mensagem por mfelis em 16/7/2010, 12:13

Com a ídeia do Nosso Amigo HUGO criei esta classe para o controle de quem entra e sai do sistema:

quando o usuario entrar

controluser.dbf
controluser.usr ( nome do usuario )
controluser.sit ( .t. conectado, .f. desconectado )

quando logar muda pra .t.
quando sair muda pra .f.

no programa, num report voce v todos usuarios com controluser.sit=.t.
ou seja, quem esta conectado.

Link para o Tópico:
Classe - Controle Entra e Sai do Sistema

CLasse:
Código:
Define Class Usuario As Custom


  Function MudaStatusUsuario
      Lparameters Usuario, Status


      Local lMemo, lLinhas, lLinhaAgora, lUsuario, lStatus, lNovaString,;
        lStringAntiga, lStringFinal, lArquivoControl, lStringArquivo, lContador



      lArquivoControl = Sys(5) + Curdir() + "\ControlUser.users"

      lMemo = Set("Memowidth")

      Set Memowidth To 500

      If File(lArquivoControl)
        lStringArquivo  = Filetostr(lArquivoControl)

        lLinhas = Memlines(lStringArquivo)

        For lContador = 1 To lLinhas
            lLinhaAgora = Mline(lStringArquivo,lContador)
            lUsuario = Getwordnum(lLinhaAgora,1,";")
            lStatus = Getwordnum(lLinhaAgora,2,";")

            If Alltrim(lUsuario) = Alltrim(Usuario)
              lNovaString = Alltrim(lUsuario) + ";" + Alltrim(Transform(Status))

              lStringAntiga = Strtran(lStringArquivo,lLinhaAgora,lNovaString)

              lStringFinal = lStringAntiga

              Delete File(lArquivoControl)

              Strtofile(lStringFinal,lArquivoControl)
              Exit
            Else
              If lContador = lLinhas && Se Não Achar insere um novo!
                  lStringArquivo  = Filetostr(lArquivoControl)
                  lStringFinal = lStringArquivo  + Chr(13) + Chr(10) +;
                    Alltrim(Usuario) + ";" + Alltrim(Transform(Status))
                  Strtofile(lStringFinal,lArquivoControl)
              Endif
            Endif
        Endfor
      Else
        lStringFinal = Alltrim(Usuario) + ";" + Alltrim(Transform(Status))
        Strtofile(lStringFinal,lArquivoControl)
      Endif

      Set Memowidth To lMemo
  Endfunc

  Function PegaStatus
      Lparameters Usuario


      Local lMemo, lLinhas, lLinhaAgora, lUsuario, lStatus, lNovaString,;
        lStringAntiga, lStringFinal, lArquivoControl, lStringArquivo, lContador

      lArquivoControl = Sys(5) + Curdir() + "\ControlUser.users"

      lMemo = Set("Memowidth")

      Set Memowidth To 500

      If File(lArquivoControl)
        lStringArquivo  = Filetostr(lArquivoControl)

        lLinhas = Memlines(lStringArquivo)

        For lContador = 1 To lLinhas
            lLinhaAgora = Mline(lStringArquivo,lContador)
            lUsuario = Getwordnum(lLinhaAgora,1,";")
            lStatus = Getwordnum(lLinhaAgora,2,";")

            If Alltrim(lUsuario) = Alltrim(Usuario)
              Return lStatus
            Else
              If lContador = lLinhas
                  Return .F.
              Endif
            Endif
        Endfor
      Endif

      Set Memowidth To lMemo
  Endfunc

Enddefine
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por hugo em 16/7/2010, 12:50

marcos

como sabem sou novo no Visual FP

mais ainda me fica a impressao pra mim de que controlar do jeito
que era no foxpro dos bem mais simples

podem falar um pouco sobre isto

fico impressionado como algo tao pequeno deve ser trocado por algo
tao extenso

valeu


_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por Marcos Guedes em 16/7/2010, 13:05

[Você precisa estar registrado e conectado para ver este link.] escreveu:marcos

como sabem sou novo no Visual FP

mais ainda me fica a impressao pra mim de que controlar do jeito
que era no foxpro dos bem mais simples

podem falar um pouco sobre isto

fico impressionado como algo tao pequeno deve ser trocado por algo
tao extenso

valeu

Não entendi!
Estais se referindo à classe criada pelo Marcelo?
Caso seja, é a melhor maneira de utilização de códigos numa linguagem orientada a objeto pois evita o "reinventar a roda" e facilita no agrupamento de código.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por hugo em 16/7/2010, 13:34

a forma que coloquei fica como um prg e que pode ser
acessado por qualquer form

qual a diferenca?

nao estou falando exatamente da comparacao da forma dos e visual
sei que o opp eh melhor

mais estava querendo que voce realmente analisa-se o que postei
e o que o o mfelis postou

tipo

eh realmente isto

este codigo realmente vai ficar deste tamanho????

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por mfelis em 16/7/2010, 13:52

Se for Utilizar um Arquivo e Não uma Tabela Provalvemente, ficara assim
avatar
mfelis
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por Marcos Guedes em 16/7/2010, 23:45

[Você precisa estar registrado e conectado para ver este link.] escreveu:a forma que coloquei fica como um prg e que pode ser
acessado por qualquer form

qual a diferenca?

nao estou falando exatamente da comparacao da forma dos e visual
sei que o opp eh melhor

mais estava querendo que voce realmente analisa-se o que postei
e o que o o mfelis postou

tipo

eh realmente isto

este codigo realmente vai ficar deste tamanho????
Não vi código seu, mas sim instruções.
Neutral

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Controle de Quem Entra e Sai

Mensagem por Marcos Guedes em 18/10/2010, 10:11

Resolveu, mfelis?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum