[TOPX]

Hola, osea con algo así:

Código Delphi [-]
if not CheckBox1.Checked then
begin
  {etc, etc...} dm_dados.sqlConVenta.Open;

  DataSource1.DataSet := dm_dados.sqlConVenta;
end
else
begin
  {etc, etc...} sql_sem_filtro.Open;

  DataSource1.DataSet := sql_sem_filtro;
end;

-