Buscar

Fechar todas as query's e tables quando fechar o form

Código

Observações:
   Vc pod usar qualquer classe, nesse exemplo eu vou usar a classe genérica do Delphi...
no onClose do form acrescente o seguinte código:

procedure ...
var I: Integer;
begin
  for I := 0 to pred(ComponentCount) do
     If Components[I] is TQuery then
        TQuery(Components[I]).Close
     else If Components[I] is TTable then
        TTable(Components[I]).Close;
end;

//qualquer dúvida, entre em contato.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 12/03/07
Por: Rafael Do Lago Batista
Visualizada: 5832 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009