unit fprincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, ZAbstractDataset,
  ZDataset, ZAbstractRODataset, ZAbstractConnection, ZConnection;

type
  TForm1 = class(TForm)
    dbjolly: TZConnection;
    dbzasjolly: TZConnection;
    qalumnos: TZReadOnlyQuery;
    qusers: TZQuery;
    qalumnosid: TIntegerField;
    qalumnoside: TIntegerField;
    qalumnosidc: TIntegerField;
    qalumnosnombre: TWideStringField;
    qalumnosapellidos: TWideStringField;
    qalumnosnombre_completo: TWideStringField;
    qalumnosfecha_nacimiento: TDateField;
    qalumnosob_medicas: TWideStringField;
    qalumnosob_varias: TWideStringField;
    qalumnosdireccion: TWideStringField;
    qalumnospoblacion: TWideStringField;
    qalumnoscod_post: TWideStringField;
    qalumnosprovincia: TWideStringField;
    qalumnoscentroescolar: TWideStringField;
    qalumnosfecha_alta: TDateField;
    qalumnosprueba_nivel: TWideStringField;
    qalumnostelefono1: TWideStringField;
    qalumnosob_telefono1: TWideStringField;
    qalumnostelefono2: TWideStringField;
    qalumnosob_telefono2: TWideStringField;
    qalumnosnombre_padre_madre: TWideStringField;
    qalumnospersona_autorizada: TWideStringField;
    qalumnosdescuento: TFloatField;
    qalumnosactivo: TIntegerField;
    qalumnosetiqueta: TIntegerField;
    qalumnospromociona: TWideStringField;
    qalumnostelefono_alumno: TWideStringField;
    qalumnoscorreo_alumno: TWideStringField;
    qalumnosautomatico: TIntegerField;
    qusersID: TLargeintField;
    qusersuser_login: TWideStringField;
    qusersuser_pass: TWideStringField;
    qusersuser_nicename: TWideStringField;
    qusersuser_email: TWideStringField;
    qusersuser_url: TWideStringField;
    qusersuser_registered: TDateTimeField;
    qusersuser_activation_key: TWideStringField;
    qusersuser_status: TIntegerField;
    qusersdisplay_name: TWideStringField;
    Button1: TButton;
    qesta: TZReadOnlyQuery;
    qinsertar: TZReadOnlyQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zid:integer;
    zlogin,znicename,zemail,zdisplayname:string;
    zregistered:tdatetime;
begin
  qalumnos.Open;
  qesta.Prepare;
  qinsertar.Prepare;
  while not qalumnos.Eof do
  begin
    zid:=qalumnosid.AsInteger;
    zlogin:=StringReplace(qalumnosid.Asstring+qalumnosnombre.Asstring,' ','',[rfReplaceAll]);
    znicename:=qalumnosnombre_completo.Asstring;
    zemail:=qalumnoscorreo_alumno.Asstring;
    zdisplayname:=qalumnosapellidos.Asstring+' '+qalumnosnombre.AsString;
    zregistered:=date();
    qesta.close;
    qesta.ParamByName('PID').AsInteger:=zid;
    qesta.Open;
    if qesta.RecordCount=0 then
    begin
        qinsertar.ParamByName('PID').Asinteger:=zid;
        qinsertar.ParamByName('PLOGIN').AsString:=zlogin;
        qinsertar.ParamByName('PNICENAME').AsString:=znicename;
        qinsertar.ParamByName('PEMAIL').AsString:=zemail;
        qinsertar.ParamByName('PREGISTERED').AsDateTime:=zregistered;
        qinsertar.ParamByName('PSTATUS').AsInteger:=0;
        qinsertar.ParamByName('PDISPLAYNAME').AsString:=zdisplayname;
        qinsertar.ExecSQL;
    end;

    qalumnos.Next;
  end;

end;

end.