Array
(
)

Controle de Usuario

Firekiller_am
   - 09 fev 2006

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
   - 09 fev 2006


Citação:

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..


Ramms
   - 09 fev 2006

coloca no evento OnClose isso

#Código

Action := caFree;
frmlogin := Nil; // aki vem seu form