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;


Firekiller_am

Firekiller_am

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar