GARANTIR DESCONTO

Fórum Passando e Recebendo ClientDataSet COMO Parametro #580663

27/04/2017

0

Delphi Banco de Dados Firebird

Pessoal, já busquei em vários sites, mas nao encontrei nada. Quero saber como posso passar o parametro como TClientDataset. Fiz uma function que dependendo da Tab ativa, ele irá mandar o clientdataset correspondente para essa function, como faço isso??? ajuda!!!!

segue exemplo:

If TabVendedores ativa Then
gerarxls(Tabela)



function geraxls
tabela.first
tabela,etcccccccc
Hermeson Gonçalves

Hermeson Gonçalves

Responder

Posts

27/04/2017

Raimundo Pereira

Boa tarde.
Meio confuso com a pergunta.

Qual é seu real objetivo e o que você já tem pronto
Responder

Gostei + 0

27/04/2017

Hermeson Gonçalves

opa... quero passar um ClientDataset como parametro
Responder

Gostei + 0

27/04/2017

Raimundo Pereira

Veja uma função de locate que criei.

Function TFP.BuscarRegistro(Cliente_DTS_Busca:tDataSet; Campo_Pesquisa,Valor_procurado:String):string;
begin
Cliente_DTS_Busca.Open;
if Cliente_DTS_Busca.RecordCount>0 then

if Cliente_DTS_Busca.Locate(Campo_Pesquisa,Valor_procurado,[]) then
begin
    Result:='Encontrado';
end
else
begin
    Result:='Não - Encontrado';
end;

end;



Chamando a Função
ShowMessage(BuscarRegistro(dm.FILIAL,'IP','10.0.0.8'));


Então informei para minha função uma determinada Tabela, ativei a mesma, realizei o locate e obtive o retorno.

Da mesma forma você pode seguir para passar um clientdataset, query, tabela e etc.. por paramentro
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar