[Resolvido]Ajuda com formulário que abra uma vez na instalação do programa

Bom dia companheiros,

Tudo bem com os senhores? Suas famílias vão bem? Deus os abençoe sempre.

Venho mais uma vez solicitar ajuda.

Estou com o seguinte problema:

para abertura do sistema que estou desenvolvendo, criei um form e adaptei a seguinte função desenvolvida pelo companheiro JPaulo.

Private Sub cmdValidar_Click()
'By JPaulo ® Maximo Access
Dim sTemp As String
'abre na memoria o ficheiro de texto atraves da função existente no modulo modC
Open Serial For Input As #1

Do While Not EOF(1)
Line Input #1, sTemp$
'percorre as linhas do ficheiro de texto
If Left$(sTemp$, Len(txtpassword)) = txtpassword Then Exit Do
Loop

Close #1
If sTemp$ = txtpassword Then
lblDescrição.Caption = sTemp$ & " Serial Válido!"
Me.txtpassword.Value = ""
DoCmd.Close acForm, "frmSegurança"
DoCmd.OpenForm "frmProgresso", acNormal, "", "", , acNormal
Else
MsgBox "Password inválida", vbCritical
lblDescrição.Caption = ""
Me.txtpassword.Value = ""

End If
End Sub

Criei outro form com uma barra de Progresso que abre o form de Login que é o login principal do Sistema. Foi uma forma que encontrei para dar mais segurança ao sistema.

O que preciso é o seguinte, e já pesquisei mais como ainda estou aprendendo, preciso de ajuda.

Preciso que após instalar o Sistema. O Cliente ao entrar no Sistema pela primeira vez, a form com a Senha ou Serial abra primeiro, quando o Cliente, validar a senha ou serial, abre o form barprogresse e por fim o form Login.

Mais gostaria que o form form para digitar a senha ou serial só abra essa vez...

Tem como fazer isso? Algum de vocês conhecem ou pode me ajudar?

Desde já agradeço pela riquíssima atenção de todos.

Brother,


Essa situação vi no exemplo front Pedidos.mdb, se não me engano com o back NorthWind, fazendo todo o processo no evento ao carregar o form inicial.

Bem, é simples.

Vc cria um campo tipo FALSE/TRUE no seu form Login ou inicial.

Em seguida, no evento AoCarregar, coloque um code para verificar o status desse campo do tipo:

Se false, abre o form login para o usuário entrar com a senha:

Se true, o form login é ignorado ou fechado e abre o form menu ou principal;


Em seguinda, no evento AposAtualizar do campo senha, coloque um procidimento do tipo:


Se senha correta, o campo fica true, fecha o form login e abre form principal ou menu, sendo que isso só ocorre uma vez;


Se senha incorreta, o campo permanece false, e ai o usuário tenta novamente ou sai e fecha o login.


Vou tentar achar esse exemplo com o code.


Abraços,

Boa noite Cleverson,

Obrigado pela dica, vou dar uma pesquisada.

Desde já, agradeço pela atenção.

Deus te abençoe junto a sua casa..

Brother,

Abaixo a figura do Form Inicial e o code apenas para exemplificar, observe somente parte de validade do form Login de acordo com seu status, de false ou true.



O nome do campo False/True é OcultarFormularioInicial.


Abraços

Código:


Option Compare Database  ' Usa ordem do banco de dados em comparações de seqüências.
Option Explicit          ' Requer que as variáveis sejam declaradas antes de serem usadas.


Private Sub Form_Load()
' Verifica os vínculos às tabelas do banco de dados Northwind.
' Além disso, pula para o formulário Pedidos se o usuário optou
' por não ver o formulário Inicial novamente.
' Obs: Você pode optar por exibir novamente o formulário
' Inicial executando o procedimento ExibirInicial.

    ' Oculta as barras de ferramentas Banco de Dados e
    ' Barra de Ferramentas Formulário Pedidos.
    DoCmd.ShowToolbar "Database", acToolbarNo
    DoCmd.ShowToolbar "Barra de Ferramentas Formulário Pedidos", acToolbarNo

    On Error GoTo Form_Load_Erro

    Dim dbs As Database
    Dim doc As Document
    Dim prp As Property

    Const conPropriedadeNãoEncontrada = 3270

    ' Verifica se o Northwind está disponível.
    If VerificarVínculos() = False Then
       
        ' Tenta revincular as tabelas; se isso falhar, sai.
        If RevincularTabelas() = False Then
            DoCmd.Close acForm, "Inicial"
            DoCmd.ShowToolbar "Database", acToolbarWhereApprop
            CloseCurrentDatabase
        End If
    End If
   
    ' Se o usuário desativou anteriormente o formulário inicial,
    ' fecha o formulário e vai diretamente para o formulário Pedidos.
    Set dbs = CurrentDb
    Set doc = dbs.Containers("Databases")!UserDefined
    If doc.Properties!ExibirFormulárioInicial = False Then    'CHECAR###
        Me!OcultarFormulárioInicial = True
        If gMostrarInicialChamado = True Then Exit Sub
        DoCmd.Close acForm, "Inicial"
        DoCmd.OpenForm "Pedidos", , , , acAdd
        MostrarAPIAjuda
        DoCmd.ShowToolbar "Database", acToolbarWhereApprop
    Else
        Me!OcultarFormulárioInicial = False
        ' Se o formulário Inicial não foi aberto a partir do procedimento
        ' ExibirInicial, o formulário Pedidos passa a ser aberto como oculto para
        ' aumentar sua velocidade de exibição quando o formulário Inicial for fechado.
        If gMostrarInicialChamado <> True Then
            DoCmd.OpenForm "Pedidos", , , , acAdd, acHidden
        End If
    End If
   
    ' Se o banco de dados é somente para leitura, desativa a caixa de
    ' seleção OcultarFormulárioInicial.
    If CurrentDb.Updatable = False Then
        OcultarFormulárioInicial.Enabled = False
    End If

