Senha e usuario

Question

Ola pessoal estou querendo colocar senha e usuario em uma pequena aplica��o..eu tenho o seguinte codigoprocedure TForm1.FormCreate(Sender: TObject);Varusuario: string[6];senha: string[6];begin usuario...

Lindomar.des · Answer

maf_arthur, tente assimprocedure TForm1.FormCreate(Sender: TObject); Var usuario: string[6]; senha: string[6]; begin usuario := inputbox(�Area Restrita�,�Digite o Usu�rio�,��); if usuario<>�MASTER� then SHOWMESSAGE(�Usu�rio Incorreto�); senha := inputbox(�Acesso�,�Digite a Senha de Acesso�,��); if senha<>�123456� then begin SHOWMESSAGE(�SENHA INCORRETA�); halt; end; end;...

Marco Salles · Answer

Alem de begin end colocados de forma equivocada , o que acarreta erro de sintaxi eu n�o entendi o porque das instru�oes

if (usuario<>�MASTER�)and (usuario<>�MASTER�) then 

e 

if (senha<>�123456�)and(senha<>�123456�) then

me parece reduntante , ja que

if (usuario<>�MASTER�)and (usuario<>�MASTER�) then =
if (usuario<>�MASTER�) then 

if (senha<>�123456�)and(senha<>�123456�) then =
if (senha<>�123456�) then

pois bem , mais ou ou menos dentro do seu raciocineo

procedure TForm1.FormCreate(Sender: TObject);
Var
usuario: string[6];
senha: string[6];
begin
usuario := inputbox(�Area Restrita�,�Digite o Usu�rio�,��);
if (usuario<>�MASTER�)then
  begin
    SHOWMESSAGE(�Usu�rio Incorreto�);
    application.Terminate;
  end
else
    begin
      senha := inputbox(�Acesso�,�Digite a Senha de Acesso�,��);
      if (senha<>�123456�) then
        begin
         SHOWMESSAGE(�SENHA INCORRETA�);
         application.Terminate;
        end;
    end;
end;

Aroldo Zanela · Answer

Colega,O objetivo de criar um formul�rio de �login� � identificar e autenticar um usu�rio do sistema. A partir do momento que a senha fica exposta, essa rotina n�o atinge o objetivo. Desta forma, o uso da fun��o [b:faa3276bb4]InputBox [/b:faa3276bb4]descaracteriza toda o esfor�o neste sentido. (Salve o caso de voc� ter implementado um clone com as devidas modifica��es).Os pacotes RxLib e JediVCL possuem componentes de autentica��o especificamente projetados, entre outras coisas. Voc� poder� encontr�-los em www.torry.net para a sua vers�o do Delphi....

Maf_arthur · Answer

Oi amigos bom dia olhe so funcionou tudo blz..obrigadu a todos vlwa dica vlw mesmo...abra�o a todos...

Marco Salles · Answer

[quote:c957a5cdab] A partir do momento que a senha fica exposta, essa rotina n�o atinge o objetivo. [/quote:c957a5cdab]isto � verdade Aroldo[quote:c957a5cdab]Os pacotes RxLib e JediVCL possuem componentes de autentica��o especificamente projetados, entre outras coisas. Voc� poder� encontr�-los em www.torry.net para a sua vers�o do Delphi.[/quote:c957a5cdab]N�o precisa ir t�o longe.. Basta dar uma olha nesse t�picop , postado por voce mesmo Aroldo .//forum.devmedia.com.br/viewtopic.php?t=5136&highlight=senha&sid=f38354354af910dc1522025d1552aaa5...

F�rum Senha e usuario #325392