| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
pedcmg
Novato
Registrado: Sábado, 23 de Julho de 2022
Mensagens: 2
|
 Enviada: Sáb Jul 23, 2022 3:19 am Assunto: Pegar informação para gerar relatorio |
 |
|
Olá pessoa, espero que todos estejam bem!
Poderiam me ajudar por favor?
Estou tentando pegar a informação de algumas colunas de um DBGrid, e retorna-las em meu relatório quando eu clicar no botão de Gerar Relatório.
Porém, as informações das colunas do DBGrid, não estão indo para o meu relatório.
Sabem o que posso estar errando?
Um trecho do código do Form que esta com o DBGrid:
| Código: |
procedure TForm_pesquisarCadastro.BitBtnImprimirClick(Sender: TObject);
begin
FormRelatorio := TFormRelatorio.Create(Self);
FormRelatorio.LabelSeqCadastro.Caption := DBGridPesquisaCadastros.Columns[0].ToString;
FormRelatorio.LabelNomePessoa.Caption := DBGridPesquisaCadastros.Columns[1].ToString;
FormRelatorio.LabelNumTelefone.Caption := DBGridPesquisaCadastros.Columns[2].ToString;
FormRelatorio.LabelDesProfissao.Caption := DBGridPesquisaCadastros.Columns[3].ToString;
FormRelatorio.LabelCidade.Caption := DBGridPesquisaCadastros.Columns[4].ToString;
FormRelatorio.LabelEstado.Caption := DBGridPesquisaCadastros.Columns[5].ToString;
FormRelatorio.RelatorioCadastros.Preview();
end;
|
Link da imagem do código
https://uploaddeimagens.com.br/imagens/PXBm3ug
Link do Form com as colunas de meu relatório
https://uploaddeimagens.com.br/imagens/QbNNueE
Se algum puder me dar alguma dica do que pode ser, agradeço d+ |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Seg Jul 25, 2022 5:13 pm Assunto: Re: Pegar informação para gerar relatorio |
|
|
| pedcmg escreveu: | Olá pessoa, espero que todos estejam bem!
Poderiam me ajudar por favor?
Estou tentando pegar a informação de algumas colunas de um DBGrid, e retorna-las em meu relatório quando eu clicar no botão de Gerar Relatório.
Porém, as informações das colunas do DBGrid, não estão indo para o meu relatório.
Sabem o que posso estar errando?
Um trecho do código do Form que esta com o DBGrid:
| Código: |
procedure TForm_pesquisarCadastro.BitBtnImprimirClick(Sender: TObject);
begin
FormRelatorio := TFormRelatorio.Create(Self);
FormRelatorio.LabelSeqCadastro.Caption := DBGridPesquisaCadastros.Columns[0].ToString;
FormRelatorio.LabelNomePessoa.Caption := DBGridPesquisaCadastros.Columns[1].ToString;
FormRelatorio.LabelNumTelefone.Caption := DBGridPesquisaCadastros.Columns[2].ToString;
FormRelatorio.LabelDesProfissao.Caption := DBGridPesquisaCadastros.Columns[3].ToString;
FormRelatorio.LabelCidade.Caption := DBGridPesquisaCadastros.Columns[4].ToString;
FormRelatorio.LabelEstado.Caption := DBGridPesquisaCadastros.Columns[5].ToString;
FormRelatorio.RelatorioCadastros.Preview();
end;
|
Link da imagem do código
https://uploaddeimagens.com.br/imagens/PXBm3ug
Link do Form com as colunas de meu relatório
https://uploaddeimagens.com.br/imagens/QbNNueE
Se algum puder me dar alguma dica do que pode ser, agradeço d+ |
Tente passar em vez da coluna o valor do dataset que vc popula seu grid
| Citação: | | FormRelatorio.LabelSeqCadastro.Caption := query1.fieldbyname('campo').asstring; |
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
|
pedcmg
Novato
Registrado: Sábado, 23 de Julho de 2022
Mensagens: 2
|
| Enviada: Seg Jul 25, 2022 6:37 pm Assunto: Re: Pegar informação para gerar relatorio |
|
|
| adriano_servitec escreveu: | | pedcmg escreveu: | Olá pessoa, espero que todos estejam bem!
Poderiam me ajudar por favor?
Estou tentando pegar a informação de algumas colunas de um DBGrid, e retorna-las em meu relatório quando eu clicar no botão de Gerar Relatório.
Porém, as informações das colunas do DBGrid, não estão indo para o meu relatório.
Sabem o que posso estar errando?
Um trecho do código do Form que esta com o DBGrid:
| Código: |
procedure TForm_pesquisarCadastro.BitBtnImprimirClick(Sender: TObject);
begin
FormRelatorio := TFormRelatorio.Create(Self);
FormRelatorio.LabelSeqCadastro.Caption := DBGridPesquisaCadastros.Columns[0].ToString;
FormRelatorio.LabelNomePessoa.Caption := DBGridPesquisaCadastros.Columns[1].ToString;
FormRelatorio.LabelNumTelefone.Caption := DBGridPesquisaCadastros.Columns[2].ToString;
FormRelatorio.LabelDesProfissao.Caption := DBGridPesquisaCadastros.Columns[3].ToString;
FormRelatorio.LabelCidade.Caption := DBGridPesquisaCadastros.Columns[4].ToString;
FormRelatorio.LabelEstado.Caption := DBGridPesquisaCadastros.Columns[5].ToString;
FormRelatorio.RelatorioCadastros.Preview();
end;
|
Link da imagem do código
https://uploaddeimagens.com.br/imagens/PXBm3ug
Link do Form com as colunas de meu relatório
https://uploaddeimagens.com.br/imagens/QbNNueE
Se algum puder me dar alguma dica do que pode ser, agradeço d+ |
Tente passar em vez da coluna o valor do dataset que vc popula seu grid
| Citação: | | FormRelatorio.LabelSeqCadastro.Caption := query1.fieldbyname('campo').asstring; |
|
Obrigado pela ajuda Adriano,
Infelizmente não deu para fazer dessa forma, o componente BitBtn não deixa informar uma query.
Ficou dessa forma:
| Código: | | FormRelatorio.LabelSeqCadastro.Caption := Query_Cadastro.fieldbyname('seq_cadastro').asString; |
Ai o Delphi retorna o seguinte erro:
> Undeclared indetifier: 'Query_Cadastro'
> Missing operator or semicolon |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Sex Set 16, 2022 3:46 pm Assunto: |
|
|
Há uma forma de você utilizar um clientdataset para armazenar a informação para você e depois gerar o relatório.
Eu fiz isto num sistema de auditoria dos dados cadastrados, fazia diversas pesquisas e ia armazenando os erros que encontrava e no final gerava um relatório.
Como fazia diversas requisições para dados diferentes, não era possível fazer um relatório por SQL, por isto armazenava e gerava o relatório no final.
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
