Login

17/12/2003

0

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


Milhouse

Milhouse

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar