Fórum Programa sumiu da barra de tarefas depois de fazer o login #521672
01/06/2015
0
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
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]
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
Curtir tópico
+ 0
Responder
Posts
02/06/2015
Maycon
Até o momento sem solução :3
Responder
Gostei + 0
02/06/2015
Maycon
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.
Vai ate o final do código e apage
[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
[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;
Responder
Gostei + 0
03/06/2015
Maycon
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.
Vai ate o final do código e apage
[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
[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
Responder
Gostei + 0