Página 1 de 1

TDBBrowse

Publicado: Jue Oct 27, 2005 6:30 pm
por Miguel Torrellas
Hola:
Uno de los pilares de cualquier aplicación son los Browses, es por ello que
hemos empezado nuestra evaluación de Xailer con ellos.
Dos dudas.
Hemos conseguido que al pulsar teclas haga seek en el indice activo, la
cadena de busqueda creo que la podriamos ver en la propiedad oSeek de
TDBBrowse que a su vez la hereda de TBrowse, le asignamos un TLabel
previamente creado, pero no consigo hacerlo funcionar.
Como podemos mostrar columnas de varios DataSet relacionados.
Otra cuestion sobre los DataSet..
Como podemos elegir el juego de caracteres para crear los Indices que ordene
correctamente las Eñes, mayusculas/minusculas, etc.. Hasta ahora hemos
utilizado para nuestros desarrollos Alaska xBase++ y esto no eran ningun
problema, seguro que Xailer tambien lo contempla pero ¿como?
Gracias.

TDBBrowse

Publicado: Jue Oct 27, 2005 7:02 pm
por ignacio
Miguel,
> Hemos conseguido que al pulsar teclas haga seek en el indice activo, la
> cadena de busqueda creo que la podriamos ver en la propiedad oSeek de
> TDBBrowse que a su vez la hereda de TBrowse, le asignamos un TLabel
> previamente creado, pero no consigo hacerlo funcionar.
Observe el ejemplo DataControlsDbfData2 y verá como hacer un seek incremental. No obstante hay un error en el ejemplo. Incluya la linea en rojo en el método FormInitialize:
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "lupa16"
:OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
:nMaxLength := 100
:Create()
::oBrw:oSeek := ::oEdiBusqueda
END
> Como podemos elegir el juego de caracteres para crear los Indices que ordene
> correctamente las Eñes, mayusculas/minusculas, etc.. Hasta ahora hemos
> utilizado para nuestros desarrollos Alaska xBase++ y esto no eran ningun
> problema, seguro que Xailer tambien lo contempla pero ¿como?
Realmente esa es una funcionalidad de xHarbour. Pruebe con lo siguiente:
REQUEST HB_LANG_ES // para mensajes
HB_LANGSELECT( "ES" )
REQUEST HB_CODEPAGE_ESMWIN // para ordenación de indices
HB_SetCodePage( "ESMWIN" )
E incluya la librerí­a de xHarbour codepage.lib como un archivo más dentro del proyecto.
Un saludo,
"Miguel Torrellas" <miguel@torsat.net> escribió en el mensaje news:43610099$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola:
> Uno de los pilares de cualquier aplicación son los Browses, es por ello que
> hemos empezado nuestra evaluación de Xailer con ellos.
> Dos dudas.
>
> Como podemos mostrar columnas de varios DataSet relacionados.
>
> Otra cuestion sobre los DataSet..
>
> Como podemos elegir el juego de caracteres para crear los Indices que ordene
> correctamente las Eñes, mayusculas/minusculas, etc.. Hasta ahora hemos
> utilizado para nuestros desarrollos Alaska xBase++ y esto no eran ningun
> problema, seguro que Xailer tambien lo contempla pero ¿como?
> Gracias.
>
>
--

TDBBrowse

Publicado: Jue Oct 27, 2005 7:09 pm
por ignacio
Miguel,
> Como podemos mostrar columnas de varios DataSet relacionados.
Hay varias formas. La tradicional sería algo así: [suponiendo que hay una
relación activa]
WITH OBJECT oCol := oBrowse:AddCol()
:cHeader := "Nombre"
:OnGetData := {|cText, nImage| cText := DataSet2:Nombre }
END
Más elegante consistiría hacer un campo calculado en el primer DataSet:
oDataSet1:AddCalcField( "NombreCliente", {|oField| oDataSet2:Nombre } )
WITH OBJECT oCol := oBrowse:AddCol()
:cHeader := "Nombre"
:oDataField := "NombreCliente"
END
Un saludo,