FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Descargar Formulario
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 Código:
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}
__________________
Mónica Última edición por __marcsc fecha: 05-05-2003 a las 20:02:06. |
#2
|
||||
|
||||
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? |
#3
|
|||
|
|||
Entre las dos líneas siguientes:
frm_Consulta.ShowModal; Refresh;
__________________
Mónica |
#4
|
||||
|
||||
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. |
#5
|
|||
|
|||
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
__________________
Mónica |
#6
|
||||
|
||||
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. |
#7
|
|||
|
|||
Hola marcsc, cómo has estado?
Será que tú has podido mirar mi problema de descarga del formulario? Saludos, Mónica
__________________
Mónica |
#8
|
|||
|
|||
TForm dinamico
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: 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 Última edición por dec fecha: 29-09-2005 a las 18:16:37. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!! |
#9
|
||||
|
||||
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í: ¿Seguro que añadiste en la cláusula "Uses" la unidad "StdCtrls" que es donde se encuentra declarada la clase "TLabel"? |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Saber origen formulario. | toorbye | OOP | 10 | 12-12-2005 12:29:16 |
Tecla presionada en un formulario | Dexter182 | Varios | 5 | 15-07-2005 03:33:16 |
pasar datos de un formulario vista a cualquier formulario | @-Soft | OOP | 2 | 28-09-2004 21:56:01 |
Llamar al Formulario padre | Salomon | OOP | 3 | 29-08-2003 19:11:43 |
Tamaño formulario hijo | craven | Varios | 1 | 22-05-2003 00:13:33 |
|