Programa sumiu da barra de tarefas depois de fazer o login

Delphi

01/06/2015

Boa Noite,

Estou desenvolvendo um Sistema de gerenciamento de salão de beleza e estetica, adicionei ao programa um form de login com as seguintes configurações .
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-203808.jpg[/img]

Dois Button , o onclick do botão entrar o código 
procedure TFormlogin.BitBtn2Click(Sender: TObject);
begin
  QueryLogin.Close;
 QueryLogin.SQL.Text := 'SELECT * FROM login WHERE Login = "'+edtLogin.Text+'" and Senha = "'+editsenha.Text+'"';

  QueryLogin.Open;


  if QueryLogin.RecordCount > 0 then
  begin
    Form1.Show;
    Formlogin.Visible := False;
  end
else
begin
 Application.MessageBox('USUÁRIO OU SENHA INCORRETOS ','ERRO AO ENTRAR NO SISTEMA', MB_OK+MB_ICONINFORMATION);
 edtLogin.Clear;
 editsenha.Clear;
  edtLogin.SetFocus;
end;

end;



Na hora de fazer o login ele aparece


depois do login ele some da barra de tarefas e continua em execução
[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150601-204607.jpg[/img]
Maycon

Maycon

Curtidas 0

Respostas

Maycon

Maycon

01/06/2015

Até o momento sem solução :3
GOSTEI 0
Maycon

Maycon

01/06/2015

RESOLVIDO ! Graças a Deus , quem quizer ver em video creditos ao Professor Neri


[url:descricao=Chamando aplicação importante Delphi]https://www.youtube.com/watch?v=0le4mpdlo9c[/url]


Os meus códigos acima estão certos eu só não tinha implementado o código na fonte do projeto antes do Run.

A maneira que eu fiz foi a seguinte

[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150602-183355.jpg[/img]



Adicione a variável usuários debaixo do {$R *.res}

Usuariós é o nome da variavel e o TFormlogin e o formulario que está para o usuario digitar login e senha para poder acessar o sistema.


{$R *.res} var usuarios : TFormlogin;


Vai ate o final do código e apage 
  Application.Run;


[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150602-183817.jpg[/img]






Adicione o código a seguir no final,no lugar do aplication.run
usuarios:= TFormlogin.Create(Nil);
  if usuarios.ShowModal = 1 then
  begin
    usuarios.Free;
  Application.Run;

  end
  else
  begin
    usuarios.Free;
  end;
GOSTEI 0
Maycon

Maycon

01/06/2015

RESOLVIDO ! Graças a Deus , quem quizer ver em video creditos ao Professor Neri


[url:descricao=Chamando aplicação importante Delphi]https://www.youtube.com/watch?v=0le4mpdlo9c[/url]


Os meus códigos acima estão certos eu só não tinha implementado o código na fonte do projeto antes do Run.

A maneira que eu fiz foi a seguinte

[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150602-183355.jpg[/img]



Adicione a variável usuários debaixo do {$R *.res}

Usuariós é o nome da variavel e o TFormlogin e o formulario que está para o usuario digitar login e senha para poder acessar o sistema.


{$R *.res} var usuarios : TFormlogin;


Vai ate o final do código e apage 
  Application.Run;


[img]http://arquivo.devmedia.com.br/forum/imagem/431723-20150602-183817.jpg[/img]






Adicione o código a seguir no final,no lugar do aplication.run
usuarios:= TFormlogin.Create(Nil);
  if usuarios.ShowModal = 1 then
  begin
    usuarios.Free;
  Application.Run;

  end
  else
  begin
    usuarios.Free;
  end;




Esse metodo acima ele mostra o menu na barra de tarefas mais deixa o form login ainda em estado de execução , eu substitui o código
usuarios:= TFormlogin.Create(Nil);
  if usuarios.ShowModal = 1 then
  begin
    usuarios.Free;
  Application.Run;

  end
  else
  begin
    usuarios.Free;
  end;


e retirei a variavel e coloque o codigo abaixo ele destroy o form login e mostra o icone na barra de tarefas.

Formlogin := TFormlogin.Create(Nil);


  try

      Formlogin.ShowModal;

finally

      Formlogin.Release;
      Formlogin := nil;
end;


      Application.Run;


Porinquanto ta ok
GOSTEI 0
POSTAR