Login +-

[Guest AL]

Boa tarde a todos.

Criei um login com uma series de ifs... tudo funcionando beleza... O passwordDialog abre pelo evento onactivate do form principal e só fecha se o user acertar a senha ou cancelar , o que fecha tambem a aplicação...

Fui usar o mesmo código em um outro aplicativo em não tem jeito ... não importa se o user digite errado... parece que sai dos ifs e fecha o dialog com o aplicativo ficando aberto...

Não iria colocar um tópico destes mas já perdi muito tempo...

Este codigo esta (com os ifs) no botão ok do passwordDialog

VAR

Digi:string;// variavel local para pegar user invalido e mostyrar em msg erro

begin

USER:=''; // variavel global

digi:=edit1.Text;

datamodule3.ZTable1.First;

datamodule3.ZTable1.Locate('usuario',passwordDlg.Edit1.text,[Locaseinsensitive]);

user:=datamodule3.Ztable1usuario.value;

if edit1.text='' then begin // se não foi digitado user

showmessage('Informe Usuario')

end else

if edit1.text<>datamodule3.ztable1usuario.value then begin// se user não cadastrado

showmessage ('Usuário não cadastrado'+ ':'+ digi);

edit1.text:=''

end else

if password.text='' then begin // se falta password

showmessage('Informe senha')

end else

if password.text<>datamodule3.zTable1senha.value then begin//se psswrd errada

showmessage ('Senha incorreta');

password.text:=''

end else// SE TUDO CERTO (confere com valores table user/senha) configura ,fecha dialog e inicia aplicativo

if password.text=datamodule3.zTable1senha.value then begin

if edit1.text=datamodule3.ztable1usuario.value then begin

datamodule3.zTable1.Locate('usuario',passwordDlg.Edit1.text,[Locaseinsensitive]);

form1.bitbtn2.visible:=strtobool(datamodule3.zTable1t1.Value);

form1.bitbtn2.Enabled:=strtobool(datamodule3.zTable1t1.Value);

password.text:='';// apaga password

edit1.text:='';

passworddlg.Close;

end;

end;

end;

[Guest AL]

Parece piada ...mesmo quando tiro o comando "passworddlg.close" após o testes if ele fecha assim mesmo....