Fórum Cancelar ShowModal de um Form num OnCreate #205092
08/01/2004
0
É o seguinte .. no oncreate de um Form eu verifico um dado ... se nao existir esse dado quero q nao abra o form .. como faço ???
with qryPesquisa do
begin
Close;
SQL.Clear;
SQL.Add(´select * from funcionario_tipo_de_dependente´);
ExecSQL;
Open;
if RecordCount > 0 then
begin
tbTipoDependente.Open;
tbTipoDependente.Filtered:=False;
tbTipoDependente.Filter:=´codigo <> ´+qryPesquisa.FieldByName(´codigo´).Text+´´;
tbTipoDependente.Filtered:=True;
end
else
begin
ShowMessage(´Atenção,´+#13+´Você precisa definir qual tipo de dependente é o titular.´);
// Tou apanhando aqui ... nao quero q abra o form .. o q faço ?
{ fmFuncionario.Close;
Exit;
Abort;}
end;
Grato, Ítalo Rabello
with qryPesquisa do
begin
Close;
SQL.Clear;
SQL.Add(´select * from funcionario_tipo_de_dependente´);
ExecSQL;
Open;
if RecordCount > 0 then
begin
tbTipoDependente.Open;
tbTipoDependente.Filtered:=False;
tbTipoDependente.Filter:=´codigo <> ´+qryPesquisa.FieldByName(´codigo´).Text+´´;
tbTipoDependente.Filtered:=True;
end
else
begin
ShowMessage(´Atenção,´+#13+´Você precisa definir qual tipo de dependente é o titular.´);
// Tou apanhando aqui ... nao quero q abra o form .. o q faço ?
{ fmFuncionario.Close;
Exit;
Abort;}
end;
Grato, Ítalo Rabello
Rabello
Curtir tópico
+ 0
Responder
Posts
08/01/2004
Lucas Silva
é só você fechar o form no OnCreate....
.... else begin ShowMessage(´Atenção,´+#13+´Você precisa definir qual tipo de dependente é o titular.´); frmFuncionario.Close; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)