Incrementar QuickReport - MySQL
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:
Tentei assim:
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.
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
Curtidas 0
Respostas
Faelcavalcanti
22/10/2004
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 ???
GOSTEI 0
Ilanocf
22/10/2004
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.
[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.
GOSTEI 0
Reginaldo174
22/10/2004
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.
GOSTEI 0
Ilanocf
22/10/2004
Consegui pessoal, só q ficou assim no evento BeforePrint da band:
Value!
If DMConsultas.AlunosDiarioTrancamento.Text = ´S´ Then
Begin
QRLabel17.Caption:=´TRANCAMENTO´
End
Else
If DMConsultas.AlunosDiarioTrancamento.Text = ´N´ Then
Begin
QRLabel17.Caption:=´´;
End;
Value!
GOSTEI 0