Bloquear O Sistema Por Data

[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

Editado Outubro 5, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[marcio.theis]

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...

[Micheus]

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;

[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!!!

[Micheus]

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