Consulta simple y con sumas

[MartinS]

Hola gente!!!. A medida que voy progresando en el desarrollo de una aplicación para personal aparecen dudas sobre las consultas que debo realizar en SQL ya que hace muy poco que empece con Firebird.

Hoy el tema es el siguiente: Una de mis tablas llamada inasistencias registra eso "Inasistencias" y lo que debo realizar es el calculo de los días que ha faltado el personal. Los campos de dicha tabla son

Id, IdAgente, Fecha, Periodo, Tipo, FaltaJust, FaltaInj, TardeJust, TardeInj y Observaciones

La idea es que seleccionando el agente me liste las veces que ha faltado. Hasta ahi todo bien:

Código Delphi [-]
 With Filtro do
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From Inasistencias Where Fecha >= :FDesde and Fecha <=:FHasta and IDAGente = :Cod');
    SQL.Add('Order By Fecha');
    ParamByName('FDesde').Value := Desde.DateTime;
    ParamByName('FHasta').Value := Hasta.DateTime;
    ParamByName('Cod').Value := CodigoAgente;
    Open;
  End;

El tema es que ademas necesito que en la barra de estado (StatusBar) me de el total (suma por separado) de cada tipo de inasistencia TardeJust,TardeInj,FaltaJust y FaltaInj.

Filtro es un IBQuery y los campos que necesito sumar contiene la cantidad de días que han faltado o llegado tarde.

Gracias y saludos.-