OK
2006/10/24, Wagner Araujo <[EMAIL PROTECTED]>:
>
> Valeu mesmo gabriel, mas isso nao vai ajudar pq eu preciso fechar em tempo
> de compilação.
>
> eu uso esse codigo em tempo de execução:
>
>
> {*****************************************************************************
> * FUNÇÃO PARA FECHAR TODOS DATASETS DOS FORMS E
> DATAMODULOS *
>
> *
> *
>
> *
> *
>
>
> ****************************************************************************}
>
> //FECHANDO AS QUERYS DE UM FORM
> IF (Formulario <> Nil ) Then
> Begin
> //PROCURANDO E FECHANDO AS QUERYS
> For i:=1 To Formulario.componentCount-1 Do
> Begin
> if (Formulario.Components[i] is TDataSet)Then
> (Formulario.Components[i] as TDataSet).Close
> ;
> End
> ;
> End
> //FECHANDO AS QUERYS DE UM DATAMODULO
> ELSE IF (DataModulo <> Nil ) Then
> Begin
> //PROCURANDO E FECHANDO AS QUERYS
> For i:=1 To DataModulo.componentCount-1 Do
> Begin
> if (DataModulo.Components[i] is TDataSet)Then
> (DataModulo.Components[i] as TDataSet).Close
> ;
> End
> ;
> End
> ;//FIM DO IF
> End;
>
>
> mas quando o form é criado existe algumas querys que estao ativas pq foram
> ativadas sem querer quando estamos dando manutenção no form.
>
> Ai gabriel eu preciso que todas a queries seja fechadas em tempo de
> compilação assim nao correrei o risco de uma tabele já estar ativa quando
> o
> form for criado.
>
> mas valeu mesmo veio.
>
>
>
>
> 2006/10/24, Gabriel Filho <[EMAIL PROTECTED]>:
> >
> > Olha, eu uso isto pra fechar forms filhos
> >
> >
> > procedure TFormPrinc.FechaForms;
> > var
> > n: integer;
> > begin
> > for n:=0 to MDIChildCount -1 do
> > begin
> > try
> > MDIChildren[n].Close;
> > finally
> > if MDIChildren[n] <> NIL then
> > MDIChildren[n].Release;
> > end;
> > end;
> > end;
> >
> > Da uma estudada que dá pra vc tirar uma idéia de como fazer o q precisa
> >
> >
> >
> > 2006/10/24, Wagner Araujo <[EMAIL PROTECTED]>:
> > >
> > > Bom dia!
> > >
> > > Alguem poderia me ajudar?
> > > Gostaria de criar uma rotina para fechar todo as queries e conections
> em
> > > tempo de compilação.
> > >
> > > será que alguem tem uma solução simples e eficaz.
> > >
> > > valeu galera fico no aguardo.
> > >
> > > --
> > > Att.,
> > >
> > > Wagner Araujo
> > > (11) 8377-7633 (11)6446-3920
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
>
> --
> Att.,
>
> Wagner Araujo
> (11) 8377-7633 (11)6446-3920
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