Form_Load_Sair:
    Exit Sub

Form_Load_Erro:
    ' Cria a propriedade ExibirFormulárioInicial se ela não estiver lá.
    If Err = conPropriedadeNãoEncontrada And CurrentDb.Updatable Then
        Set prp = doc.CreateProperty("ExibirFormulárioInicial", dbBoolean, True)
        doc.Properties.Append prp
        Resume
    Else
        MsgBox Err.Description, vbCritical
        CloseCurrentDatabase
        Resume Form_Load_Sair
    End If
End Sub

veja se este exemplo do mestre avelino lhe ajuda.

https://www.dropbox.com/s/1wyn585gnfdeard/maestro.zip?dl=0

Bom dia companheiros,

Obrigado mesmo pela ajuda. Vou estudar aqui uma forma de adaptar e lhes dou retorno.

Vocês são feras.... Deus continue os abençoando...

Boa tarde Amigos,

Senhores, estudei aqui as informações que me enviaram, quebrei a cabeça, mais infelizmente não consegui resolver o problema que apresentei.

Na realidade, sou iniciante, pois havia começado um curso intensivo de VB e Outras Línguas, mais por motivos maiores tive que parar e agora estou retornando. Pois é algo que gosto da área de programação. Confio que vou poder ajudar outros colegas e contribuir com vocês ai no Fórum e outros que poder também... Sei que no passo do gado chego lá!

Segue link com as telas do BD, não é o original pois ficou muito pesado ao compactar. Mais da pra ter uma ideia....

O Script e o Módulo foi desenvolvido por JPaulo. Apenas estou pegando a Ideia dele para dai da mais segurança aos aplicativos que vou desenvolver quando concluir o Curso.

https://www.dropbox.com/s/tvuu1ki1qyhli7z/TesteCX.rar?dl=0

A ideia principal é que após haver a instalação do Aplicativo, ao clicar no ícone do aplicativo a primeira tela que seja aberta seja a de digitar o Serial ou Senha. Só que essa tela só precisa aparecer essa vez. Assim evita do usuário ter que ficar digitando.

Aparenta não ser difícil para quem sabe, porém, pra mim que estou aprendendo. Mas eu chego lá...

Desde já agradeço a quem poder me ajudar nessa empreitada.

Francisco

Peguei o teu exemplo e o modifiquei.

Eu "criei" um outro formulário de nome: frm_Seg_Noob
Fiz isso para não te confundir.

Funciona assim:

Quando se inicia o aplicativo na primeira vez, a macro autoexec executa  a função ValidaSerial().
Essa função verifica se já existe registros na tblSerial, ou seja, se já foi colocado um serial nela.
Se sim, foi colocado um serial, abre o formulário de Login

Caso contrario, abre o formulário frm_Seg_Noob

Veja que a coisa é bem simples, não precisamos complicar.

Para testar, abra o teu exemplo sem apertar a tecla shift. assim já verá o funcionamento,
O serial é : 123456
Eu deixo pra você decidir como guardará o serial para comparação com o que será digitado pelo  usuário.

[ ]'s

Down do arquivo

Moço, cê é fera.... Um dia chego pelo menos a metade do que tu sabe.

Agora me deu a luz assim que concluir disponibilizo pra vocês avaliarem e dar opinião...

Mais uma vez fico grato a todos

Que bom que gostou !

Só faltou o Resolvido no título do tópico.

Boa sorte !

Fera, se não for pedir demais ou abusar da sua boa vontade, queria pedir sua opinião.

O Exemplo que passei construído pelo JPaulo, ao abrir o Sistema, a pessoa digita pela primeira vez a Senha para comparar com a ou a Senhas que contém num arquivo .txt

Quando digito um serial por exemplo, ele compara com o que está digitado no Serial.txt dentro de uma pasta. Caso o Serial não seja o mesmo que está no Arquivo, mostra a mensagem serial inválido.

A tabela serial fiz pra dar um exemplo... Mais ao digitar o Serial e Validar, automaticamente verificar se coincide com o Serial já existente no arquivo Serial.txt

