valeu andre vou tentar fazer isso cara.
2006/10/24, Andre Mesquita <[EMAIL PROTECTED]>:
>
>
> Seguinte, abra um DFM qq no notepad.
>
> Observe a estrutura dele.
>
> Acho que se vc criar uma aplicação chamada FecharDataSets que abre o DFM,
> procura pela propriedade 'Active = True' e exclui essa linha e salva o DFM
> resolverá seu problema.
>
> Nota 1: O projeto deverá estar fechado no Delphi.
> Nota 2: No DFM só consta as propriedades que foram alteradas, portanto, a
> linha deve ser excluída e não alterada para 'Active = False'.
>
> Depois disso, antes de compilar, vc fecha o Delphi, executa a nova
> aplicação, Abre o Delphi e compila.
>
> É um jeito um tanto estranho, mas deve funcionar.
>
> P.S.: Dessa vez minha imaginação superou os limites.
>
> ----- Original Message -----
> From: "Wagner Araujo" <[EMAIL PROTECTED]>
> To: "Grupo Delphi ( e-mail )" <delphi-br@yahoogrupos.com.br>
> Sent: Tuesday, October 24, 2006 2:58 PM
> Subject: Fwd: [delphi-br] Fechar Queries em tempo de compilação.
>
>
> por favor galera, alguem conhece algum tutorial...por favor.
>
> grato
>
> ---------- Forwarded message ----------
> From: Gabriel Filho <[EMAIL PROTECTED]>
> Date: 24/10/2006 10:58
> Subject: Re: [delphi-br] Fechar Queries em tempo de compilação.
> To: delphi-br@yahoogrupos.com.br
>
> 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]
>
>
>
>
> --
> Att.,
>
> Wagner Araujo
> (11) 8377-7633 (11)6446-3920
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
>
>
>
--
Att.,
Wagner Araujo
(11) 8377-7633 (11)6446-3920
[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
