Login
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++++++++
so pra entrar ...
valeu .... t++++++++
Milhouse
Curtidas 0
Respostas
Tnaires
17/12/2003
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:
No OnClick vc faz o seguinte:
É 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
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
GOSTEI 0