Fórum senha mensal para usuários #222460

Estou querendo fazer uma rotina na qual todo mes o usuario tem que me pedir uma senha(licença de uso)
para o sistema poder rodar. Isso serve para o aluguel do sistema ao inves de sua venda.
o problema é que o codigo que fis nao funcionou muito bem , pois nas minhas viagens eu
presumi que o codigo de saida(de um sistema que criei para gerar tal senha), teria que conversar
com o codigo de entrada(do sistema que o cliente está usando)....
nao deu muito certo o meu código, nao sei por que, se alguem se dispuser em me ajudar
agradecerei...

1) Qual a finalidade? Seria como um vencimento de licença ?
R: Sim é justamente isso, seria o vencimento mensal do direito de uso do sistema, isso para que eu possa aluga-lo ao invez de vende-lo...

2) Codigo de saída do sistema e codigo de entrada do sistema? o que seria isso?
R: seria +- assim, só nao funcionou :cry: :
---------------------------------------------------------------------
Codigo de saida (meu sistema que a senha que vai p/ cliente)
---------------------------------------------------------------------
procedure TPrincipal.BtnGerarClick(Sender: TObject);
var
// variaveis responsaveis pela soma da data
d,m,y : word;
i,j : byte;
Data : TDateTime;
Soma :Double;
begin
//gera senha e salva na tabela
for j := 1 to 1 do begin
Data := Date + (30 * j);
DecodeDate(Data,y,m,d);
Soma := (Data*(y * m * d))/1.5;
Edit_Senha.text := FloatToStr(Soma);
Tbl_Clientes.Edit;
Tbl_Clientes.FieldByname(´Senha´).AsString := Edit_Senha.text;
end;

//gera prazo de validade da senha e salva na tabela
for i := 1 to 1 do begin
Data := Date + (30 * i);
DecodeDate(Data,y,m,d);
Tbl_Clientes.FieldByName(´Prazo de Validade´).AsString := DateToStr(Data);
end;
Tbl_Clientes.Post;
end;

---------------------------------------------------------------------
Codigo de Entrada (sistema do cliente que vai receber o codigo de saida)
---------------------------------------------------------------------

procedure TSplash.BtnValidarClick(Sender: TObject);
var
// variaveis responsaveis pela soma da data
d,m,y : word;
i,j : byte;
Data, Data1 : TDateTime;
Soma :Double;

begin
//gera uma validade de um dia para o usuario testar o sistema
if Edit_validar.Text = ´TESTE´ then
begin
for i := 1 to 1 do
begin
Data1 := Date + (1 * i);
DecodeDate(Data1,y,m,d);
Tbl_Validar.Edit;
Tbl_Validar.FieldByName(´Prazo de Validade´).AsString := DateToStr(Data1);
Tbl_Validar.FieldByName(´Senha´).AsString := ´TESTE´;
end;
Tbl_Validar.Post;
Label5.Caption := Tbl_Validar.FieldByName(´Prazo de Validade´).AsString ;
Label4.Visible := False;
Edit_validar.Visible := False;
Button2.Visible := False;
Seta.visible := False;
Button1.Visible := True;
Edit_Usu.SetFocus;
end
else begin

//recebe a senha de saida do meu sistema, salva na tabela e valida para + um mes de uso do sistema
for j := 1 to 1 do
begin
Data := Date + (30 * j);
DecodeDate(Data,y,m,d);
Soma := (Data*(y * m * d))/1.5;
end;
if Edit_validar.text = FloatToStr(Soma) then
begin
//for i := 1 to 1 do begin
//Data30 := Date + (30 * i);
//DecodeDate(Data,y,m,d);
Tbl_Validar.Edit;
Tbl_Validar.FieldByName(´Prazo de Validade´).AsString := DateToStr(Data);
Tbl_Validar.FieldByName(´Senha´).AsString := Edit_Validar.text;
Tbl_Validar.Post;
Label5.caption := Tbl_Validar.FieldByName(´Prazo de Validade´).AsString;
Seta.Visible := False;
Button1.Visible := True;
MessageDlg(´O Sistem foi liberado para uso até o dia:´ + Label5.caption, mtConfirmation, [mbOK], 0);
Label4.Visible := False;
Edit_validar.Visible := False;
Button2.Visible := False;
//end;
Edit_Usu.SetFocus;
end
else begin
MessageDlg(´Senha Incorreta!!!´, mtError, [mbOK], 0);
Edit_validar.Clear;
Edit_validar.SetFocus;
end;


end;

end;