conheço um cara que colocou no popup de propriedade do form um novo item
fechar todos os datasets....so que ele disse que uma coisa muito complexa e
nao dá para ensinar.
to quase desistindo.
---------- Forwarded message ----------
From: Valfrid-Ly Silva Couto <[EMAIL PROTECTED]>
Date: 24/10/2006 15:35
Subject: Re: [delphi-br] Fechar Queries em tempo de compilação.
To: delphi-br@yahoogrupos.com.br
Meu, de boa, ou eu ou alguém está viajando!!
Esses códigos só rodam em tempo de execução!!
Em tempo de compilação teria que se criar algum tipo de Add-in como o
gExpert que faria um loop pelos arquivos do projeto procurando datasets e
mudando a propriedade active para false.
Wagner Araujo <[EMAIL PROTECTED]> escreveu: 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 :
>
> 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 :
> >
> > 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]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[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 >>>>>
<*> 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
