Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » Gambas » Bases de Datos

Propiedades Controles (Datacontrol Y Databrowser)

Reply to topic

Goto page 1, 2  Next

jarrypalacios
Quote
Posts: 25 Location: Táchira
Monday, 17 March 2014, 05:40
Subject: Propiedades Controles (Datacontrol Y Databrowser)
Buenas Noches a la presente hora, muy buen tutorial; ahora para seguir avanzando en el estudio de esta interesante herramienta de desarrollo de software me pregunto sí me pueden ayudar informandome como puedo aplicar formatos a objetos datacontrol en el caso de que el tipo de datos sea flotante y necesite limitar a dos decimales y que tenga separadores de miles; asi mismo me gustaria saber sí se puede controlar el ancho de las columnas en el databrowser y su alineación; muchas gracias!

Profile PM   Website AIM MSN Skype
Shell
Quote
Posts: 5278 Location: Al otro lado de la pantalla
Monday, 17 March 2014, 12:49
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Hola Jarry.

Voy ayudarte con los números decimales. Si quieres limitar el número de decimales, usa la función Format.

Public Sub Main()

Dim numero As Float

numero = 34.1234

Print Format$(numero, "-#.##")

End


Lo que obtienes es una cadena. Si quieres convertirlo a número debes usar la función Val.
Supongo que el contenido del componente es un cadena, en ese caso no necesitas convertir de cadena a número.

Aquí tienes una buena referencia:

Fomat:

http://gambasdoc.org/help/cat/userformat?es&v3#t2

Val:

http://gambasdoc.org/help/lang/val?es&v3

Saludos

Profile PM   Website
jsbsan
Quote
Posts: 4175 Location: dos hermanas, sevilla
Monday, 17 March 2014, 12:54
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Hola jarrypalacios:

Bienvenido al foro.

Citar:
como puedo aplicar formatos a objetos datacontrol en el caso de que el tipo de datos sea flotante y necesite limitar a dos decimales y que tenga separadores de miles; asi mismo me gustaria saber sí se puede controlar el ancho de las columnas en el databrowser y su alineación;


Puedes modificar el formato de los números, alineación y colores usando el evento _DATA del DataBrowser.


Public Sub DataBrowser1_Data((Row) As Integer, Column As Integer, Value As Variant)

If IsNull(Value) Then Return

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º
DataBrowser1.Data.Background = Color.red
DataBrowser1.Data.Foreground = Color.White

Case 2
DataBrowser1.Data.Text = Format(Value, "$0.00")

Case 3
DataBrowser1.Data.Font.Bold = True
DataBrowser1.Data.Alignment = Align.Center
End Select

End


Te adjunto el código completo y un pantallazo del ejemplo que he hecho:
extdata_databrowser_formato

Nota:
La anchura de las columnas no lo he podido averiguar.

Nota2:
El ancho lo averigua automaticamente según los valores que tiene la columna, esto lo hace en el método GetWidth
de la clase DataField. Si lo quieres hacer tendrías que crear un nuevo componente heredado de este para modificar este método. Aqui puedes ver el codigo fuente:
gambas3-3.5.2/comp/src/gb.db.form/.src/DataField.class

Last edited by jsbsan on Monday, 17 March 2014, 13:12; edited 1 time in total

ExtData-0.0.1.tar.gz
Description: Modificar formato de celdas en un databrowser 
Download
Filename: ExtData-0.0.1.tar.gz
Filesize: 5.55 KB
Downloaded: 248 Time(s)
ExtData-0.0.1.tar.gz
Description: Modificar formato de celdas en un databrowser 
Download
Filename: ExtData-0.0.1.tar.gz
Filesize: 5.55 KB
Downloaded: 248 Time(s)
ExtData-0.0.1.tar.gz
Description: Modificar formato de celdas en un databrowser 
Download
Filename: ExtData-0.0.1.tar.gz
Filesize: 5.55 KB
Downloaded: 248 Time(s)

Profile PM   Website MSN
jarrypalacios
Quote
Posts: 25 Location: Táchira
Monday, 17 March 2014, 14:41
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Gracias voy a probar.

Profile PM   Website AIM MSN Skype
jarrypalacios
Quote
Posts: 25 Location: Táchira
Monday, 17 March 2014, 14:43
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Buen Día amigo, he probado el codigo que me enviaste y no funciona.

la función databrowse1_data tiene mucho sentido, pero en que momento dentro de la funcion estas instrucciones se relacionan con la columna especifica del objeto????
en el select case es logico, pero lo probé y no me funciono hermano.

Gracias por el apoyo!

Profile PM   Website AIM MSN Skype
jsbsan
Quote
Posts: 4175 Location: dos hermanas, sevilla
Monday, 17 March 2014, 15:28
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
jarrypalacios:

Citar:
pero en que momento dentro de la funcion estas instrucciones se relacionan con la columna especifica del objeto????

Es en Column, si la colunmna es la 1º , es el Case 0, si la columna es el 2º, es el case 1,....

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º


Saludos

Profile PM   Website MSN
jarrypalacios
Quote
Posts: 25 Location: Táchira
Monday, 17 March 2014, 16:50
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Fijate Ejecuto este codigo y no obtengo el resultado que pude ver en la imagen que me enviaste.

' gambas class file

Public hconn As New Connection
Private Row As Integer

Public Sub Form_Open()

hconn.host = "/home/palsystems04/Documentos/Desarrollos/pruebas_gambas/ExtData"
hconn.Name = "leonel"
hconn.Type = "sqlite3"
Try hconn.Open()

If Error Then Message.Info("No pudo abrir la base de datos")

DataSource1.Connection = hconn
DataSource1.Table = "personas"

End

Public Sub Form_Close()

Try hconn.Close()

End

Public Sub DataBrowser1_Data(Row As Integer, Column As Integer, Value As Variant)

If IsNull(Value) Then Return

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º
DataBrowser1.Data.Background = Color.red
DataBrowser1.Data.Foreground = Color.White

Case 3
DataBrowser1.Data.Text = Format(Value, "$0.00")

Case 4
DataBrowser1.Data.Font.Bold = True
DataBrowser1.Data.Alignment = Align.Center
End Select

End

Public Sub DataBrowser1_Arrange()

Print

End

Profile PM   Website AIM MSN Skype
jsbsan
Quote
Posts: 4175 Location: dos hermanas, sevilla
Monday, 17 March 2014, 17:07
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
jarrypalacios:

Ejecuta el codigo tal como lo envie, en el ide de gambas.

Has modificado la ruta del host, escribiendo:
Citar:
hconn.host = "/home/palsystems04/Documentos/Desarrollos/pruebas_gambas/ExtData"


Debes de poner, lo que viene en el ejemplo original:
Citar:
hconn.host = Application.Path


Saludos

Profile PM   Website MSN
jarrypalacios
Quote
Posts: 25 Location: Táchira
Monday, 17 March 2014, 19:07
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
Realmente no creo que sea la ruta pues el formulario levanta y los datos se pueden vizualizar en el databrowser

Profile PM   Website AIM MSN Skype
jsbsan
Quote
Posts: 4175 Location: dos hermanas, sevilla
Monday, 17 March 2014, 19:34
Subject: Re: Propiedades Controles (Datacontrol Y Databrowser)
¿que version de gambas3 estas usando?
Yo estoy usando gambas3.5.2

Profile PM   Website MSN
Reply to topic
Goto page 1, 2  Next

Page 1 of 2


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.1233s (PHP: -15% SQL: 115%)
SQL queries: 26 - Debug Off - GZIP Enabled