Actualmente tengo un TDataSource para toda la aplicacion, en el AppData, y
este lo asigno segun lo requiero a los DataSet, asi como en los formularios
principales abro todas las bases que voy o podria usar en las opciones que
esta contiene o llama, y les paso el control asi:
With objec......
:oDataSet1 := ::oDataSet1
:oDataSetn := ::oDataSetn
:show()
End With
Asi casi no nececito usar el clone(), y lo que hago es usar si requiero el
SaveState(), que me sirve de mucho para evitar algunos clones.
El asunto es por que de estos mis "opciones principales" llaman mucho a
otras opciones y no quiero que se pierda tiempo en abrir y cerrar bases,
esto es tiempo perdido (?).
gracias por su saportes.
--
Ramón Zea
01.993.194.14.27
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft@prodigy.net.mx
zeasoft.movil@hotmail.com
zeasoft@prodigy.net.mx
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Bingen Ugaldebere" <
bingen@muninser.com> escribió en el mensaje
news:[email=
4607959c@news.xailer.com...]
4607959c@news.xailer.com...[/email]
> Por si te sirve de inspiración y mientras el equipo Xailer no haga el
> cambio previsto de tener Dataset visibles a todos los formularios (por
> favor que sea pronto, gracias) yo he usado el siguiente truco.
>
> Declaro x Datasource y x Dataset en el formulario principal y en vez de
> clonarlos en los subsiguientes formularios, con lo cual no ves los campos
> en tiempo de diseño, lo que hago es volver a declarar los Datasource y
> Dataset de nuevo en cada formulario, con lo cual los tengo disponibles en
> diseño (lo ideal), pero claro con esto se supone que los abro 2 veces cada
> uno, pero hago el siguiente truco:
>
> En el OnCreate de cada Datasource y Dataset le asigno el Datasource y
> Dataset del oParent
>
>
> //---------------------------------------------------------- --------------------
>
> METHOD CdxUsuariosCreate( oSender ) CLASS TFormEditUsuarios
> ::oCdxUsuarios:= ::oParent:oCdxUsuarios
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD DbfUsuariosCreate( oSender ) CLASS TFormEditUsuarios
> ::oDbfUsuarios:= ::oParent:oDbfUsuarios
> RETURN Nil
>
> //---------------------------------------------------------- --------------------
>
> etc..... pero aun así los sigue abriendo 2 veces
>
> Y cuando he terminado el diseño simplemente pongo en el segundo formulario
> los lOpen de cada Dataset a .F. que es cuando dejo de ver los campos y sus
> contenidos pero compilo y funciona.
>
> Espero que te sirva y no haber sido muy pesado.
>
> Salu2.