Usar Varias Ibquery En Dbgrid

[Dergon]

[RESOLVIDO]
Gracias a todos por la mano,consegui hacerlo de esta manera.

Código Delphi [-]
procedure TFrmConVenta.BitBtn1Click(Sender: TObject);
begin
         if CheckBox1.Checked = false then
         begin
         DBGrid1.DataSource.DataSet := dm_dados.sqlConVenta;
         dm_dados.sqlConVenta.Close;
         dm_dados.sqlConVenta.ParamByName('mov').AsInteger:=StrToInt(editcodini.Text);
         dm_dados.sqlConVenta.ParamByName('numvend').AsInteger:=StrToInt(editcodvend.Text);
         dm_dados.sqlConVenta.ParamByName('numcli').AsInteger:=StrToInt(edtnumcli.Text);
         dm_dados.sqlConVenta.ParamByName('datavend').AsDate:=StrToDate(MaskEdit1.Text);
         dm_dados.sqlConVenta.Open;
         end
           else
           begin
           If CheckBox1.Checked = true then
           DBGrid1.DataSource.DataSet:= sql_sem_filtro;
           MaskEdit1.Text := DateToStr(date);
           begin
           sql_sem_filtro.Close;
           sql_sem_filtro.ParamByName('datavend').AsDate:=StrToDate(MaskEdit1.Text);
           sql_sem_filtro.Open;

end;
end;
end;
end.