| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcelodysouza
Novato
Registrado: Sábado, 3 de Fevereiro de 2007
Mensagens: 31
|
 Enviada: Sáb Ago 25, 2012 11:10 am Assunto: Relatorio por periodo QuickReport |
 |
|
Bom dia ...Galera como gerar relatorio no quick report por periodo
detalhes:
BD =access
delphi = 7.0
componentes = adoquery
desde de já os meus agradecimentos.
Marcelo de Souza |
|
| Voltar ao Topo |
|
 |
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Sáb Ago 25, 2012 12:26 pm Assunto: |
|
|
| Sabe mexer com o quick report ? |
|
| Voltar ao Topo |
|
|
marcelodysouza
Novato
Registrado: Sábado, 3 de Fevereiro de 2007
Mensagens: 31
|
| Enviada: Sáb Ago 25, 2012 2:09 pm Assunto: |
|
|
Sim, sei utilizar pra lista com coisas simples como :
relatorio clientes, produto,... mas por periodo não sei...
estou desenvolvendo um sistema de O.S gostaria de criar um relatorio por periodo entre data .
tipo assim : lista todas as O.S de um determinado periodo e nesse relatorio constar o numero da O.S nome cliente e etc...
se poder mim ajudar te agradeço desde de já os meus agradecimentos.
marcelo souza |
|
| Voltar ao Topo |
|
|
vaninho
Membro Junior
Registrado: Segunda-Feira, 16 de Outubro de 2006
Mensagens: 352
|
| Enviada: Seg Ago 27, 2012 9:18 pm Assunto: |
|
|
Como vc já sabe usar o Quick Report.
crie um novo form e coloque nele, dois BitBtn, e dois DateEdit
mude a propriedade name do DateEdit1 para INICIAL e o Dateedit2 para final
BitBtn1 Caption = Ok, BitBtn2 Caption = Sair
Insira este codigo no BitBtn1
| Código: | procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If final.Date < inicial.Date then
begin
Showmessage ('Data Final não Pode Ser Menor que a Data Inicial !');
inicial.SetFocus end else
begin
TableOs.Filter:='DataOS >='+QuotedStr(datetostr(Inicial.Date))+' and DataOs <='+QuotedStr(datetostr(Final.Date));
TableOs.Filtered := True;
FormdoSeuQuicReport.QuickRep1.Preview
if tableOs.RecordCount = 0 then
begin
Showmessage ('Não Existe Dados no Período Solicitado !');
Inicial.SetFocus;
exit;
end;
end; |
BitBtn2
Close;
TableOs.cancel;
O DateEdit é conponente da RxLibrary, mas vc pode usar o DateTimePicker da paleta win32
No form do seu QuickRepot setar para usar a unit do form1 onde esta o codigo.
no quickReport, o datasource para a tablesOs do mesmo form1 do codigo.
espero que te ajude |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
