unit fdlgcopiarcurso;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB,
  ZAbstractRODataset, ZDataset, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;

type
  Tdlgcopiarcurso = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    qcopiar: TZReadOnlyQuery;
    qcursos: TZReadOnlyQuery;
    dsqcursos: TDataSource;
    qcursosid: TIntegerField;
    qcursoside: TIntegerField;
    qcursosnombre: TWideStringField;
    qcursosfechainicio: TDateField;
    qcursosfechafin: TDateField;
    qcursosprecio_material: TFloatField;
    qcursosactivo: TIntegerField;
    qcursosprecio_curso: TFloatField;
    qcursosprecio_mes: TFloatField;
    qcursosanyo_escolar: TWideStringField;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    var
  oldcurso:integer;
  end;

var
   dlgcopiarcurso: Tdlgcopiarcurso;

implementation

{$R *.dfm}

procedure Tdlgcopiarcurso.Button1Click(Sender: TObject);
begin
    qcopiar.Prepare;
    qcopiar.ParamByName('OLDCURSO').AsInteger:=oldcurso;
    qcopiar.ParamByName('NEWCURSO').AsInteger:=qcursosid.AsInteger;
    qcopiar.ExecSQL;
end;

procedure Tdlgcopiarcurso.FormShow(Sender: TObject);
begin
   qcursos.Open;
end;

end.