Jump to content
Fórum Script Brasil
  • 0

Bloquear O Sistema Por Data


Guest Walter Gazzarrini Neto

Question

Guest Walter Gazzarrini Neto

Olá,Boa Noite!!!

Eu estou desenvolvendo um sistema em delphi para bicicletaria, porém gostaria que em uma determinada data entrasse uma tela que pedisse uma senha ou não seria possível logar no programa.

Eu fiz da seguinte forma:

if date=strtodate('04/10/2007') then
begin
     dm.ZTLogin.edit;
     dm.ZTLogin.FieldByName('Senha_login').Value:='senha';
     dm.ZTLogin.post;
     
     formbs:=tformbs.Create(Application);//chama form bloquear sistema o que pede a senha!!!
     formbs.Showmodal;
end
else
    if formlogin = NIL then  //cria o form se ele não foi criado ainda
        formlogin := Tformlogin.Create ( Application ); //cria o form login caso não seje a data estipulada na estrutura acima
    formlogin.Show; //exibe o formulário

end;

Notem que utilizo a data do sistema e uma data fixa como referência, o que faz com que se o usuário simplismente mudar a data do sistema ele não funcionará mais,e outra esse código faz com que a senha:('senha') seje a mesma durante o dia 04/10/2007 inteiro, sendo que gostaria que essa tela pedindo a senha aparecesse uma unica vez, mas se vocês me ajudare só com o problema da Data já estou muito grato,conto com vocês,obrigado a todos!!!

DELPHI a style life

Edited by Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Você poderia fazer um controle sobre a data do sistema, sendo que quando acessar o programa você armazena a data do sistema, quando for logar novamente, se a data do sistema for inferior a última armazenada, gera mensagem informando e bloqueia o sistema, desta forma não adianta retroceder a data, pois você vai ter armazenado no seu sistema qual foi o último acesso, onde que somente com data igual ou superior se pode acessar...

Link to comment
Share on other sites

  • 0

Walter Gazzarrini Neto, enquanto editava seu post notei que, para o que você pretende, tem uma coisa que não está legal:

- "if date=strtodate('04/10/2007') then" => você deve verificar se a data é <=, caso contrário, apenas naquele dia será pedido a senha, no demais não;

Link to comment
Share on other sites

  • 0
Guest Walter Gazzarrini Neto

Como eu poderia estar fazendo isso de pegar a data anterior????

Eu precisava bloquear caso ele adiantasse o relógio também!!!!!!!!!!!!!

obs:eu trabalho com mysql!!!

Obrigado!!!

Link to comment
Share on other sites

  • 0
Como eu poderia estar fazendo isso de pegar a data anterior????

Eu precisava bloquear caso ele adiantasse o relógio também!!!!!!!!!!!!!

obs:eu trabalho com mysql!!!

Este é um assunto, de certo modo polêmico, porque é difícil fechar todas as possibilidades.

Dê uma lida neste tópico (ref. ActiveDelphi) - há algumas sugestões lá (eu mesmo dei a minha).

p.s. você deve utilizar uma resolução de vídeo bem alta, não?! porque essas letras em tamanho 4 ficam gigantes na minha tela. :D

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...