Cancelar ShowModal de um Form num OnCreate
É 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
Curtidas 0
Respostas
Lucas Silva
08/01/2004
é 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;
GOSTEI 0