Fórum Os dados não aparecem no formulário, uso report builder, quem pode ajudar? #403339
18/06/2011
0
Pessoal fiz esta query esta beleza, uso o report builder, no formulário coloquei um subreport onde o mesmo tem um dbtext ligado ao nome do aluno outro ligado ao nome do pai e outro ligado ao nome da mãe, mas quando o formulário e exibido não aparece os dados referentes aos dbedts, abaixo segue a query e também como está o código:
select al.codigo_turma,
al.matricula_aluno,
t.ano,
t.grau,
t.turma,
a.nome,
a.pai,
a.mae from alunoturma al inner join aluno a on al.matricula_aluno = a.matricula
inner join turma t on al.codigo_turma = t.codigo where al.matricula_aluno =:aluno
and al.escola =:escola
group by al.codigo_turma,
al.matricula_aluno,
t.ano,
t.grau,
t.turma,
a.nome,
a.pai,
a.mae procedure TFrmRel_Livro_Matricula.Btn_imprime_LivroClick(Sender: TObject);
begin (* Carregando o cabeçalho do relatório *)
IBQryEscola.Close;
IBQryEscola.ParamByName('escola').asstring := sEscola;
IBQryEscola.Open; ppLabel35.Caption := IBQryEscolaNOME_ESCOLA.AsString; //carrega os dados do aluno
IBQryAluno.Close;
IBQryAluno.ParamByName('matricula').AsString := DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.AsString;
IBQryAluno.Open; IBQryAlunoTurma.Close;
IBQryAlunoTurma.ParamByName('escola').AsString := DmDados.IBQryAlunoTurmaESCOLA.AsString;
IBQryAlunoTurma.ParamByName('matricula').AsString := DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.AsString;
IBQryAlunoTurma.ParamByName('turma').AsString := DmDados.IBQryTurmaCODIGO.AsString;
IBQryAlunoTurma.Open; ppReport1.Print;
end; end.
al.matricula_aluno,
t.ano,
t.grau,
t.turma,
a.nome,
a.pai,
a.mae from alunoturma al inner join aluno a on al.matricula_aluno = a.matricula
inner join turma t on al.codigo_turma = t.codigo where al.matricula_aluno =:aluno
and al.escola =:escola
group by al.codigo_turma,
al.matricula_aluno,
t.ano,
t.grau,
t.turma,
a.nome,
a.pai,
a.mae procedure TFrmRel_Livro_Matricula.Btn_imprime_LivroClick(Sender: TObject);
begin (* Carregando o cabeçalho do relatório *)
IBQryEscola.Close;
IBQryEscola.ParamByName('escola').asstring := sEscola;
IBQryEscola.Open; ppLabel35.Caption := IBQryEscolaNOME_ESCOLA.AsString; //carrega os dados do aluno
IBQryAluno.Close;
IBQryAluno.ParamByName('matricula').AsString := DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.AsString;
IBQryAluno.Open; IBQryAlunoTurma.Close;
IBQryAlunoTurma.ParamByName('escola').AsString := DmDados.IBQryAlunoTurmaESCOLA.AsString;
IBQryAlunoTurma.ParamByName('matricula').AsString := DmDados.IBQryAlunoTurmaMATRICULA_ALUNO.AsString;
IBQryAlunoTurma.ParamByName('turma').AsString := DmDados.IBQryTurmaCODIGO.AsString;
IBQryAlunoTurma.Open; ppReport1.Print;
end; end.
Osmar
Curtir tópico
+ 0
Responder
Posts
20/06/2011
Wilson Junior
A sua lógica está meio confusa, pois os valores que vc está setando para osParamByName estão meio confusos, verifique estes valores.
Espero ter colaborado.
Espero ter colaborado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)