Data do windows como controlar?
Boa noite pessoal sou novo no fórum
pessoal preciso verificar no delphi se a data do windows foi alterada, tenho um sistema que controla a hora de entrada e saída de funcionários tem como fazer uma rotina pra saber se a hora e a data do windows foi alterada? ou algo pra evitar que os funcionários manipulem a hora quando chegar atrasado?
pessoal preciso verificar no delphi se a data do windows foi alterada, tenho um sistema que controla a hora de entrada e saída de funcionários tem como fazer uma rotina pra saber se a hora e a data do windows foi alterada? ou algo pra evitar que os funcionários manipulem a hora quando chegar atrasado?
Joao_arthur
Curtidas 0
Respostas
Joao_arthur
10/12/2007
up..
GOSTEI 0
Educacau
10/12/2007
Não seria melhor vc pegar a hora do servidor do BD?
GOSTEI 0
Joao_arthur
10/12/2007
é seria uma alternativa...havia pensado nisso já
GOSTEI 0
Aldus
10/12/2007
Ola Joao,
eu uso dessa forma mencionada pelo amigo educacau, em que pego a data do servidor e a mantenho em uma variável global, em todo o sistema me refiro a data atual, não como Date mas por essa variável.
Mas lembre-se somente funciona se o usuário não ter acesso ao servidor.
Vc deve inserir um sqldataset e um clientdataset ao seu datamodule, aí no início de sua aplicação.
Espero tê-lo ajudado.
abraço
eu uso dessa forma mencionada pelo amigo educacau, em que pego a data do servidor e a mantenho em uma variável global, em todo o sistema me refiro a data atual, não como Date mas por essa variável.
Mas lembre-se somente funciona se o usuário não ter acesso ao servidor.
Vc deve inserir um sqldataset e um clientdataset ao seu datamodule, aí no início de sua aplicação.
datamodule.sql_dataserver.CommandText := ´Select Current_Date as dServer from RDB$Database´;
datamodule.cds_dataserver.Open ;
DataSistema := dm.cds_dataserver.fieldbyname(´dServer´).AsDateTime ;
Espero tê-lo ajudado.
abraço
GOSTEI 0
Joao_arthur
10/12/2007
valeu pessoal acho que vou fazer pegando a hora do servidor mesmo por enquanto ta rodando local mas o sistema de ponto vai ficar em uma estação...grato.
GOSTEI 0