resgistros são listado em um DBGrid

[Livio Neiva]

Ao entrar no form todos os resgistros são listado em um DBGrid. Eles são listados por um perido pela data atual

EU GOSTARIA DE SABER UM EXEMPLO, COMO EU FAÇO PARA LISTAR O PERIODO DE 15 DIAS ATRÁS E OUTRO EXEMPLO PARA OS PROXIMOS 15 DIAS.

gostaria de implementar no exemplo abaixo!!

Var global

data1,data2 : string;

function TF_Pagamentos.DataToSql(sdata: string) : string;

begin

result := copy(sdata,7,4) + '/' + Copy(sdata,4,2) + '/' + Copy(sdata,1,2);

end;

no evento OnCreate no formulario Pagamento.

Data1 := DataToSQL(MaskPeriodo.Text);

Data2 := DataToSQL(MaskA.Text);

F_DMEXpress.Q_Pagamento.Active := False;

F_DMEXpress.Q_Pagamento.SQL.Clear;

F_DMExpress.Q_Pagamento.SQL.Add('SELECT * FROM PAGAMENTO');

F_DMExpress.Q_Pagamento.SQL.Add('WHERE VENCIMENTO BETWEEN '+#39+ data1+#39+' and '+#39+data2+#39);

F_DMEXpress.Q_Pagamento.Active := True;

F_DMExpress.Cds_Pagamento.Refresh;

[Daniel Sanches]

para 15 dias atrás ....

F_DMEXpress.Q_Pagamento.Active := False;
F_DMEXpress.Q_Pagamento.SQL.Clear;
F_DMExpress.Q_Pagamento.SQL.Add('SELECT * FROM PAGAMENTO');
F_DMExpress.Q_Pagamento.SQL.Add('WHERE VENCIMENTO BETWEEN :PDATA1 and :PDATA2');
F_DMExpress.Q_Pagamento.SQL.Parambyname('PDATA1').value:= date-15;
F_DMExpress.Q_Pagamento.SQL.Parambyname('PDATA1').value:= date;
F_DMEXpress.Q_Pagamento.Active := True;

para 15 dias à frente, é só trocar o "date-15" por "date+15"...

abraço !!

[Livio Neiva]

eu fiz esse procedimento para tentar listar num periodo de 15 dias mais ta dando erro no ParamByName

[Error] U_Pagamentos.pas(475): Undeclared identifier: 'ParamByName'

[Error] U_Pagamentos.pas(475): Missing operator or semicolon

como faço para corrigir??

[Daniel Sanches]

qual componente você está usando ??? é uma TQuery ??? SqlQuery ??