unit DATOS2;

interface

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

type
  TDM2 = class(TDataModule)
    qclientes: TZReadOnlyQuery;
    dsqclientes: TDataSource;
    dsqalumnosclientes: TDataSource;
    dsqgruposclientes: TDataSource;
    qclientesid: TIntegerField;
    qclienteside: TIntegerField;
    qclientesnif: TWideStringField;
    qclientesnombre_completo: TWideStringField;
    qalumnosclientes: TZReadOnlyQuery;
    qgruposclientes: TZReadOnlyQuery;
    qalumnosclienteside: TIntegerField;
    qalumnosclientesid: TIntegerField;
    qalumnosclientesidc: TIntegerField;
    qalumnosclientesapellidos: TWideStringField;
    qalumnosclientesnombre: TWideStringField;
    qgruposclienteside: TIntegerField;
    qgruposclientesidc: TIntegerField;
    qgruposclientesnomalumno: TWideStringField;
    qgruposclientesida: TIntegerField;
    qgruposclientesidg: TIntegerField;
    qgruposclientesnomgrupo: TWideStringField;
    qgruposclientespreciomensual: TFloatField;
    qgruposclientesnomprofesor: TWideStringField;
    qgruposclientesidcurso: TIntegerField;
    qalumnosclientesnombre_completo: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM2: TDM2;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.