unit CONSULTASINFORMES;

interface

uses
  System.SysUtils, System.Classes,DATOS, Data.DB, ZAbstractRODataset, ZDataset,
  ZAbstractDataset;

type
  TDMINF = class(TDataModule)
    qgruposalumnos: TZReadOnlyQuery;
    dsgruposalumnos: TDataSource;
    qgruposalumnosidprofesor: TIntegerField;
    qgruposalumnosnomprofesor: TWideStringField;
    qgruposalumnosnomgrupo: TWideStringField;
    qgruposalumnosnomalumno: TWideStringField;
    qgruposalumnosapellidos: TWideStringField;
    qgruposalumnosfecha_nacimiento: TDateField;
    qgruposalumnosob_medicas: TWideStringField;
    qgruposalumnosedad: TIntegerField;
    dsqinfrecibo: TDataSource;
    qinfrecibo: TZQuery;
    qinfreciboid: TIntegerField;
    qinfreciboide: TIntegerField;
    qinfreciboidc: TIntegerField;
    qinfreciboida: TIntegerField;
    qinfreciboidg: TIntegerField;
    qinfrecibofecharecibo: TDateField;
    qinfrecibofechacobro: TDateField;
    qinfreciboconcepto: TWideStringField;
    qinfreciboimporte: TFloatField;
    qinfreciboentrega: TFloatField;
    qinfrecibopagado: TIntegerField;
    qinfrecibodomiciliado: TIntegerField;
    qinfrecibomaterial: TIntegerField;
    qinfreciboforma_pago: TIntegerField;
    qinfrecibodoc_pago: TWideStringField;
    qinfrecibodescuento: TIntegerField;
    qinfreciboimportefinal: TFloatField;
    qinfreciboseleccionado: TIntegerField;
    qinfrecibonif: TWideStringField;
    qinfrecibonomcliente: TWideStringField;
    qinfrecibonomalumno: TWideStringField;
    qinfrecibonomgrupo: TWideStringField;
    dsqboletin: TDataSource;
    qboletin: TZQuery;
    qboletinprofesor: TWideStringField;
    qboletinalumno: TWideStringField;
    qboletingrupo: TWideStringField;
    qboletinfechaeval1: TDateField;
    qboletinlistening1: TFloatField;
    qboletinimglist1: TWideStringField;
    qboletinspeaking1: TFloatField;
    qboletinimgspeak1: TWideStringField;
    qboletinreading1: TFloatField;
    qboletinimgread1: TWideStringField;
    qboletinwriting1: TFloatField;
    qboletinimgwrit1: TWideStringField;
    qboletinvocabulary1: TFloatField;
    qboletinimgvocab1: TWideStringField;
    qboletindesarrollo1: TFloatField;
    qboletinimgdesarr1: TWideStringField;
    qboletinfechaeval2: TDateField;
    qboletinlistenig2: TFloatField;
    qboletinimglist2: TWideStringField;
    qboletinspeaking2: TFloatField;
    qboletinimgspeak2: TWideStringField;
    qboletinreading2: TFloatField;
    qboletinimgread2: TWideStringField;
    qboletinwriting2: TFloatField;
    qboletinimgwrit2: TWideStringField;
    qboletinvocabulary2: TFloatField;
    qboletinimgvocab2: TWideStringField;
    qboletindesarrollo2: TFloatField;
    qboletinimgdesarr2: TWideStringField;
    qboletinpromocionar_a: TWideStringField;
    qboletinnotafinal: TFloatField;
    qboletinnota1eval: TFloatField;
    qboletinnota2eval: TFloatField;
    qboletinobservaciones: TWideMemoField;
    qboletinlistening3: TFloatField;
    qboletinimglist3: TWideStringField;
    qboletinspeaking3: TFloatField;
    qboletinimgspeak3: TWideStringField;
    qboletinreading3: TFloatField;
    qboletinimgread3: TWideStringField;
    qboletinwriting3: TFloatField;
    qboletinimgwrit3: TWideStringField;
    qboletinvocabulary3: TFloatField;
    qboletinimgvocab3: TWideStringField;
    qboletindesarrollo3: TFloatField;
    qboletinimgdesarr3: TWideStringField;
    qtodosalumnos: TZReadOnlyQuery;
    dsqtodosalumnos: TDataSource;
    qboletinobservaciones2: TWideMemoField;
    qgruposalumnoscorreo_alumno: TWideStringField;
    qgruposalumnosemail: TWideStringField;
    qgruposalumnosdias: TWideStringField;
    qgruposalumnoshorainicio: TTimeField;
    qgruposalumnoshorafin: TTimeField;
    qgruposalumnosaula: TWideStringField;
    qtodosalumnosapellidos: TWideStringField;
    qtodosalumnosnombre: TWideStringField;
    qtodosalumnostelefono_alumno: TWideStringField;
    qtodosalumnosnombre_padre_madre: TWideStringField;
    qtodosalumnostelefono1: TWideStringField;
    qtodosalumnosalumnoactivo: TIntegerField;
    qtodosalumnosfechabaja_alumno_engrupo: TDateField;
    qtodosalumnosnombre_1: TWideStringField;
    qtodosalumnosfechabaja_grupo: TDateField;
    qtodosalumnosgrupoactivo: TIntegerField;
    qtodosalumnostutor: TWideStringField;
    qinfrecibodescpago: TWideStringField;
    qboletincurso: TWideStringField;
    procedure qgruposalumnosCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMINF: TDMINF;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TDMINF.qgruposalumnosCalcFields(DataSet: TDataSet);
begin
    qgruposalumnosedad.value:= trunc((date()-qgruposalumnosfecha_nacimiento.AsDateTime)/365);
end;

end.