Fórum Incrementar QuickReport - MySQL #255547

22/10/2004

0

Olá pessoal,

Tenho uma consulta onde constam os dados de alunos. Preciso tirar um relatório com seus respectivos nomes. O relatório é um Diário de Classe, preciso q logo ao lado venha o nome [b:4074ff833d][color=blue:4074ff833d]TRANCAMENTO[/color:4074ff833d][/b:4074ff833d] caso o campo [b:4074ff833d][color=red:4074ff833d]Trancamento[/color:4074ff833d][/b:4074ff833d] esteja igual a [b:4074ff833d][color=red:4074ff833d]S[/color:4074ff833d][/b:4074ff833d], como faço para incrementar isso? Por exemplo:

[b:4074ff833d]1 -Fulano de Tal 2 - Beltrano de Tal [color=red:4074ff833d]TRANCAMENTO[/color:4074ff833d] 3 - Cicrano de Tal ...[/b:4074ff833d]



Tentei assim:

If DMConsultas.AlunosDiario.FieldByName(´Trancamento´).[b:4074ff833d]AsString[/b:4074ff833d] = ´S´ Then Begin QRLabel17.Caption:=´TRANCAMENTO´ End Else If (DMConsultas.AlunosDiario.FieldByName(´Trancamento´).[b:4074ff833d]AsString[/b:4074ff833d] = ´N´) OR (DMConsultas.AlunosDiario.FieldByName(´Trancamento´).AsString = ´´) Then Begin QRLabel17.Caption:=´´; End;


Mas não aparece nada. E eu tenho um dos registros q está com [b:4074ff833d]Trancamento = S[/b:4074ff833d]


Como posso fazer isso?

Grato,

Ilano.


Ilanocf

Ilanocf

Responder

Posts

22/10/2004

Faelcavalcanti

Citação: 1 -Fulano de Tal 2 - Beltrano de Tal TRANCAMENTO 3 - Cicrano de Tal ...


Quais são os tipos dos campos identificados acima. Talvez possa ser que você esteja visualizando o valor preenchido no banco ´S´, mas haja algum espaço ou caracter que em comparação fique direrente. Qual o banco de dados também ???


Responder

Gostei + 0

22/10/2004

Ilanocf

Os campos são do tipo texto. A base de dados é MySQL. Bem, lá no meu formulário coloquei um DBRadioGroup para esoolher entre Sim (S) ou Não (N). Não tem como haver espaço, até pq o campo possui apenas 1 caractere.

[b:8f8e85a356]1 -Fulano de Tal
2 - Beltrano de Tal [color=red:8f8e85a356]TRANCAMENTO[/color:8f8e85a356]
3 - Cicrano de Tal
... [/b:8f8e85a356]

A palavra destacada em vermelho é um QRLabel, no caso, o [b:8f8e85a356]QRLabel17[/b:8f8e85a356].

O código postado acima coloquei na propriedade [b:8f8e85a356]OnPrint[/b:8f8e85a356] do [b:8f8e85a356]QRLabel17[/b:8f8e85a356] e não deu certo, depois tentei na propriedade .[b:8f8e85a356]BeforePrint[/b:8f8e85a356] da [b:8f8e85a356]QRBand[/b:8f8e85a356] mas tb não deu certo.


Responder

Gostei + 0

22/10/2004

Reginaldo174

O código postado acima coloquei na propriedade OnPrint do QRLabel17 e não deu certo, depois tentei na propriedade .BeforePrint da QRBand mas tb não deu certo.


Verifique a forma que programou, pois eu tentei e deu certo.


Responder

Gostei + 0

22/10/2004

Ilanocf

Consegui pessoal, só q ficou assim no evento BeforePrint da band:

If DMConsultas.AlunosDiarioTrancamento.Text = ´S´ Then Begin QRLabel17.Caption:=´TRANCAMENTO´ End Else If DMConsultas.AlunosDiarioTrancamento.Text = ´N´ Then Begin QRLabel17.Caption:=´´; End;


Value!


Responder

Gostei + 0

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

Aceitar