Senha e usuario

Delphi

15/07/2006

Ola pessoal estou querendo colocar senha e usuario em uma pequena aplicação..
eu tenho o seguinte codigo
procedure TForm1.FormCreate(Sender: TObject);
Var
usuario: string[6];
senha: string[6];
begin
usuario := inputbox(´Area Restrita´,´Digite o Usuário´,´´);
if (usuario<>´MASTER´)and (usuario<>´MASTER´) then
begin
SHOWMESSAGE(´Usuário Incorreto´);
begin
senha := inputbox(´Acesso´,´Digite a Senha de Acesso´,´´);
if (senha<>´123456´)and(senha<>´123456´) then
begin
SHOWMESSAGE(´SENHA INCORRETA´);
halt;
end;

Ai esta pedindo USUARIO E SENHA..so que não vai dar um erro na hora de copilar
o seguinte erro
[Error] Unit1.pas(126): Statement expected but ´PROCEDURE´ found
alguem pode mim ajudar


Maf_arthur

Maf_arthur

Curtidas 0

Respostas

Lindomar.des

Lindomar.des

15/07/2006

maf_arthur,

tente assim

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
SHOWMESSAGE(´Usuário Incorreto´);
senha := inputbox(´Acesso´,´Digite a Senha de Acesso´,´´);
if senha<>´123456´ then
begin
SHOWMESSAGE(´SENHA INCORRETA´);
halt;
end;
end;


GOSTEI 0
Marco Salles

Marco Salles

15/07/2006

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;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/07/2006

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.


GOSTEI 0
Maf_arthur

Maf_arthur

15/07/2006

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


GOSTEI 0
Marco Salles

Marco Salles

15/07/2006

A partir do momento que a senha fica exposta, essa rotina não atinge o objetivo.


isto é verdade Aroldo

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.


Não precisa ir tão longe.. Basta dar uma olha nesse tópicop , postado por voce mesmo Aroldo .

http://forum.devmedia.com.br/viewtopic.php?t=5136&highlight=senha&sid=f38354354af910dc1522025d1552aaa5


GOSTEI 0
POSTAR