In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ayuda basedato indexar cuando arranca

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »

Alquien me puede decir como cuando arranca el programa puedo hacer para
reindexar las bases de datos saliento una pantalla de informacion con el
nombre
de la base de datos, en alaska lo lo hago, pero aqui me podeis ayudar
Gracias de antemano a todos, por mi ignorancia
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

ayuda basedato indexar cuando arranca

Mensaje por jfgimenez »

PILO,
> Alquien me puede decir como cuando arranca el programa puedo hacer para
> reindexar las bases de datos saliento una pantalla de informacion con el
> nombre
> de la base de datos, en alaska lo lo hago, pero aqui me podeis ayudar
Puedes crear un formulario de tipo splash y arrancarlo así:
WITH OBJECT TForm1():New( Application )
:Show()
ProcessMessages()
// Indexar una tabla
ProcessMessages()
// Indexar otra tabla
ProcessMessages()
// Indexar una tabla
ProcessMessages()
// Indexar una tabla
:Close()
END
Es importante que llames a ProcessMessages() periodicamente, para que
permitas procesar los mensajes que se produzcan, p.ej. los mensajes de
pintado de la ventana.
Si quieres saber dónde meter ese código, échale un vistazo a estos
artículos:
http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_1&more=1&c=1&tb=1&pb=1
http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_el_codigo_&more=1&c=1&tb=1&am p;pb=1
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »

Que es un formularia de tipo splash, y donde tienes un ejemplo
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

ayuda basedato indexar cuando arranca

Mensaje por jfgimenez »

PILO,
> Que es un formularia de tipo splash, y donde tienes un ejemplo
Es un formulario con la propiedad nBorderStyle establecida a bsSPLASH. Lo
que hace este estilo es mostrar el formulario sin borde y sin barra de
título, y en el caso de XP, con sombra. Se utiliza habitualmente como
pantalla de entrada a los programas, o incluso en las opciones "Acerca de"
(p.ej. en el propio IDE); pero nada te impide usarlo donde y cuando quieras.
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »


"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:44b37242$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> PILO,
>
>> Alquien me puede decir como cuando arranca el programa puedo hacer para
>> reindexar las bases de datos saliento una pantalla de informacion con el
>> nombre
>> de la base de datos, en alaska lo lo hago, pero aqui me podeis ayudar
>
> Puedes crear un formulario de tipo splash y arrancarlo así­:
>
Esta opcion, se pone en le formulario que lo arranca o en el tform1
> WITH OBJECT TForm1():New( Application )
> :Show()
> ProcessMessages()
> // Indexar una tabla
> ProcessMessages()
> // Indexar otra tabla
> ProcessMessages()
> // Indexar una tabla
> ProcessMessages()
> // Indexar una tabla
> :Close()
> END
>
> Es importante que llames a ProcessMessages() periodicamente, para que
> permitas procesar los mensajes que se produzcan, p.ej. los mensajes de
> pintado de la ventana.
>
> Si quieres saber dónde meter ese código, échale un vistazo a estos
> artí­culos:
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_1&more=1&c=1&tb=1&pb=1
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_el_codigo_&more=1&c=1&tb=1&am p;pb=1
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>
--
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »

> WITH OBJECT TForm1():New( Application )
> :Show()
> ProcessMessages()
como puedo poner el nombre de la tabla que esta abriendo
> :Close()
> END
>
> Es importante que llames a ProcessMessages() periodicamente, para que
> permitas procesar los mensajes que se produzcan, p.ej. los mensajes de
> pintado de la ventana.
>
> Si quieres saber dónde meter ese código, échale un vistazo a estos
> artículos:
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_1&more=1&c=1&tb=1&pb=1
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_el_codigo_&more=1&c=1&tb=1&am p;pb=1
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

ayuda basedato indexar cuando arranca

Mensaje por jfgimenez »

PILO,
Esta opcion, se pone en le formulario que lo arranca o en el tform1
> WITH OBJECT TForm1():New( Application )
> :Show()
> ProcessMessages()
> // Indexar una tabla
> ProcessMessages()
> // Indexar otra tabla
> ProcessMessages()
> // Indexar una tabla
> ProcessMessages()
> // Indexar una tabla
> :Close()
> END
Este código es el que crea y muestra el formulario tipo splash (TForm1) y debe ir en algún evento que dispares desde otro formulario (p.ej. en el OnClick de un botón) o bien en el código de arranque de la aplicación. Si es esto último, échale un vistazo a los artí­culos que te comenté, que viene cómo hacerlo:
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_1&more=1&c=1&tb=1&pb=1
> http://www.levante3000.org/blogs/index. ... ecnicas_av anzadas_con_xailer_el_codigo_&more=1&c=1&tb=1&am p;pb=1
--
Un saludo,
José F. Giménez
http://www.xailer.com
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

ayuda basedato indexar cuando arranca

Mensaje por jfgimenez »

PILO,
> como puedo poner el nombre de la tabla que esta abriendo
Puedes poner un TLabel en el formulario y asignarle el texto sobre la
marcha:
:oLabel1:cText := "lo que sea"
--
Un saludo,
José F. Giménez
http://www.xailer.com
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »

Gracias, espero me discupes las preguntas ya que estoy intentando empezar a pasar mi aplicacion a xailer y estoy pez en esto de clases objetos, y otros
no lo entiendo mucho. Existe en algun sitio algo de documentacion sencilla para poder entenderlo.
--
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

ayuda basedato indexar cuando arranca

Mensaje por PILO »

Lo probare y te preguntare dudas.
> :oLabel1:cText := "lo que sea"
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
Responder