| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
salomao.coelho
Aprendiz
Registrado: Terça-Feira, 3 de Fevereiro de 2004
Mensagens: 120
Localização: Comendo Queijo (interior de Minas)
|
 Enviada: Sáb Jan 09, 2016 1:54 pm Assunto: fecha form quando chama outro |
 |
|
Galera mais uma duvida.
tenho um Form de Login que define Usuario de uma consulta quando abre outro form, que é o de cadastro de horas, ele deveria fechar o de login. mas isso nao acontece.
| Código: | procedure TfrmPontoFuncionario.btOkClick(Sender: TObject);
var
users,password:string;
begin
DMfunorte.tblFuncionario.Locate('dsnome',edtUsuario.text,[]);
users:=DMfunorte.tblFuncionarioDSNOME.AsString;
password:=DMfunorte.tblFuncionarioDSSENHAPONTO.AsString;
If (edtUsuario.text = users) AND (editsenha.text = password) then
begin
loginusuario:=DMfunorte.tblFuncionarioCDFUNCIONARIO.Value;
nomeusuario:= DMfunorte.tblFuncionarioDSNOME.AsString;
frmhorastrabalhadas.cod_func_login:=inttostr(loginusuario);
frmhorastrabalhadas.nome_Func_login:=nomeusuario;
frmhorastrabalhadas.ShowModal;
frmPontoFuncionario.close;
end
else
ShowMessage('Login e Senha não são Validos');
end;
|
quando coloco no Form frmhorastrabalhadas oncreate da erro de ACCESS VIOLATION |
|
| Voltar ao Topo |
|
 |
ruysalles
Aprendiz
Registrado: Sábado, 5 de Março de 2005
Mensagens: 222
|
| Enviada: Sáb Jan 09, 2016 7:06 pm Assunto: Fechar form |
|
|
Não localizei erro no seu código, mas tente isso:
ao invés de:
frmPontoFuncionario.close;
use:
self.close;
Espero ter ajudado. |
|
| Voltar ao Topo |
|
|
salomao.coelho
Aprendiz
Registrado: Terça-Feira, 3 de Fevereiro de 2004
Mensagens: 120
Localização: Comendo Queijo (interior de Minas)
|
| Enviada: Dom Jan 10, 2016 10:50 am Assunto: Re: Fechar form |
|
|
| ruysalles escreveu: | Não localizei erro no seu código, mas tente isso:
ao invés de:
frmPontoFuncionario.close;
use:
self.close;
Espero ter ajudado. |
fiz assim e nao funcionou a demora pra responder é que minha net caiu ontem e so retornou agora.
| Código: | procedure TfrmPontoFuncionario.btOkClick(Sender: TObject);
var
users,password:string;
begin
DMfunorte.tblFuncionario.Locate('dsnome',edtUsuario.text,[]);
users:=DMfunorte.tblFuncionarioDSNOME.AsString;
password:=DMfunorte.tblFuncionarioDSSENHAPONTO.AsString;
If (edtUsuario.text = users) AND (editsenha.text = password) then
begin
loginusuario:=DMfunorte.tblFuncionarioCDFUNCIONARIO.Value;
nomeusuario:= DMfunorte.tblFuncionarioDSNOME.AsString;
frmhorastrabalhadas.cod_func_login:=inttostr(loginusuario);
frmhorastrabalhadas.nome_Func_login:=nomeusuario;
frmhorastrabalhadas.ShowModal;
self.Close;
end
else
ShowMessage('Login e Senha não são Validos');
end;
|
|
|
| Voltar ao Topo |
|
|
ruysalles
Aprendiz
Registrado: Sábado, 5 de Março de 2005
Mensagens: 222
|
| Enviada: Dom Jan 10, 2016 12:19 pm Assunto: |
|
|
| Você tem alguma linha de programação nos eventos OnClose ou onQueryClose do frmPontoFuncionario? |
|
| Voltar ao Topo |
|
|
salomao.coelho
Aprendiz
Registrado: Terça-Feira, 3 de Fevereiro de 2004
Mensagens: 120
Localização: Comendo Queijo (interior de Minas)
|
| Enviada: Dom Jan 10, 2016 4:07 pm Assunto: |
|
|
| ruysalles escreveu: | | Você tem alguma linha de programação nos eventos OnClose ou onQueryClose do frmPontoFuncionario? |
Nao tenho nenhum evento no onclose e nem onQueryclose
mas como seria esse evento? |
|
| Voltar ao Topo |
|
|
didonsom
Novato
Registrado: Quarta-Feira, 24 de Abril de 2013
Mensagens: 87
|
| Enviada: Dom Jan 10, 2016 4:50 pm Assunto: |
|
|
amigo,
analisei seu código e em momento algum vi vc criar a instancia do form, será que é por isso que ocorre o Access Violation?
o form ffrmhorastrabalhadas chega a abrir?
| Código: |
tfrmhorastrabalhadas := tfrmhorastrabalhadas.create(self);
|
tente explicar melhor o q precisa para ver se consigo ajudar..
você disse que quer fechar a tela de login, já tentou colocar
| Código: |
frmlogin.release;
frmlogin.free;
|
no onshow ou onclose do frmhorastrabalhadas?
Diego |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
