Login

17/12/2003

1

como q eu coloco login em meu programa ?? só pra entrar no programa mesmo .. naum precisa ser pra diferentes tipos de usuarios naum ....

so pra entrar ...

valeu .... t++++++++


Responder

Posts

17/12/2003

Tnaires

Olá Milhouse

Qdo um sistema possui vários usuários, é comum gravá-los em uma tabela com suas respectivas senhas. Mas, se vc realmente não vai implementar um sistema multi-usuário, vc pode deixar a senha dentro da codificação do programa mesmo. Então vc faz uma tela com um edit (pra senha) com um botão OK, q deve ser mostrada antes do form principal. No clique, basta verificar se a senha digitada é igual à senha definida no programa e pronto!
Seria algo assim:
function VerificarSenha(tentativa: string): boolean;
  var senha: string;
begin
  senha := ´Você define sua senha aki´;
  Result := false;
  if tentativa = senha then
    Result := true;  
end;

No OnClick vc faz o seguinte:
procedure SeuBotaoOnClick(Sender: TObject);
begin
  if VerificarSenha(EditSenha.Text) then
    ShowMessage(´Senha aceita´)
  else
    ShowMessage(´Senha inválida´);
end;

É isso. Mas pense no futuro... será q lá na frente ninguém vai querer q seu programa gerencie mais d um usuário?
Sucesso pra todos nós


Responder