Buscar

Programa Funciona por um periodo

Código

Faça um banco de dados com campos Instal (Date), Periodo(N),Trava(Alfa)(1), No form que inicia do programa digite a sequinte rotina:
procedure TFrm_Login.FormShow(Sender: TObject);
begin
 Dm.Tb_Config.Open;
 Dm.Tb_Config.Edit;
 If Date() - Dm.Tb_ConfigInstal.Value > Dm.Tb_ConfigPeriodo.Value then
  Begin
   ShowMessage('O Prazo de utilização do Sistema Expirou,entre em contato com'#13'o desenvolvedor 8145-9686 - pss.maia@hotmail.com.');
   Dm.Tb_ConfigTrava.Value:='S';
   Dm.Tb_Config.Post;
   Dm.Tb_Config.Close;
   Close;
  end
 Else
  Begin
   If Dm.Tb_ConfigTrava.Value='S' then
    Begin
     ShowMessage('Não adianta mudar a data do sistema, o problema não é esse.');
     Dm.Tb_Config.Close;
     Close;
   end;
end;
end;

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Impressão
Adicionada dia: 29/07/09
Por: Paulo Sérgio Dos Santos Maia
Visualizada: 3282 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009