Descargar Formulario

[monicasierrar]

Tengo un formulario donde se carga inicialmente la información disponible de la base de datos para que el usuario seleccione los tipos de datos a consultar. Cuando presiona el botón ok, se demora al rededor de 2 minutos o más para descargarlo.
¿Cómo puedo resolver esto?

Adjunto el código donde realizo esta operación

Gracias



procedure Tfrm_ppal.ac_CuentaAgregadaExecute(Sender: TObject);
var
qry : TQuery;
begin
// Crea el módulo de datos de ImpoExpo
md_impoexpo := Tmd_impoexpo.Create(Self);

try
Screen.Cursor := crHourGlass;
hc.MousePointer := F1HourGlass;

Proceso := tpReportesCN;

frm_Consulta := Tfrm_Consulta.Create(Self);

frm_Consulta.Caption := 'Generar Cuentas Agregadas';
frm_Consulta.Procesamiento := Procesamiento;
frm_Consulta.Periodo := Op_Periodo;
frm_Consulta.Trimestre := Op_Trim;
frm_Consulta.Tipo := 2;

frm_Consulta.rg_Periodicidad.ItemIndex := Op_TipoPeriodo;

frm_Consulta.ShowModal;

Refresh;

if frm_Consulta.ModalResult = mrOk then
begin
Periodo.NumPer := frm_Consulta.Periodo;
Periodo.Trimestre := frm_Consulta.Trimestre;

if frm_Consulta.rg_Periodicidad.ItemIndex = 0 then
Periodo.Periodicidad := 2
else
Periodo.Periodicidad := 1;

// Abrir Formato en Excel
try
qry := md_ImpoExpo.qry_Formato;

qry.Close;
qry.ParamByName('Id').AsString := '0001';
qry.Open;

AbrirXls(hc,Ruta_Modelo + '\' +
qry.FieldByName('Archivo').AsString + '.XLS');

// Genera la estructura del formato
GenerarFormato;

// Llenar formato
Entidad.Id := '';
Entidad.Nombre := frm_Consulta.ed_Titulo.Text;

LlenarFormato(0);

GenerarAjusteCN;
except
Showmessage('Error: Leyendo la información del formato...');
end;
end;
finally
// Restaura valores, cierra las querys y el módulo de datos
Screen.Cursor := crDefault;
hc.MousePointer := F1Default;

// Borra los catálogos creados
BorrarCatalogos;

frm_Consulta.free;

md_impoexpo.free;
end;
end; {ac_CuentaAgregadaExecute}

[__marcsc]

Pero exactamente en qué operación del códigop se demora?

Al ejecutar el query? Si es así,qué tipo de query se trata? Devuelve muchos registros?

Tal vez es al abrir el XLS? En ese caso, cual es el código de esa función? La hija excel es muy grande?

[monicasierrar]

Entre las dos líneas siguientes:

frm_Consulta.ShowModal;

Refresh;

[__marcsc]

Entonces sería interesante saber qué se hace dentro de ese form que se crea en tiempo de ejecución. Posiblemente el problema sea que en el OnShow de ese formulario se abre una consulta SQL que devuelve un montón de registros.

Deberías especificar el el código y la sentencia SQL del otro form :)

Un saludo.

[monicasierrar]

Hola marcsc, te envié un correo electrónico con el formulario y las qrys, lo recibiste?.

Te lo envié porque no me quiso cargar el archivo de texto, decía que era mayor a 1024 k y solo era de 21.1 k. Tan raro cierto?

Gracias

[__marcsc]

Hola Monica :)

Efectivamente he recibido tu correo, mañana cuando tenga un momento le doy un vistazo. Respecto al límite de carácteres supongo que es normal, no te prepcupes :)

Hasta pronto.

[monicasierrar]

Hola marcsc, cómo has estado?

Será que tú has podido mirar mi problema de descarga del formulario?

Saludos, Mónica

[gush_bellino]

buenas, como les va? creo que este seria el hilo para mi problema

necesito hacer una clase que herede (TForm), es decir que sea un formulario
pero dentro de esa clase necesito crear TLabels, es decir un arreglo de TLabels dinamico
la idea es:


CError=class(TForm) //esta clase muestra un error

mens:array of TLabel;//arreglo de labels <---------
boton:TButton; //boton aceptar
procedure FormCreate(Sender: TObject);
procedure botonClick(Sender:TObject);
{mostrar mensaje y error reciben un arreglo dinamico
ya que no es fija la cantidad de mensajes a mostrar}
procedure mostrar_mensaje(cad:array of string);
procedure mostrar_error(cad:array of string);
private
{sentences}
public
{sentences}
end;

pero se me complica, no acepta un arreglo dinamico, ni tampoco estatico
no se si me estoy ahogando en un baso de agua, si lo sacan por favor mandenme la respuesta

creo que monica podria saber algo de esto, ya que vi en su codigo que maneja una clase en la que crea un formulario

desde ya muchas gracias :D

[dec]

Hola,

gush_bellino, realmente podrías haber iniciado un nuevo Hilo en los Foros. ¿Te diste cuenta de que este Hilo es del año 2003? Tratando de responder, sin embargo, a tu pregunta, no encuentro problemas al hacer algo así:


type
TMiForm = class(TForm)
private
FLabels: array of TLabel;
end;

¿Seguro que añadiste en la cláusula "Uses" la unidad "StdCtrls" que es donde se encuentra declarada la clase "TLabel"?