Código Delphi [-] procedure TForm1.Listar_ProfesExecute(Sender: TObject); begin Tabla_Profesores.Open; Application.CreateForm(TFrm_Profesores, Frm_Profesores); Frm_Profesores.QuickRep1.Show; Frm_Profesores.Free; Tabla_Profesores.Close; end;
procedure TForm1.Listar_ProfesExecute(Sender: TObject); begin Tabla_Profesores.Open; Application.CreateForm(TFrm_Profesores, Frm_Profesores); Frm_Profesores.QuickRep1.Show; Frm_Profesores.Free; Tabla_Profesores.Close; end;