[delphi-br] =?iso-8859-1?q?Re:_QRLabel_como_par=E2metro?=

Thu, 09 Sep 2004 18:06:23 -0700 

coloque a variavel sDefault como sendo do form
Zere ela ao iniciar o relatorio (sDefault:='')
e na procedure BeforePrint faca ela receber parametro a
parametro, por exemplo

if sDefault<>'' then
   sDefault:=sDefault+' and (USU = '+QuotedStr(qr.Label.Caption)+')'
   else
   sDefault:='where (USU = '+QuotedStr(qr.Label.Caption)+')';

agora no final vc pode colocar seu codigo + ou - assim:

qryTotEmit.Close;
qryTotEmit.SQL.Clear;
qryTotEmit.SQL.Add('SELECT COUNT(USU) FROM USUARIO');
qryTotEmit.SQL.Add(sDefault);
qryTotEmit.Open;

Se era isto q vc queria.....
qq duvida pod fala.

Espero ter ajudado, ate + 

--- Em [EMAIL PROTECTED], "er83pet04" <[EMAIL PROTECTED]> escreveu
> Pessoal,
> Estou usando o seguinte c�digo no evento BeforePrint do meu 
> relat�rio (qr):
> 
> var
>   sDefault : String;
> begin
>      sDefault  := qr.Label.Caption;
> 
>      qryTotEmit.Close;
>      qryTotEmit.SQL.Clear;
>      qryTotEmit.SQL.Add('SELECT COUNT(USU) FROM USUARIO');
>      qryTotEmit.SQL.Add('WHERE USU = ' + #39 + sDefault + #39 );
>      qryTotEmit.Open;
> 
> Isso est� funcionando para um qr.Label.Caption, mas quero passar 
> para a vari�vel sDefault v�rios captions do qr.Label e depois 
passar 
> todos como par�metro para a minha query na cl�usula Where.
> 
> Como posso fazer isso?
> 
> Obrigada



-- 
<<<<< 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] ou [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

Responder a