gerando relatório com filtro de data

[kacau]

Boa Tarde pessoal!!

Sou nova na área e gostaria de uma ajuda de vocês, se possível!

Preciso gerar um relatório na minha aplicação delphi, pensei o seguinte:

Tenho um form chamado frm_relat_acesso nele possuo 2 DateTimePicker, um botão Consultar e um Cancelar.

nele o usuário deverá escolher as datas, inicial e final e clicar no botão consultar, para que o relatório seja gerado.

O relatório deverá ser gerado no form frm_relatorio_gerado.

Neste segundo form tenho 1 QuickRep, 5 QRBand (título do relatório, titulo dos campos com QRLabels, linha de espaço, linha com QRDBText's e um com o número de páginas) e 1 ADOQuery.

O meu problema é que o meu relatório não está sendo gerado apartir da data escolhida, ou seja, o filtro não está funcionando.

Segue abaixo o código:

procedure Tfrm_relat_acesso.btn_consultar_relatClick(Sender: TObject);
begin
//Funcionando mais ou menos.
 If DateTimePicker1.Date > DateTimePicker2.Date Then
    begin
      ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');
      Abort;
    end;
      //DM_CONEXAO_BD.TB_ACESSO.FieldByName('Select Codigo_matricula, Nome_funcionario, Data, Hora, Porta, Nome_local, Andar  from Acesso where');

      DM_CONEXAO_BD.TB_ACESSO.Filtered := false;
      DM_CONEXAO_BD.TB_ACESSO.Filter   := 'Data >=' + QuotedStr(DateToStr(DateTimePicker1.Date)) +
                        'and Data <=' + QuotedStr(DateToStr(DateTimePicker2.Date));
      DM_CONEXAO_BD.TB_ACESSO.Filtered := True;
      DM_CONEXAO_BD.TB_ACESSO.Open;
      frm_relatorio_gerado.qr_relat_acesso.Preview;

  end;

Se alguém puder me ajudar, não tenho muita experiencia com relatórios...

Obrigada a todos!

:rolleyes:

[Jhonas]

Neste segundo form tenho 1 QuickRep, 5 QRBand (título do relatório, titulo dos campos com QRLabels, linha de espaço, linha com QRDBText's e um com o número de páginas) e 1 ADOQuery.

O meu problema é que o meu relatório não está sendo gerado apartir da data escolhida, ou seja, o filtro não está funcionando.

DM_CONEXAO_BD.TB_ACESSO.Filtered := false;
      DM_CONEXAO_BD.TB_ACESSO.Filter   := 'Data >=' + QuotedStr(DateToStr(DateTimePicker1.Date)) +
                        'and Data <=' + QuotedStr(DateToStr(DateTimePicker2.Date));
      DM_CONEXAO_BD.TB_ACESSO.Filtered := True;
      DM_CONEXAO_BD.TB_ACESSO.Open;

seu código esta correto... a banda no QR onde devera aparecer os valores deve ser a Detail

se voce esta com duvida que como fazer, veja no forum:

http://scriptbrasil.com.br/forum/index.php...te=quick+report

ou no google

http://www.google.com.br/search?q=tutorial...c.1.xpe4c53NYu4

abraço