Buscar

Funcao para carregar comandos sql

Código

Function TfrmMain.carregaSql(Text:String;Add:String):String;
begin
   dmGerente.qryaux.Active := False;
   dmGerente.qryaux.SQL.Clear;
   dmGerente.qryaux.SQL.Text := Text;
   dmGerente.qryaux.SQL.Add(Add);
   dmGerente.qryaux.Active := true;
end;
 no formulario vc passa a consult SQL como parametro para a
função ajuda muito a enxugar código
// by Daylon Martins programador delphi

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 13/07/04
Por: Daylon Martins
Visualizada: 2865 vezes

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