Fórum Duvida com tela de LOGIN #182935
18/09/2003
0
Pessoal, aqui esta um pedaço do meu codigo. o que ele faz??? é uma
janela de login onde a pessoa só acesso o sistema se estiver seu nome e
sua senha no banco, ou seja cadastrada. Quero que deem uma olhada e vejam
se isso esta certo.
**************
if dm.tblogin.Locate(´nome´, edit1.text,[])and
dm.tblogin.Locate(´senha´, edit2.text,[])then
begin
MessageDlg(´Bem Vindo: ´+´ < ´+ UpperCase(edit1.text)+ ´ > ´ , mtinformation,
[mbOk], 0);
**************
Não sei porque mas fiz um teste e criei um login
com o nome marta e a senha:12
So que consigo entrar com o login marta e a senha: 1
engraçado, porque isso so da com esse login então eu pensei que pudesse
ser devido a senha começar com o numero 1 mas mesmo assim tentei com
outros logins e não aconteceu isso. Sera que esse código tem bug??
Vcs tem algum codigo mais enxuto???
Obrigado!!!
janela de login onde a pessoa só acesso o sistema se estiver seu nome e
sua senha no banco, ou seja cadastrada. Quero que deem uma olhada e vejam
se isso esta certo.
**************
if dm.tblogin.Locate(´nome´, edit1.text,[])and
dm.tblogin.Locate(´senha´, edit2.text,[])then
begin
MessageDlg(´Bem Vindo: ´+´ < ´+ UpperCase(edit1.text)+ ´ > ´ , mtinformation,
[mbOk], 0);
**************
Não sei porque mas fiz um teste e criei um login
com o nome marta e a senha:12
So que consigo entrar com o login marta e a senha: 1
engraçado, porque isso so da com esse login então eu pensei que pudesse
ser devido a senha começar com o numero 1 mas mesmo assim tentei com
outros logins e não aconteceu isso. Sera que esse código tem bug??
Vcs tem algum codigo mais enxuto???
Obrigado!!!
Jiz/df
Curtir tópico
+ 0
Responder
Posts
18/09/2003
Joilson_gouveia
Vc deve usar apenas um locate:
if dm.tblogin.Locate(´nome´, edit1.text,[]) then
begin
if dm.tblogin.FieldByName(´senha´).AsString = edit2.text then
begin
MessageDlg(´Bem Vindo: ´+´ < ´+ UpperCase(edit1.text)+ ´ > ´ , mtinformation,
[mbOk], 0);
end
else
begin
ShowMessage(´Senha inválida!´);
Application.Terminate;
end;
end
else
begin
ShowMessage(´Usuário não cadastrado!´);
Application.Terminate;
end;
if dm.tblogin.Locate(´nome´, edit1.text,[]) then
begin
if dm.tblogin.FieldByName(´senha´).AsString = edit2.text then
begin
MessageDlg(´Bem Vindo: ´+´ < ´+ UpperCase(edit1.text)+ ´ > ´ , mtinformation,
[mbOk], 0);
end
else
begin
ShowMessage(´Senha inválida!´);
Application.Terminate;
end;
end
else
begin
ShowMessage(´Usuário não cadastrado!´);
Application.Terminate;
end;
Responder
Gostei + 0
18/09/2003
Polastri
dm.tblogin.Locate(´nome´, edit1.text,[])
1º) ele procura o parametro passado no banco, no caso no código ele procura nome.
2º) então compara com o campo e verifica se é igual.
3º) o último [] parâmetro pode ficar em branco mas tem duas funcionaludades:
[lopartialkey] procura uma parte do nome q foi passado
[locaseinsensitive] independente se é maiúscula ou minúscula..
1º) ele procura o parametro passado no banco, no caso no código ele procura nome.
2º) então compara com o campo e verifica se é igual.
3º) o último [] parâmetro pode ficar em branco mas tem duas funcionaludades:
[lopartialkey] procura uma parte do nome q foi passado
[locaseinsensitive] independente se é maiúscula ou minúscula..
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)