Controle de Usuario
09/02/2006
0
ola galera tenho um duvida simples nesta rotina de Login abaixo ela funciona mais nao fechar o form de login onde coloco o codigo para fechar a tela login e abrir a de principal..
obrigado e abraços
if (edtUsuario.Text = ´´) then //Verifica se o campo ´usuario´ foi preenchido
begin
Messagedlg(´O campo ´Usuario´ deve ser preenchido!´, mtInformation, [mbOk], 0);
if edtUsuario.CanFocus then
edtUsuario.SetFocus;
Exit;
end;
if (edtSenha.Text = ´´) then //Verifica se o campo ´Senha´ foi preenchido
begin
Messagedlg(´O campo ´Senha´ deve ser preenchido!´, mtInformation, [mbOk], 0);
if edtSenha.CanFocus then
edtSenha.SetFocus;
Exit;
end;
if (frmDm.qrSenhas.Locate(´Usuarios´,edtUsuario.Text,[])) and
(frmDm.qrSenhas.FieldByname(´Senha´).asstring = edtSenha.Text) then
// Application.CreateForm(TfrmMenu, frmMenu) //Cria a janela main
frmMenu.showmodal;
frmLogin.close
else //Caso o login nao seja valido entao
begin
inc(tentativas); //Incrementa em 1 o valor da variavel tentativas
if tentativas < 3 then
begin
MessageDlg(Format(´Tentativa 2 de 3´, [tentativas]), mtError, [mbOk], 0);
if edtSenha.CanFocus then
edtSenha.SetFocus;
end
else
begin
MessageDlg(Format(´3 tentativa de acesso ao sistema.´,
[tentativas]) + #13 + ´A aplicação sera¡ fechada!´, mtError, [mbOk], 0);
Application.Terminate; //Encerra a aplicaÃ?Ã&o
end;
end;
obrigado e abraços
if (edtUsuario.Text = ´´) then //Verifica se o campo ´usuario´ foi preenchido
begin
Messagedlg(´O campo ´Usuario´ deve ser preenchido!´, mtInformation, [mbOk], 0);
if edtUsuario.CanFocus then
edtUsuario.SetFocus;
Exit;
end;
if (edtSenha.Text = ´´) then //Verifica se o campo ´Senha´ foi preenchido
begin
Messagedlg(´O campo ´Senha´ deve ser preenchido!´, mtInformation, [mbOk], 0);
if edtSenha.CanFocus then
edtSenha.SetFocus;
Exit;
end;
if (frmDm.qrSenhas.Locate(´Usuarios´,edtUsuario.Text,[])) and
(frmDm.qrSenhas.FieldByname(´Senha´).asstring = edtSenha.Text) then
// Application.CreateForm(TfrmMenu, frmMenu) //Cria a janela main
frmMenu.showmodal;
frmLogin.close
else //Caso o login nao seja valido entao
begin
inc(tentativas); //Incrementa em 1 o valor da variavel tentativas
if tentativas < 3 then
begin
MessageDlg(Format(´Tentativa 2 de 3´, [tentativas]), mtError, [mbOk], 0);
if edtSenha.CanFocus then
edtSenha.SetFocus;
end
else
begin
MessageDlg(Format(´3 tentativa de acesso ao sistema.´,
[tentativas]) + #13 + ´A aplicação sera¡ fechada!´, mtError, [mbOk], 0);
Application.Terminate; //Encerra a aplicaÃ?Ã&o
end;
end;
Firekiller_am
Curtir tópico
+ 0
Responder
Posts
09/02/2006
Firekiller_am
Begin
frmMenu.showmodal;
frmLogin.close
End
faltou o begin end o tela de login fica por tras e quando eu fecho o principal ai fechar o login..
Responder
09/02/2006
Ramms
coloca no evento OnClose isso
Action := caFree; frmlogin := Nil; // aki vem seu form
Responder
Clique aqui para fazer login e interagir na Comunidade :)