QUEM ESTA NO SISTEMA X EXISTE ALGUMA TELA ABERTA

HUBER.FABIO 14/08/2009 10:04:52
#319850
Amigos, ai vai duas dúvidas em um único tópico !

Estou fazendo uma rotina para backup do sistema e para isso gostaria de saber se existe uma rotina para verificar se existe algum usuário em algum terminal por exemplo usando o sistema para que eu possa pedir para sair e também se existe uma rotina para verificar se tem alguma tela em aberta pois só gostaria de executar se todas estiverem devidamente fechada !
TECLA 14/08/2009 10:11:21
#319851
Quantidade de telas abertas
MsgBox Forms.Count


Fechar todas as telas abertas
[txt-color=#0B615E][ô]De preferência, no evento UNLOAD do FORM principal[/txt-color]
Dim f As Byte
f = Forms.Count
Do While f > 0
   Unload Forms(f - 1)
   If f = Forms.Count Then Exit Do
   f = f - 1
Loop
ROBIU 14/08/2009 10:11:50
#319852
Voce pode criar uma tabela com os campos Usuario, Status. Toda vez que o usuário entrar no sistema marca o status como ativo ou true, quando sair, inativo.
Aí é só acessar essa tabela e vê os ativos ou false. Para que o usuário esteja em uma tela, ele vai está no sistema e vai está ativo ou true, então esta verificação não seria necessário.
Tópico encerrado , respostas não são mais permitidas
Voltar