With DM.IBDSAlumnos Do Begin
SelectSQL.Text :=
' Select Maestro.CODIALUMNO, Count(*) ' +
' From ALUMNOS As Maestro ' + ' Left Join FALTAS As Faltas ' +
' On Maestro.CODIALUMNO = Faltas.CALUMNO ' +
' Group By Maestro.CODIALUMNO ' +
' Having Count(*) between ' + EDesde.Text + ' And ' + EHasta.Text;
End;