Achei bem interessante pra utilizar e evitar copias sem autorização do Sistema. Ajuda bastante...

O que você me passou grava o serial na Tabela...

O Seu ficou muito bom também. Mais gostaria de utilizar essa outra forma de verificação do Serial.

O que você acha? Pode me ajudar?

Desde já agradeço mais uma vez.

Função do Módulo C

Public Function Serial()
'By JPaulo ® Maximo Access
Serial = "C:\ConfCX\Codificação\Serial.txt"
End Function

Poh, Noobezinho vc é muito rápido no gatilho.!


Não tive a mínima chance de concluir aqui, kkkkkkk!!!!!!


Abraços,

Cleverson

E eu ainda relutei em fazer um exemplo.
Ah, depois que disponibilizei, vi que tinha um erro,
tiver que refazer toda a operação.  

Francisco

Senha ou seriais em arquivo texto, não sou fã disso.
Não quero menosprezar a solução do JPaulo, mas
prefiro outro expediente.

Veja que escrevi:
"Eu deixo pra você decidir como guardará o serial para comparação com o que será digitado pelo  usuário."

Não confunda o local que guardará o serial da aplicação, definido por você
com o número digitado pelo usuário, que se coincidir com o teu serial , será gravado na tabela.

Portanto, a tabela é pra guardar ou salvar o serial que o usuário já digitou e coincidiu com o serial que você definiu.

Quer um local seguro para guardar e esconder o serial?
Utilize as propriedades do aplicativo.
Se tiver interesse nisso, eu disponibizo o código para criar
essa propriedade.
Uma vez criada, podemos comparar, mudar, deletar o valor dessa propriedade,
que só será acessível se souber o nome dela.
Na realidade, nem precisa de tabela, da pra criar duas propriedades, uma para o serial e outra para um status,
de validação do aplicativo.
[ ]'s

Cara compreendo, desculpa a minha ingenuidade de aprendiz.

Pode ser, se você disponibilizar coloco segunda sua opinião que concordo é acertada. Pena que não sei fazer o negócio!

Você poderia me enviar pra mim usar nesse Sistema?

Mais fico grato, você vai gostar do Sistema... Quando terminar aqui envio

Noobezinho,


O arquivo postado, é a versão corrigida?

Não que queira passar a impressão de preguiçoso!

Tenho um biblioteca/coletânea com arquivos disponibilizados por mestres, tipo vc!


Abraços,

Cleverson

Nada de mestre, sou um eterno aprendiz.
Esse postado está funcional.
Analisando, entenderá o que escrevi
nos posts anteriores.


Francisco

Vou modificar o arquivo que disponibilizei.

Aguardem a modificação, vou fazer usando
as propriedades do aplicativo.

Farei isso amanha, tá na hora do veinho ir pro berço.



[ ]'s

Amigos

Como prometido, aqui está o exemplo de
como criar e usar as propriedades do aplicativo
para guardar dados.

Leia as instruções em verde de como definir e utilizar as propriedades.

Façam testes para dominar a técnica.
Nesse exemplo, as duas propriedade já foram definidas, conforme explico no exemplo.

[ ]'s

Download do aplicativo

Obrigado Nobezinho, pelo apoio. Na realidade só falta isso para empacotar o aplicativo. E apresentar como fechamento do Curso...

Vou testar e te dou retorno pra fecharmos o tópico...

Abraço,

Olha, vou concluir por aqui.

Agradeço ao Nobezinho, ao Cleverson e todos que fazem o MaximoAccess pela atenção dispensada.

Sempre que preciso vocês me ajudam...

Não consegui fazer aqui o que estava querendo. Por enquanto vou deixar de lado, para não perder muito tempo.

Como já tenho o Login e senha para a usuário acessar o Sistema vou conferir as demais coisas e empacotar o Sistema.

Na realidade estou começando uma empresa na área de consultoria em informática e estou estudando para desenvolver alguns aplicativos que pretendo trabalhar e colocar no mercado. Esse é um que faz parte do Projeto...

Apesar de não ter muito conhecimento, com Access e VB. Conheço outras linguagens, mais aos poucos chego lá.

Obrigado amigos...

Francisco

Se quiser, envie o teu aplicativo, parte dele que vc possa copiar e colar.

Se não quiser,


Boa sorte no teu empreendimento.

Boa tarde Amigos

Noob

Pode converter para 2007 ?

Obrigado

Assis

Não roda no A2007?

Experimente criar a propriedade, qualquer propriedade
Use um nome qualquer .

Aguardo...

Boa tarde Nobezinho,

Por gentileza me informe seu e-mail ou me de o toque pelo meu mesmo. cjsilvapf@gmail.com

Que te envio pra você dar uma verificada, antes de empacotar... O arquivo ficou grande...

Se consegui-se validar o Sistema pelo Serial seria bom, não só pra mim mais pra outros companheiros também. Hoje, já foram desenvolvidas ferramentas que quebram banco, mostram senhas e aí vai...

Grande Abraço