duvida para criar uma Função

Delphi

11/11/2008

bom dia a todos

ja procurei em todo o forum e nao achei a resposta, o que estou precisando é criar uma função no servidor dentro do .TBL onde terei 3 parametros:

Tabela : tipo TSQLQUERY
Query e Complemento : tipo String

qual o objetivo desta função:

encima de uma TSQLQUERY ja montado, passar complementos para a pesquisa ficar mais fina, pois trabalhos com muitos produtos.

abaixo tem um exemplo:

No cliente ela seria assim

procedure ComplementoQuery(Tabela: TSQLQuery; Query, Complemento: String);
begin
Tabela.SQL.Text := Query;
Tabela.SQL.Add(Complemento);
end;

onde:
Tabela : é a sqlQuery;
Query : query original;
complemento : condição imposta para buscar o registro

Espero que possa me ajuda

Desde ja agradeço

Silvio Coelho


Minervasoft

Minervasoft

Curtidas 0
POSTAR