Carnal, gracias, lo que pusiste en el post 4281 me funciono, gracias
Código Delphi
[-] MdlDatos.QPedidos.SQL.Clear;
MdlDatos.QPedidos.SQL.Add('select * from pedidos');
MdlDatos.QPedidos.SQL.Add('where fechapedido>=:fecha1 and fechapedido<=:fecha2');
MdlDatos.QPedidos.Parameters.ParamByName('fecha1').Value:=DateTimePicker1.DateTime;
MdlDatos.QPedidos.Parameters.ParamByName('fecha2').Value:=DateTimePicker2.DateTime;
if RadioGroup1.ItemIndex = 0 then
begin
MdlDatos.QPedidos.SQL.Add('and status=''Pendiente''');
end
else if RadioGroup1.ItemIndex = 1 then
begin
MdlDatos.QPedidos.SQL.Add('and status=''Entregado''');
end;
MdlDatos.QPedidos.Active:=True;