Gb.Report. Componente para Generar Reportes

Este es uno de los componentes menos utilizados en Gambas. Porque? bueno, casi no existen ejemplos de como utilizarlo. La información que aparece en la ayuda de Gambas se limita solo a mostrar las propiedades, metodos y eventos de este componente, pero nada mas.

Afortunadamente alguien desarrollo un ejemplo que andaba rodando por la red desde el año 2007, pero estaba incompleto y erroneo.

Luego de mucho ensayo y error, logre conseguir que funcionaria, aqui les dejo una pantalla:

Ejemplo de reporte con Gb.Report

El formulario en vista de diseño, debe ser algo asi:

Formulario en vista de diseño

y el codigo es el siguiente:

PRIVATE hCon AS NEW Connection
PRIVATE hResult AS Result

PUBLIC SUB _new()
hcon.host = «localhost»
‘hcon.Port = 3306
hCon.User = «root»
hCon.Type = «mysql»
hcon.Name = «tu_bd» ‘nombre de la bd
hCon.Password = «tu_password» ‘tu password

hResult = hcon.Exec(«select nombre, password, saldo from usuarios») ‘consulta a una tabla interna de mysql
InitReport()
DrawingArea1.Width = Printer.Width
DrawingArea1.Height = Printer.Height
Report.Zoom = 0.75 ‘para imprimir ponemos el zoom a 1
CATCH
Message(Error.Text & «\n» & Error.Where & «\n\n¿Password Incorrecto?»)

ME.Close
END

PUBLIC SUB Form_Open()

SpinBox1_Change ‘al disparar este evento, se dibuja el reporte

END

PRIVATE SUB InitReport()
DIM hCloner AS ReportCloner
DIM hLabel AS ReportLabel
DIM hField AS ReportField
DIM hHbox AS ReportHBox
DIM hEmpty AS ReportHBox
DIM hVBox AS ReportVBox
DIM hSpecialField AS NEW ReportSpecialField

Report.width = «21 cm»
Report.Height = «29.7 cm»
‘ Report.Size = «A4»

Report.Orientation = Report.Portrait ‘Report.Landscape
Report.LineStyle = line.Solid
Report.Padding = «1 cm»
Report.Resolution = Desktop.Resolution ‘Printer.Resolution
‘para imprimir cambiamos a printer.resolution

hLabel = NEW ReportLabel(Report)
hLabel.Text = «PRUEBA DE REPORTE BD CIBER KAISER»
hLabel.Height = «2.5 cm»
hLabel.Alignment = Align.Center
hLabel.Font.Size = 25
hLabel.LineStyle = Line.Solid
hLabel.FillColor = Color.LightBackground
hLabel.FillStyle = Fill.Solid

hVBox = NEW ReportVBox(Report)
hVBox.Height = «1.5 cm»

hCloner = NEW ReportCloner(Report)
hCloner.Expand = TRUE
hCloner.Count = hResult.Count
hCloner.Tag = «cloner»
hCloner.Spacing = «0.3 cm»

hVBox = NEW ReportVBox(hCloner)
hVBox.Height = «1.5 cm»
hVBox.Padding = «0.2 cm»
hVBox.LineStyle = line.Solid
hVBox.Tag = «hVBox»

hHbox = NEW ReportHBox(hVBox)
hHbox.Height = «1 cm»
hHbox.Padding = «0.2 cm»
hHbox.Tag = «hHbox»

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = «Nombre:»
hLabel.Width = «2 cm»
hLabel.Font.Bold = TRUE
hLabel.Tag = «hLabel»

hField = NEW ReportField(hHbox) AS «FieldNombre»
‘creamos tantos ReportField como columnas de la bd queramos mostrar
‘con su manejador de evento correspondiente «Data»
hField.tag = «FieldNombre»
hField.LineStyle = Line.Dot
hField.Width = «5 cm»
hField.Font.Bold = TRUE
hField.ForeColor = color.Gray

hEmpty = NEW ReportHBox(hHbox)
hEmpty.Expand = TRUE

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = «Password:»
hLabel.Width = «2 cm»

hField = NEW ReportField(hHbox) AS «FieldPassword»
hField.Tag = «FieldPassword»
hField.Width = «5 cm»
hField.LineStyle = Line.Dot
hField.ForeColor = color.Gray

‘hHbox = NEW ReportHBox(hVBox)
‘hHbox.Height = «0.5 cm»

hLabel = NEW ReportLabel(hHbox)
hLabel.Text = «Saldo:»
hLabel.Width = «2.2 cm»
hLabel.ForeColor = color.Red

hField = NEW ReportField(hHbox) AS «FieldSaldo»
hField.Tag = «FieldSaldo»
hField.Font.Italic = TRUE
hField.ForeColor = color.Gray
hField.Width = «5 cm»
hField.LineStyle = Line.Dot

hSpecialField = NEW ReportSpecialField(Report)

hSpecialField.Text = «Pagina $PAGE/$NPAGE»
hSpecialField.Height = «1 cm»
hSpecialField.Alignment = align.Center

END

PUBLIC SUB FieldNombre_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!nombre
DEBUG LAST.Data
‘CATCH
END

PUBLIC SUB FieldPassword_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!password
‘CATCH
END

PUBLIC SUB FieldSaldo_Data()
hResult.MoveTo(LAST.Index – 1)
LAST.Data = hResult!saldo
‘CATCH
END

PUBLIC SUB SpinBox1_Change()
DrawingArea1.Clear
Draw.Begin(DrawingArea1) ‘para imprimir, cambiamos el device a Printer
Report.Layout
SpinBox1.MaxValue = Report.count
Report.Draw(SpinBox1.Value)
Draw.End

END

Espero que sea de utilidad para todos. hasta la proxima!