Delphi Quick Report imprimir registros
Boa tarde, estou com uma dúvida!
Estou fazendo um sisteminha para realizar simples empréstimos de uma coleção de Bichos etc..
Minha Tabela que registras as espécies eu coquei com PK codTombo, nesta mesma tabela tenho uma chave estrangeira Espécie
Depois construí uma tabela para emprestar cada espécime, como em um empréstimo tenho posso ter vários Tombos e espécie fiz uma tabela Itens empréstimos armazenando suas respectivas PK chaves primárias,
Efetuando o emprestimo , Gostaria de imprimir os itens corrente do emprestimo como os dados desta tabla itens e os dados da tabela emprestimo , como datavencimento, nome da pessoa, etc..
porem no Quick Report não consigo imprimir, ja configurei várias coisas, o máximo que consegui , foi imprimir apenas 1 itens de um empréstimo que contem 4 itens !
Como faço para imprimir tudo ?
Estou fazendo um sisteminha para realizar simples empréstimos de uma coleção de Bichos etc..
Minha Tabela que registras as espécies eu coquei com PK codTombo, nesta mesma tabela tenho uma chave estrangeira Espécie
Depois construí uma tabela para emprestar cada espécime, como em um empréstimo tenho posso ter vários Tombos e espécie fiz uma tabela Itens empréstimos armazenando suas respectivas PK chaves primárias,
Efetuando o emprestimo , Gostaria de imprimir os itens corrente do emprestimo como os dados desta tabla itens e os dados da tabela emprestimo , como datavencimento, nome da pessoa, etc..
porem no Quick Report não consigo imprimir, ja configurei várias coisas, o máximo que consegui , foi imprimir apenas 1 itens de um empréstimo que contem 4 itens !
Como faço para imprimir tudo ?
Rodrigo Martins
Curtidas 0
Respostas
Dorivan Sousa
02/07/2015
faz tempo q nao uso quick report...
posta ai como vc ja fez que fica mais facil pra continuar.
posta ai como vc ja fez que fica mais facil pra continuar.
GOSTEI 0
Rodrigo Martins
02/07/2015
[img:descricao=Layout da Tela ]http://arquivo.devmedia.com.br/forum/imagem/404617-20150703-152528.jpg[/img]
Bom esta é minha tela!
No Botão Adicionar busco minha Tabela de cadastro de espécie pelo seguinte código.
(Quando busco o tombo ou ID... faço uma busca na tabela de cadastro e puxo logo o nome da espécie )
DataModule2.ibqbuscaitens.Close;
DataModule2.ibqbuscaitens.ParamByName('busca').Value := DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.ibqbuscaitens.ParamByName('busca2').Value :=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.ibqbuscaitens.Prepare;
DataModule2.ibqbuscaitens.Open;
if (DataModule2.ibqbuscaitens.RecordCount=0) then
begin
DataModule2.IBitensespecies.Insert;
DataModule2.IBitensespeciesCODSERVICO.Value:=DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.IBitensespeciesCODTOMBO.Value:=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.IBitensespecies.POST;
Na Tabela Itens - Terei apenas os dados das Chaves primarias de cada uma das tabelas
Ficou confuso ?
Bom esta é minha tela!
No Botão Adicionar busco minha Tabela de cadastro de espécie pelo seguinte código.
(Quando busco o tombo ou ID... faço uma busca na tabela de cadastro e puxo logo o nome da espécie )
DataModule2.ibqbuscaitens.Close;
DataModule2.ibqbuscaitens.ParamByName('busca').Value := DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.ibqbuscaitens.ParamByName('busca2').Value :=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.ibqbuscaitens.Prepare;
DataModule2.ibqbuscaitens.Open;
if (DataModule2.ibqbuscaitens.RecordCount=0) then
begin
DataModule2.IBitensespecies.Insert;
DataModule2.IBitensespeciesCODSERVICO.Value:=DataModule2.IBemprestimoCODSERVICO.Value;
DataModule2.IBitensespeciesCODTOMBO.Value:=DataModule2.QconsultaTomboBCODTOMBO.Value;
DataModule2.IBitensespecies.POST;
Na Tabela Itens - Terei apenas os dados das Chaves primarias de cada uma das tabelas
Ficou confuso ?
GOSTEI 0
Rodrigo Martins
02/07/2015
RESOLVIDO ! O RAVE REPORT É BEM MELHOR ! GERA PDF , E POSSO FAZER DIVERSAS COISAS NA QUAL O QUICK REPORT NÃO FAZ
GOSTEI 0
Rodrigo Martins
02/07/2015
RESOLVIDO ! O RAVE REPORT É BEM MELHOR ! GERA PDF , E POSSO FAZER DIVERSAS COISAS NA QUAL O QUICK REPORT NÃO FAZ
GOSTEI 0