Extração de informação

[Benaia]

Olá!

Necessito extrair informação de uma tabela pra montar um relatório, a tabela é a seguinte:

CREATE TABLE MOVIMENTOOBRA (

ID INTEGER NOT NULL,

OBRA_ID INTEGER NOT NULL,

OBRA D_NOME /* D_NOME = VARCHAR(100) */,

DATA_OBRA DATE,

FUNCIONARIO D_NOME /* D_NOME = VARCHAR(100) */,

ATIVIDADE VARCHAR(60) CHARACTER SET NONE,

VALOR_OBRA D_VALOR /* D_VALOR = DECIMAL(12,2) */

);

Minha necessidade é extrair os dados do Funcionário XX entre os dias YY e HH, montei a query abaixo:

Em um componente Query:

select * from MovimentoObra

where MovimentoObra.Data_Obra between :data_inicio and :data_final order by Data_Obra

Botã de pesquisa:

QryPesqData.Close;

QryPesqData.Params[0].AsDateTime:= pesqData1.Date;

QryPesqData.Params[1].asDateTime := pesqData2.Date;

QryPesqData.Open;

Com está rotina consigo extrair todas as informações em um determinado período da tabela, mas preciso que dentro deste período esteja as informações referente à um funcionário especifico.

Grato pela força.

[Jhonas]

Com está rotina consigo extrair todas as informações em um determinado período da tabela, mas preciso que dentro deste período esteja as informações referente à um funcionário especifico.

select * from MovimentoObra
where Data_Obra between :data_inicio and :data_final and 
funcionario = 'Fulano de Tal'
order by Data_Obra

ou ainda com parametros

select * from MovimentoObra
where Data_Obra between :data_inicio and :data_final and 
funcionario = :Func'
order by Data_Obra

Botão de pesquisa:

QryPesqData.Close;

QryPesqData.Params[0].AsDateTime:= pesqData1.Date;
QryPesqData.Params[1].asDateTime := pesqData2.Date;
QryPesqData.Params[2].asString := Edit1.Text;  // Nome do funcionario

QryPesqData.Open;

abraço